some-usable-scripts/perl/grep2.pl

13 lines
201 B
Perl
Raw Normal View History

#!/usr/bin/perl
$motif=$ARGV[0];
shift;
foreach $f (@ARGV)
{
open(F,"<$f") || die "Impossible de lire le fichier $f : $!";
while(<F>) {
print "Motif trouvé dans $f : $_ \n" if(/$motif/);
};
}