Foro - Perl en Español

por **proxy_lainux** » 2009-05-10 21:02 @918

Hola,

¿cómo puedo visualizar un mail?

Ahorita puedo ver partes del mensaje así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

/^(Subject|From|Date):\s+/i &&$_;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y con esto puedo ver Subject, From y Date, pero no sé cómo ver el mensaje... ¿alguien sabe cómo?

salu2

#!/usr/bin/perl
 
use strict;
use Mail::POP3Client;
use CGI;
 
 
#print "Content-type: text/html", "\n\n";
 
 
my($POPServer) = 'mail.';
my($user) = '';
my($password) = '';
my($pop) = new Mail::POP3Client($user, $password, $POPServer) || die "Unable to connect to $POPServer";
my($count, $i);
 
 
#print '<html>';
#print '<head>'; 
#print '<title>';
#print 'versoMail';
#print '</title>';
#print '</head>';
 
if ($count = $pop->Count)
{ 
   print "$count Message";
   print 's' if $count > 1;
   print " Found:\n";
   
    for($i = 1; $i <= $count; $i++) { 
    foreach ($pop->Head($i)) { 
   # print '<h1>'."\t$_\n" if m/^Subject/.'<h1>';
   
         } 
       }
 
  }
else { print "No Messages found\n"; }
 
 
#<FORM action="/outFile.att" method="GET">
#<input type="submit" value="Submit">
#</FORM>
 
 
#####Descarga de TXT con attachment#####
#@archTx;
#my $Head = @archTx;
#Si INBOX es dif de 0   
#Open File
#Save File
#Download
#Leer
 
 
#####Open txt #####
 
 
 
#print '</body>';
#print '</html>'
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Cómo visualizo la parte del mensaje de un mail

Cómo visualizo la parte del mensaje de un mail

Publicidad

Re: Cómo visualizo la parte del mensaje de un mail

¿Quién está conectado?