Perl腳本中的awk命令出現錯誤

Question

我在我的perl腳本中運行以下代碼。

my $record = `awk -F'[:;]' '$1 == "Amy"' data.txt`;

但是，這給了我錯誤：

awk: syntax error at source line 1
 context is
     >>>  == <<< 
awk: bailing out at source line 1

是什么導致此錯誤？

Answer 1

嘗試轉義$符號：

my $record = `awk -F'[:;]' '\$1 == "Amy"' data.txt`;

Answer 2

從perl的反引號中調用awk是一件很討厭的事情。 perl幾乎復制了所有相同的功能-您所做的只是引入了額外的開銷，效率低下和引用問題（就像您在示例中遇到的那樣）。

為什么不呢？

open ( my $input, '<', 'data.txt' ) or die $!;
my ($record) = grep { (split /[:;]/)[0] eq 'Amy' } <$input>; 

這可以復制您的工作，但是您可以做些更優雅的事情，例如：

my %person;
while ( <$input> ) { 
    chomp;
    my ( $name, @fields ) = split /[;:]/; 
    $person{$name} = \@fields; 
}

接着：

print join " ", @{$person{'Amy'}},"\n";