[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] <aucun objet>



At 7.40 +0000 2000.01.22, Bart Lateur wrote:
>One thing I found out, is that MAcPerl is TERRIBLY slow to simply list
>the whole contents of a CD, using File::Find, or using readdir() and the
>file operators (-X). I'm talking about *hours*, for just *one* CD.
>Actually, I tried to list the contents of a CD, with size and file info,
>not more than a few directories with a few hundred files, and I had to
>interrupt it after 4 hours. Less than half of the files were processed
>in this time.

Odd.  I have a CD with 856 items (files and folders) and this script runs
in one second:

  #!perl -wl
  use File::Find;
  find(sub { push @a, $File::Find::name }, 'Neely:');
  print scalar @a;
  print time - $^T;

Some information had been cached (I know this because I am on battery, and
on sunsequent runs, the CD did not even bother to spin up :), so I popped
in a CD that this machine had never seen before, with 5243 items, and it
took 24 seconds.

PowerBook G3/400, Mac OS 9, DVD-ROM (I forget what speed it spins CDs at).

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org