Discussion :

[major68]

Bonjour,

J'expérimente un peu perl et je tombe sur un problème concernant un filtre des données à partir d'un contenu html

Je pense qu'il faudrait faire une expression régulière mais je sais pas comment faire

Code :

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

1
2
 
onmouseover="Tip(kaMap.tooltipDetails(31838, 'CHAMP', '4.040', 'sot33 (33.360 Points)', 'CHAMP', '', '', '', '', '', '', ''), PADDING, 0, FADEOUT, 200, FADEIN, 200)"

Il en existe plusieurs dans la page et j'aimerai créer un fichier xml ou csv avec les valeurs en bouclant sur l'expression régulière:
31838
CHAMP
4.040
sot33 (33.360 Points)
CHAMP
...

J'espère que j'arrive à me faire comprendre.

Je vous remercie d'avance de votre aide!

[Philou67430]

Premièrement, sache qu'il existe dans le CPAN, des parser de code HTML. Ca peut parfois être plus efficace que des expressions régulières qui peuvent vite devenir très complexes.

Pour ton cas précis, je suppose que tu cherches tous les contenus de l'attribut "onmouseover", et que pour chacun, tu veux boucler sur les paramètres d'appels de Tip(kaMap.tooltipDetails(...)) ?

Pour trouver toutes les occurences de l'attribut onmouseover, une boucle de ce style devrait faire l'affaire :

Code :

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

1
2
3
foreach my $onmouseover ($html =~ /onmouseover="([^"]*)"/g) {
  ...
}

[s.n.a.f.u]

Salut,

un exemple, à voir si ça peut aider

Code perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
 
my $str = <<EOS;
onmouseover="Tip(kaMap.tooltipDetails(31838, 'CHAMP', '4.040', 'sot33 (33.360 Points)', 'CHAMP', '', '', '', '', '', '', ''), PADDING, 0, FADEOUT, 200, FADEIN, 200)"
EOS
 
my ($content) = $str =~ m/kaMap.tooltipDetails\( ( (?: [^)] | \)(?=') ) +) \)/x;
 
my @values = split(/\s*,\s*/, $content);
 
print "$_\n" foreach (@values);