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 |