[25418] in Perl-Users-Digest
Perl-Users Digest, Issue: 7663 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 17 18:05:35 2005
Date: Mon, 17 Jan 2005 15:05:10 -0800 (PST)
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, 17 Jan 2005 Volume: 10 Number: 7663
Today's topics:
Re: [perl-python] 20050116 defining a function <matternc@comcast.net>
Re: [perl-python] 20050117, filter, map <abigail@abigail.nl>
Re: [perl-python] 20050117, filter, map <cwilbur@mithril.chromatico.net>
Re: creating socket on specific IP address chris-usenet@roaima.co.uk
Re: creating socket on specific IP address <alex_the_hart@yahoo.com>
how to skip to a certain loop with debugging option per <hendrik_maryns@despammed.com>
HTTP Get with Proxy authentication <aprz43@yahoo.com.au>
Kwik Q ipellew@pipemedia.co.uk
Re: looking for constructive criticism on this script.. <No_4@dsl.pipex.com>
Perl CGI script to emulate a shell command line window <2005+newstest@foobox.com>
Re: Print question <bik.mido@tiscalinet.it>
Re: Print question <bik.mido@tiscalinet.it>
Re: Print question <bik.mido@tiscalinet.it>
Re: Print question <bik.mido@tiscalinet.it>
Re: regex: how to %hash2 = grep {/KEY/} %hash1 ioneabu@yahoo.com
Taint problem with ActiveState brian.bygland@boeing.com
Re: Taint problem with ActiveState <1usa@llenroc.ude.invalid>
Re: Taint problem with ActiveState <brian.bygland@boeing.com>
Re: Taint problem with ActiveState <1usa@llenroc.ude.invalid>
Re: Taint problem with ActiveState <brian.bygland@boeing.com>
Whats the way of wildcard HoH extraction? ipellew@pipemedia.co.uk
Re: Whats the way of wildcard HoH extraction? <noreply@gunnar.cc>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Jan 2005 14:26:13 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: [perl-python] 20050116 defining a function
Message-Id: <XOOdnWATZufIjHHcRVn-1w@comcast.com>
Xah Lee wrote:
> errata:
>
> * the variables in the perl section should be declared inside the
> subroutine.
> * the @_[0] should've been $_[0]
>
> thanks for Dave Cross for pointing them out.
>
> * the Mathematica Apply should be Select...
> Xah
> xah@xahlee.org
> http://xahlee.org/PageTwo_dir/more.html
Here's a thought: don't post code you haven't tested!
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 17 Jan 2005 20:31:05 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: [perl-python] 20050117, filter, map
Message-Id: <slrncuo849.ev3.abigail@alexandra.abigail.nl>
Steven Bethard (steven.bethard@gmail.com) wrote on MMMMCLVII September
MCMXCIII in <URL:news:iI6dnV_4Dafh0nbcRVn-gg@comcast.com>:
$$ Xah Lee wrote:
$$ > © Note: this post is from the Perl-Python
$$ > © a-day mailing list at
$$ > © http://groups.yahoo.com/group/perl-python/
$$
$$ Is there any chance you could post these all as part of the same thread?
Just killfile him, and stop replying. Remember, don't feed the trolls.
Abigail
--
my $qr = qr/^.+?(;).+?\1|;Just another Perl Hacker;|;.+$/;
$qr =~ s/$qr//g;
print $qr, "\n";
------------------------------
Date: Mon, 17 Jan 2005 20:39:46 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: [perl-python] 20050117, filter, map
Message-Id: <87wtublrhu.fsf@mithril.chromatico.net>
>>>>> "SH" == Steve Holden <steve@holdenweb.com> writes:
SH> As I may have mentioned before, egotism can be the only
SH> possible reason.
Relevant links:
"On Ignoring Trolls":
http://www.xahlee.org/UnixResource_dir/writ/troll_ignorance.html
"A Troll's Anthology":
http://www.xahlee.org/UnixResource_dir/writ/troll_anthology.html
He admits to being a troll, and he enjoys trolling. I suspect this
thread was intended to stir up a flame war among Perl and Python
users; all it's done is demonstrate how hopeless Xah is as a
programmer even in a language he claims to be an expert in.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Mon, 17 Jan 2005 20:41:27 +0000
From: chris-usenet@roaima.co.uk
Subject: Re: creating socket on specific IP address
Message-Id: <ngktb2-bkm.ln1@moldev.cmagroup.co.uk>
Al the Pal <alex_the_hart@yahoo.com> wrote:
> I have a server with several IP addresses, and when I make a socket, I
> want control over which IP address I connect from.
perldoc -f bind
> How can I make this code force the local IP address to what I want?
> Thanks in advance.
perldoc perlipc and look for the server example.
Chris
------------------------------
Date: 17 Jan 2005 14:58:19 -0800
From: "Al the Pal" <alex_the_hart@yahoo.com>
Subject: Re: creating socket on specific IP address
Message-Id: <1106002699.056954.131550@c13g2000cwb.googlegroups.com>
Thanks for the reply, but I wan't clear when I asked the question.
Although this is located on a server, I am asking about a client
connection. The server has several IP addresses, but when I make an
outgoing connection, I want to choose the IP that I make the connection
on. I see nothing in the socket command that let's me choose which IP
the socket connects to locally.
------------------------------
Date: Mon, 17 Jan 2005 21:23:08 +0100
From: Hendrik Maryns <hendrik_maryns@despammed.com>
Subject: how to skip to a certain loop with debugging option perl -d
Message-Id: <JNSdnWc1-90xg3HcRVnyjA@scarlet.biz>
Hi,
i've been reading perldebut and it already helped me solving that
annoying warning that kept occurring, but not on the most efficient way:
I had to skip through 61 executions of a loop before reaching it!
So I was wondering: is there something like the c option that skips
through /N/ iterations of a loop, before stopping at the breakpoint
again (which is inside the loop, obviously). I didn't find anything
like that described in perldebug, so this time I thought I'd dare asking
(I started to read the guidelines indeed:-p)
Cheers, H.
------------------------------
Date: 17 Jan 2005 14:42:36 -0800
From: "Adrian" <aprz43@yahoo.com.au>
Subject: HTTP Get with Proxy authentication
Message-Id: <1106001756.336790.325530@f14g2000cwb.googlegroups.com>
Hi Guys,
I am a total Perl newbie and I need some help with a simple script.
I need a script to download a file via HTTP. The tricky bit is that I
am behind a proxy server which requires authentication and the website
where the file resides also requires authentication.
Can you please post an example of a script that authenticates through a
proxy and then authenticates against a remote website and downloads a
file.
Your help will be greatly appreciated.
Thanks,
Adrian
------------------------------
Date: 17 Jan 2005 14:38:30 -0800
From: ipellew@pipemedia.co.uk
Subject: Kwik Q
Message-Id: <1106001510.323657.14660@z14g2000cwz.googlegroups.com>
Hi all;
Whats the Perl var that holds the directory file seperator, IE "/" or
"\"
Is there one that holds the dot character? Usually "."
as in perl.exe
A
Regards
Ian
------------------------------
Date: Mon, 17 Jan 2005 21:22:33 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: looking for constructive criticism on this script....
Message-Id: <yLmdnULWirIEsXHcRVnyuw@pipex.net>
A. Sinan Unur wrote:
>
> First, you need to declare $cdrom. Second, this is unnecessarily
> convoluted:
>
> my $cdrom = <STDIN>;
> chomp $cdrom;
> $cdrom = '/dev/acd0' unless $cdrom;
>
> is easier to understand.
chomp (my $cdrom = <STDIN>);
$cdrom = '/dev/acd0' unless $cdrom;
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Mon, 17 Jan 2005 23:03:34 +0100
From: "Alain Star" <2005+newstest@foobox.com>
Subject: Perl CGI script to emulate a shell command line window
Message-Id: <41ec3637$0$22465$626a14ce@news.free.fr>
You have a Windows machine with a Perl interpreter (ActivePerl from
ActiveState for example).
You have FTP access to a Linux box with a Perl CGI script engine (typically,
the box where your website is hosted)
But you are very frustrated because you do not have a TELNET or a SSH access
to this box, it would be much more easy to zip or untar your files...
The solution we suggest you is to create two scripts, a CGI wich will run on
the server and a Perl script that will run locally in a command line window.
The local software will send commands to your CGI in an HTTP request, the
CGI will interpret the command and will return the output wich will be
displayed by the windows script.
Script: http://www.cri.ch/perl/docs/cg0001.html
Comments welcome!
Regards,
AS.
------------------------------
Date: Mon, 17 Jan 2005 23:09:55 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Print question
Message-Id: <nnbou0pe2dm876j945rabegh1lcc4qhmre@4ax.com>
On Mon, 17 Jan 2005 10:38:56 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
wrote:
>> So why don't you provide any specific names? People who aren't crackpots
>
>It is both my opinion and my personal experience that the Internet can be an
>extremely dangerous place. When you post notes to Internet Newsgroups,
There are indeed some dangers involved. "Extremely dangerous" IMHO
sounds extremely exaggerated suggesting the risk, say, of personal
injuries of something similar. Which is not the case, if you just post
your real name, that is. Or otherwise _prove_ how it could be!
>bulletin boards, and Web sites there are certain risks involved. Each
>person needs to decide how much risk he or she is willing to tolerate. I am
>constantly working on a variety of humanitarian projects. And I try to make
>certain that the risk levels associated with them remain as low as possible.
While all this is to some extremely moderate degree sensible, at its
best it sounds as a cheap excuse. Even in a crackpots' land like
sci.math serious and renowned mathematicians (some of them of world
fame in some area - Michael Barr comes to mind) occasionally take part
to discussions under their real name. And in all sorts of technical
newsgroups people often post under their real name. I would say that
_on the average_ -I'm not claiming an _universal_ law- kiddies tend to
hide their name (and hide behind remailers et similia) and the best
contributors just post under their real name.
All in all I can't see how failing to reveal your real name and
surname could protect anybody.
>That helps protect people that I work with and correspond with as well.
>Some live in countries where public discussions of earthquake forecasts for
>example can land a person in jail.
Huh?!?
>Such a policy has its rewards. An important member of one international
>disaster mitigation group has repeatedly told me that those people feel
>comfortable with sharing confidential information with me because I am
>fairly protective of the interests of the people that I work with. For
>another example, back in 2003 I believe that I was the first and only
>American scientist ever invited to have a presentation made on his
>earthquake forecasting research at this one annual disaster mitigation
>conference in the People's Republic of China.
Then it should be not too difficult to track you down anyway. No, I'm
not doing because I have not enough time to do even things I'd _like_
to do, let alone this! So why not saying _who_ you are in the first
place?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 17 Jan 2005 23:10:05 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Print question
Message-Id: <tecou05oobenobvsbe3n291rumb7k2q81i@4ax.com>
On Mon, 17 Jan 2005 10:38:57 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
wrote:
>> At least one "young researcher" likes Fortran -- I am in my 30's.
>
>I like Fortran. And I like Basic even more. I specifically chose Perl for
>this application because it is a powerful language which is available for
>free to people around the world and because it is supported by a
I'm not really sure about Basic, but I bet there are _several_
different free implementations. Not that I'd touch any, granted! And
I'm sure about Fortran.
>professional computer programming firm.
Huh?!? What did you make think this? Are you referring to ActiveState?
Please note that [Pp]erl exists independently of them. (But I agree
they do a good job!)
Michele (feeling more and more like supporting the "accusations"
others moved to you wrt your "presence" here - and not only!)
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 17 Jan 2005 23:10:18 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Print question
Message-Id: <cncou010hvrj939ca3gvp9ejagvkkv8ihp@4ax.com>
On Mon, 17 Jan 2005 10:38:57 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
wrote:
>> Still I can't understand why you can't manage to start a research
>> project along these lines within an active research group. As I wrote
[snip]
>The computer language being used is not the problem here. This research
>project presently simply needs bodies to do the work. Computer programmers
>and geophysicists or at least physicists need to get involved. And things
>are moving in that direction I believe. But it is slow going.
This is (only!) one of the things that personally makes me so doubtful
about all your claims. If your approach was really _that_
good/promising/whatever I would expect that at least some group should
grow some interest for it. This doesn't seem to be the case.
>In addition to the information at my Web sites I have been posting notes
>about this project in a variety of Newsgroups and circulating e-mail notes
While Usenet, as the internet in the first place, and the web much
later, was indeed born in the framework of scientific communication,
or at least in some strong correlation with it, and notwithstanding
the fact that actually discussions of some value are carried on in
some groups (mostly moderated!) do you really think that a claim like
this would constitute a sufficient condition to _prove_ you're not a
crackpot, or even to make one doubt so? I'd just the opposite: a guy
like JSH has been harassing sci.math for years now with a purported
proof of FLT (and after Wile's proof with an "easy" proof of FLT)...
does this make him any less one of the most magnificient crackpots
ever?!?
>and formal letters to scientists around the world for years. If there were
>any groups interested in getting involved I would have heard from them long
>ago.
Indeed! Doesn't this ring an alarm bell to you?
All in all, please forgive me for this ad personam argument, but I
can't help feeling that as one who claims to be a scientist you lack
the kind of flexibility and clearness of mind that typically
charachterizes scientists, at least as of how I know them.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 17 Jan 2005 23:10:43 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Print question
Message-Id: <ahdou0h050jmqdc75lt7k4h4ph8l8cierf@4ax.com>
On Mon, 17 Jan 2005 10:39:00 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
wrote:
>> If you have a different understanding of CGI type language then I would be
>> eager to hear it.
>>
>
>It has been my experience that if you want to have an Internet server
>computer run a (CGI) program for you at a Web site you need to prepare your
>code using one of the languages that they will accept. Different servers
>have different lists of languages which they allow to be used. If I
Please note that you're answering a comment that was not directed at
something _you_ wrote.
>understand this correctly, the Perl "Scripting Language" is almost
>universally accepted. And it is to some extent different than the Perl PC
>language which is discussed in this Newsgroup.
No, it isn't.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 17 Jan 2005 12:09:01 -0800
From: ioneabu@yahoo.com
Subject: Re: regex: how to %hash2 = grep {/KEY/} %hash1
Message-Id: <1105992541.721738.324490@f14g2000cwb.googlegroups.com>
what about this:
for(%$opts) {%what_i_want{$_} = $opts->{$_} if /KEY/}
wana
------------------------------
Date: 17 Jan 2005 11:23:10 -0800
From: brian.bygland@boeing.com
Subject: Taint problem with ActiveState
Message-Id: <1105989790.621748.118390@f14g2000cwb.googlegroups.com>
I'm using Perl 5.6.1 on both UNIX (AIX) and Windows 2000. When I
execute the script with the -T taint check on UNIX, it runs fine. The
same script on Windows fails with the error:
C:\Documents and Settings\bxb7668\My Documents\@Junk>perl -T junk3.pl
Insecure dependency in chdir while running with -T switch at
C:/Perl/lib/Cwd.pm line 305.
BEGIN failed--compilation aborted at C:/Perl/lib/FindBin.pm line 166.
Compilation failed in require at junk3.pl line 14.
BEGIN failed--compilation aborted at junk3.pl line 14.
The Cwd.pm module is the same on both platforms. Any idea what is going
on here?
This is my test script, junk3.pl:
#!/usr/bin/perl -w
use strict;
# Untainting stuff:
#
# 1) Untaint PATH
$ENV{PATH} = "";
# 2) Remove the IFS, CDPATH, ENV and BASH_ENV environment variables
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
# Add the VOBTools library location to @INC
use FindBin qw($Bin); # This is line 14
use lib ("${Bin}/perllib","${Bin}/../perllib");
print "$^O \n";
exit 0;
------------------------------
Date: 17 Jan 2005 20:07:49 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Taint problem with ActiveState
Message-Id: <Xns95E199EEAB12Casu1cornelledu@132.236.56.8>
brian.bygland@boeing.com wrote in
news:1105989790.621748.118390@f14g2000cwb.googlegroups.com:
> I'm using Perl 5.6.1 on both UNIX (AIX) and Windows 2000. When I
> execute the script with the -T taint check on UNIX, it runs fine. The
> same script on Windows fails with the error:
>
> C:\Documents and Settings\bxb7668\My Documents\@Junk>perl -T junk3.pl
> Insecure dependency in chdir while running with -T switch at
> C:/Perl/lib/Cwd.pm line 305.
> BEGIN failed--compilation aborted at C:/Perl/lib/FindBin.pm line 166.
> Compilation failed in require at junk3.pl line 14.
> BEGIN failed--compilation aborted at junk3.pl line 14.
>
> The Cwd.pm module is the same on both platforms. Any idea what is
> going on here?
I have:
C:\Home> perl -MCwd -e "print $Cwd::VERSION"
3.01
C:\Home> perl -v
This is perl, v5.8.6 built for MSWin32-x86-multi-thread
C:\Home> ver
Microsoft Windows XP [Version 5.1.2600]
> This is my test script, junk3.pl:
> #!/usr/bin/perl -w
>
> use strict;
>
> # Untainting stuff:
> #
> # 1) Untaint PATH
> $ENV{PATH} = "";
>
> # 2) Remove the IFS, CDPATH, ENV and BASH_ENV environment variables
> delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
>
> # Add the VOBTools library location to @INC
> use FindBin qw($Bin); # This is line 14
> use lib ("${Bin}/perllib","${Bin}/../perllib");
> print "$^O \n";
>
> exit 0;
Running this script produces:
C:\Home> perl -T taint.pl
MSWin32
Sinan.
------------------------------
Date: 17 Jan 2005 12:33:28 -0800
From: "bxb7668" <brian.bygland@boeing.com>
Subject: Re: Taint problem with ActiveState
Message-Id: <1105994007.995004.118100@z14g2000cwz.googlegroups.com>
Great! Whatever the problem is, it's been fixed. Unfortunately I and
my customers are stuck with 5.6.1 for the time being. We cannot upgrade
until the new version is approved.
Brian
------------------------------
Date: 17 Jan 2005 21:23:50 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Taint problem with ActiveState
Message-Id: <Xns95E1A6D1A4110asu1cornelledu@132.236.56.8>
"bxb7668" <brian.bygland@boeing.com> wrote in
news:1105994007.995004.118100@z14g2000cwz.googlegroups.com:
> Great! Whatever the problem is, it's been fixed. Unfortunately I and
> my customers are stuck with 5.6.1 for the time being. We cannot upgrade
> until the new version is approved.
Not really.
There is nothing preventing you from downloading
http://search.cpan.org/~kwilliams/PathTools-3.02/
and installing it in a private directory.
If the fact that it is an XS module is a problem for you, a ppd for 5.6
seems to be available from
http://www.bribes.org/perl/ppmdir.html
Sinan.
------------------------------
Date: 17 Jan 2005 13:59:15 -0800
From: "bxb7668" <brian.bygland@boeing.com>
Subject: Re: Taint problem with ActiveState
Message-Id: <1105999155.487938.156830@f14g2000cwb.googlegroups.com>
(Sorry for not including the context of previous posts. I don't know
how to make Google do that)
I could download and install Perl 5.8.6 if 1) I had administrator
privilege and 2) I wanted to be fired. It is a terminatable offence to
download without permission from the wild web. Besides which my scripts
will be deployed to lots of PCs that would also need the upgrade. I
don't control that.
------------------------------
Date: 17 Jan 2005 14:36:55 -0800
From: ipellew@pipemedia.co.uk
Subject: Whats the way of wildcard HoH extraction?
Message-Id: <1106001415.760539.304850@f14g2000cwb.googlegroups.com>
Hi all;
Whats the methodology of getting the Values() out of a HoH using a
wildcard?
EG
>From my HoH Fragment:-
$VAR1 = {
iterate => { ...etc....
'S000' => { 'value' => '1|2|3' },
'it_1' => { 'value' => '<td>color number <?S?></td>' },
'Smax' => { 'value' => 3 },
'C000' => { 'value' => 'red|blue|green' },
'it_0' => { 'value' => '<tr>color=C<?C?><?iterate _0?></tr>'
},
'C001' => { 'value' => 'black|white|cyan' },
.... etc
}, ......
}
foreach ($VAR1->{iterate}->{it_*}) {
.... Code .....
}
Regards
Ian
------------------------------
Date: Mon, 17 Jan 2005 23:56:41 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Whats the way of wildcard HoH extraction?
Message-Id: <352uebF4gcb9uU1@individual.net>
ipellew@pipemedia.co.uk wrote:
> Whats the methodology of getting the Values() out of a HoH using a
> wildcard?
<snip>
> foreach ($VAR1->{iterate}->{it_*}) {
> .... Code .....
> }
To my knowledge you don't use wildcards in Perl that way; you use a
regular expression.
foreach ( grep /^it_/, keys %{ $VAR1->{iterate} } ) {
print "Key: $_\n",
"Value: $VAR1->{iterate}->{$_}->{value}\n\n";
}
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
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 7663
***************************************
