ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Denis_Arbuzov                        2:5002/69      05 Apr 2001  13:43:36
 To : All
 Subject : pop3
 -------------------------------------------------------------------------------- 
 

 -------
 #!/usr/bin/perl
 
 use Net::pop3;
 
 $pop = Net::pop3->new('server');
 
 $pop ->login(username, password);
 
 $messages = $pop->list;
 foreach $msgid (keys %$messages) {
 $message = $pop->get($msgid);
 print $msgid;
 }
 
 exit;
 ---------
 
 поправьте?
 begin 666 Denis A. Arbuzov.vcf
 M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..CM$96YI<R!!+B!!<F)U>F]V
 M#0I&3CI$96YI<R!!+B!!<F)U>F]V#0I%34%)3#M04D5&.TE.5$523D54.F%D
 M84!C;VQL96=E+F)I>7-K+G-E8VYA+G)U#0I2158Z,C P,3 T,#54,#<T,S,V
 .6@T*14Y$.E9#05)$#0H`
 `
 end
 
 --- Microsoft Outlook Express 5.50.4133.2400
  * Origin: Altai Politechnical College (2:5002/69@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор