Bonjour.  
 
J'ai un répertoire avec 800 fichiers.  
Dont certains sont nommés A01B1.ext à A08B8.ext, sachant qu'on a tous ces fichiers de A01 à A10.
Tous ces fichiers ont le même squelette de blocs, les mêmes noms de blocs (il y a 50 blocs).
 
nom_1
{
code1
vaviable_i ="1";
}
....
nom_n
{
code_n
vaviable_i ="1";
}
 
Je dois changer pour la liste {nom_3, nom_9, ...nom_i..., nom_40} la valeur de la variable à 0;
 
J'ai vu des solutions pour une partie du problème dans http://forum.hardware.fr/message.p [...] catgroup=0
 
Mais, je ne sais pas appliqiuer la modification uniquement à la liste {nom_3, nom_9, ...nom_i..., nom_40} qui peut être variable.
Auriez vous des solutions.  
D'avance merci.

Pour l'instant, grâce au topic  
http://forum.hardware.fr/hfr/Progr [...] 7576_1.htm
j'ai trouvé la solution ci dessous. Dites moi ce que vous en pensez.
 
my $file ="";
my @data = ("nom_1" ; "nom_2" ; "nom_3" ; "nom_4" ; "nom_5" ; "nom_6" )
 
 
 
 for( $i=1; $i<8; $i++ )
 {
  for( $i=1; $i<9; $i++ )
  {
   $msg = "0$i";
   $file = "A0".$i."B".$j.".ext"
   print "$file";
   open IN, $file or die $!;
   while ($intext = <IN> ) {
   foreach $valeur (@data){
    if $intext = ~ /$valeur/){
     $v=~ s/VARIABLE = "1";/VARIABLE = "0";  
    }
    }
   }
  }
 }

Ensuite, je souhaite exécuter ces mêmes modifs sur les fichiers  
A01aB1.ext à A08aB8.ext et A01bB1.ext à A01B8.ext
 
J'ai changé un peu le code :  
 for( $i=1; $i<8; $i++ )
 {
  for( $i=1; $i<9; $i++ )
  {
   $file = "A0".$i."B".$j.".ext"
   print "$file";
   open IN, $file or die $!;
   while ($intext = <IN> ) {
   foreach $valeur (@data){
    if $intext = ~ /$valeur/){
     $v=~ s/VARIABLE = "1";/VARIABLE = "0";  
    }
    }
   }
  }
 }

Le code modifié est :  
    #!/usr/bin/perl
     
    use strict;
    use warnings;
     
    my $file ="";
    my $j = 0 ;
    my $intext = "";
    my $intext2 = "";
    my $valeur = "";
    my $v = "";
    my @data = ("nom_3" , "nom_13" , "nom_20" , "nom_19" , "nom_25" , "nom_35" );
    for ($i=2; $i<9; $i++)
        for ($j=2; $j<9; $j++)
        {
            $file = "A0".$i."B0"$j.".ext";
            print "$file \n";
            open IN, $file or die $!;
            while ($intext = <IN> ) {
            foreach $valeur (@data)
            {
                if ($intext =~ /$valeur/)
                    {
                    print  "valeur ".$valeur." trouvee\n";
                    if ($intext =~ /"VARIABLE"/){
                    print  "valeur ".$intext2." trouvee\n";
                    $intext2=~ s/1/0/;
                    }
                }
             }
             }
        }
 
 
Quand je l'éxecute, il ouvre les fichiers mais ne modifie pas les valeurs.  
 
HELP

C'est normal ça, il fait cela pour la valeur qu'il lit (il a copié la ligne lue dans la variable $_ et c'est la dessus qu'il opère), pas pour celle du fichier.
Bon, je vais regarder cela.
Il y a un truc pas clair:
le variable a changer dans un bloc approprié, elle s'appelle comment? VARIABLE?
A+,

Bon, j'ai rien testé, donc le code est SGDG, mais ça pourrait ressembler à ceci:
 

