Performance in/output
Jarkko Hietaniemi
jhi at iki.fi
Fri Feb 19 03:11:35 CST 1999
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
More information about the Helsinki-pm
mailing list