Fwd: Re: [MacPerl] number 3.5 in my series of beginner problems

[robinmcf]

>From: "David J. Iberri" <[EMAIL PROTECTED]> wrote: >I usually do something like this: > >if(open FILE, "path:to:file") { > my $i = 0; > while(<FILE>) { > chomp; > print "$i $_\n"; > last if ++$i == 10; > } >} else { > print "File couldn't be opened: $!\n"; >} If you don't care about reading the whole file into memory you can use an array: ==sample script== @file=<DATA>; for $count(0..9){ print "$file[$count]"; } __DATA__ line 1 balh blah bblah blah blah line 2 balh blah bblah blah blah line 3 balh blah bblah blah blah line 4 balh blah bblah blah blahbalh blah bblah blah blah line 5 blah bblah blah blahbalh blah bb line 6 bblah blah blahbalh blah bblah blah blah line 7 blah bblah blah blahbalh blah bb line 8 bblah blah blahbalh blah bblah blah blah line 9 blah bblah blah blahbalh blah bb line10 blah bblah blah blahbalh blah bb line11 bblah blah blahbalh blah bblah blah blah line12 blah bblah blah blahbalh blah bb