Discussion :

[ciero]

Bonjour,

Je n'arrive pas à faire marché mon switchcase sur mon programme perl.

Voici le 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;
use Switch;
 
#definition de l'URL
my $url = 'https://www.inscription-facile.com/demo';
 
#instanciation objet mech
#definition du user agent "mozilla firefox, sous OS linux"
#mise en memoire cache du cookie
 
my $mech = WWW::Mechanize->new(agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)',cookie_jar => {});
 
 
#creation de la requête HTTP GET
 
my $result = $mech->get($url);
 
#test de la reponse HTTP
#si differente de 200, script s'arrête et affiche une erreur
 
die "erreur de la réponse HTTP GET" unless $result->is_success;
 
#récupérer le titre de la page
#print Dumper($mech->title());
 
#afficher le code HTTP de la réponse
#print Dumper($mech->status);
 
$var = 10;
 
switch($var){
   case 10           { print Dumper($mech->title())}
   case "a"          { print Dumper($mech->status) }
   else              { print "previous case not true" }
}

Voici l'erreur de retour :

Code :

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

1
2
3
4
gueg@ux31:~/prg/web_scraping$ perl scraping_test.pl
Global symbol "$var" requires explicit package name at scraping_test.pl line 33.
Global symbol "$var" requires explicit package name at scraping_test.pl line 35.
Execution of scraping_test.pl aborted due to compilation errors.

Pourtant j'ai bien implémenté le package "Switch" sans souci !

Auriez-vous une idée ??

Merci

[Lolo78]

Le problème n'a pas à voir avec la syntaxe du switch, qui me paraît correcte, mais avec le fait que tu n'as pas préalablement déclaré la variable $var (avec my).

Modifie comme suite la ligne 33:

Code :

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

1
2
 
my $var = 10;