Discussion :

[Mwoua_n7]

Bonjour a tous. Dans le contexte d'un proxy à usage personnel, j'ai besoin d'inclure un morceau de code dans mon programme principal. Ce morceau étant défini par une variable.

j'ai essayé avec ces deux méthodes

Code :

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

1
2
3
4
 
do $mavar.'pm';
 
require $mavar.'pm';

Dans les deux cas, le code à l'intérieur est éxécuté. Jusque la, tout va bien.

J'utilise HTML::TreeBuilder pour parser mon HTML, et selon ou je fais le parsage, ca empeche toutes les images de se charger.

Ma premiere méthode, qui fonctionne :

Code :

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

1
2
3
4
5
$info{content}=$response->content;
 
do module.pm #modify the tree
 
return \$info{content};

avec le module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use HTML::TreeBuilder; # Ensure weak references in use
 
my $tree = HTML::TreeBuilder->new_from_content($awproxy::process::info{content}) or die $!;
 
my $elem = $tree->look_down(_tag => "img");
$elem->attr('width', '240');
$elem->attr('height', '60');
 
$awproxy::process::info{content} = $tree->as_HTML(undef,"\t");
$tree->delete();
 
1;

Et maintenant, la version qui pourrit toutes les images :

Code :

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

1
2
3
4
5
6
7
8
9
$info{content}=$response->content;
$info{tree} = HTML::TreeBuilder->new_from_content($info{content}) or die $!;
 
do module.pm #modify the tree
 
$info{content} = $info{tree}->as_HTML(undef,"\t");
$info{tree}->delete();
 
return \$info{content};

Code :

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

1
2
3
4
 
my $elem = $awproxy::process::info{tree}->look_down(_tag => "img");
$elem->attr('width', '240');
$elem->attr('height', '60');

Aucune des images n'est chargée dans la 2e méthode.

Ma principale interrogation est donc de comprendre pourquoi, alors que je pense faire la meme chose.

2e chose : est ce que c'est la bonne méthode pour executer un morceau de code dans un autre fichier, tout en partageant des variables?

[Philou67430]

J'ai fait un petit essai avec la page d'accueil google, et je n'ai pas constaté d'écart majeur entre les deux méthodes.

[Mwoua_n7]

ma question n'etait pas la difference entre les méthodes, mais comment ca se passe en pratique pour une seule de ces méthodes(j'ai pas vu de difference non plus).

Dans les codes que j'ai fourni, je modifie une fois une variable dans le code principal, et l'autre fois dans le "require" et j'obtiens pas la meme chose. Et cest plutot ca mon probleme

[Philou67430]

Oui, et ce que je disais, c'est que dans l'essai que j'ai fait, je n'ai pas constaté ton problème.
Le problème se situe donc peut-être "ailleurs".

[Mwoua_n7]

Tu as fait quoi comme essai?

Parce qu'en effet, dans les deux cas, le code HTML retourné par

Code :

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

$tree->as_HTML(undef,"\t");

sera strictement identique, mais dans un cas les images sont chargées, mais pas dans l'autre

Si je regarde avec FireBug, j'obtiens toujours l'erreur :
Image corrupt or truncated http://...

Et de même, si j'essaie d'aller sur l'url de l'image, elle est corrompue

[Philou67430]

J'ai créé les 4 fichiers suivants :

proxy1.pl:

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
#!/usr/bin/perl
 
use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;
 
my $mech = WWW::Mechanize->new();
$mech->get(qq(http://www.google.fr/webhp?hl=fr));
 
our %info;
$info{content} = $mech->content();
 
do "proxy1.pm"; #modify the tree
 
print Data::Dumper->Dump([$info{content}], [qw(*info{content})]);

proxy1.pm:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use HTML::TreeBuilder; # Ensure weak references in use
 
my $tree = HTML::TreeBuilder->new_from_content($::info{content}) or die $!;
 
my $elem = $tree->look_down(_tag => "img");
$elem->attr('width', '240');
$elem->attr('height', '60');
 
$::info{content} = $tree->as_HTML(undef,"\t");
$tree->delete();
 
1;

proxy2.pl:

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
#!/usr/bin/perl
 
use strict;
use warnings;
use HTML::TreeBuilder; # Ensure weak references in use
use WWW::Mechanize;
use Data::Dumper;
 
my $mech = WWW::Mechanize->new();
$mech->get(qq(http://www.google.fr/webhp?hl=fr));
 
our %info;
$info{content} = $mech->content;
$info{tree} = HTML::TreeBuilder->new_from_content($info{content}) or die $!;
 
do "proxy2.pm"; #modify the tree
 
$info{content} = $info{tree}->as_HTML(undef,"\t");
$info{tree}->delete();
 
print Data::Dumper->Dump([$info{content}], [qw(*info{content})]);

proxy2.pm:

Code :

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

1
2
3
4
5
6
use strict;
use warnings;
 
my $elem = $::info{tree}->look_down(_tag => "img");
$elem->attr('width', '240');
$elem->attr('height', '60');

Puis j'ai lancé les commandes suivantes :

Code :

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

1
2
3
 
 perl proxy1.pl > 1
 perl proxy2.pl > 2

En comparant les fichiers 1 et 2, je n'ai pas vu de différence sur la présence ou l'absence d'images.

[Mwoua_n7]

je pense que cest normal, vu que le code HTML est identique dans mon cas aussi. Quand tu recupères une page, les endroits ou ya des images cest juste
<img src='blabla.png' />, cest du texte, donc aucun probleme.

Enfin, j'ai résolu mon probleme en mettant une regex pour ne pas parser les pages ou ya des images

Code :

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

1
2
3
4
if($r->uri =~ /\.png$|\.jpg$/i) #sinon, ca bugge pour les images
	{
		return \$info{content};
	}

Bon, du coup ca marche, mais je comprends pas pourquoi

edit : ha bah si, j'ai compris. En fait, je faisais do module.pm que pour certaines pages, et donc pas celle ou ya des images, donc le GET se faisait correctement

[Philou67430]

...Le problème se situe donc peut-être "ailleurs".