perl vs grep

[Ondrej Koala Vacha]

On Tue, 24 Apr 2001, Oto 'tapik' Buchta wrote:

> pons na post.cz wrote:
>
> > Zdravim,
> > p. Satrapa v knize "Perl pro zelenace" na strane 18 opisuje informaci o tom jak je perl rychly. Kratce, perl 3.63s, grep cca 5s (egrep 3.37s).
> >
> > Mam textovy soubor, slovnik, cca 11MB, ktery prohledavam:
> > perl -ne 'print if /slovo/' file
> > grep -e 'slovo' file
> >
> > a zdalo se mi, ze perl je oproti grepu MIMORADNE pomaly.  udelal jsem tedy 2x 10 mereni casu a vysly mi prumery 1.001 sec pro perl, ale jen 0.1549 sec pro grep ---> tedy, ze grep je cca 7x rychlejsi.


Nevim, me se to nezda, ale zkousel jsem jenom jeden soubor (dump
databaze), takze vysledek nemusi byt objektivni.
Jeste bych se chtel ujistit, ze zminovany textovy soubor slovnik
byl opravdu textovy s radky ukoncenymi '\n'.

$ l radl.dump
-rw-r--r--    1 root     root     70206649 Apr 20 20:02 radl.dump
darkstar:/pub
$ time grep -e 'CREATE' radl.dump
CREATE TABLE pc (
..
CREATE TABLE citac (

real    0m15.468s
user    0m0.140s
sys     0m0.580s
darkstar:/pub
$ time perl  -ne 'print if /CREATE/' radl.dump
CREATE TABLE pc (
...
CREATE TABLE citac (

real    0m15.946s
user    0m8.300s
sys     0m0.500s


$ perl -v
This is perl, v5.6.0 built for i386-linux
$ grep -V
grep (GNU grep) 2.4.2


-- 
Ondrej Koala Vacha