Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

A few simplifications [Re: a problem with a point...]

by roboticus (Canon)
on Jan 20, 2009 at 14:01 UTC ( #737573=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my ($rowref, $ff, @bigmail);
     ... snip ...
    ...
            $bigmail[$ff]= $rowref->{'email'};
            $ff++;
    }
    
  2. or download this
    my ($rowref, @bigmail);
     ... snip ...
    while($rowref= $st->fetchrow_hashref){
            $bigmail[@bigmail]= $rowref->{'email'};
    }
    
  3. or download this
            $bigmail[@bigmail]= $rowref->{'email'};
    
  4. or download this
            push @bigmail, $rowref->{'email'};
    
  5. or download this
        if ($adres=~ /<$ecode>/){
    
  6. or download this
        if ($adres eq "<$ecode>"){
    
  7. or download this
    my $zz;
    my $fg = @bigmail;
    ...
            $zz=$ecode;
            }
    }
    
  8. or download this
    my $zz;
    my $pl=0;
    ...
            $zz=$ecode;
            }
    }
    
  9. or download this
    my $zz;
    my $ecode;
    ...
            $zz=$ecode;
            }
    }
    
  10. or download this
    my $zz;
    for my $ecode (@bigmail){
    ...
            $zz=$ecode;
            }
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://737573]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (16)
As of 2014-12-18 09:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (48 votes), past polls