|
Posted by odhiseo on April 13, 2007, 10:57 am
Please log in for more thread options
> Sorry, now I understood your question
>
> use Mail::POP3Client;
>
> $pop = new Mail::POP3Client( USER => "xxxxxxxxxxxxxxxxx",
> PASSWORD => "xxxxxxxxxx",
> HOST => "xxxxxxxxxx" );
>
> for ($i = 1; $i <= $pop->Count(); $i++) {
> foreach ( $pop->Head( $i ) ) {
> /^Subject:\.+\s(\d+)/i && print $1, "\n";
> }
> print "\n";
> sleep 5;
> }- Hide quoted text -
>
> - Show quoted text -
Here is another way to do It (TMTOWTDI)
use Mail::POP3Client;
my $n = 10; #Length of number string in the subject
$pop = new Mail::POP3Client( USER => "xxxxxxxxxxxxxxxxx",
PASSWORD => "xxxxxxxxxx",
HOST => "xxxxxxxxxx" );
for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
next unless /^Subject:/;
/\s(\d)(\s|$)/;
print $1;
}
print "\n";
sleep 5;
}
And in the previous reply I had a little error, you must change:
/^Subject:\.+\s(\d+)/i && print $1, "\n";
for:
/^Subject:.+\s(\d+)/i && print $1, "\n";
| 
XML Sitemap