2012-06-27 21:33:44 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
|
|
$motif=$ARGV[0];
|
|
|
|
|
shift;
|
|
|
|
|
foreach $f (@ARGV)
|
|
|
|
|
{
|
|
|
|
|
open(F,"<$f") || die "Impossible de lire le fichier $f : $!";
|
|
|
|
|
|
2012-06-27 21:42:23 +02:00
|
|
|
while(<F>) {
|
2012-01-05 12:02:51 +01:00
|
|
|
print "Motif trouvé dans $f : $_ \n" if(/$motif/);
|
2012-06-27 21:33:44 +02:00
|
|
|
};
|
|
|
|
|
}
|
