zcat работает в командной строке, но не в PERL скрипт

Question

Вот часть моего сценария:

foreach $i (@contact_list) { 

    print "$i\n"; 

    $e = "zcat $file_list2| grep $i"; 
    print "$e\n"; 

    $f = qx($e); 
    print "$f";          
} 

$e печатает правильно, но $f дает пустую строку, даже если $file_list2 имеет матч за $i.

Может ли кто-нибудь сказать мне, почему?

Answer 1

Всегда лучше использовать Grep Perl вместо того, чтобы использовать трубу:

@lines = `zcat $file_list2`; # move output of zcat to array 
die('zcat error') if ($?);  # will exit script with error if zcat is problem 
# chomp(@lines)     # this will remove "\n" from each line 

foreach $i (@contact_list) { 

    print "$i\n"; 

    @ar = grep (/$i/, @lines); 
    print @ar; 
# print join("\n",@ar)."\n";  # in case of using chomp 
} 

Лучшее решение не называет zcat, но с использованием ZLIB библиотеки: http://perldoc.perl.org/IO/Zlib.html

use IO::Zlib; 

# .... 
# place your defiiniton of $file_list2 and @contact list here. 
# ... 

$fh = new IO::Zlib; $fh->open($file_list2, "rb") 
    or die("Cannot open $file_list2"); 
@lines = <$fh>; 
$fh->close; 

#chomp(@lines);     #remove "\n" symbols from lines 
foreach $i (@contact_list) { 

    print "$i\n"; 
    @ar = grep (/$i/, @lines); 
    print (@ar); 
# print join("\n",@ar)."\n"; #in case of using chomp 
} 

Answer 2

Ваш вопрос оставляет нам угадывание многих вещей, но лучший общий подход, казалось бы, открывает файл только один раз и обрабатывает каждую строку в самом Perl.

open(F, "zcat $file_list |") or die "$0: could not zcat: $!\n"; 
LINE: 
while (<F>) { 
    ######## FIXME: this could be optimized a great deal still 
    foreach my $i (@contact_list) { 
     if (m/$i/) { 
      print $_; 
      next LINE; 
     } 
    } 
} 
close (F); 

Если вы хотите выжать больше из внутреннего цикла, компиляция регулярных выражений из @contact_list в отдельный массив перед петлей, или, возможно, объединить их в единое регулярное выражение, если все, что вы заботитесь о том, является ли один из них соответствует. Если, с другой стороны, вы хотите распечатать все совпадения для одного шаблона только в конце, когда знаете, что это такое, собирайте совпадения в один массив для каждого выражения поиска, затем зацикливайте их и распечатайте, когда у вас есть grepped весь набор входных данных файлы.

Ваша проблема не воспроизводится без информации о том, что находится в $i, но я могу догадаться, что она содержит некоторый метасимвол оболочки, который заставляет его обрабатывать оболочку перед запуском grep.