Bonjour à tous,
Je decouvre ce language et ca fait 3 jours que j'essaie de continuer ce script , mais sans succes pour ecrire les pièces jointes sur DDUR.
************************************
****************************
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
21
22
23
24
25
26 #!/usr/bin/perl -w use strict; use Net::POP3; #Étape 1 my $pop = Net::POP3->new('pop.free.fr') or die 'Impossible de se connecter au serveur : '.$!; print "2"; #Étape 2 my $nbmsg = $pop->login('jlf5808@free.fr', 'xxxxxx') or die 'Erreur d\'identification !'; print 'Vous avez '.$nbmsg." messages !\n\n"; print "3....."; #Étape 3 my $index = $pop->list( ) or die 'Impossible de lister les messages !'; foreach my $msgnum (keys %$index) { my $msg = $pop->get($msgnum) or die 'Impossible de récupérer le message n°'.$msgnum.' !'; print @$msg.""; print "valeur=$msg\n"; } #Étape 4 $pop->quit() or die 'Un problème est survenu avec la méthode quit() !'; print "connecté $pop"; <>;
Je voudrais <comme avec print "valeur=$msg\n > faire la copie de la pièce jointe sur DD
****************************
D'avance merci à tous
Jean Louis FRANCOIS
Partager