[問題] 打開文件並找尋特定文字

[hotdog5478 (Anson)]

目前遇狀況是要執行perl perl3.pl find_me文件中的字並print out

perl3.pl中內碼是

#!/user/bin/perl -w
use strict;
use warnings;

open( my $fh, '<', $filename ) or die "Can't open $filename: $!";
    while ( my $line = <$fh> ) {
        if ( $line =~ /wanted text/ ) {
            print $line;
        }
    }
    close $fh;
但一無法執行,想問哪裡改寫?

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 129.10.9.73
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1448939426.A.75A.html
→ Neisseria: 是 $filename 沒有指定嗎？其實不需要寫成 script
→ Neisseria: perl -ne 'print if /pattern/;' file 就可以了
→ MistQ: my $filename = $ARGV[0]; #加命令列參數
推 uefang: M大不錯喔....