Bonjour,
Je n'arrive pas à faire marché mon switchcase sur mon programme perl.
Voici le code :
#!/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 :
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
Dernière modification par tot94 (12-03-2015 00:14:47)