Bonjour,

Je bute sur un problème assez crétin :
J'ai une liste de fichier que je dois prendre un par un et appliquer un traitement sur le contenu...
Je tente ca :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl -w
use warnings ;
while (defined($fichier = <../arg_retag/*01.txt>))
{
#  print "Le fichier est $fichier\n" ;
   open(FICHIER,"$fichier") || die "Pas d'ouverture" ;
   while ($Ligne=<FICHIER>)
   {
      if $Ligne =~ /Artiste = (.*)/)
      {
         $artist = $1 ;
      }
   }
   close(FICHIER) ;
   print "$artist\n" ;
}
Lorsque je décompose le globing d'un coté et le traitement d'un fichier de l'autre, ca marche mais comment traiter fichier par fichier ?
(je soupsonne une m*rdouille dans open )