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