Re: [PATCH] gitweb: Show project README if available

From: Jeff King <peff@peff.net>
Date: Oct 11, 2006, 18:17 UTC
Message-ID: <20061011181729.GB2897@coredump.intra.peff.net>
In-Reply-To: <200610111423.00656.jnareb@gmail.com>

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