Re^2: Help with loops

Thanks for this. I thought I was using an array. The pscemails are set in the database. It's rare to have 8 emails, but I retrieve them by searching the database. If they are there I retrieve them with these lines:

        $pscemail1 = $pointer->{'pscemail1'};
        $pscemail2 = $pointer->{'pscemail2'};
        $pscemail3 = $pointer->{'pscemail3'};
        $pscemail4 = $pointer->{'pscemail4'};
        $pscemail5 = $pointer->{'pscemail5'};
        $pscemail6 = $pointer->{'pscemail6'};
        $pscemail7 = $pointer->{'pscemail7'};
        $pscemail8 = $pointer->{'pscemail8'};
[download]

Then I put all of them into the list and send the email:

@email = ($email,$pscemail1,$pscemail2,$pscemail3,$pscemail4,$pscemail
+5,$pscemail6,$pscemail7,$pscemail8);
            
foreach $toemail (@email) {
Send the email
}
[download]

Is there a better way to do it?

Comment on Re^2: Help with loops Select or Download Code

Replies are listed 'Best First'.
Re^3: Help with loops by Anonymous Monk on May 06, 2016 at 06:35 UTC
Better, just be direct `@email = ( $pointer->{'pscemail1'}, $pointer->{'pscemail2'} ... );` But thats too repetitive , too many quotes/arrows/$pointer , too much typing and/or copy/paste, so shorter `@email = @{$pointer}{ qw/ pscemail1 pscemail2 ... /});` Thats much less repetitive and shorter, but still too repetitive, so shorter to write `@emails = map { $pointer->{'pscemail'.$_} } 1 .. 8;` Another alternative, just to blow your mind, a tiny bit of api as language, if $pointer was more than a simple hash, if it was an object like a $row, with an emails method, you could use `for my $toemail ( $row->emails ){ ... }` yeah you could eliminate @emails and just drop that map statement instead of $row->emails.... choices sure complicate stuff :D	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Help with loops
by Anonymous Monk on May 06, 2016 at 06:35 UTC

Better, just be direct @email = ( $pointer->{'pscemail1'}, $pointer->{'pscemail2'} ... );

But thats too repetitive , too many quotes/arrows/$pointer , too much typing and/or copy/paste, so shorter @email = @{$pointer}{ qw/ pscemail1 pscemail2 ... /});

Thats much less repetitive and shorter, but still too repetitive, so shorter to write @emails = map { $pointer->{'pscemail'.$_} } 1 .. 8;

Another alternative, just to blow your mind, a tiny bit of api as language, if $pointer was more than a simple hash, if it was an object like a $row, with an emails method,

you could use for my $toemail ( $row->emails ){ ... }

yeah you could eliminate @emails and just drop that map statement instead of $row->emails.... choices sure complicate stuff :D

[reply]
[d/l]
[select]