wie Sie mit system-Kommando 'grep' in perl-script

Ich versuche zu zählen, den passenden Charakter mit grep im Perl-Skript. Unterhalb der Skript zählt ganze Verzeichnis der von mir gewünschten Ausgabe enthalten sollte, wird nur die Anzahl der input-Datei, nicht das ganze Verzeichnis, jemand mir helfen, dies zu tun.

#! use/bin/perl

use strict;


print"Enter file name for Unzip\n";
print"File name: ";
chomp(my $Filename=<>);
system("gunzip -r ./$Filename/*\n");
system('grep -c "@SRR" ./$Filename/*');

Diese gibt ganze Verzeichnis zählt.

  • Crossposting: askubuntu.com/q/609452/336375
  • Hast du verstanden, die Frage oben??
  • Machen Sie haben zu verwenden, das system der grep-Befehl, oder Sie nicht wissen, wie die grep - Befehl in Perl? Wenn Sie nicht haben, um das system verwenden der grep-Befehl, warum nicht die benutzen, die in Perl?
InformationsquelleAutor Aditya K | 2015-04-15
  1. 0
    #! use/bin/perl
use strict;
print"Enter file name for Unzip\n";
print"File name: ";
chomp(my $Filename=<>);
system("gunzip -r ./$Filename\*");
system("grep -c '\@SRR' ./$Filename\*");

    Bitte lassen Sie uns wissen, falls ich die Frage missverstanden. Aber obige code gibt uns die Anzahl der passenden Zeilen @SRR auf Zip-Dateinamen zur Verfügung.

    Außerdem brauchen Sie nicht zu entpacken, zu zählen, können Sie direkt tun 

    system("zgrep -c '\@SRR' $Filename")

    statt 

     system("gunzip -r ./$Filename\*");
 system("grep -c '\@SRR' ./$Filename\*");
    InformationsquelleAutor Sudip Gautam
  2. 0

    my $var=cat filename | grep "your word";

    Dank,
    nilesh.

    InformationsquelleAutor Nilesh
Schreibe einen Kommentar