logo Debian Debian Debian-France Debian-Facile Debian-fr.org Forum-Debian.fr Debian ? Communautés logo inclusivité

Debian-facile

Bienvenue sur Debian-Facile, site d'aide pour les nouveaux utilisateurs de Debian.

Vous n'êtes pas identifié(e).

#1 11-03-2015 19:54:31

tot94
Membre
Distrib. : Gnome 3.4.2
Noyau : Linux 3.2.0-4-686-pae
Inscription : 15-01-2015

[RESOLU]PERL switch case

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)

Hors ligne

#2 11-03-2015 22:51:29

KDP
Membre
Lieu : Isère
Distrib. : Testing
Noyau : Linux 6.5
(G)UI : LXQT
Inscription : 26-12-2011
Site Web

Re : [RESOLU]PERL switch case

Bonjour,

Il manque peut-être la déclaration de $var.
my $var = 10;

Hors ligne

#3 12-03-2015 00:14:19

tot94
Membre
Distrib. : Gnome 3.4.2
Noyau : Linux 3.2.0-4-686-pae
Inscription : 15-01-2015

Re : [RESOLU]PERL switch case

Effectivement, c'était encore merci !!
Désolé je suis débutant en Perl hmm

Hors ligne

Pied de page des forums