JLT>Root |
Aucun résumé des modifications |
||
(Une version intermédiaire par le même utilisateur non affichée) | |||
Ligne 1 : | Ligne 1 : | ||
{{#seo:|keywords=perl}} | |||
== Trouver des fichiers avec un motif donné == | == Trouver des fichiers avec un motif donné == | ||
<syntaxhighlight lang="perl"> | <syntaxhighlight lang="perl"> | ||
Ligne 13 : | Ligne 13 : | ||
print "notfound d in @ar\n" if ( grep (!/d/, @ar)); | print "notfound d in @ar\n" if ( grep (!/d/, @ar)); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | |||
== Liens Externes == | == Liens Externes == |
opendir D, '.' or die "Could not open current dir: $!\n"; my @filelist = grep(/[A-Z]{2}_\w{2,5}/i, readdir D); closedir D;
my @ar = ( "a", "b", "c"); print "found b in @ar\n" if ( grep (/b/, @ar)); print "notfound d in @ar\n" if ( grep (!/d/, @ar));