[17713] in Perl-Users-Digest
Perl-Users Digest, Issue: 5133 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 17 09:05:34 2000
Date: Sun, 17 Dec 2000 06:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <977061907-v9-i5133@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 17 Dec 2000 Volume: 9 Number: 5133
Today's topics:
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Re: Language evolution C->Perl->C++->Java->Python (Is P <just_me@nowhere.com>
Re: Language evolution C->Perl->C++->Java->Python (Is P <nospam@david-steuber.com>
miniperl executable and thin clients <urchlay@hellhead.hardcoders.munge.org>
MLDBM? adding/modifying records? (Bruce Wayne)
Re: MLDBM? adding/modifying records? <bwalton@rochester.rr.com>
opps - just a little back to front - Re: thanks - Re: T <robert@chalmers.com.au>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <nospam.newton@gmx.li>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi <godoy@conectiva.com>
Solved it. Thanks for help. Re: Trick problem, Selectiv <robert@chalmers.com.au>
thankx B W thanx MLDBM (Bruce Wayne)
Re: Trick problem, Selective purging of a directory? (Tom Christiansen)
Re: Use PERL or Java? Which is faster? <bart.lateur@skynet.be>
Re: Use PERL or Java? Which is faster? <toriw@chello.no>
Win32::ODBC problem <webmaster@duckpaw.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 17 Dec 2000 11:21:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage977052241.5720@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 29 Apr 2000
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last _major_ update of the Perl FAQ was in Summer
of 1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://www.cpan.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
For an alternative way to get answers, check out the Perlfaq website.
http://www.perlfaq.com/
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://www.cpan.org/
http://www.perl.com/CPAN/
http://www.cpan.org/doc/FAQs/FAQ/html/
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 17 Dec 2000 11:14:37 +0100
From: Just Me <just_me@nowhere.com>
Subject: Re: Language evolution C->Perl->C++->Java->Python (Is Python the ULTIMATE oflanguages??)
Message-Id: <3A3C920C.35794C90@nowhere.com>
No, I certainly don't think so. This only is to preserve the conceptual
integrity of the language. Where else can you use fractions und numbers of
unlimited size than in Smalltalk. Try writing this in your favourite language:
1000 factorial
-> a very large number which causes overflow if
not evaluated in Smalltalk
And don't you think writing:
for n in range(2,10): ...
is artificial if compared with Smalltalk-ish:
1 to: 10 do: [...
And please tell me what the arguments in the following expression mean:
array.insert(2,3)
From this I don't know what is the index and what is the value to be inserted
whereas in Smalltalk this is much easier to understand:
array insert: 3 atIndex: 2.
or better:
array add: 3 beforeIndex: 2.
So, just the fact that Smalltalk has messages with multiple words makes it much
more natural from the human perspective. After all, it was designed for 5 year
old kids...
Bart Lateur wrote:
> Don't you think, as I do, that the way of adding through numbers by
> sending a "+" message and *one value* to the other value, is, er, rather
> artificial? The arguments are not peers for the operation, as I feel
> they should be.
>
> --
> Bart.
------------------------------
Date: Sun, 17 Dec 2000 06:59:19 GMT
From: David Steuber <nospam@david-steuber.com>
Subject: Re: Language evolution C->Perl->C++->Java->Python (Is Python the ULTIMATE of languages??)
Message-Id: <m3elz7sfcp.fsf@solo.david-steuber.com>
Al Dev <alavoor-nospam@yahoo.com> writes:
' o Java corrected the mistakes made by C++. And C++ corrected mistakes
' made by C.
' o Python is very robust and very stable as it is completely written in
' "C" and Python is a simple technology.
Senile dimentia is a terrible thing. If Python is so great, why is it
written in C, a language which is alleged to have mistakes in it?
--
David Steuber | Perl apprentice. The axe did not stop the
NRA Member | mops and buckets from flooding my home.
ICQ# 91465842
*** http://www.david-steuber.com/ ***
------------------------------
Date: Sun, 17 Dec 2000 11:44:05 GMT
From: Phantom of the Opcodes <urchlay@hellhead.hardcoders.munge.org>
Subject: miniperl executable and thin clients
Message-Id: <9G1%5.37651$_y5.8116855@typhoon.southeast.rr.com>
Greetings... I apologize for the excessive amount of background
information, but it's better to give too much info than not enough.
I'm working on a pretty simple Linux-based thin client. It runs on a
"disk-on-chip" device, with either 8M or 16M capacity. Currently, there
are a lot of shell scripts (for configuration, spawning processes. at
one point, /bin/init was a 4-line shell script). Basically, though, it's
a stripped-down *nix that runs as either a remote X terminal or standalone
Web browser.
Most of the shell scripts call either awk or sed (or both). I'd like to
use perl instead (before I started this project, I had completely sworn
off shell scripting... I'm a sysadm of a few Linux and Solaris boxes, so
I had a love/hate relationship with shell scripting. but that's off-topic
here... enough to say I've gotten pretty decent with perl, and really like
the Perl Way of Doing Things...)
I built a thin client that had a perl binary on it, minus external utils
and modules. can't remember the exact byte size, but between the binary
itself and the shared libs needed to support it (libgdbm.so for one), the
image size of the client's filesystem had gotten too big to use the cheaper
8M chips (of course, if we hadn't had to have a full netscape 4.6 and its
JVM... but I digress)
Of course, management being management, I lost the battle for using the 16M
chips in all the units...
To make a long story short (too late)... last time I built perl, I noticed
the miniperl executable in the build directory. Knew of its existence before,
but it had never hit me... for what I need, a stripped down perl would be
just fine (basically I want something to replace bash/sed/awk/grep etc.)
I searched the standard places for documentation on miniperl. Found some
terse docs on ExtUtils::Miniperl, which weren't very descriptive, and
were for the module, not the standalone executable. I also searched some
non-standard places ("cd ~/perl-build;find . -name \*mini\* -print" only
gave me 2 human-readable hits, minimain.c (which I read, but not being much
of a C programmer, did not understand well) and minimod.pl (which appears to
be a cut-down version of ExtUtils::Miniperl))
From playing with miniperl, it looks like everything works (-w, use strict,
various functions & operators, regexes) except dynamic loading (so most
modules are out, tho CGI.pm works, not that I need it...)
Is this all that's missing from miniperl?
...actually, miniperl is only about 200K smaller than the full perl binary.
200K is a lot, when you're dealing with 8M for an entire filesystem, and if
all I lose is dynamic module loading (when I wasn't planning to have any
modules at all), I think it's well worth it...
Another alternative (I mention this at risk of attracting flames, probably)
was to use perl 4... less capable == smaller binary size (so I'm told. I've
never actually used perl4, which shows you I haven't been doing this long.)
Sorry if this post got a little verbose... I'll try to sum up concisely:
I'm looking for a list of all the features missing from miniperl that are
present in full-blown perl, other than those pertaining to module use.
I suppose I should also mention, I'd like to get rid of /bin/(ba)?sh
completely. There's no reason a thin client's users need a local shell,
but I'm not sure what impact this may have on perl (I read somewhere that
globbing a la <*.foo> uses /bin/csh, or /bin/sh if csh isn't found.. not
clear to me if it falls back to some internal function on *nix if it can't
get a shell... this was on 5.000something, the docs for 5.6.0 imply that
no shell is used for globbing)
That's all... hopefully I haven't missed some obvious piece of documentation
that should be staring me in the face. if so, it's because it's 6AM and I've
been up since 6AM, yesterday...
--
PotO
If a trainstation is the place where trains stop, what is a workstation?
s/munge//; # to mail, but please don't...
------------------------------
Date: Sun, 17 Dec 2000 05:03:25 GMT
From: janewaysdream@startrekmail.com (Bruce Wayne)
Subject: MLDBM? adding/modifying records?
Message-Id: <3a3c48c2.2948562@news.direct.ca>
using 'MLDBM #$#$%$
Has anyone come across some "UNencrypted" instructions for adding,
modifying, or deleting records within an MLDBM muti-dimensional DBM
file???
please help if you have, send me to some references
thanx,
Bruce.
------------------------------
Date: Sun, 17 Dec 2000 07:45:25 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: MLDBM? adding/modifying records?
Message-Id: <3A3C6FA1.DCC59312@rochester.rr.com>
Bruce Wayne wrote:
>
> using 'MLDBM #$#$%$
> Has anyone come across some "UNencrypted" instructions for adding,
> modifying, or deleting records within an MLDBM muti-dimensional DBM
> file???
...
> Bruce.
I'm not sure exactly what you mean, but I would recommend looking over
recipes 11.14, 14.8, and 14.9 in "Perl Cookbook".
--
Bob Walton
------------------------------
Date: Sun, 17 Dec 2000 16:29:26 +1000
From: "Robert Chalmers" <robert@chalmers.com.au>
Subject: opps - just a little back to front - Re: thanks - Re: Trick problem, Selective purging of a directory?
Message-Id: <hZX_5.30$x2.7838@nsw.nnrp.telstra.net>
As its stands - the code keeps the earliest 30 files - I need to keep the latest 30 files, dumping the oldest ones.
So I'll have to reverse that somehow.
However - that's exactly what I'm trying to do, so I should be able to get it right . Thanks again.
bob
$ ./30names.pl
Keep: 30
/var/src/perl/org/2000-09-15.html
/var/src/perl/org/2000-09-16.html
/var/src/perl/org/2000-10-18.html
/var/src/perl/org/2000-10-19.html
/var/src/perl/org/2000-10-20.html
/var/src/perl/org/2000-10-21.html
/var/src/perl/org/2000-10-22.html
/var/src/perl/org/2000-10-24.html
/var/src/perl/org/2000-10-25.html
/var/src/perl/org/2000-10-26.html
/var/src/perl/org/2000-10-27.html
/var/src/perl/org/2000-10-28.html
/var/src/perl/org/2000-10-29.html
/var/src/perl/org/2000-10-30.html
/var/src/perl/org/2000-10-31.html
/var/src/perl/org/2000-11-01.html
/var/src/perl/org/2000-11-02.html
/var/src/perl/org/2000-11-03.html
/var/src/perl/org/2000-11-04.html
/var/src/perl/org/2000-11-05.html
/var/src/perl/org/2000-11-06.html
/var/src/perl/org/2000-11-07.html
/var/src/perl/org/2000-11-08.html
/var/src/perl/org/2000-11-09.html
/var/src/perl/org/2000-11-10.html
/var/src/perl/org/2000-11-11.html
/var/src/perl/org/2000-11-12.html
/var/src/perl/org/2000-11-13.html
/var/src/perl/org/2000-11-14.html
/var/src/perl/org/2000-11-15.html
Delete: 17
/var/src/perl/org/2000-11-16.html
/var/src/perl/org/2000-11-17.html
/var/src/perl/org/2000-11-18.html
/var/src/perl/org/2000-11-19.html
/var/src/perl/org/2000-11-20.html
/var/src/perl/org/2000-11-21.html
/var/src/perl/org/2000-11-22.html
/var/src/perl/org/2000-11-23.html
/var/src/perl/org/2000-11-24.html
/var/src/perl/org/2000-11-25.html
/var/src/perl/org/2000-11-26.html
/var/src/perl/org/2000-11-27.html
/var/src/perl/org/2000-11-28.html
/var/src/perl/org/2000-12-02.html
/var/src/perl/org/2000-12-12.html
/var/src/perl/org/2000-12-15.html
/var/src/perl/org/2000-12-16.html
--
>
> "Martien Verbruggen" <mgjv@tradingpost.com.au> wrote in message news:slrn93oh0j.8i7.mgjv@martien.heliotrope.home...
> > On Sun, 17 Dec 2000 15:19:09 +1000,
> > Robert Chalmers <robert@chalmers.com.au> wrote:
> >
> > [Article reformatted to fit within 80 columns]
> >
> > > I'm trying to discover a way of selectively purging a directory of
> > > files, leaving only the latest 30 files there. Perhaps run from a
> > > cron job, or as part of another program, but basically it goes like this.
> >
> > #!/usr/local/bin/perl -wl
> > use strict;
> >
> > my $dir = '/spare/backup';
> > my $num_to_keep = 30;
> >
> > opendir(DIR, $dir) or die $!;
> > my @files_by_mtime =
> > sort { -M $a <=> -M $b }
> > grep { -f }
> > map { "$dir/$_" }
> > readdir DIR;
> > close DIR;
> >
> > my @delete = splice @files_by_mtime, $num_to_keep;
> >
> > print "Keep: ", scalar @files_by_mtime;
> > print for @files_by_mtime;
> >
> > print "Delete: ", scalar @delete;
> > print for @delete;
> > __END__
> >
> > All you need to do instead of printing, is unlinking. You might want to
> > check for errors when you do.
> >
> > Martien
> > --
> > Martien Verbruggen |
> > Interactive Media Division | If at first you don't succeed, try
> > Commercial Dynamics Pty. Ltd. | again. Then quit; there's no use
> > NSW, Australia | being a damn fool about it.
>
>
------------------------------
Date: Sun, 17 Dec 2000 09:59:22 +0100
From: "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.li>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <b3uo3tcemb12n7ics77o4c9dp9njfnok06@4ax.com>
On 16 Dec 2000 17:00:41 -0800, merlyn@stonehenge.com (Randal L. Schwartz) wrote:
> >>>>> "Philip" == Philip 'Yes, that's my address' Newton <nospam.newton@gmx.li> writes:
>
> Philip> Why "USENET" and not "Usenet" or "usenet"? I rather doubt it's an acronym.
>
> USENET was traditionally used all uppercase, despite it not being an
> acronym. That should be no more difficult to grasp than the fact that
> Perl is capitalized as such, even though it can be described as being
> an acronym.
It's not difficult to grasp -- I just saw no apparent reason for the caps
(tradition? acronym? pulled the idea out of a hat?), so I asked for an
explanation.
If the answer is, "It's traditional", then that's an explanation.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: 17 Dec 2000 10:58:36 -0200
From: Jorge Godoy <godoy@conectiva.com>
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <kpvgsjgq6b.fsf@dagon.conectiva>
On Tue, 12 Dec 2000, tadmc@metronet.com wrote:
> Jorge Godoy <godoy@conectiva.com> wrote:
>>
>>Maybe you could borrow some parts from RFC
>>1855 (netiquette) or cite it too.
>
>
> ...now you can help too :-)
>
>
> Give me a URL, I'll put it in. (and you *can* just email me that :-)
http://andrew2.andrew.cmu.edu/rfc/rfc1855.html
Sorry for taking too long to answer. I was in a hurry with some
projects here.
See you,
--
Godoy. <godoy@conectiva.com>
Departamento de Publicações Conectiva S.A.
Publishing Department Conectiva Inc.
------------------------------
Date: Sun, 17 Dec 2000 17:36:28 +1000
From: "Robert Chalmers" <robert@chalmers.com.au>
Subject: Solved it. Thanks for help. Re: Trick problem, Selective purging of a directory?
Message-Id: <9YY_5.41$x2.8269@nsw.nnrp.telstra.net>
This little bit of code is what I cobbled together - thanks to Martien for pointing me in the right direction. I was totally lost!
(a couple of 'use' 's there I'll use later)
and I have yet to cut it off at 30, but thats easy now. The key was sorting, then displaying the files in correct, newest first,
order. Having got that, as Martien says, simply unlink instead of printing those I don't want any more.
.....................................................
#!/usr/local/bin/perl -w -T
use CGI qw(:all);
use File::stat;
my $num_to_keep = 30;
@names = ();
while ($nextname = </var/src/perl/org/*>) {
push(@names, $nextname);
}
@names = sort { -M $a <=> -M $b } @names;
foreach $nextname (@names) {
$nextname =~ s#.*/##;
print "$nextname\n";
}
__END__
.................................................
Produces this output
2000-12-16.html
2000-12-15.html
2000-12-12.html
2000-12-02.html
2000-11-28.html
2000-11-27.html
2000-11-26.html
2000-11-25.html
2000-11-24.html
2000-11-23.html
2000-11-22.html
2000-11-21.html
2000-11-20.html
2000-11-19.html
2000-11-18.html
--
---
Robert Chalmers
http://www.quantum-radio.net.au Quantum Radio robert@quantum-radio.net.au
http://www.inexpensivewebsites.com Domain Name Registrations info@inexpensivewebsites.com
"Robert Chalmers" <robert@chalmers.com.au> wrote in message news:kXW_5.23$x2.7151@nsw.nnrp.telstra.net...
> I'm trying to discover a way of selectively purging a directory of files, leaving only the latest 30 files there. Perhaps run from
a
> cron job, or as part of another program, but basically it goes like this.
>
> The directory has a new file added each day, up until there are 30 files there - When the 31st file is added, the 1st file placed
in
> the directory is deleted. Leaving 30 files there, from the newest, the just added 30th file, to the oldest the now 1st file. In
the
> event that no daily file is added, no file is removed - still leaving 30 files in the directory.
>
> Or perhaps put another way.
> The directory is check each day after the 'add a file run' and if the count is greater than 30, then delete the oldest file(s)
till
> there is only 30 left, from the newest to the oldest.
>
> any ideas. I'm looking at stat. Maybe feeding a directory listing into a %key or @array, counting them, sorting by oldest creation
> time, and deleting the oldest. hmmm.
>
> Trouble is, I cant' see a way to begin this. Maybe I need to take a break, but any help with ideas would be much appreciated. Or
> even pointing to where some ideas may be found..
>
> Thanks
> Robert
>
> --
> ---
> Robert Chalmers
> http://www.quantum-radio.net.au Quantum Radio robert@quantum-radio.net.au
> http://www.inexpensivewebsites.com Domain Name Registrations info@inexpensivewebsites.com
>
>
>
------------------------------
Date: Sun, 17 Dec 2000 09:34:45 GMT
From: janewaysdream@startrekmail.com (Bruce Wayne)
Subject: thankx B W thanx MLDBM
Message-Id: <3a3c88b2.19318792@news.direct.ca>
Many thanks Bob,... you solved the editing problems i was trying with
MLDBM for me BIG-TIME!
here is my WORKING code:---
###remember the "$tempref" variable is equal TO YOUR top level key in
##your MLDBM::never refer to the temp with it's KEYNAME, only
##reference the lower levels as in the 4th line!
##when writing BACK to original MLDBM key
##ONLY THEN can you refer to that key again! line 5
###this script checks to see if the 'email/key' exists in the MLDBM
###thenifso adds a new key into the right here designated place in the
###lower level of the MLDBM. otherwise creates a whole new key/entry
tie %Customers, 'MLDBM', $friends, O_CREAT | O_RDWR, 0666;
if (exists($Customers{$input{'email'}})) {
$tempref = $Customers{$input{'email'}};
$tempref->{'ads'}{$adnum} = $theirdata;
$Customers{$input{'email'}} = $tempref;
}else{
$Customers{$input{'email'}} = {
nom => $input{'name'},
phn => $input{'phone'},
add => $input{'address'},
cty => $input{'city'},
try => $input{'country'},
zip => $input{'code'},
buk => '0',
ads => {
$adnum => $theirdata
}
};
}
untie %Customers;
ps: anyone know if DELETING can be spliced in ok?
On Sun, 10 Dec 2000 21:08:27 GMT, Bob Walton
<bwalton@rochester.rr.com> wrote:
>looking in particular at the "BUGS" section (even though it isn't really
>a bug). Basically, due to the nature of how MLDBM works, it is
>necessary to retrieve and store only complete structures under a given
>top-level key. For example, to change $HoH{name}{value1}, do
>[untested]:
>
> my $tempref=$HoH{name};
> $tempref->{value1}={value2};
> $HoH{name}=$tempref;
>
>What MLDBM is really doing is simply passing whatever it gets or
>retrieves to/from keys through Data::Dumper (or Storable or FreezeThaw)
>for serialization. That only works when getting or retrieving keys --
>tie doesn't see attempts to access substructures of the hash, and hence
>they don't get processed and retrieved from/written to the file. HTH.
>--
>Bob Walton
------------------------------
Date: 16 Dec 2000 23:26:03 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: Trick problem, Selective purging of a directory?
Message-Id: <3a3c5c7b@cs.colorado.edu>
In article <t3oh2vildapq03@corp.supernews.com>,
Randy Harris <harrisr@bignet.net> wrote:
>Someone will probably give you a good Perl way to do this, but in case
>not...
>
>rm `ls -t | tail -n +30`
>
>in Unix, will delete all files older than the first 30.
Not just "in Unix", you know. Anywhere you've got those three
commands--which, of course, should be everywhere. PPT, and all.
--tom
------------------------------
Date: Sun, 17 Dec 2000 10:53:47 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Use PERL or Java? Which is faster?
Message-Id: <am6p3tsnht8bursh1holfgfh949936g5pi@4ax.com>
Peter Schuller wrote:
>>Not in my benchmarks. Java showed by be about the 3rd the speed of
>>perl in serving up dynamic pages with moderate calculations.
>
>Are you talking about perl CGI scrpts versus servlets or something?
>
>That is NOT an accurate measurement of language speed.
Servlets have the speed advantage. If Java is STILL 1/3rd the speed of
Perl...
>>Java historically brings computers to their knees.
>
>This isn't history. This is today. I'm sure the first implementation of perl
>was dog slow too.
When Perl first came out, computers were much slower. If Perl's speed
was acceptable then, it must be lightning fast on today's computers.
It's not unlikely that improvements have been made. Only MS succeeds in
making the next version much slower than the previous one. ;-)
--
Bart.
------------------------------
Date: Sun, 17 Dec 2000 11:28:30 GMT
From: Tor Iver Wilhelmsen <toriw@chello.no>
Subject: Re: Use PERL or Java? Which is faster?
Message-Id: <wku283s2wm.fsf@mail.multinett.no>
Brooklyn Linux Solutions CEO <ruben@mrbrklyn.com> writes:
> Not in my benchmarks. Java showed by be about the 3rd the speed of
> perl in serving up dynamic pages with moderate calculations.
Did you use a CGI-to-Java gateway which fired up a new JVM for each
call? That is silly, and only serves to bolster your misconceptions.
> You can through any benchmarks you care to, and I don't beleive them.
We'll be sure to ignore you, too.
--
Tor Iver Wilhelmsen <toriw@chello.no>
This line intentionally left cluttered. dfgjksdfdghsdknfgsjksngskj
------------------------------
Date: Sun, 17 Dec 2000 01:33:01 -0500
From: "Ryan Buterbaugh - DuckPaw.com" <webmaster@duckpaw.com>
Subject: Win32::ODBC problem
Message-Id: <3a3c5dbd@news.nauticom.net>
why is it that when i try to create a table with about 10 or more columns, i
get the following error:
Connected
SQL command failed.
Error: [-1026] [1] [0] "[Microsoft][ODBC Microsoft Access Driver] Record is
too large."
it is a microsoft access database (mdb) with a driver version of
4.00.3711.08
i have no problem reading any number of columns.
any thoughts, or cant this be fixed?
--
Ryan Buterbaugh
webmaster@duckpaw.com
Resources for the serious webmaster
www.duckpaw.com
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 5133
**************************************
