我有两个文件
- 输入.txt
- 关键字.txt
input.txt
内容如下:
.src_ref 0 "call.s" 24 first
0x000000 0x5a80 0x0060 BRA.l 0x60
.src_ref 0 "call.s" 30 first
0x000002 0x1bc5 RETI
.src_ref 0 "call.s" 31 first
0x000003 0x6840 MOV R0L,R0L
.src_ref 0 "call.s" 35 first
0x000004 0x1bc5 RETI
keyword.txt
内容如下:
MOV
BRA.l
RETI
ADD
SUB
..
etc
现在我想读取这个keyword.txt
文件并在input.txt
文件中搜索它并找出MOV
发生了多少次BRA.l
。
到目前为止,我已经成功地从单个文件本身开始工作。这是代码
#!/usr/bin/perl
use strict;
use warnings;
sub retriver();
my @lines;
my $lines_ref;
my $count;
$lines_ref=retriver();
@lines=@$lines_ref;
$count=@lines;
print "Count :$count\nLines\n";
print join "\n",@lines;
sub retriver()
{
my $file='C:\Users\vk41286\Desktop\input.txt';
open FILE, $file or die "FILE $file NOT FOUND - $!\n";
my @contents=<FILE>;
my @filtered=grep(/MOV R0L,R0L/,@contents);
return \@filtered;
}
这里我只能搜索MOV
,无法搜索其他指令,例如RETI
.
我还想将MOV,RETI
等放入一个文件中keyword.txt
并使其通用。
输出应该是:
MOV has occured 2 times
RETI has occured 1 time
答案1
如果你不急的话perl
,一个简单的命令行
grep -f keyword.txt -c input.txt
应该这样做。
在 中perl
,您还需要打开keyword.txt
并循环遍历每个关键字,依次 grep ,就像您在代码中单独对 1 所做的那样。
答案2
看起来bash
-script 比 简单得多perl
:
while read keyword
do
occurrence =$(grep -c -F "$keyword" input.txt)
echo "$keyword has occurred $occurrence time(s)"
done < keyword.txt