Discussion :

[devets]

Bonjour
Voila maintenant plusieurs heures que je bataille avec un truc tout bete.

Je souhaite substituer un texte sur plusieurs lignes avec sed.

J'ai par exemple dans un fichier texte :
toto
titi
tata

Je voudrais tranformer
toto
titi

en

tata

Je fais donc la commande :
$chaine =~ s/toto\ntiti/tata/g;

Mais ca ne fonctionne pas et je ne vois pas pourquoi car je représente bien le saut de ligne par \n

MERCI POUR VOTRE AIDE

[Lolo78]

Quelle technique utilises-tu pour lire le fichier texte? Peux-tu montrer ton code qui ne marche pas?

[Philou67430]

En effet, si tu lis ton fichier "ligne à ligne", tu n'aurais jamais un caractère \n entre deux textes, tu auras, au pire, un \n à la fin d'une chaine.
Si tu veux regrouper plusieurs lignes ensembles, soit :
- tu lis ligne à ligne et ne réalise ton traitement (filtrage et écriture du résultat) qu'en présence de deux lignes lues... ce qui peut ne pas être simple
- tu lis le fichier "en entier" sous forme d'une chaine unique (slurp the file : $/ = undef; $file = <$FILE>; )

Pour la première option, un exemple :

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
open my $F, "<", $file or die "Cant open file $file for reading : $!";
my $previous_line;
while (defined(my $line = <$F>)) {
  my $two_lines = join "", grep defined, ($previous_line, $line);
  #say "2lines=[$two_lines]";
  if ($two_lines =~ s/titi\ntoto/tata/s) {
    $line = $two_lines;
  }
  elsif (defined $previous_line) {
    print $previous_line;
  }
  $previous_line = $line;
 
  if (eof $F) {
    print $line;
  }
}

[devets]

Bonjour et merci pour le retour. Voici ce que je fais :

Je lis mon fichier et le mets dans une chaine : chaine qui sera la base de mon travail.

Code :

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

1
2
3
4
5
6
7
my $myfile = "/tmp/myfile.cfg";
open my($file), '<', $confCEEBD or die "Couldn't open $myfile : $!\n";
while( my $line = <$file> ) {
	chomp($line) ;
	$chaine .= $line ."\n";
}
close ($file);

Dans mon fichier, j'ai les lignes
toto
titi

Je voudrais transformer les 2 lignes qui sont maintenant dans ma chaine :

Transformer :
toto
titi

en

tata


Je fais donc :

Code :

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

1
2
$chaine =~ s/toto\ntiti/tata/g;
print $chaine;

En faisant un print chaine je vois que la substitution n'a pas eu lieu :-(

Merci pour ton aide !

[devets]

En effet, si tu lis ton fichier "ligne à ligne", tu n'aurais jamais un caractère \n entre deux textes, tu auras, au pire, un \n à la fin d'une chaine.
Si tu veux regrouper plusieurs lignes ensembles, soit :
- tu lis ligne à ligne et ne réalise ton traitement (filtrage et écriture du résultat) qu'en présence de deux lignes lues... ce qui peut ne pas être simple
- tu lis le fichier "en entier" sous forme d'une chaine unique (slurp the file : $/ = undef; $file = <$FILE>; )

Pour la première option, un exemple :

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
open my $F, "<", $file or die "Cant open file $file for reading : $!";
my $previous_line;
while (defined(my $line = <$F>)) {
  my $two_lines = join "", grep defined, ($previous_line, $line);
  #say "2lines=[$two_lines]";
  if ($two_lines =~ s/titi\ntoto/tata/s) {
    $line = $two_lines;
  }
  elsif (defined $previous_line) {
    print $previous_line;
  }
  $previous_line = $line;
 
  if (eof $F) {
    print $line;
  }
}

Merci pour ta réponse philou67430 et effectivement "Plus j'apprends, et plus je mesure mon ignorance" car ton code me fait tourner la tête
Mais en effet, je ne lis pas le fichier ligne par ligne. Je crée une chaine de caractère avec mon fichier et je travaille ensuite sur cette chaîne.

[6ril23]

Code :

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

1
2
3
4
while( my $line = <$file> ) {
	chomp($line) ;
	$chaine .= $line ."\n";
}

Si tu construis ta chaine de caractère alors mets un séparateur peut être moins compliqué à catcher que "\n" genre # et ainsi tu cherches titi#toto

[devets]

Code :

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

1
2
3
4
while( my $line = <$file> ) {
	chomp($line) ;
	$chaine .= $line ."\n";
}

Si tu construis ta chaine de caractère alors mets un séparateur peut être moins compliqué à catcher que "\n" genre # et ainsi tu cherches titi#toto

Le problème, c'est que je travaille sur des fichiers de configuration qui ont plein de caractères spéciaux dont le # et qui ne sont pas les mêmes à chaque fois. :-(

[devets]

Le problème, c'est que je travaille sur des fichiers de configuration qui ont plein de caractères spéciaux dont le # et qui ne sont pas les mêmes à chaque fois. :-(

Bon et bien tout fonctionne dans mon code en fait. Le seul hic c'est que j'avais des ^M :-( de m.....

Merci a tous pour vos orientations !

[6ril23]

les ^M sont généralement car tes retours à la lignes sont de la forme \r\n: ton fichier est peut être issu de Windows ou de certains UNIX

[Philou67430]

Bonjour et merci pour le retour. Voici ce que je fais :

Je lis mon fichier et le mets dans une chaine : chaine qui sera la base de mon travail.

Code :

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

1
2
3
4
5
while( my $line = <$file> ) {
	chomp($line) ;
	$chaine .= $line ."\n";
}
close ($file);

Cette partie de code se résume à ce que je t'avais indiqué précédemment :

Code :

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

$/ = undef; $chaine = <$file>;

Pour la suite, il faut connaitre l'origine du fichier (DOS/windows ou Unix) afin de connaitre le séparateur de ligne (\n ou \r\n) pour écrire la bonne regexp.
Dans le doute, tu peux essayer :

Code :

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

1
2
$chaine =~ s/toto[\n\r]+titi/tata/g;
print $chaine;