【求助】程序调用shell命令问题

nuclearxin

算了
自己看出来了 是和~
竟然问这么白痴的问题
当然也看到了
是个数字这样的回答

[ 本帖最后由 nuclearxin 于 2009-9-17 13:34 编辑 ]

dahe_1984

怎么搞的这么复杂啊？

toniz

确实是啊  一句命令行的问题  弄得这么复杂 偶滴神啊

dahe_1984

Before
real    0m1.344s
user    0m1.752s
sys     0m0.953s

Now:

real    0m0.188s
user    0m0.124s
sys     0m0.061s

#!/usr/bin/perl -w
use strict;
my $fileone=$ARGV[0];
my $filetwo=$ARGV[1];
print $fileone;
my (@id,@res,@contents);
my $result;
open (FH,$fileone);
while(<FH>){
    chomp;
push (@id,$_);
#print "$_\t$result\n";
}
close FH;

open (FH,$filetwo);
@contents = <FH>;
close FH;

foreach my $name(@id){
print $name;
#@res = `grep -c $name $filetwo`;         # system是shell返回值，不是返回结果。最好是把文件保存到内存，然后用perl中的grep 去查询，用shell好像慢了点
my $count = grep /$name/, @contents;
print "\n$count\n";
}

dahe_1984

把数组一次性放进内存，然后在内存中查肯定比每次调用shell命令从磁盘中查询快一些。

bmechuangye

谢谢各位，向高手学习了！

原帖由 nuclearxin 于 2009-9-17 13:08 发表
一句awk就搞定~
看来不够复杂

我原想用awk来解决，试了试没成。请问你是怎么一句就搞定的？

toniz

我没用AWK，但你可以参考下：
for job in `tr -d "\015" <S2.txt` ;do grep -i $job S1.txt ;done

bmechuangye

原帖由 toniz 于 2009-9-21 10:15 发表
我没用AWK，但你可以参考下：
for job in `tr -d "\015"  

谢谢！不太明白意思，说明我还很菜！要是有人能解读这段shell的意思就好了。