Assign a variable in a foreach loop

Question

I dont really understand how to assign the output of this code to either a variable for each line of output or just one big block variable. Im using Mail::POP3Client if that helps. The output i am looking to assign a variable to is " print "$_\n" if /^(From|Subject):/i;"

my $count = $pop->Count();
if ($count < 0) {
    print $pop->Message();
} elsif ($count == 0) {
    print "no messages\n";
} else {
    print "$count messsages\n\n";

    for my $i (1 .. $count) {
        foreach ($pop->Head($i)) {
            print "$_\n" if /^(From|Subject):/i;
        }
        print "\n";
    }
}

Olaf Dietsche · Accepted Answer · 2013-01-21 21:41:51Z

3

You have two options, depending on how you want to process the data

Define a variable and append successively to it

my $from = '';
...
foreach ($pop->Head($i)) {
    $from .= "$_\n" if (/^(From|Subject):/i);
}

this will give you a large string with all Froms and Subjects together. Or you define an array and append to the end of this array

my @from;
...
foreach ($pop->Head($i)) {
    push @from, $_ if (/^(From|Subject):/i);
}

this will result in an array, where each element contains one From or Subject line.

According to Mail::POP3Client, if you want to delete all messages on the POP server

for my $i (1 .. $count) {
    $pop->Delete($i);
}

before close should mark all messages for deletion. When you finally close the connection,

$pop->Close();

all pending deletes will be processed.

edited Jan 21, 2013 at 21:41

answered Jan 21, 2013 at 21:08

Olaf Dietsche

74.4k9 gold badges113 silver badges214 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

BluGeni Over a year ago

the single variable seems to work better for my case. Do you have any idea how i would delete all messages after this script is ran in CPAN the syntax is Delete( MESSAGE_NUMBER ) but not sure how to apply this.

PinkElephantsOnParade · Accepted Answer · 2013-01-21 21:07:40Z

2

Make an array beforehand, called, say, @mystuff. Instead of print "$_\n" if /^(From|Subject):/i;, make it push(@mystuff, $_) if /^(From|Subject):/i;. At the end you have an array of the things currently being printed in the foreach.

answered Jan 21, 2013 at 21:07

PinkElephantsOnParade

6,59214 gold badges58 silver badges93 bronze badges

Collectives™ on Stack Overflow

Assign a variable in a foreach loop

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related