用perl如何实现打开一个文件并找出所有带有关键字比如hello：的行并存入数组中，求程序。感谢！
展开全部
$keyword = "hello";
my @found;
my $count = 1;
open F, "sourcefile.txt";
while ( <F> ) {
push @found, $count if $_ =~ /\Q$keyword\E/g;
$count++;
}
close F;
print "$keyword was found at line : @found";
my @found;
my $count = 1;
open F, "sourcefile.txt";
while ( <F> ) {
push @found, $count if $_ =~ /\Q$keyword\E/g;
$count++;
}
close F;
print "$keyword was found at line : @found";
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