#!/usr/bin/perl 
use strict;
use warnings;
 
use Tie::File;
my @farray;
my $substitute = 0;
my $regexp = "(3|13|19|20|25|35)";
 
foreach my $i (2..9) {
  foreach my $j (2..9) {
    my $file = "A0${i}B0${j}.ext";
    if (-f $file) {
      tie @farray, 'Tie::File', $file or die "Cannot Tie file $file $!";
      foreach (@farray) {
    if (/nom_\d+/) {
      if (/nom_$regexp/){
        $substitute = 1;
      }
      else {
        $substitute = 0;
      }
    }
    if ($substitute) {
      if (/VARIABLE/) {
        s/1/0/;
      }
    }
      }
      untie @farray;
    }
  }
}

 
foreach my $i (2..9) ==> fait varier automatiquement i de 2 a 9 dans la boucle
my $file = "A0${i}B0${j}.ext"; ==> construit le nom de fichier d'un coup (${i] c'est $i, mais sans les accolades, ce serait pris pour $iB0
if (-f $file) ==> on teste l'existence du fichier
tie @farray, 'Tie::File', $file ==> lie le fichier a un array, les modifications de l'array sont répercutées sur le fichier
untie @farray;  ==> opération inverse, a effectuer lorsque les manipulations du fichier sont achevées
foreach (@farray)  ==> On traite l'array, donc le fichier, ligne à ligne

On trouve un début de bloc. S'il est avec le bon nombre associé, on met le flag $substitute à 1 sinon on le met à 0

Si le flag substitute est à 1, et si on a une ligne avec VARIABLE, on fait la substitution
(a mon avis, si c'est variable_i = "1", c'est plutôt s/\"1\"/"0"/; qu'il faut faire, car sinon, votre substitution risque de s'opérer sur les chiffres de i de variable_i)
Bon, c'est à adapter selon la structure de vos blocs et fichiers, mais vous voyez le principe.
 
A+,

Ici j'ai de la chance, la variable i est en fait une des nombreuses variables du bloc.  
Elle s'appelle DEFAULTVALUE.  
J'ai d'ailleurs dans le code tous les blocs de la forme :  
 
 
   nom_bloc_1   = {
      Description = ...
      ...
      MinValue =....
      MaxValue = ...
      DEFAULTVALUE = "1" ;  
      Variable = " " ;  
      Range = " " ;  
      ...
      }

D'ailleurs les noms des blocs sont  
 {cmd1, cmd2, reset1, backup, registery, ...,processing,}

Il faut tous les noms de blocs, pas seulement ceux que tu veux traiter (histoire de pas traiter ceux pas concernés par la substitution alors).
Tu peux alors modifier le code comme suit:  (les valeurs des deux regexp $substblocs et $allblocs sont a modifier en fonction de tes besoins réels)
 

#!/usr/bin/perl 
use strict;
use warnings;
 
use Tie::File;
my @farray;
my $substitute = 0;
my $substblocs = "cmd1|cmd2|reset1";
my $allblocs   = "$substblocs|backup|registery|processing";
 
foreach my $i (2..9) {
  foreach my $j (2..9) {
    my $file = "A0${i}B0${j}.ext";
    if (-f $file) {
      tie @farray, 'Tie::File', $file or die "Cannot Tie file $file $!";
      foreach (@farray) {
    if (/$allblocs/) {
      if (/$substblocs/){
        $substitute = 1;
      }
      else {
        $substitute = 0;
      }
    }
    if ($substitute) {
      if (/DEFAULTVALUE/) {
        s/1/0/;
      }
    }
      }
      untie @farray;
    }
  }
}

 
A+,
 
 
 

Notes que si tous tes blocs sont comme:

et que tu n'as pas de { ou } ailleurs dans ton fichier, c'est encore plus facile:
 

#!/usr/bin/perl 
use strict;
use warnings;
 
use Tie::File;
my @farray;
my $substitute = 0;
my $subcmds = "cmd1|cmd2|reset1";
 
foreach my $i (2..9) {
  foreach my $j (2..9) {
    my $file = "A0${i}B0${j}.ext";
    if (-f $file) {
      tie @farray, 'Tie::File', $file or die "Cannot Tie file $file $!";
      foreach (@farray) {
        if (/\{/ and /$subcmds/)  {$substitute = 1; next}
        if (/\}/)                 {$substitute = 0; next}
        if ($substitute and /DEFAULTVALUE/) {s/1/0/o};
      }
      untie @farray;
    }
  }
}

A+,

Salut.  
 
Merci beaucoup pour ton avancée.  
Je me suis permis une variante ligne 17 : if (/\}/and !/data/)  {$substitute = 0; next}
 
