Discussion :

[ddouet2000]

Bonjour,

Je suis en train d'essayer de me faire un script perl pour modifier le contenu de plusieurs fichiers txt.
Dans chaque fichier, je recherche une chaine de caratère TATA1 pour la modifier en TATA.

Voici le code inspiré du tutorial. Le problème c'est que la chaine de charactère TATA1 n'est pas forcement en ligne 5 dans tous les fichiers (trop facile sinon ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my @Fichiers =("Fich1","Fich2","Fich3","Fich4",);
foreach (@Fichiers)
{
  open my($file), '<', $_ || die ("Erreur d'ouverture de $_ ") ;
  my @lignes = <$file>;
  close($file);
  chomp ( $lignes[4] );
  $lignes[4] = "TATA\n";
  open my($file), '>', $_ || die ("Erreur d'ouverture de $_ ") ;
  print $file @lignes;
  close($file);
}

J'essai donc de faire une recherche en même temps, mais je coince
Pourriez vous me conseiller ?

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
my @Fichiers =("Fich1","Fich2","Fich3","Fich4",);
foreach (@Fichiers)
{
   open my($file), '<', $_ || die ("Erreur d'ouverture de $_ ") ;
   my $Ligne;
         while ($Ligne = <$file>)
         {
           if ($Ligne =~ /TATA1/)
           {
             print "$Ligne \n";
             $Ligne .= s/TATA1/TATA/g;
           }
         }
   close($file);
...
}

[Jasmine80]

Tu dois recréer un nouveau fichier et y recopier tes données.

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
20
21
22
23
24
25
26
27
#!/usr/local/bin/perl
 
 
use strict;
use FileHandle;
 
 
my @Fichiers =("Fich1","Fich2");
foreach (@Fichiers)
{
   open (FICH, "P:/Perl/".$_.".txt") || die ("Erreur d'ouverture de $_ ") ;
   my $FS = FileHandle->new(">P:/Perl/".$_."BIS.txt");
   my $Ligne;
         while ($Ligne = <FICH>)
         {
           if ($Ligne =~ /TATA1/)
           {
             $Ligne =~ s/TATA1/TATA/;
             print $FS "$Ligne";
           }
           else
           {
                print $FS "$Ligne";
           }
         }
   close(FICH);
}

Pour la substitution il faut utiliser =~ et non .=

Code :

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

$Ligne =~ s/TATA1/TATA/;

Bon travail,

Jasmine,

[Schmorgluck]

Pareil que Jasmine.
C'est assez basique, en fait, et je te suggère vraiment de te plonger un peu plus attentivement dans les cours de Perl, car c'est une des premières choses qu'on apprend à faire en général. Je crois que tu as voulu aller trop vite et que tu t'es emmêlé les pinceaux. C'est assez fréquent quand on démarre, Perl est délicat à apprendre, il ne faut pas brûler les étapes.

Pour info, ton problème peut même se résoudre en une seule ligne.

[ddouet2000]

Merci pour ces conseils,
Je vais me pencher plus dans les cours de Perl pour ne plus poser des questions aussi basique
Merci Jasmine pour ton aide.

[ddouet2000]

C'est bon j'ai trouvé apres un peu de reflexion ...désolé pour le dérangement mais il est vrai que je m'étais completement emmêlé les pinceaux

Voici mon code

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
my @Fichiers =("chemin fichier 1","chemin fichier 2","chemin fichier 3","chemin fichier 4",);
 
foreach (@Fichiers)
{
  use strict;
  open(FILE,$_) || die "Impossible d'ouvrir le fichier $_ \n";
  @_ = <FILE>;
  close(FILE);
 
  foreach(@_)
  {
    s/TATA1/TATA/g;
  }
 
open(FILE,">$_") || die "Impossible de recréer le fichier $_ \n";
  print FILE @_;
  close(FILE);
}