Print Subject without characters Just Numbers using POP3Client. Please Help

[eng.john84]

I`m using POP3Client,
I don`t need to print all subject i need to print just number.
i.e --> if Subject: John 1234567890, Then i need to print 1234567890


use Mail:OP3Client;


$pop = new Mail:OP3Client( USER => "xxxxxxxxxxxxxxxxx",
PASSWORD => "xxxxxxxxxx",
HOST => "xxxxxxxxxx" );

for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i and print $_, "\n";
}
print "\n";
sleep 5;
}

 

[Sisyphus]

I`m using POP3Client,
I don`t need to print all subject i need to print just number.
i.e --> if Subject: John 1234567890, Then i need to print 1234567890

I don't understand - there is usually *no* number associated with the
Subject. At least that's the way it is for me when I run the script you
provided. Typical output is:

 

[Sisyphus]

I`m using POP3Client,
I don`t need to print all subject i need to print just number.
i.e --> if Subject: John 1234567890, Then i need to print 1234567890

I don't understand - there is usually *no* number associated with the
Subject. At least that's the way it is for me when I run the script you
provided. Typical output is:

 

[odhiseo]

I don't understand - there is usually *no* number associated with the
Subject. At least that's the way it is for me when I run the script you
provided. Typical output is:

Maybe you want the Message-ID:

use Mail:OP3Client;

$pop = new Mail:OP3Client( USER => "xxxxxxxxxxxxxxxxx",
PASSWORD => "xxxxxxxxxx",
HOST => "xxxxxxxxxx" );

for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
/^(Message-ID):\s+/i && print $_, "\n";
}
print "\n";
sleep 5;
}

 

[odhiseo]

Maybe you want the Message-ID:

use Mail:OP3Client;

$pop = new Mail:OP3Client( USER => "xxxxxxxxxxxxxxxxx",
PASSWORD => "xxxxxxxxxx",
HOST => "xxxxxxxxxx" );

for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
/^(Message-ID):\s+/i && print $_, "\n";
}
print "\n";
sleep 5;
}

Sorry, now I understood your question

use Mail:OP3Client;

$pop = new Mail:OP3Client( 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;
}

 

[odhiseo]

Sorry, now I understood your question

use Mail:OP3Client;

$pop = new Mail:OP3Client( 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:OP3Client;

my $n = 10; #Length of number string in the subject


$pop = new Mail:OP3Client( USER => "xxxxxxxxxxxxxxxxx",
PASSWORD => "xxxxxxxxxx",
HOST => "xxxxxxxxxx" );

for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {

next unless /^Subject:/;
/\s(\d{$n})(\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";