perl中调用linux系统命令的问题

rubilly

#!/usr/bin/perl

my $NAME="name.txt";

open(RESULT,$ResultFile)||die("Can't open the user's list!\n");

@data=<RESULT>;
foreach(@data)
{
        `grep -ri "$_" dirs >>final.txt`;
}
close RESULT;
exit (0);

就是想在perl中调用系统的grep命令,在dirs这个文件夹中查找包含$_字符的文件
name.txt格式如下:
[root@luzg upload]# more name.txt
script_id(18480)
script_id(18482)
script_id(18483)

结果总是不正确,请问是哪里出问题了呢?

among29

没看懂你的程序
$ResultFile是干啥的
重写了个，应该可以符合你的要求

#!/usr/bin/env perl #Author: among 20070808 use warnings; use strict; my @all_files=glob "*"; my @my_files; my $pattern="name.txt"; open(RESULT,$pattern) or die ("Can not open pattern file"); my @pat=<RESULT>; foreach my $file (@all_files) { FIND: { &nbsp;&nbsp;&nbsp;&nbsp;foreach (@pat) &nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $thispat=$_; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp($thispat); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ($file=~m/$thispat/) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push @my_files,$file; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last FIND; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;} } } print "@my_files";

rubilly

昨天贴错了,$ResultFile就是name.txt的变量名

my $ResultFile="name.txt";

open(RESULT,$ResultFile)||die("Can't open the user's list!\n");

among29

可能是没有chomp的问题
你试试吧
我写的那个也该也成