Discussion :

[batmatm]

Re,

Deuxième question regexp Perl aujourd'hui . Je cherche à supprimer les retours à la ligne présents potentiellement dans des balises de titre html.

Par exemple, je voudrais transformer :

<h1>
Une partie
du titre
hop hop
</h1>

En

Code :

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

<h1> Une partie du titre hop hop </h1>

J'ai essayé avec le bout de code de test suivant, mais ça marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl -w
use strict;
 
my $text = "<h2>Impossible\nd’activer le contrôle ‘VB.UserControl’ \n</h2>";
 
while($text =~ m!<h2>(.*)(\n+)(.*)</h2>!) {
    $text =~ s!<h2>(.*)(\n+)(.*)</h2>!<h2>$1 $3</h2>!mg;
}
 
print $text;

Quelqu'un aurait THE solution à mon problème ?

Merci beaucoup.
@++

[Jedai]

Le plus simple est de faire ça avec un mini-automate et en lisant ligne par ligne :

Code :

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

1
2
3
4
5
6
7
 
while( <HTML_FILE> ){
  if( m{<h\d} .. m{</h\d} ){
    s/\n//g;
  }
  print;
}

--
Jedaï