open(FILE, "yourfile") or die "$!"; chomp(my(@lots) = <FILE>); close FILE;
> -----Original Message----- > From: Jerry Preston [mailto:[EMAIL PROTECTED]] > Sent: Thursday, September 26, 2002 11:30 AM > To: Beginners Perl > Subject: a better way? > > > Hi! > > Is there a better way? A Perl way? > > $j = 0; > while( <file> ) { > chomp; > ( $lots[ $j++ ] ) = $_; > } > > ? @lots = <file>; > > Thanks, > > Jerry > ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
