[28056] in Perl-Users-Digest
Perl-Users Digest, Issue: 9420 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 3 11:05:52 2006
Date: Mon, 3 Jul 2006 08:05:04 -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 Jul 2006 Volume: 10 Number: 9420
Today's topics:
Re: editing text file in perl <noreply@gunnar.cc>
Re: editing text file in perl <tadmc@augustmail.com>
Re: How to eliminate the extra 0's in printing to html <jurgenex@hotmail.com>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode anno4000@zrz.tu-berlin.de
Re: need simple beep and taint mode <bart@nijlen.com>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <ynleder@nspark.org>
Re: need simple beep and taint mode <tadmc@augustmail.com>
Re: Perl variable scope anno4000@zrz.tu-berlin.de
Re: Perl variable scope <howachen@gmail.com>
Re: Perl variable scope <christoph.lamprecht.no.spam@web.de>
Re: Perl variable scope anno4000@zrz.tu-berlin.de
Re: Perl variable scope <howachen@gmail.com>
Re: Perl variable scope anno4000@zrz.tu-berlin.de
Re: Perl variable scope <howachen@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 Jul 2006 13:19:30 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: editing text file in perl
Message-Id: <4gscm9F1ooj5rU1@individual.net>
Ian Wilson wrote:
> I prefer to keep simple jobs simple :-)
> perl -pi -e 'if ($.==20) {s/^.*$/new content for line 20/;}' file.dat
> or
> perl -pi -e '($. == 20) && s/^.*$/new content for line 20/;' file.dat
'short' ne 'simple'
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 3 Jul 2006 08:53:12 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: editing text file in perl
Message-Id: <slrneai8a8.374.tadmc@magna.augustmail.com>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> Ian Wilson wrote:
>> I prefer to keep simple jobs simple :-)
>> perl -pi -e 'if ($.==20) {s/^.*$/new content for line 20/;}' file.dat
>> or
>> perl -pi -e '($. == 20) && s/^.*$/new content for line 20/;' file.dat
>
> 'short' ne 'simple'
And attempting to re-answer a Frequently Asked Question is neither.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 03 Jul 2006 14:16:54 GMT
From: "Jrgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to eliminate the extra 0's in printing to html lines?
Message-Id: <qF9qg.1203$543.1097@trnddc04>
cibalo@gmx.co.uk wrote:
> The following script produces two extra 0's at the end of the lines
> --- see below.
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
> print "# which sendmail<br>";
> $out = system("which sendmail");
> print "$out<br>\n";
> print "<br>";
> print "# which perl<br>";
> $out = system("which perl");
> print "$out<br>\n";
> print "<br>";
>
> And the browser displays as:
> # which sendmail
> /usr/sbin/sendmail 0
>
> # which perl
> /usr/bin/perl 0
That's exactly what should happen in this script.
> Please help me to eliminate the two extra 0's at the end of the lines.
> I have no idea where these 0's are coming from.
You are printing them ;-)
If you don't want to see the return value of your system() calls, then don't
print it, i.e. change
print "$out<br>\n";
to
print "<br>\n";
jue
------------------------------
Date: Mon, 3 Jul 2006 12:57:59 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f1316a23b331b1c98986f@news.tiscali.fr>
In article <m2d5cny8ah.fsf@Sherm-Pendleys-Computer.local>, sherm@Sherm-
Pendleys-Computer.local says...
> Yohan N. Leder <ynleder@nspark.org> writes:
>
> > Very quick question this time. How to do a 'print "\a";' still produces
> > a beep when script is in taint mode. It works fine without -T, but
> > nothing in speaker when I'm back to taint mode. If it has some
> > importance, this test has been done using ActivePerl 5.8.8.817 under Win
> > 2K. What's the trick ?
>
> How are you running your tests? Perl doesn't actually beep; 'print "\a";'
> simply sends an ASCII control character to stdout. It's up to whatever's
> collecting your script's output to decide how to respond to that character.
>
> Quite a few terminals, for instance, have an option to invert the display
> colors briefly instead of (or in addition to) beeping, for the hearing-
> impaired.
>
> So, are you running both tests in the same shell? Or does the silent one
> happen to be running under something that's not likely to beep in response
> to a "\a", such as a web server?
>
> sherm--
>
>
My test has been done in a DOS box under Win2K, running "perl beep.pl"
with beep.pl being :
#!/usr/bin/perl -w
use strict;
$|=1;
print "\a";
exit 0;
However, since I ran this script through a Win32::Process::Create call,
I didn't seen that when "#!/usr/bin/perl -wT", it gives an error message
('-T is on the #! line, it must also be used on the command line at
beep.pl line 1') which does 'print "\a";' is never reached. So, running
"perl -T beep.pl" resolve the thing and beep is heard.
Nevertheless, because you talk about CGI orientation, it interest me too
to know how to produce a simple beep in internal speaker when script is
reached through web server and current STDOUT is a web browser. Do you
have an idea without using any external module ? Or, what's the module
that gives the best combination reliability-simplicity under both Unix
and Win ?
------------------------------
Date: Mon, 3 Jul 2006 13:03:01 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f1317cd2e68d4af989870@news.tiscali.fr>
In article <1151918953.610951.295490@b68g2000cwa.googlegroups.com>,
bart@nijlen.com says...
> Maybe \a might be considered short for 'alarm' or 'alert'...
>
I confirm that "print '\a';" produce a beep in DOS-box under Win2K as
replied to Sherm P. just above in this thread.
However, problem in taint mode was due to an error message which did the
print line was never reached : solved now !
------------------------------
Date: Mon, 3 Jul 2006 13:07:11 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f1318caa3e934d9989872@news.tiscali.fr>
In article <4gs38iF1nvg4gU1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
says...
> If you don't know the answer, how do you know it's a "quick question"?
>
Because I said 'quick question' and not 'quick answer'.
------------------------------
Date: Mon, 3 Jul 2006 13:06:01 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f131887eba007c4989871@news.tiscali.fr>
In article <4gs7rjF1of474U1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
says...
> Perl calls it "alarm (bell)" (see perlop). It's a backslash escape
> like "\n" and many more.
>
Effectively, I've tried too to run 'print "\a";' in the Komodo's
interactive Perl shell and it produces 'BEL' on screen rather than
something in speaker, confirming what you says.
------------------------------
Date: Mon, 3 Jul 2006 13:16:03 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f131adfb27af463989873@news.tiscali.fr>
In article <1151916479.250856.169390@m73g2000cwd.googlegroups.com>,
bart@nijlen.com says...
> Yes - I get a beep too under WinXP ActivePerl 5.8.4. This same beep can
> be achieved by e.g. typing "echo", space, control-G and then Enter.
> This should work in most/all terminals, as CTRL-G corresponds to
> dec/hex 07 (BEL, bell, 0000111 in 7-bit ASCII) as the de-facto bell
> signal.
>
Effectively, I remember now that this CTRL-G is often used in DOS batch
listings.
> My conclusion:
> You can't know at Perl level whether or not the terminal will beep at
> any character. It's just up to the shell. I would say this hasn't any
> real importance too. Unless you want to program a singing shell or so
>
Oh no, the things was to indicate to an operator that a process is well
running, producing this beep a every turn in a big loop. Knowing, of
course, and here is the real reason that this 'human operator' is not in
front of the screen all the time and has to be alerted by something
resonant; whatever be the nature of the sound (a simpe beep is enough).
Also, and as I said to Sherm P. in this thread too, I'm interesting to
produce a sound (any sound) when the terminal is a web browser (in CGI
environment) : do you have an idea for this second and different case to
solve ?
------------------------------
Date: 3 Jul 2006 11:34:11 GMT
From: anno4000@zrz.tu-berlin.de
Subject: Re: need simple beep and taint mode
Message-Id: <4gsdljF1p4f18U2@news.dfncis.de>
Yohan N. Leder <ynleder@nspark.org> wrote in comp.lang.perl.misc:
> In article <4gs38iF1nvg4gU1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
> says...
> > If you don't know the answer, how do you know it's a "quick question"?
> >
>
> Because I said 'quick question' and not 'quick answer'.
Are you saying you wrote it to point out the obvious fact that the
question was short? I don't believe you.
Anno
------------------------------
Date: 3 Jul 2006 05:50:32 -0700
From: "Bart Van der Donck" <bart@nijlen.com>
Subject: Re: need simple beep and taint mode
Message-Id: <1151931032.884386.61460@m73g2000cwd.googlegroups.com>
Yohan N. Leder wrote:
> [..]
> Oh no, the things was to indicate to an operator that a process is well
> running, producing this beep a every turn in a big loop. Knowing, of
> course, and here is the real reason that this 'human operator' is not in
> front of the screen all the time and has to be alerted by something
> resonant; whatever be the nature of the sound (a simpe beep is enough).
#!/perl
use strict;
use warnings;
$|++; # make sure to unbuffer output
print "Running 1 to 10...\n";
for (1..10) {
sleep 2;
print "\a$_ ";
}
print "\nend.";
> Also, and as I said to Sherm P. in this thread too, I'm interesting to
> produce a sound (any sound) when the terminal is a web browser (in CGI
> environment) : do you have an idea for this second and different case to
> solve ?
In that case you should instruct the browser to play an external sound
file, f.i. something like this (for Microsoft Internet Explorer only):
#!/usr/bin/perl
print "Content-Type: text/html; charset=iso-8859-1\n\n";
$|++; # make sure to unbuffer output
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
print '<html><body>
<iframe id="s" name="s"
src="http://www.dotinternet.be/temp/play.htm"
style="display:none; visibility:hidden;">
</iframe> Running 1 to 10...<br>';
for (1..10) {
sleep 2;
print '
<script type="text/javascript">
window.frames.s.location.href =
"http://www.dotinternet.be/temp/play.htm";
</script>
'.$_
}
print '<br>end.</body></html>';
It uses the following files:
http://www.dotinternet.be/temp/play.htm
http://www.dotinternet.be/temp/file.mp3
(P.S. Make sure to disable possible max runtime flags at Apache/CGI/OS
level, if any)
Hope this helps,
--
Bart
------------------------------
Date: Mon, 3 Jul 2006 15:38:09 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f133c2ace97c817989874@news.tiscali.fr>
In article <4gsdljF1p4f18U2@news.dfncis.de>, anno4000@zrz.tu-berlin.de
says...
> Yohan N. Leder <ynleder@nspark.org> wrote in comp.lang.perl.misc:
> > In article <4gs38iF1nvg4gU1@news.dfncis.de>, anno4000@zrz.tu-berlin.de
> > says...
> > > If you don't know the answer, how do you know it's a "quick question"?
> > >
> >
> > Because I said 'quick question' and not 'quick answer'.
>
> Are you saying you wrote it to point out the obvious fact that the
> question was short? I don't believe you.
>
> Anno
>
Don't interprete, Anno. Here is my exact original sentence : "Very quick
question this time." All attempt to change any word is an
interpretation. Not a matter of believing, but reading only.
------------------------------
Date: Mon, 3 Jul 2006 15:41:10 +0200
From: Yohan N. Leder <ynleder@nspark.org>
Subject: Re: need simple beep and taint mode
Message-Id: <MPG.1f133ce1b2a1db7f989875@news.tiscali.fr>
In article <1151931032.884386.61460@m73g2000cwd.googlegroups.com>,
bart@nijlen.com says...
> Hope this helps,
>
A lot, thanks Bart !
------------------------------
Date: Mon, 3 Jul 2006 08:50:26 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: need simple beep and taint mode
Message-Id: <slrneai852.374.tadmc@magna.augustmail.com>
Yohan N Leder <ynleder@nspark.org> wrote:
> However, problem in taint mode was due to an error message which did the
> print line was never reached : solved now !
So your "quick question" was not so quick.
Why?
Because you were getting error messages that you did not mention.
Once again you display a lack of respect for your peers.
This is becoming tiresome in the extreme.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 3 Jul 2006 10:06:06 GMT
From: anno4000@zrz.tu-berlin.de
Subject: Re: Perl variable scope
Message-Id: <4gs8geF1of474U2@news.dfncis.de>
howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
>
> howa 寫道：
>
> > anno4000@zrz.tu-berlin.de 寫道：
> >
> > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
[...]
> one more thing...
>
> if a variable type is an object, will be pass by reference by default?
>
> e.g.
"Pass by reference" is a term that has to do with the passing of
parameters into a subroutine. Perl always passes parameters by
reference. This has nothing to do with whether the parameter itself
is a reference or a plain scalar.
> return $a; # where $a is an object, will this pass by ref by default?
Returning values is something else again.
> (php and java will do this automatically)
Perl doesn't treat objects any differently from other values.
Anno
------------------------------
Date: 3 Jul 2006 03:53:06 -0700
From: "howa" <howachen@gmail.com>
Subject: Re: Perl variable scope
Message-Id: <1151923986.025296.118540@m73g2000cwd.googlegroups.com>
anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> >
> > howa =E5=AF=AB=E9=81=93=EF=BC=9A
> >
> > > anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> > >
> > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
>
> [...]
>
> > one more thing...
> >
> > if a variable type is an object, will be pass by reference by default?
> >
> > e.g.
>
> "Pass by reference" is a term that has to do with the passing of
> parameters into a subroutine.
> Perl always passes parameters by reference.
are you sure about this point?
i=2Ee.
sub test {
my $i =3D shift;
print \$i;
}
my $j =3D 999;
print \$j;
test($j);
------------------------------
Date: Mon, 03 Jul 2006 13:02:22 +0200
From: Ch Lamprecht <christoph.lamprecht.no.spam@web.de>
Subject: Re: Perl variable scope
Message-Id: <e8atfr$764$1@online.de>
howa wrote:
> anno4000@zrz.tu-berlin.de 寫道：
>
>
>>howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
>>
>>>howa 寫道：
>>>
>>>
>>>>anno4000@zrz.tu-berlin.de 寫道：
>>>>
>>>>
>>>>>howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
>>
>>[...]
>>
>>
>>>one more thing...
>>>
>>>if a variable type is an object, will be pass by reference by default?
>>>
>>>e.g.
>>
>>"Pass by reference" is a term that has to do with the passing of
>>parameters into a subroutine.
>>Perl always passes parameters by reference.
>
>
> are you sure about this point?
>
> i.e.
>
> sub test {
> my $i = shift;
> print \$i;
> }
>
sub test{
print \$_[0];
}
>
> my $j = 999;
> print \$j;
>
> test($j);
>
Christoph
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
------------------------------
Date: 3 Jul 2006 11:05:26 GMT
From: anno4000@zrz.tu-berlin.de
Subject: Re: Perl variable scope
Message-Id: <4gsbvmF1oku9vU1@news.dfncis.de>
howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
>
> anno4000@zrz.tu-berlin.de 寫道：
>
> > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > >
> > > howa 寫道：
> > >
> > > > anno4000@zrz.tu-berlin.de 寫道：
> > > >
> > > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> >
> > [...]
> >
> > > one more thing...
> > >
> > > if a variable type is an object, will be pass by reference by default?
> > >
> > > e.g.
> >
> > "Pass by reference" is a term that has to do with the passing of
> > parameters into a subroutine.
> > Perl always passes parameters by reference.
>
> are you sure about this point?
Yes, I am.
> i.e.
>
> sub test {
> my $i = shift;
> print \$i;
> }
>
>
> my $j = 999;
> print \$j;
>
> test($j);
The references are different. That's because the lexical variable $i
in the sub is different from $j outside. You need to access the first
argument directly to see what it is. Change test() like this:
sub test {
print \ $_[ 0];
my $i = shift;
print \$i;
}
and run it again. The first reference printed by test() is identical
to the one you feed it.
Anno
------------------------------
Date: 3 Jul 2006 04:15:54 -0700
From: "howa" <howachen@gmail.com>
Subject: Re: Perl variable scope
Message-Id: <1151925353.937222.238560@a14g2000cwb.googlegroups.com>
anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> >
> > anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> >
> > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > > >
> > > > howa =E5=AF=AB=E9=81=93=EF=BC=9A
> > > >
> > > > > anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> > > > >
> > > > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > >
> > > [...]
> > >
> > > > one more thing...
> > > >
> > > > if a variable type is an object, will be pass by reference by defau=
lt?
> > > >
> > > > e.g.
> > >
> > > "Pass by reference" is a term that has to do with the passing of
> > > parameters into a subroutine.
> > > Perl always passes parameters by reference.
> >
> > are you sure about this point?
>
> Yes, I am.
>
> > i.e.
> >
> > sub test {
> > my $i =3D shift;
> > print \$i;
> > }
> >
> >
> > my $j =3D 999;
> > print \$j;
> >
> > test($j);
>
> The references are different. That's because the lexical variable $i
> in the sub is different from $j outside. You need to access the first
> argument directly to see what it is. Change test() like this:
>
> sub test {
> print \ $_[ 0];
> my $i =3D shift;
> print \$i;
> }
>
> and run it again. The first reference printed by test() is identical
> to the one you feed it.
>
> Anno
thanks!!
last thing, is it possible to return by reference value?
e=2Eg.
sub test {
my $i =3D "123";
return \$i;
}
my $j =3D test();
print $j ;# i don't want the reference, i want "123", and i don't want
to use ${$j}
thanks so much...
------------------------------
Date: 3 Jul 2006 11:28:05 GMT
From: anno4000@zrz.tu-berlin.de
Subject: Re: Perl variable scope
Message-Id: <4gsda5F1p4f18U1@news.dfncis.de>
howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> anno4000@zrz.tu-berlin.de 寫道：
> > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > > anno4000@zrz.tu-berlin.de 寫道：
> > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > > > > howa 寫道：
> > > > > > anno4000@zrz.tu-berlin.de 寫道：
> > > > > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
>
> last thing, is it possible to return by reference value?
>
> e.g.
>
> sub test {
> my $i = "123";
>
> return \$i;
> }
>
> my $j = test();
>
> print $j ;# i don't want the reference, i want "123", and i don't want
> to use ${$j}
You'll have to use it (or $$j). Perl doesn't de-reference things for
you automatically (the one exception is globrefs used as filehandles).
You should also keep apart the concepts of a Perl "reference" and the
concept of "passing by reference". While both use the term "reference",
they describe different things. What is normally called "passing by
reference" is called "aliasing" in Perl terminology and doesn't involve
referencing and de-referencing in the Perl sense.
Anno
------------------------------
Date: 3 Jul 2006 04:42:23 -0700
From: "howa" <howachen@gmail.com>
Subject: Re: Perl variable scope
Message-Id: <1151926943.617584.8720@m79g2000cwm.googlegroups.com>
anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > > > anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> > > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> > > > > > howa =E5=AF=AB=E9=81=93=EF=BC=9A
> > > > > > > anno4000@zrz.tu-berlin.de =E5=AF=AB=E9=81=93=EF=BC=9A
> > > > > > > > howa <howachen@gmail.com> wrote in comp.lang.perl.misc:
> >
> > last thing, is it possible to return by reference value?
> >
> > e.g.
> >
> > sub test {
> > my $i =3D "123";
> >
> > return \$i;
> > }
> >
> > my $j =3D test();
> >
> > print $j ;# i don't want the reference, i want "123", and i don't want
> > to use ${$j}
>
> You'll have to use it (or $$j). Perl doesn't de-reference things for
> you automatically (the one exception is globrefs used as filehandles).
>
> You should also keep apart the concepts of a Perl "reference" and the
> concept of "passing by reference". While both use the term "reference",
> they describe different things. What is normally called "passing by
> reference" is called "aliasing" in Perl terminology and doesn't involve
> referencing and de-referencing in the Perl sense.
>=20
> Anno
Thanks...
------------------------------
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 9420
***************************************
