作者hotdog5478 (Anson)
看板Perl
标题[问题] 打开文件并找寻特定文字
时间Tue Dec 1 11:10:23 2015
目前遇状况是要执行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://webptt.com/cn.aspx?n=bbs/Perl/M.1448939426.A.75A.html
1F：→ Neisseria: 是 $filename 没有指定吗？其实不需要写成 script 12/01 13:57
2F：→ Neisseria: perl -ne 'print if /pattern/;' file 就可以了 12/01 13:57
3F：→ MistQ: my $filename = $ARGV[0]; #加命令列参数 12/03 00:58
4F：推 uefang: M大不错喔.... 04/01 22:44