in reply to Fortune Telling Machine

I just 'discovered' this tonight; in place of: while(<READ>) { chop; $recipients = push(@recipients,$_); } you could use the more succinct: @recipients = <READ>; chop(@recipients);

Replies are listed 'Best First'.
RE: RE: Fortune Telling Machine
by Anonymous Monk on Jun 02, 2000 at 07:54 UTC
    Oops; the code didn't come through right...here it goes again. @recipients = <READ>; chop(@recipients);
[reply]
      You probably want to be using chomp instead of chop. And there's no reason to split it into two statements... 
      chomp($recipients = <READ>);

      [download]
[reply]
[d/l]

In Section Cool Uses for Perl