On Thu, 21 Oct 2004 14:55:28 +0800, Bee <[EMAIL PROTECTED]> wrote: > use strict; > > open F, "sourcefile.txt"; > local $/ = "\n\n"; > my @sections = <F>; > close F; > > print "Section $_ :\n $sections[$_]\n\n" for @sections; >
What are you doing to poor Kevin? If you meant: print "Section $_:\n $sections[$_]\n\n" for 0..$#sections; then I'll forgive you :-) > HTH, > Bee > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
