13 lines
201 B
Perl
Executable File
13 lines
201 B
Perl
Executable File
#!/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/);
|
|
};
|
|
}
|