Comme ca, si on est différent de la ligne recherchée, ca n'applique pas les modifs.  
 
Tu vas me permettre de modifier 180 fichiers automatiquement sur 3 pc, pour 5 blocs parmi 13 pour chaque fichier.

>> Comme ca, si on est différent de la ligne recherchée, ca n'applique pas les modifs.  
 
C'est  
if (/\}/and $substitute)  {$substitute = 0; next}  
que tu veux faire en fait
(tu as pas fait attention que c'est sur l'accolade fermante et non plus sur l'ouvrante qu'on est maintenant)
ie changer la valeur de substitute que si c'est necessaire.
J'y avais pensé, mais je ne sais pas, entre un test simple + une assignation inutile ou bien deux teste supplémentaires (le valeur de substitute, et le and sur les deux expressions) ce qui est le plus couteux, alors j'ai opté pour le plus simple à lire.
A+,

D'ailleurs, ca a marché avec un fichier qui avait des {} dans le header.  
 
J'espère que ce code pourra resservir si des personnes ont des variables à changer dans des xml.  
 
Je souhaite ensuite généraliser :  
Cette fois ci on a pour d'autres fichiers (IHM) le même masque pour les noms de fichiers :  
A01B01 .... AiBj... AnBm     (les i j n m sont dans le nom du fichier).  
Par exemple A = nuit_courant
 
Dans le fichier A01B01 fichiers on retrouve les bouts de codes :  
...
   nuit_courant_partie01_veille = "value01_"+xx+"shortcut01"+extent
   nuit_courant_partie01_reinit = "value02"+xx+"reset01
   nuit_courant_partie01_shunt = "value03"+xx+"shortcut01+B
...
 
Dans le fichier A02B05 fichiers on retrouve les bouts de codes :  
...
   nuit_courant_partie02_veille = "value01_"+xx+"shortcut02"+extent   (les valeurs 01 sont données par la partie A01 du nom du fichier).
   nuit_courant_partie02_reinit = "value02"+xx+"reset05
   nuit_courant_partie02_shunt = "value03"+xx+"shortcut02+B
...
 
 
J'ai 3 fichiers de nuits A01B01 A02B01 A03B01. (pour les autres fichiers je peux me débrouiller).
Je dois les remplacer par 8 fichiers de jours avec :  
remplacement du nom du fichier A = nuit_courant par C= jour_micro_courant
Il faut donc que je créée les 5 autres fichiers pour avoir C01B01.... C08B01....
 
Ce qui donnereait par exemple pour C07B04:  
...
   jour_micro_courant_partie07_veille = "value01_"+xx+"shortcut07"+extent  
   jour_micro_courant_partie07_reinit = "value02"+xx+"reset04
   jour_micro_courant_partie07_shunt = "value03"+xx+"shortcut07+B
...
 
Ensuite, il faudra que j'applique aux fichiers A01 et C01 des modifs à un bloc.  
aux fichiers A02 et C02 des modifs à un autre bloc. MAis avec les réponses ci dessus je devrais m'en sortir.