[问题] 打开文件并找寻特定文字

楼主: hotdog5478 (Anson)   2015-12-01 11:10:23
目前遇状况是要执行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;
但一无法执行,想问哪里改写?
作者: Neisseria (Neisseria)   2015-12-01 13:57:00
是 $filename 没有指定吗?其实不需要写成 scriptperl -ne 'print if /pattern/;' file 就可以了
作者: MistQ   2015-12-03 00:58:00
my $filename = $ARGV[0]; #加命令列参数
作者: uefang (鸡~鸡~鸡~鸡~)   2014-04-01 22:44:00
M大不错喔....

Links booklink

Contact Us: admin [ a t ] ucptt.com