> +
> +use File::Stream;
> +my $stream = File::Stream->new($filehandle);
> +
> +$/ = qr/\s*,\s*/;
> +print "$_\n" while <$stream>;
I know this is the example from the docs, but you end up still putting
The documentation for each() says that we can only delete the
most recent key without ill effects, whereas the perlfaq answer
made it sound as if we can delete any key.
albook_brian[731]$ cvs diff -u -d perlfaq4.pod
Index: perlfaq4.pod
===
* added Eclipse to IDE list
* arranged IDE list in alphabetical order
* Updated platforms for Komodo
* Updated info on Visual Perl and gave it its own bullet
Index: perlfaq3.pod
===
RCS file: /cvs/public/perlfaq/perlfaq3.pod,v
re
* Mention File::Stream
Index: perlfaq6.pod
===
RCS file: /cvs/public/perlfaq/perlfaq6.pod,v
retrieving revision 1.26
diff -u -d -r1.26 perlfaq6.pod
--- perlfaq6.pod25 Oct 2004 18:47:04 - 1.26
+++ perlfaq6.pod
* mention warning categories and perllexwarn
Index: perlfaq7.pod
===
RCS file: /cvs/public/perlfaq/perlfaq7.pod,v
retrieving revision 1.17
diff -u -d -r1.17 perlfaq7.pod
--- perlfaq7.pod19 Oct 2004 22:53:50 - 1.17
++
In article <[EMAIL PROTECTED]>, Robert Spier
<[EMAIL PROTECTED]> wrote:
> > +use File::Stream;
> > +my $stream = File::Stream->new($filehandle);
> my $stream = File::Stream->new($filehandle,
> separat
