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

看板Perl作者 (Anson)時間9年前 (2015/12/01 11:10), 編輯推噓1(103)
留言4則, 3人參與, 最新討論串1/1
目前遇狀況是要執行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

12/01 13:57, , 1F
是 $filename 沒有指定嗎?其實不需要寫成 script
12/01 13:57, 1F

12/01 13:57, , 2F
perl -ne 'print if /pattern/;' file 就可以了
12/01 13:57, 2F

12/03 00:58, , 3F
my $filename = $ARGV[0]; #加命令列參數
12/03 00:58, 3F

04/01 22:44, , 4F
M大不錯喔....
04/01 22:44, 4F
文章代碼(AID): #1MNG-YTQ (Perl)
文章代碼(AID): #1MNG-YTQ (Perl)