[24321] in Perl-Users-Digest
Perl-Users Digest, Issue: 6512 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 4 00:05:54 2004
Date: Mon, 3 May 2004 21:05:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 3 May 2004 Volume: 10 Number: 6512
Today's topics:
Re: Books online???? <***************>
Re: C expressions in Perl <dformosa@zeta.org.au>
Re: C expressions in Perl <rwxr-xr-x@gmx.de>
Re: C expressions in Perl <mgjv@tradingpost.com.au>
complile a program with 2 files (Susan)
Re: CRC on Unix vs Win32 <theaney@cablespeed.com>
dclone and copying one element of a hash (TonyShirt)
Re: dclone and copying one element of a hash <1usa@llenroc.ude>
Re: execute every 15 min <raisin@delete-this-trash.mts.net>
Re: execute every 15 min <webmaster@neverseenbefore.com>
Re: Finding all open filehandles and closing them befor <vilmos@vilmos.org>
Finding file size over network (Cosmic Cruizer)
Re: need help with security <tore@aursand.no>
Re: OSs with Perl installed <matthew.garrish@sympatico.ca>
Re: Please help with FormMail <jwillmore@remove.adelphia.net>
Q on "use" <socyl@987jk.com>
Re: Q on "use" <mgjv@tradingpost.com.au>
Re: Q on "use" <usenet@morrow.me.uk>
Re: Q on "use" <socyl@987jk.com>
Re: Why is Perl losing ground? <jwkenne@attglobal.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 May 2004 19:42:49 -0500
From: Henry Williams <***************>
Subject: Re: Books online????
Message-Id: <rmpd90pklmc1aiidc8b2jmh5t97uhk2ike@4ax.com>
On Mon, 03 May 2004 06:29:25 -0400, Robert <catcher@linuxmail.org>
wrote:
>Actually it wasn't sarcastic. Even if you think that the stuff is under
>some sort of academic license you should report it. Let O'Reilly deal
>with whether it is kosher or not. You do any author a disservice by not
>reporting something you think is copyright infringement.
>
>Robert
I apologize if I misread your remarks. This NG is like dodging
bullets. One never knows for certain if one's post has the correct
form, indeed it takes as much research to be sure of that as it does
to answer the bloody question in the first instance, bringing into
sharp relief the question of the necessity for this NG at all.
I can't busy myself with helping O'Reilly no matter how fond I am of
their books. There are far too many nooks and crannies for things to
hide away in on the 'Net. In notifying them I'd seem a crackpot. Not
to mention that in today's world it's best to be quiet, what with RIAA
and all. Why draw attention to yourself? It would be as if you were at
the airport and said "I think that man has a gun!" They would grab
you first.
So I'll bow out now. I've had my "fun". <Here>
Henry
------------------------------
Date: 04 May 2004 08:59:31 +1000
From: ? the Platypus {aka David Formosa} <dformosa@zeta.org.au>
Subject: Re: C expressions in Perl
Message-Id: <m365bd6rsc.fsf@dformosa.zeta.org.au>
"Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> writes:
[...]
> C also knows about implicit falseness (0 and NULL).
> But those are only two items (and technically they are even
> identical).
Not all OS's have NULL == 0. And on the OS's that have nonzero NULL's,
NULL is true. Yes I've been burnt by that one a few times.
--
Please excuse my spelling as I suffer from agraphia. See
http://dformosa.zeta.org.au/~dformosa/Spelling.html to find out more.
Free the Memes.
------------------------------
Date: 3 May 2004 23:43:31 GMT
From: Lukas Mai <rwxr-xr-x@gmx.de>
Subject: Re: C expressions in Perl
Message-Id: <c76lf3$scl$1@wsc10.lrz-muenchen.de>
? the Platypus {aka David Formosa} schrob:
> "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> writes:
> [...]
> > C also knows about implicit falseness (0 and NULL).
> > But those are only two items (and technically they are even
> > identical).
> Not all OS's have NULL == 0. And on the OS's that have nonzero NULL's,
> NULL is true. Yes I've been burnt by that one a few times.
Then you didn't use a C compiler. The C standard says that NULL is a
macro expanding to a null pointer constant, possibly cast to (void *).
A null pointer constant is a compile-time integer zero, e.g. 0 or 0L or
(sizeof (char) / 2). So NULL can't be nonzero.
The physical representation of a null pointer need not be all-bits-zero,
but a null pointer in boolean context must be false.
HTH, Lukas
--
BEGIN{$^H {q}=sub{print$_[1]};$^H |=0x28000}"Just another Perl hacker,\n"
------------------------------
Date: 04 May 2004 01:07:52 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: C expressions in Perl
Message-Id: <slrnc9dr77.4ck.mgjv@verbruggen.comdyn.com.au>
\begin{offtopic}
On 04 May 2004 08:59:31 +1000,
? the Platypus {aka David Formosa} <dformosa@zeta.org.au> wrote:
> "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> writes:
>
> [...]
>
>> C also knows about implicit falseness (0 and NULL).
>> But those are only two items (and technically they are even
>> identical).
\begin[extreme]{pedantry}
Not necessarily. In a logical context they both evaluate to false, but
that is because any value in a logical context is implicitly evaluated
to be unequal to 0. For both NULL and 0 that results in a false. Also see
below.
There are other places where NULL and 0 are technically certainly not
equivalent.
int i = NULL;
does not have to result in i being 0, and doesn't even have to result
in i having a meaningful result. The other way around, 0 used in a
pointer context, is equivalent to NULL being used in a pointer
context.
\end{pedantry}
> Not all OS's have NULL == 0.
Correct.
> And on the OS's that have nonzero NULL's,
> NULL is true. Yes I've been burnt by that one a few times.
Then you did not use a C compiler.
The macro NULL expands to the a null pointer constant, and the only
two null pointer constants allowed are an integer expression with
value 0, or such an expression cast to void * [1].
NULL in a logical or boolean context, is equivalent to (NULL != 0)[2].
Irrespective of the actual implementation of NULL on your platform,
this is required to always be false; NULL and 0 are both null pointer
constants, which will both be "converted" to null pointers, and null
pointers are under all circumstances required to compare equal[3].
\end{offtopic}
Martien
[1] ISO/IEC 9899:1999 (6.3.2.3--Pointers, par 3)
Note that this includes things like (1 - 1), and (void *)(42 * 0),
although they are simply silly.
[2] This is true in general:
if (ptr) {}
is equivalent to
if (ptr != 0) {}.
ISO/IEC 9899:1999 (6.8.4--Selection statements)
[3] ISO/IEC 9899:1999 (6.3.2.3--Pointers, par 4)
--
|
Martien Verbruggen | Conservatives are not necessarily stupid, but
Trading Post Australia | most stupid people are conservatives. -- John
| Stuart Mill
------------------------------
Date: 3 May 2004 20:28:36 -0700
From: suhua9@yahoo.com (Susan)
Subject: complile a program with 2 files
Message-Id: <ff30ecfa.0405031928.2515747d@posting.google.com>
I would like to put my hash table and array into one file(h.plx) and
my main program in anohter one(h.pl). Now I don't know how to compile
to make it work ... if I do perl h.plx h.pl ... it still doesn't work.
Does anyone know how to compile? Please let me know, Thank you!
Susan
------------------------------
Date: Mon, 03 May 2004 20:25:08 -0400
From: Tim Heaney <theaney@cablespeed.com>
Subject: Re: CRC on Unix vs Win32
Message-Id: <871xm15997.fsf@mrbun.watterson>
frank.sconzo@dowjones.com (Frank Sconzo) writes:
> Tim,
>
> Thanks very much for your response; I sincerely appreciate it! I've
> been struggling over this for a few days, but you've solved the
> puzzle.
You're most welcome. I'm glad I could help!
> How in the world did you figure this out?
I just sort of guessed. I fiddled with the parameters a bit until
fa53ffb9 popped out and decided that was probably it with the bytes in
the wrong order. Lacking access to Outlook, I'll leave it to you to
verify it for more cases. You may still run into problems with those
"ignorable characters" you mentioned.
Good luck!
Tim
------------------------------
Date: 3 May 2004 18:47:16 -0700
From: tonyshirt@hotmail.com (TonyShirt)
Subject: dclone and copying one element of a hash
Message-Id: <52d54c07.0405031747.26437a4a@posting.google.com>
I've been using dclone to copy a hash to another hash. At one point
in my program I need to copy one element of a hash into another.
Heres the code
my %a = { 1 => {a1=> 1, a2 =>2, a3=>3
2 => {a1=> 4, a2 =>5, a3=>6};
my %b = %{ dclone(\%a) }
#now I want to clear %b and copy a element from a% into %b
my %b=();
$b{1} = dclone( $a{1}); # This dosent seem to work!
Any suggestions?
------------------------------
Date: 4 May 2004 02:06:37 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude>
Subject: Re: dclone and copying one element of a hash
Message-Id: <Xns94DEE0EBEBF6Fasu1cornelledu@132.236.56.8>
tonyshirt@hotmail.com (TonyShirt) wrote in
news:52d54c07.0405031747.26437a4a@posting.google.com:
> I've been using dclone to copy a hash to another hash. At one point
> in my program I need to copy one element of a hash into another.
>
> Heres the code
>
> my %a = { 1 => {a1=> 1, a2 =>2, a3=>3
> 2 => {a1=> 4, a2 =>5, a3=>6};
>
> my %b = %{ dclone(\%a) }
>
> #now I want to clear %b and copy a element from a% into %b
>
> my %b=();
>
> $b{1} = dclone( $a{1}); # This dosent seem to work!
>
> Any suggestions?
My first suggestion is not to re-type code into the newsreader. The code
you have above does not even come close to compiling without errors. So
nothing there works, it is hard to tell what the actual problem is versus
just your mis-mash.
How about the following?
use Data::Dumper;
use Storable qw( dclone );
my $a = {
1 => {
a1 => 1,
a2 => 2,
a3 => 3,
},
2 => {
a1 => 4,
a2 => 5,
a3 => 6,
},
};
my $b = dclone( $a );
print Dumper $b;
$b = { };
$b->{1} = dclone( $a->{1} );
print Dumper $b;
__END__
--
A. Sinan Unur
1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: Mon, 3 May 2004 17:42:08 -0500
From: Web Surfer <raisin@delete-this-trash.mts.net>
Subject: Re: execute every 15 min
Message-Id: <MPG.1b0086be34d5711e989812@news.mts.net>
[This followup was posted to comp.lang.perl.misc]
In article <19tlc.94476$3R.5981288@phobos.telenet-ops.be>,
anonymous@disneyland.com says...
> I have a perl program that downloads the value of some shares on the
> Brussels stock market. The problem is that every 15 minutes the value
> changes. How would I go about changing this program so that it automatically
> starts up at 9.30(finishes at 16.00(market closed)) and every 15 minutes
> would download the prices and put them in diffrent files, so that I would
> have 32 files? With this data you could easily see the flow of the share.
On UNIX systems you can use the "cron" facility to run programs at
specified times.
------------------------------
Date: Tue, 4 May 2004 03:29:48 +0200
From: "Dieter D'Hoker" <webmaster@neverseenbefore.com>
Subject: Re: execute every 15 min
Message-Id: <c76rm5$cf3q$1@ID-155251.news.uni-berlin.de>
luc wrote:
> I have a perl program that downloads the value of some shares on the
> Brussels stock market. The problem is that every 15 minutes the value
> changes. How would I go about changing this program so that it
> automatically starts up at 9.30(finishes at 16.00(market closed)) and
> every 15 minutes would download the prices and put them in diffrent
> files, so that I would have 32 files? With this data you could easily
> see the flow of the share.
Just make a mainloop that checks what time it is every loop and then decides
what to do,
make sure to put sleep(1); at the end of it otherwise it would consume 100%
of CPU,
and there is no point in checking every microsecond to see if the time has
changed :)
The following is not working perlcode but gives you an idea :)
my $lasttime;
while(1){
sleep 1;
my $currenttime = getcurrentime();
if ($currenttime >= 1600 or $currenttime < 0930 ) {$lasttime =
$currenttime;next;}
elsif ( ($currentime - $lasttime) >= 0015 ) {fetchstocks();}
$lasttime = $currenttime;
}
--
Dieter D'Hoker
news:free.nl.dieter.dhoker & news:alt.nl.fan.dieter.dhoker
Multiplayer tetris? http://www.tsrv.com/
------------------------------
Date: 03 May 2004 20:58:55 -0700
From: Vilmos Soti <vilmos@vilmos.org>
Subject: Re: Finding all open filehandles and closing them before exiting
Message-Id: <87smegvo5c.fsf@localhost.localdomain>
rook_5150@yahoo.com (Bryan Castillo) writes:
>>>> I have a signal handler which tries to unmount the disk in
>>>> the case of a sigint, but it will fail if copy from File::Copy
>>>> has an open filehandle on the mounted disk.
>>
>> ...
>>
>>> Try this: (worked on my system Fedora Core 1)
>>
>> ...
>>
>>> eval {
>>> copy ("/tmp/mountpoint/devzero", "/tmp/mountpoint/devnull");
>>> };
>>
>> Thanks for the idea, but it didn't work for me. Our system
>
> What didn't work? The device was still busy? Or there was something
> wrong with the script? Do you have the output?
The mountpoint was still busy.
Here is a small program I ran.
############################## Program starts ##############################
#!/usr/bin/perl -w
use strict;
use File::Copy;
sub bye () {
print "############## ls starts ############\n";
system ("ls -l /proc/$$/fd");
print "############## ls ends ############\n\n";
print "############## lsof starts ############\n";
system ("/usr/sbin/lsof /tmp/mp");
print "############## lsof ends ############\n\n";
system ("/bin/umount /tmp/mp");
exit;
}
$SIG{INT} = \&bye;
print "copy starts\n";
eval {
copy ("/tmp/mp/devzero", "/tmp/mp/devnull");
}
############################## Program ends ##############################
And here is the result:
############################## Running starts ##############################
[root@my pts/0 tmp]# ./a.pl
copy starts
in bye
############## ls starts ############
total 0
lrwx------ 1 root root 64 May 3 20:50 0 -> /dev/pts/0
lrwx------ 1 root root 64 May 3 20:50 1 -> /dev/pts/0
lrwx------ 1 root root 64 May 3 20:50 2 -> /dev/pts/0
lr-x------ 1 root root 64 May 3 20:50 3 -> /tmp/mp/devzero
l-wx------ 1 root root 64 May 3 20:50 4 -> /tmp/mp/devnull
lr-x------ 1 root root 64 May 3 20:50 5 -> pipe:[68433]
############## ls ends ############
############## lsof starts ############
COMMAND PID USER FD TYPE DEVICE SIZE NODE NAME
a.pl 6663 root 3r CHR 1,5 12 /tmp/mp/devzero
a.pl 6663 root 4w CHR 1,3 13 /tmp/mp/devnull
############## lsof ends ############
umount: /tmp/mp: device is busy
[root@my pts/0 tmp]#
############################## Running ends ##############################
This is a bit different (newer) system. RedHat 8.0 and perl v5.8.0.
I tried Rocco's MAX_OPEN_FDS solution (which is still unavailable
on my nntp server), but I had the same problem you had: POSIX didn't
know about it.
Thanks for your help,
Vilmos
# echo "Just Another Perl Lacker,"
------------------------------
Date: Tue, 04 May 2004 00:28:28 GMT
From: XXjbhuntxx@white-star.com (Cosmic Cruizer)
Subject: Finding file size over network
Message-Id: <Xns94DEB1B73100Dccruizermydejacom@64.164.98.50>
I'm having trouble getting file stats from files on remote servers. All the
filenames get printed from within the if statement, but I am not getting
anything for the file size (or any other stat I try). Doing a print on
$target_file returns the full path and filename.
Any suggestions?
foreach (@server_list) {
print "$_ \n";
system("net use q: $_ /USER:$user $password");
opendir DIR, $file_path or die "Cannot open: $!";
my @files = grep { /GLC[0-9a-zA-Z]*\.tmp/ } readdir DIR;
for my $file ( @files ) {
my $target_file = $file_path . $file;
if (-e $target_file) {
$size = (stat($target_file))[7]; # Use 8th element of stat
print " $file \t $size\n";
}
}
closedir DIR;
system("net use q: /delete");
}
------------------------------
Date: Tue, 04 May 2004 01:33:16 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: need help with security
Message-Id: <pan.2004.05.03.23.32.25.175263@aursand.no>
On Sun, 02 May 2004 19:37:48 -0800, Robin wrote:
> Sorry about my formatting, I use an editor that screws it all up. I'll
> use perltidy next time.
Maybe it's just me, but didn't you promise to do that _days_ ago?! You
never learn, do you? You know why? You don't _want_ to learn.
--
Tore Aursand <tore@aursand.no>
"When you love someone, all your saved-up wishes start coming out."
(Elizabeth Bowen)
------------------------------
Date: Mon, 3 May 2004 20:45:24 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: OSs with Perl installed
Message-Id: <xIBlc.20753$3Q4.416674@news20.bellglobal.com>
"Abigail" <abigail@abigail.nl> wrote in message
news:slrnc9dcoj.egl.abigail@alexandra.abigail.nl...
>
> Come back to me when 10% of the non-IT Fortune-500 companies have switched
> at least 20% of its office management to Linux.
>
> I've been hearing that Linux will be the death of Microsoft for years.
> I don't know a single non-IT company where non-techies mainly work on
> Unix/Linux platforms. But I do see and hear about companies switching
> to Microsoft.
>
But I'm not saying that there will be a death to Microsoft. Or that it will
be Linux that does it (and any talk of crushing all competition reeks too
much of current M$ practices for my taste). I was asked why I would be
afraid if I were an M$ employee, and I've tried to explain my rationale. The
software model that has gotten Microsoft where it is can't sustain it
forever. And when/if they realize that, they will begin to cut back and
focus on core technologies to shore up any bleeding(it's what all companies
have to do when they become over-extended and short on cash). And that will
lead in turn to layoffs.
I don't think I'm espousing terribly deep economics here. If they continue
to flog their model and Linux (and others) continues its improvement, then
they're going to have a much harder time keeping their stranglehold. I doubt
that the Fortune 500 business are going to be the ones setting the trend
away either, so I wouldn't put much faith in those numbers. The trend (if it
emerges) will be set by smaller companies that can't afford the ridiculous
cost of Windows and Office when all their employees need are email and a
word processor.
Matt
------------------------------
Date: Mon, 03 May 2004 20:06:14 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Please help with FormMail
Message-Id: <pan.2004.05.03.23.30.24.800262@remove.adelphia.net>
On Mon, 03 May 2004 10:15:36 -0700, fastjack wrote:
> Hi,
> I'm using FomrMail and I'm trying to customize the html email with the
> form values that a user inputs. The form emails, but the values are
> not returned. Here's the code:
[ ... ]
Contact the author -or- use a better script to send email.
Use Google to find more on the evils of using Matt Wright et. al. formmail
scripts.
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
The average income of the modern teenager is about 2 a.m.
------------------------------
Date: Tue, 4 May 2004 01:19:48 +0000 (UTC)
From: kj <socyl@987jk.com>
Subject: Q on "use"
Message-Id: <c76r3k$6p9$1@reader2.panix.com>
I have the following short script:
use strict;
my $services;
my @packages = qw(Foo Bar Baz);
for my $package (@packages) {
my @services;
eval <<EOEVAL;
use $package;
\@services = $package\::get_available_services;
EOEVAL
$services->{ "http://acmeServices.com/#${_}" } = $package
for @services;
}
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
->dispatch_with( $services )
->handle();
The for-loop cycles over a list of packages, all of which implement
the sub get_available_services(), and uses eval to "use" each
package, and call the package's get_available_services.
As far as I can tell this code does the right thing, but I find
the construct with the eval rather klugey. Is there a better way
to achieve the same effect?
Thanks!
kj
--
NOTE: In my address everything before the period is backwards.
------------------------------
Date: 04 May 2004 01:57:33 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Q on "use"
Message-Id: <slrnc9du4c.4ck.mgjv@verbruggen.comdyn.com.au>
On Tue, 4 May 2004 01:19:48 +0000 (UTC),
kj <socyl@987jk.com> wrote:
> use strict;
> my @packages = qw(Foo Bar Baz);
>
> for my $package (@packages) {
> my @services;
>
> eval <<EOEVAL;
> use $package;
> \@services = $package\::get_available_services;
> EOEVAL
[snip]
> The for-loop cycles over a list of packages, all of which implement
> the sub get_available_services(), and uses eval to "use" each
> package, and call the package's get_available_services.
>
> As far as I can tell this code does the right thing, but I find
> the construct with the eval rather klugey. Is there a better way
> to achieve the same effect?
What exactly do you think is kludgy? The string eval?
You could replace the C<use> with C<require>, possibly followed by
C<import>, but due to the "magic" that is involved, you would still
need a string eval.
You could C<use> the packages earlier, if you're not trying to catch
possible errors with this eval, and only do the
get_available_services() calls here, but it'd still require string
evals, or a list of C<use> statements.
C<use> and C<require> only do their magic with barewords, and to get
those barewords at runtime, you need string eval.
Maybe Module::Load, or Module::Runtime, available from CPAN can get
rid of some of the kludgy feel. Or maybe you can just wrap that eval
string away in a subroutine somewhere, to make the code look less
kludgy. But, in effect, I am pretty certain you need a string eval at
some point. Or you might need to do something that feels even more
horrible: for example you could change the module notation (with ::)
to a path name (with your local path separator), and use require.
Martien
--
|
Martien Verbruggen | Freudian slip: when you say one thing but
Trading Post Australia | mean your mother.
|
------------------------------
Date: Tue, 4 May 2004 03:02:34 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Q on "use"
Message-Id: <c7714a$i8r$1@wisteria.csv.warwick.ac.uk>
Quoth mgjv@tradingpost.com.au:
> horrible: for example you could change the module notation (with ::)
> to a path name (with your local path separator), and use require.
I believe / works on all platforms (certainly, %INC uses / as the separator on
all platforms).
Ben
--
"If a book is worth reading when you are six, * ben@morrow.me.uk
it is worth reading when you are sixty." - C.S.Lewis
------------------------------
Date: Tue, 4 May 2004 03:25:42 +0000 (UTC)
From: kj <socyl@987jk.com>
Subject: Re: Q on "use"
Message-Id: <c772fm$9fb$1@reader2.panix.com>
In <slrnc9du4c.4ck.mgjv@verbruggen.comdyn.com.au> Martien Verbruggen <mgjv@tradingpost.com.au> writes:
>On Tue, 4 May 2004 01:19:48 +0000 (UTC),
> kj <socyl@987jk.com> wrote:
>> use strict;
>> my @packages = qw(Foo Bar Baz);
>>
>> for my $package (@packages) {
>> my @services;
>>
>> eval <<EOEVAL;
>> use $package;
>> \@services = $package\::get_available_services;
>> EOEVAL
>[snip]
>> The for-loop cycles over a list of packages, all of which implement
>> the sub get_available_services(), and uses eval to "use" each
>> package, and call the package's get_available_services.
>>
>> As far as I can tell this code does the right thing, but I find
>> the construct with the eval rather klugey. Is there a better way
>> to achieve the same effect?
>What exactly do you think is kludgy? The string eval?
Yes. (It's very subjective, I know...) I had hoped that I could
have used something like "no strict refs", but I can't get that to
work...
BTW, I should have specified that, in the real application I'm
working on, the packages in @packages are known only at run time.
That's why I have to do the eval song-and-dance.
Thanks for your comments,
kj
--
NOTE: In my address everything before the period is backwards.
------------------------------
Date: Tue, 04 May 2004 00:05:32 GMT
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Why is Perl losing ground?
Message-Id: <g7Blc.112482$Gd3.27299091@news4.srv.hcvlny.cv.net>
? the Platypus {aka David Formosa} wrote:
> fishfry <BLOCKSPAMfishfry@your-mailbox.com> writes:
>>* Refusal of developers to produce a language standard
> How does that reduce the popularity of the code. I would counter
> argue that the Perl is the most standard languge I know of since once
> I've written the code I'm guaranteed it will work the same
> everywhere.
Not altogether. There are nonportable Unixisms, and the question of
word size is ignored.
--
John W. Kennedy
"Those in the seat of power oft forget their failings and seek only the
obeisance of others! Thus is bad government born! Hold in your heart
that you and the people are one, human beings all, and good government
shall arise of its own accord! Such is the path of virtue!"
-- Kazuo Koike. "Lone Wolf and Cub: Thirteen Strings" (tr. Dana Lewis)
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 6512
***************************************
