Debian-facile

#!/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" }
}

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.