Discussion :

[MadStef]

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 )

[Schmorgluck]

Deux remarques : le defined est superflu (mais ça n'a rien à voir avec ton problème), et ton print est placé étrangement. Comme je ne sais pas ce que tu cherches à obtenir ni ce que tu obtiens en fait, je ne peux en dire plus pour le moment.

[MadStef]

Deux remarques : le defined est superflu (mais ça n'a rien à voir avec ton problème), et ton print est placé étrangement. Comme je ne sais pas ce que tu cherches à obtenir ni ce que tu obtiens en fait, je ne peux en dire plus pour le moment.

Le defined a été honteusement pompé sur un exemple et le print me sert a controler la sortie, sachant qu'il y aura un traitement à la place (dans la boucle... )

edit quelques minutes + tard

Voila le msg d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
stef@arthur:~/scripts$ ./test-fichier.pl
syntax error at ./test-fichier.pl line 13, near "if $Ligne "
syntax error at ./test-fichier.pl line 20, near "}"
Execution of ./test-fichier.pl aborted due to compilation errors.

Et j'ai changé le print final de place

[Schmorgluck]

J'ai failli te dire la cause, mais finalement non, c'est du débogage de routine, on ne va pas non plus te tenir la main. Tu as toutes les informations nécessaires.

Une remarque supplémentaire en passant : utilise le pragma strict. Toujours.

[MadStef]

Groumph

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
18
19
 
#!/usr/bin/perl -w
 
use warnings ;
 
while ($fichier = <../arg_retag/*01.txt>)
{
   open(FICHIER,"$fichier") || die "Pas d'ouverture" ;
 
   while ($Ligne=<FICHIER>)
   {
      if ($Ligne =~ /Artiste = (.*)/)
      {
         $artist = $1 ;
      }
   }
   print "$artist\n" ;
   close(FICHIER)
}

La version corrigée qui fait ce que je veux (c'est con une parenthèse )