Perlでgrepとgawkを使用する

Question

$chosenbeer = param('beers'); 
    $beerprice = `grep "$chosenbeer" beers | gawk '{gsub(/[a-zA-Z\t ]/,"");print $1}'`; 

これは私が使用しようとしているコードです。$ chosenbeerは以前CGIページのリストの文字列です。私は選択されたビールの価格を取得しようとしています。

ビールEXライン：

Dogfish Head 60 Minute IPA  35.96 

しかし、これは動作していない何らかの理由で

。どんな考え？私が$ beerpriceを印刷すると何も出てこない。

Answer 1

これを実行するには、シェルを使わずにPerlでこれを行うことができます。より速く、より柔軟で、移植性が高く、デバッグがずっと簡単で、大きなセキュリティホールは含まれていないはずです。

sub find_beer { 
    my $beer = shift; 

    open my $fh, "beers" or die $!; 

    # Take the first beer that matches 
    my($line) = grep /\Q$beer/, <$fh>; 
    return unless $line; 

    # I'm presuming the name and price are separated by a hard tab. 
    my($name, $price) = split /\t/, $line; 

    return { name => $name, price => $price }; 
} 

my $beer = find_beer("Dogfish Head 60 Minute IPA"); 
print $beer->{price}, "\n";