Re: [MacPerl] Got it...

[pudge@pobox.com (Chris Nandor)]

At 20.33 12/15/97, Jon Stevens wrote:
>"Chris Nandor" <pudge@pobox.com> said the following at 12/15/97 5:31 PM:
>
>>So what here is "bull"?
>
>grabbing at straws with your results...well, if the same code executes
>slower than anothers, then maybe someone's coding efficiency?
>
>i just don't see how it could be that slow.

Accept it.  Actually, I just ran it again (the first time did not finish)
and it took about 55 minutes.  The 6.8MB file created a 40MB DB file.
Again, this was on a 604e/180/60 Mhz bus.  And it took 3 minutes (I said 2
before by mistake, I think) to slurp it all into an array and sort it and
print it back out.  Here is the script for your perusal:

#!perl -wl
use DB_File;
use strict;
my($c1, %h, $time, $time2);

$time = time();
print $time;

tie(
  %h,'DB_File','PowerPudgeII:Desktop Folder:URLS4.txt.db',O_RDWR|O_CREAT,0
) || die($!);

open(F,'PowerPudgeII:Desktop Folder:URLS4.txt') || die $!;
while (<F>) {$h{$c1++} = $_}
close(F);

untie(%h);

$time2 = time();
print $time2;
print ($time2 - $time);

__END__

--
Chris Nandor               pudge@pobox.com           http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==                    MacPerl: Power and Ease                     ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch