Performance in/output

[Jarkko Hietaniemi]

Tuomas J. Lukka writes:
 > 
 > 
 > On Thu, 18 Feb 1999, Hannu Martikka wrote:
 > 
 > > On Sun, 14 Feb 1999, Tuomas J. Lukka wrote:
 > > 
 > > > Koitapa 
 > > > 
 > > > undef $/
 > > > print <STDIN>;
 > > Tämä on abt 2x hitaampaa kuin "print while <STDIN>;".
 > 
 > Mitä ihmettä... minkä kokoisella tiedostolla?

Minun ihmettelyni lisättäköön myös.

Tässä minun testituloksiani.  32 MB tekstisyötettä, 300 MHz Alpha gigalla
muistia, Digital UNIX 4.0D, ajat 12 ajon keskiarvoja sekunteina:

	user	system	total

a	0.201	1.217	1.418
b	7.924	0.817	8.741
c	8.210	0.806	9.015
d	0.140	0.671	0.810
e	0.027	0.630	0.656

a: undef $/; print <STDIN>
b: print while <STDIN>
c: while (<STDIN>) { print }
d: do {read STDIN, $_, 100000; print $_} while length $_;
e: do {sysread STDIN, $_, 100000; print $_} while length $_;

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen