Bonjour,

J'ai voulu tester ce petit bout de code trouvé sur un site...

Mais je ne retrouve pas le fameux logo soit-disant téléchargé !
ou vont ces fameux document ?

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
use LWP::Simple;  # là, je charge le module LWP::Simple pour faire
                  # du web
                  # dans un terminal, tapez "perldoc LWP::Simple"
                  # pour le manuel de LWP::Simple
 
# je colle l'adresse internet du logo dans la variable $url
my $url = "http://www.perl.org/simages/lcamel.gif";  
 
my $file = "logo.gif";   # sur le disque, on va l'appeler logo.gif
 
print "C'est parti !\n"; # le \n permet un retour à la ligne
 
                         # Perl télécharge le logo à partir de $url
                         # et l'écrit dans le fichier logo.gif
mirror($url, $file);     # qu'il créé au préalable.
                         # perldoc LWP::Simple pour les détails
                         # de la fonction mirror
 
print "C'est fini !", "\n"; # la fonction print peut avoir plusieurs
                            # arguments séparés par une virgule