On Wed, Oct 11, 2006 at 02:23:00PM +0200, Jakub Narebski wrote:
> Can any Perl expert tell us how Perl truly solve this? What is the best
> way to dump whole [remaining] contents of file (from filehandle) to STDOUT?
The same you would in C: read fix-sized buffers and dump them. Reading
the whole file obviously has unbounded memory allocation. Reading lines
requires unnecessary parsing and may have unbounded memory allocation
(though in practice for text files I doubt either is a big deal).
You can loop like this:
while(1) {
my $r = read(STDIN, my $buf, 4096);
defined($r) or die "error: $!";
$r or last;
print STDOUT $buf;
}
Or you can use the File::Copy module, which is part of the standard
distribution (and I believe has been so for all perl5 versions, but I
could be wrong):
use File::Copy qw(copy);
copy(STDIN, STDOUT);
-Peff
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html