Perl 抛出有关语法的错误消息

Question

因此，基于关于字符串匹配的问题 (this thread)，我正在努力将解决方案 3 中的该信息实现为我正在处理的问题的有效解决方案。

但是，我遇到了错误，特别是关于以下函数的这一行：

next if @$args->{search_in} !~ /@$cur[1]/;

syntax error at ./db_index.pl line 16, near "next "

作为 perl 新手，我的问题是我在这里做错了什么？

sub search_for_key
{
    my ($args) = @_;

    foreach $row(@{$args->{search_ary}}){
        print "@$row[0] : @$row[1]\n";
    }

    my $thiskey = NULL;
    foreach $cur (@{$args->{search_ary}}){
        print "\n" . @$cur[1] . "\n"
        next if @$args->{search_in} !~ /@$cur[1]/;
        $thiskey = @$cur[0];
        last;
    }
    return $thiskey;    
}

Answer 1

您在上一行的末尾省略了分号。无论如何，这就是导致语法错误的原因。我认为您也滥用了$args，但如果不知道您是如何调用此函数的，就很难确定这一点。

Answer 2

这里有几个问题。

1. 在执行其他任何操作之前，是否在脚本顶部添加 use strict; 和 use warnings;？您只发布了 sub，但很明显您没有使用这些。

2. 什么是NULL？ （严格不会让你用空话...）一定要看What is Truth in Perl?Perly处理“真”或“假”的方法是defined/undef或exists或专门测试选择作为约定的值。

3. 在print "\n" . @$cur[1] . "\n" 之后缺少;

4. 您的数据结构似乎太复杂了。据我所知，您正在传递对数组哈希的引用，对吗？为什么你的数据结构变得非常模糊，备份并看看你正在尝试做什么......

5. Perl 为您提供了很多方法来shoot yourself in the foot。它不是严格键入的，您将通过将引用命名为它们所指内容的派生来帮自己（和您的读者）一个忙。所以不要使用$args，例如使用$ref2HoArefs。

Answer 3

旁注，你确定你不能只使用哈希来做你正在做的事情吗？做这么简单的事情似乎非常复杂：

my %hash = ( 
     key1 => 'value1',
     key2 => 'value2',
);

exists $hash{$search_in};   # true/false.
my $result = $hash{$search_in}; # returns 'value1' when $search_in is 'key1'

或者如果你需要按值搜索：

my %flip = reverse %hash;
$result = $flip{$search_in};

如果您真的需要正则表达式键（或值）查找：

 sub string_match {
        my ($lookup_hash, $key ) = @_;
        for my $hash_key ( %{ $lookup_hash } ){ 
            return $hash_key if $key =~ $lookup_hash->{$hash_key};
        }
        return; # not found.
 }
 my $k = string_match({
           'whitespace at end' =>  qr/\s+$/,
           'whitespace at start' => qr/^\s+/,
 }, "Some Garbage string     ");  # k == whitespace at end