[25367] in Perl-Users-Digest
Perl-Users Digest, Issue: 7612 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 6 06:10:32 2005
Date: Thu, 6 Jan 2005 03:10:24 -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 Thu, 6 Jan 2005 Volume: 10 Number: 7612
Today's topics:
PHP in Perl <dfischer348@comcast.net>
Re: PHP in Perl bma3@dana.ucc.nau.edu
Re: PHP in Perl <spamtrap@dot-app.org>
Printing arrow keys through perl madhav_a_kelkar@hotmail.com
Re: Read a password from keyboard... <MrReallyVeryNice.REMOVE.NO.SPAM@Yahoo.REMOVE.NO.SPAM.com>
requires explicit package name <sam.wun@authtec.com>
Re: requires explicit package name <spamtrap@dot-app.org>
Re: requires explicit package name <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: requires explicit package name <sam.wun@authtec.com>
Re: specifying use strict <1usa@llenroc.ude.invalid>
trouble with passing reference of hash. <sam.wun@authtec.com>
Re: trouble with passing reference of hash. <spamtrap@dot-app.org>
Re: trouble with passing reference of hash. <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: trouble with passing reference of hash. <sam.wun@authtec.com>
Re: trouble with passing reference of hash. <josef.moellers@fujitsu-siemens.com>
Re: trouble with passing reference of hash. <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: trouble with passing reference of hash. (Anno Siegel)
Re: Why does this work? <bart.lateur@pandora.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 05 Jan 2005 18:47:03 -0500
From: Dave F <dfischer348@comcast.net>
Subject: PHP in Perl
Message-Id: <ZNWdnbXxDNQXKEHcRVn-ig@comcast.com>
Is it possible to embed some PHP script in an HTML stream being
returned from a Perl script? I know it sounds wacky, but I'd like
to use chart library that uses PHP's support for the GD library.
PHP works on the system (I know .php files in the html
folder are served fine, so PHP is running.)
I've tried:
1. The standard <?php ... script area ... ?> within the HTML
being built by Perl -- HTML comes OK, nothing for the PHP
2. Script within a <SCRIPT TYPE='php'> ... script area ... </SCRIPT>
Same as 1.
3. Using print "content-type: application/x-php\n\n";
Instead of print "content-type: text/html\n\n";
This pops a window saying Mozilla needs to know what to use
to handle this file type.
Is there any way to tell the web server to run the content returned
by Perl though the PHP processor? I am trying to do this on both a
Windows/Sambar system and an Apache/Mandrake 9.2 system.
Any information is appreciated.
- Dave Fischer
------------------------------
Date: 5 Jan 2005 21:49:31 -0800
From: bma3@dana.ucc.nau.edu
Subject: Re: PHP in Perl
Message-Id: <1104990571.298555.193390@f14g2000cwb.googlegroups.com>
The reason "script" doesn't work doesn't work is because the script tag
is for client side scripts. PHP, like Perl, is server-side scripting.
So you need a way for the server to run it.
There are two ways I can think of to do this. You can configure Apache
to first run the script through perl and then through php, and then the
second approach you tried would work. This seems like a real pain in
the butt though.
Or, you can Perl execute php. The approach I would use is to have a
separate source file for php, with the extension ".php" so you won't
have the security issue of someone being able to view the source.
Then I'd say in the perl script,
"system foo.php" and die "cannot run script".
Of course, you were probably thinking you'd like to generate the php
source in perl. If you're using a database or a read only text file or
something to get the data from, I'd suggest just learning how to get
PHP to access it. However, you may be in a situation where this just
won't work, and will need to use temporary files or pipes.
I don't want to write out how to do it unless you need to know how, but
if you do, just reply and I'll figure out some instructions.
------------------------------
Date: Thu, 06 Jan 2005 03:09:42 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: PHP in Perl
Message-Id: <MeednRyGFKLbb0HcRVn-ug@adelphia.com>
Dave F wrote:
> Is it possible to embed some PHP script in an HTML stream being
> returned from a Perl script? I know it sounds wacky, but I'd like
> to use chart library that uses PHP's support for the GD library.
Well, let's look at the simplest case first. You'd produce an image with
PHP by putting the following in your HTML:
<img src="/images/chart.php">
The browser fetches the HTML page first. When it gets the HTML back and
finds the above img element in it, it then fetches the image data from
the PHP script indicated by the src attribute. It doesn't matter whether
the HTML is produced by the same scripting language as the image data,
because it's two entirely separate requests anyway.
Now suppose you need to pass query parameters to the image-producing
script. Just append the appropriate query string - the URI module makes
that easy:
#!/usr/bin/perl
use warnings;
use strict;
use URI;
my $img_src = new URI('/images/chart.php');
$img_src->query_form( 'foo'=>'hello', 'bar'=>'world');
print "<img src='$img_src'>";
If you want to pass along all of the query parameters your Perl CGI
received, use the query_form() method along with CGI.pm's Vars() method,
like so:
#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use URI;
my $q = new CGI;
my $img_src = new URI('/images/chart.php');
$img_src->query_form( $q->Vars() );
print "<img src='$img_src'>";
Note that from the point of view of the Perl script producing the HTML
data, it doesn't matter in the least what will be handling the request
for the image. It could be another Perl script, a PHP script, Macromedia
Generator - whatever.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 6 Jan 2005 00:48:16 -0800
From: madhav_a_kelkar@hotmail.com
Subject: Printing arrow keys through perl
Message-Id: <338e571.0501060048.7b4dab67@posting.google.com>
Hi all,
I am using Perl/Expect and I want to send arrow keys to a
process running in background. But I was unable to simulate the arrow
keys through perl by using their ascii code and the perl chr()
function. How I can do it through perl?
Any help would just be great.
Thanks in advance.
Regards,
Madhav.
------------------------------
Date: Wed, 05 Jan 2005 21:09:28 -0800
From: MrReallyVeryNice <MrReallyVeryNice.REMOVE.NO.SPAM@Yahoo.REMOVE.NO.SPAM.com>
Subject: Re: Read a password from keyboard...
Message-Id: <87-dnQHaFdqUVUHcRVn-qQ@comcast.com>
Dominic Dupuis wrote:
> Bonjour,
>
> Does anybody have a way to read a password, from a user, and only
> display "****" for each character read?!?
>
> Thanks for any idea! :-)
>
> PS: I want to do that (via a Perl script) on Linux and Windows.
Bonjour,
Maybe the following sample will give you some ideas. You still have to
test it on Linux and Windows because I did not do that for you. :-)
Listen to gurus who might to review/critique this quick hack. The
script is by no mean fully tested and foolproof.
Let us know if works for you!
MrReallyVeryNice
use strict;
use warnings;
use Term::ReadKey;
my $number_attempt=0;
my $password1 = hide_password($number_attempt);
my $max_number_attempt=3;
my $password2 = hide_password($number_attempt);
while ($number_attempt<$max_number_attempt+1)
{
if ($password1 ne $password2)
{
$password2 = hide_password($number_attempt);
}
else
{
last;
}
}
if ($password1 ne $password2)
{
print "\nYou failed to confirm your password\n";
}
else
{
# you most likely want to remove the print statement below and
# do whatever processing you need to do with the confirmed password
print "\nYour password was confirmed\n";
}
sub hide_password {
$|=1;
my $password = '';
my $key;
if ($_[0] == 0)
{
print "Enter password:\n";
}
else
{
print "\nConfirm password:\n";
}
while(1)
{
while(not defined($key = ReadKey(-1))) {};
if(ord($key) != 13)
{
if(ord($key) == 8)
{
print "\b\0\b";
chop($password);
}
else
{
$password .= $key;
print "*";
}
}
else {last;}
}
$|=0;
$number_attempt++;
return $password;
}
__END__
------------------------------
Date: Thu, 06 Jan 2005 17:10:00 +0800
From: sam <sam.wun@authtec.com>
Subject: requires explicit package name
Message-Id: <crj0rc$15p0$1@news.hgc.com.hk>
Hi,
I don;t know what is wrong with the following simple perl code:
#!/usr/bin/perl
use strict;
use warnings;
local %hash1 = ('sales_subtotal'=>100);
local %hash2 = ('sales_subtotal'=>150);
When I execute the above code, I got the following error:
Global symbol "%hash1" requires explicit package name at hashs.pl line 6.
Global symbol "%hash2" requires explicit package name at hashs.pl line 7.
Thanks
Sam
------------------------------
Date: Thu, 06 Jan 2005 04:30:35 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: requires explicit package name
Message-Id: <QoidnbTkp8OhmEDcRVn-gQ@adelphia.com>
sam wrote:
> local %hash1 = ('sales_subtotal'=>100);
> local %hash2 = ('sales_subtotal'=>150);
Have a look at "perldoc -f local", especially the first paragraph.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Thu, 6 Jan 2005 10:38:49 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: requires explicit package name
Message-Id: <Xns95D66C4E53D5Aelhber1lidotechnet@62.89.127.66>
sam <sam.wun@authtec.com> wrote:
> Hi,
>
> I don;t know what is wrong with the following simple perl code:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> local %hash1 = ('sales_subtotal'=>100);
> local %hash2 = ('sales_subtotal'=>150);
Why do you think you need local() there?
> When I execute the above code, I got the following error:
> Global symbol "%hash1" requires explicit package name at hashs.pl
> line 6. Global symbol "%hash2" requires explicit package name at
> hashs.pl line 7.
Does this help (from perldoc perlsub)
==============
A `local' just gives temporary values to global (meaning package)
variables. It does *not* create a local variable. This is known as
dynamic scoping.
==============
?
--
Cheers,
Bernard
------------------------------
Date: Thu, 06 Jan 2005 17:42:31 +0800
From: sam <sam.wun@authtec.com>
Subject: Re: requires explicit package name
Message-Id: <crj2ob$16jj$1@news.hgc.com.hk>
Bernard El-Hagin wrote:
> sam <sam.wun@authtec.com> wrote:
>
>
>>Hi,
>>
>>I don;t know what is wrong with the following simple perl code:
>>
>>#!/usr/bin/perl
>>
>>use strict;
>>use warnings;
>>
>>local %hash1 = ('sales_subtotal'=>100);
>>local %hash2 = ('sales_subtotal'=>150);
>
>
>
> Why do you think you need local() there?
>
>
>
>>When I execute the above code, I got the following error:
>>Global symbol "%hash1" requires explicit package name at hashs.pl
>>line 6. Global symbol "%hash2" requires explicit package name at
>>hashs.pl line 7.
>
>
>
> Does this help (from perldoc perlsub)
>
>
> ==============
> A `local' just gives temporary values to global (meaning package)
> variables. It does *not* create a local variable. This is known as
> dynamic scoping.
> ==============
>
Yup. thanks
>
> ?
>
>
------------------------------
Date: 6 Jan 2005 02:40:26 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: specifying use strict
Message-Id: <Xns95D5DC7D06512asu1cornelledu@132.236.56.8>
"g3000" <carlton_gregory@yahoo.com> wrote in
news:1104976243.472021.264760@c13g2000cwb.googlegroups.com:
> I usually use active states ppm3 but I couldnt find a .ppd file that
> was for the latest version of File::Slurp.
> Ill look again. The one active state has is from Nov 2001.
Then you are doing something wrong:
ppm> s slurp
Searching in Active Repositories
1. File-Slurp [9999.06] Efficient Reading/Writing of Complete Files
2. File-Slurp [2004.0904] Read and write files with a single command
3. File-Slurp [9999.01] Efficient Reading/Writing of Complete Files
4. File-Slurp [9999.02] Efficient Reading/Writing of Complete Files
5. File-Slurp [9999.04] Efficient Reading/Writing of Complete Files
6. File-Slurp [9999.06] Efficient Reading/Writing of Complete Files
ppm> rep
Repositories:
[1] ActiveState PPM2 Repository
[2] ActiveState Package Repository
[3] Autonamed 1
Sinan
--
A. Sinan Unur
1usa@llenroc.ude.invalid
(remove '.invalid' and reverse each component for email address)
------------------------------
Date: Thu, 06 Jan 2005 17:32:24 +0800
From: sam <sam.wun@authtec.com>
Subject: trouble with passing reference of hash.
Message-Id: <crj25c$16b9$1@news.hgc.com.hk>
Hi,
I m trying to pass the reference of a hash variable to subroutine's
subroutine, but I found no record being passed to the function. Here is
the actual code:
#!/usr/bin/perl
sub print_hashes
{
local ($hash) = @_;
pass_one_more_level(\%hash);
#foreach my $name ( keys(%hash) ) {
# print "$name: ", join( "--", %{$hash{$name}} ), "\n";
#}
}
sub pass_one_more_level
{
local ($hash) = @_;
foreach my $name ( keys(%hash) ) {
print "$name: ", join( "--", %{$hash{$name}} ), "\n";
}
}
sub main {
local %hash1 = ('sales_subtotal'=>100);
local %hash2 = ('sales_subtotal'=>150);
local %hash3 = ('sales_subtotal'=>500);
local %myhash_A = (heading1 => {sales_subtotal => 10},
heading2 => {sales_subtotal => 15},
heading3 => {sales_subtotal => 50});
local %myhash_B = (heading1 => %hash1,
heading2 => %hash2,
heading3 => %hash3);
print_hashes(\%myhash_A);
print_hashes(\%myhash_B);
}
main();
What is the correct way for fixing this error?
Thanks
Sam
------------------------------
Date: Thu, 06 Jan 2005 04:44:03 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: trouble with passing reference of hash.
Message-Id: <lemdncnvbaD5lUDcRVn-hQ@adelphia.com>
sam wrote:
> What is the correct way for fixing this error?
You can't just make sh*t up and hope it works. Read the docs for the
correct way to pass arguments to subroutines:
perldoc perlsub
And stop using local - it's not doing what you think it does.
Have you read the posting guidelines that appear here frequently?
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Thu, 6 Jan 2005 10:46:29 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: trouble with passing reference of hash.
Message-Id: <Xns95D66D9B6E6FCelhber1lidotechnet@62.89.127.66>
sam <sam.wun@authtec.com> wrote:
> Hi,
>
> I m trying to pass the reference of a hash variable to
> subroutine's subroutine, but I found no record being passed to the
> function. Here is the actual code:
>
> #!/usr/bin/perl
use warnings;
use strict;
Don't expect help from us if you don't even ask it of your machine
first.
> sub print_hashes
> {
> local ($hash) = @_;
>
> pass_one_more_level(\%hash);
> #foreach my $name ( keys(%hash) ) {
> # print "$name: ", join( "--", %{$hash{$name}} ), "\n";
> #}
> }
[snipped rest of local()-infested code]
Please *please* read about local(). You don't seem to understand what
it's for.
--
Cheers,
Bernard
------------------------------
Date: Thu, 06 Jan 2005 18:02:41 +0800
From: sam <sam.wun@authtec.com>
Subject: Re: trouble with passing reference of hash.
Message-Id: <crj3u5$178p$1@news.hgc.com.hk>
Bernard El-Hagin wrote:
> Please *please* read about local(). You don't seem to understand what
> it's for.
>
>
Thanks. I have changed all local to my(), and get rid of the strict and
warings. Now the code look like as follow:
#!/usr/bin/perl
sub print_hashes
{
my ($hash) = @_;
#pass_one_more_level(\%hash);
foreach my $name ( keys(%hash) ) {
print "$name: ", join( "--", %{$hash{$name}} ), "\n";
}
}
sub pass_one_more_level
{
my ($hash) = @_;
foreach my $name ( keys(%hash) ) {
print "$name: ", join( "--", %{$hash{$name}} ), "\n";
}
}
sub main {
my %hash1 = ('sales_subtotal'=>100);
my %hash2 = ('sales_subtotal'=>150);
my %hash3 = ('sales_subtotal'=>500);
my %myhash_A = (heading1 => {sales_subtotal => 10},
heading2 => {sales_subtotal => 15},
heading3 => {sales_subtotal => 50});
my %myhash_B = (heading1 => \%hash1,
heading2 => \%hash2,
heading3 => \%hash3);
print_hashes(\%myhash_A);
print_hashes(\%myhash_B);
}
main();
Thanks
Sam
------------------------------
Date: Thu, 06 Jan 2005 11:25:57 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: trouble with passing reference of hash.
Message-Id: <crj3hp$gkj$1@nntp.fujitsu-siemens.com>
sam wrote:
> Bernard El-Hagin wrote:
>=20
>=20
>> Please *please* read about local(). You don't seem to understand what =
>> it's for.
>>
>>
> Thanks. I have changed all local to my(), and get rid of the strict and=
=20
> warings.
Don't get rid of "use strict" and "use warnings", they are there to help =
you:
Global symbol "%hash" requires explicit package name at XxX.pl line 10.
Global symbol "%hash" requires explicit package name at XxX.pl line 11.
Global symbol "%hash" requires explicit package name at XxX.pl line 19.
Global symbol "%hash" requires explicit package name at XxX.pl line 20.
Execution of XxX.pl aborted due to compilation errors.
>=20
> #!/usr/bin/perl
>=20
> sub print_hashes
> {
> my ($hash) =3D @_;
>=20
> #pass_one_more_level(\%hash);
> foreach my $name ( keys(%hash) ) {
What makes you think that when you have a reference it will magically=20
turn into a hash? If you have a reference, you must dereference it first!=
> print "$name: ", join( "--", %{$hash{$name}} ), "\n";
and here
> }
> }
>=20
> sub pass_one_more_level
> {
> my ($hash) =3D @_;
>=20
> foreach my $name ( keys(%hash) ) {
and here
> print "$name: ", join( "--", %{$hash{$name}} ), "\n";
and here
> }
> }
Try to read up on references and see how they work.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Thu, 6 Jan 2005 11:23:51 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: trouble with passing reference of hash.
Message-Id: <Xns95D673F12B02Delhber1lidotechnet@62.89.127.66>
sam <sam.wun@authtec.com> wrote:
> Bernard El-Hagin wrote:
>
>
>> Please *please* read about local(). You don't seem to understand
>> what it's for.
>>
> Thanks. I have changed all local to my(), and get rid of the
> strict and warings. Now the code look like as follow:
How could you have gotten rid of warnings and strictures if you never
had them there in the first place? You were supposed to *put them in*
not take them out.
sub print_hashes {
my ($hash) = @_;
^^^^^^^^^^^^^^^^
#pass_one_more_level(\%hash);
^^^^^^
foreach my $name ( keys(%hash) ) {
^^^^^
print "$name: ", join( "--", %{$hash{$name}} ), "\n";
^^^^^^^^^^^^^^^
}
}
[snipped rest of code]
Read perldoc perlsub and perldoc perlreftut and then apply your
newfound knowledge to the parts of your code I underlined (and similar
parts of the snipped code).
--
Cheers,
Bernard
------------------------------
Date: 6 Jan 2005 10:30:48 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: trouble with passing reference of hash.
Message-Id: <crj40o$dko$1@mamenchi.zrz.TU-Berlin.DE>
sam <sam.wun@authtec.com> wrote in comp.lang.perl.misc:
> Hi,
>
> I m trying to pass the reference of a hash variable to subroutine's
> subroutine, but I found no record being passed to the function. Here is
> the actual code:
>
> #!/usr/bin/perl
No warning, no strict.
> sub print_hashes
> {
> local ($hash) = @_;
Don't use local() and package variables unless there's a reason.
> pass_one_more_level(\%hash);
You are using %hash here, but you never assigned anything to it, only
to $hash. The two variables have nothing to do with another.
> #foreach my $name ( keys(%hash) ) {
> # print "$name: ", join( "--", %{$hash{$name}} ), "\n";
> #}
> }
>
> sub pass_one_more_level
> {
> local ($hash) = @_;
>
> foreach my $name ( keys(%hash) ) {
Same problem as above. You assign to $hash, but you use %hash.
> print "$name: ", join( "--", %{$hash{$name}} ), "\n";
> }
> }
What is the sub pass_one_more_level() good for? It has no discernible
function, it only makes your code harder to follow. Try to get a one-
level approach right first, then you can go on and nest it, if you have
to.
> sub main {
You don't need a sub "main" in Perl. Just put the statements you want
executed in the main file.
> local %hash1 = ('sales_subtotal'=>100);
> local %hash2 = ('sales_subtotal'=>150);
> local %hash3 = ('sales_subtotal'=>500);
>
> local %myhash_A = (heading1 => {sales_subtotal => 10},
> heading2 => {sales_subtotal => 15},
> heading3 => {sales_subtotal => 50});
>
> local %myhash_B = (heading1 => %hash1,
> heading2 => %hash2,
> heading3 => %hash3);
Under "warnings" Perl would have told you there's something wrong here.
> print_hashes(\%myhash_A);
> print_hashes(\%myhash_B);
>
> }
>
> main();
>
> What is the correct way for fixing this error?
There's more than one error in your code. In particular, you seem to
be unclear about how and when referencing and de-referencing are used.
Read perlreftut and perldsc for some background on that.
Otherwise, use lexical variables (declared with "my") where possible.
In Perl, "local" is not a variable declaration, only a runtime action.
This code does what you want, without any extra nesting.
my %myhash = (
heading1 => {sales_subtotal => 10},
heading2 => {sales_subtotal => 15},
heading3 => {sales_subtotal => 50},
);
print_hashes( \ %myhash);
sub print_hashes {
my $hash = shift;
print "$_: ", join( '--', %{ $hash->{ $_}}), "\n" for keys %$hash;
}
Anno
------------------------------
Date: Thu, 30 Dec 2004 11:29:29 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Why does this work?
Message-Id: <iuo7t0haa286ldaj07hkf7uqmg57bmjt6s@4ax.com>
Abigail wrote:
>By design, and documented. From perlop/Symbolic Unary Operators:
>
> Unary "-" performs arithmetic negation if the operand is
> numeric. If the operand is an identifier, a string con
> sisting of a minus sign concatenated with the identifier
> is returned. Otherwise, if the string starts with a plus
> or minus, a string starting with the opposite sign is
> returned. One effect of these rules is that -bareword is
> equivalent to "-bareword".
I don't read it that way. For what I see,
-force
is the same as
"-" . force
It is not. Well, it is is, more or less, without use strict.
use strict; $_ = -force; print;
result:
-force
No error, no warning
$_ = "-" . force; print;
result:
Unquoted string "force" may clash with future reserved word at..
-force
No error, but a warning.
use strict; $_ = "-" . force; print;
result:
Bareword "force" not allowed while "strict subs" in use at...
Execution of test.pl aborted due to compilation errors.
--
Bart.
------------------------------
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 7612
***************************************
