14 lines
202 B
Perl
14 lines
202 B
Perl
|
#!/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/);
|
||
|
|
};
|
||
|
|
}
|