[31301] in Perl-Users-Digest
Perl-Users Digest, Issue: 2546 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 12 00:09:46 2009
Date: Tue, 11 Aug 2009 21:09:09 -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 Tue, 11 Aug 2009 Volume: 11 Number: 2546
Today's topics:
Re: Function prototype <tzz@lifelogs.com>
Re: Function prototype <tzz@lifelogs.com>
Govinda plays womaniser in 'Life Partner': Tusshar Kapo <asim.ssat@gmail.com>
Re: more than one statement in a post perlish condition <peter@makholm.net>
Re: Perl process as a unix background process gbostock@excite.com
Re: problem with fork <hirenshah.05@gmail.com>
Re: problem with fork <jimsgibson@gmail.com>
Re: problem with fork <xhoster@gmail.com>
Question - anonymous recursive functions <yakovlev@hotmail.com>
Re: Question - anonymous recursive functions <yakovlev@hotmail.com>
Re: Question - anonymous recursive functions <alexander.bartolich@gmx.at>
Re: Question - anonymous recursive functions <yakovlev@hotmail.com>
Re: regular expressions sln@netherlands.com
Re: rows affected not working.. <tadmc@seesig.invalid>
Re: rows affected not working.. <placebo@dontbesilly.com>
Re: rows affected not working.. <fgnowfg@gmail.com>
Re: Tkx checkbutton font <smallpond@juno.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 11 Aug 2009 09:37:09 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Function prototype
Message-Id: <87fxbyo1re.fsf@lifelogs.com>
On Thu, 06 Aug 2009 11:50:32 -0400 Charlton Wilbur <cwilbur@chromatico.net> wrote:
>>>>>> "TZ" == Ted Zlatanov <tzz@lifelogs.com> writes:
TZ> He specifically asked for compile-time checks.
CW> And how do you propose that the compiler can check that?
CW> If the compiler sees
CW> my $sum = add(some_function());
CW> how is it supposed to know that some_function() will return exactly two
CW> elements in a list, for instance?
The OP can read the documentation and decide for himself if prototypes
will work for him. Obviously they don't work for everyone, but for a
subset of Perl (especially the subset commonly found in production) they
may be suitable.
TZ> Prototypes have many flaws, but they *are* a Perl feature.
CW> In this case, however, they're a poor attempt to work around a
CW> fundamental miscomprehension of how Perl works. Better to fix the
CW> miscomprehension than to patch over it with prototypes.
While I don't feel quite so strongly, I agree prototypes usually don't
fully solve the problem of checking function parameters, and relying on
them is usually the wrong way to write good Perl. At least for version
5.x ;)
Ted
------------------------------
Date: Tue, 11 Aug 2009 09:44:22 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Function prototype
Message-Id: <87bpmmo1fd.fsf@lifelogs.com>
On Fri, 7 Aug 2009 02:11:12 +0000 (UTC) pacman@kosh.dhis.org (Alan Curry) wrote:
AC> Once upon a time, I tried something like this, honestly expecting it to work:
AC> sub foo ($$$$);
AC> if($something) {
AC> @args=($a, $b, $c, 0);
AC> } else {
AC> @args=($x, $y, $z, 1);
AC> }
AC> foo(@args);
AC> It's easy to see at compile time that @args will always have the proper
AC> number of elements to satisfy the prototype. But prototypes don't do that,
AC> and furthermore there's nothing in perl that does do that, so you have to
AC> live with run-time assertions. Oh well.
I present to you Yet Another Golden Rule of Perl (YAGRoP):
Nothing in Perl is easy at compile time. Everything in Perl is easy at
run time.
This, of course, compares favorably with Java, where the run time is
only good for generating exceptions, and C++, where the run time is only
good for catching exceptions :)
Ted
------------------------------
Date: Tue, 11 Aug 2009 09:41:20 -0700 (PDT)
From: asim malik <asim.ssat@gmail.com>
Subject: Govinda plays womaniser in 'Life Partner': Tusshar Kapoor
Message-Id: <3bad0886-4113-4e78-b7c9-6096f14ba110@g23g2000vbr.googlegroups.com>
Mumbai, Aug 11 (IANS) Tusshar Kapoor is happy with Govinda's presence
as co-star in the forthcoming Abbas-Mustan movie "Life Partner" and
says the comic actor adds as much value to the comic caper as Salman
www.enf786.blogspot.com
------------------------------
Date: Tue, 11 Aug 2009 13:30:56 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: more than one statement in a post perlish condition
Message-Id: <871vnipoy7.fsf@vps1.hacking.dk>
Ben Morrow <ben@morrow.me.uk> writes:
>> print("YES"), $yes = "no" if $yes eq "yes";
>> (print "YES"), $yes = "no" if $yes eq "yes";
>> print "YES" and $yes = "no" if $yse eq "yes";
>
> The last example is also Wrong, in that print can fail. It's not common,
Correct, I should have mentioned that the last one wasn't semantically
equivalent with the others.
//Makholm
------------------------------
Date: Tue, 11 Aug 2009 07:37:08 -0700 (PDT)
From: gbostock@excite.com
Subject: Re: Perl process as a unix background process
Message-Id: <7c231660-b9b3-4a96-befc-ac424579a43f@24g2000yqm.googlegroups.com>
On Aug 10, 1:42=A0pm, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
> On Mon, 10 Aug 2009 08:28:22 -0700, gbostock wrote:
> > Thanks, your post led me to the solution to the problem and I didn't
> > have to guess at lines of code.
>
> Care to share what was wrong? I'm interested now.
>
> M4
When a command is issued from the perl program, you need to put an &
at the end of that command too. Backticks, qx and system all do a
clone and through dup wind up using the same I/O handles as where the
parent process came from. This puts a new command coming from the
parent process at the terminal, creating the situation as described by
Peter J. Holzer.
------------------------------
Date: Tue, 11 Aug 2009 07:10:35 -0700 (PDT)
From: "friend.05@gmail.com" <hirenshah.05@gmail.com>
Subject: Re: problem with fork
Message-Id: <29a9dc9e-add1-4369-9650-cd7e30540bdc@c14g2000yqm.googlegroups.com>
On Aug 6, 9:47=A0pm, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
> friend...@gmail.com wrote:
>
> > And I check the trace(truss -p on sun). I found that sometimes one of
> > the child goes to sleeping and parent is still waiting for that child
> > exit status. But it never gets that bcoz child is sleeping.
>
> What system call does it use to put itself to sleep? =A0You are quite sur=
e
> that it reaches the "exit" before going to sleep? =A0If it prints its
> exiting message immediately before the exit, what do you see in the
> strace between the "write" (or whatever system call does the actual
> printing) and the command that puts it to sleep?
>
> Xho
before sleeping child was trying to read something.
any suggestion how can I debug exactly what child is trying to read.
------------------------------
Date: Tue, 11 Aug 2009 12:22:22 -0700
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: problem with fork
Message-Id: <110820091222220208%jimsgibson@gmail.com>
In article
<29a9dc9e-add1-4369-9650-cd7e30540bdc@c14g2000yqm.googlegroups.com>,
<"friend.05@gmail.com"> wrote:
> On Aug 6, 9:47 pm, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
> > friend...@gmail.com wrote:
> >
> > > And I check the trace(truss -p on sun). I found that sometimes one of
> > > the child goes to sleeping and parent is still waiting for that child
> > > exit status. But it never gets that bcoz child is sleeping.
> >
> > What system call does it use to put itself to sleep? You are quite sure
> > that it reaches the "exit" before going to sleep? If it prints its
> > exiting message immediately before the exit, what do you see in the
> > strace between the "write" (or whatever system call does the actual
> > printing) and the command that puts it to sleep?
> >
> > Xho
>
> before sleeping child was trying to read something.
>
> any suggestion how can I debug exactly what child is trying to read.
Print out what the child has read after the child has read it?
--
Jim Gibson
------------------------------
Date: Tue, 11 Aug 2009 19:06:10 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: problem with fork
Message-Id: <4a82244e$1$31693$ed362ca5@nr5-q3a.newsreader.com>
friend.05@gmail.com wrote:
> On Aug 6, 9:47 pm, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
>> friend...@gmail.com wrote:
>>
>>> And I check the trace(truss -p on sun). I found that sometimes one of
>>> the child goes to sleeping and parent is still waiting for that child
>>> exit status. But it never gets that bcoz child is sleeping.
>> What system call does it use to put itself to sleep? You are quite sure
>> that it reaches the "exit" before going to sleep? If it prints its
>> exiting message immediately before the exit, what do you see in the
>> strace between the "write" (or whatever system call does the actual
>> printing) and the command that puts it to sleep?
>>
>> Xho
>
> before sleeping child was trying to read something.
It actually read something, and then put itself to sleep?
Or the read itself was the thing that it was blocking (i.e. sleeping) on?
> any suggestion how can I debug exactly what child is trying to read.
I'm more used to to strace than truss. But if you you have (from the
truss) the file handle it is trying to read from, you should be able to
go back through the truss output, assuming you saved enough of it, to
see what that file handle was opened to (presumably it will not be an
ordinary file, as those tend not to block, but rather some sort of pipe
or socket).
And if that doesn't work....Since you (presumably) wrote the child code,
and haven't shared it with us, we are in a poor place to guess about
what it could be trying to read, while you should be an excellent place
to guess on that.
Xho
------------------------------
Date: Tue, 11 Aug 2009 13:52:14 -0700 (PDT)
From: Alex <yakovlev@hotmail.com>
Subject: Question - anonymous recursive functions
Message-Id: <6b4a6a91-898e-444f-9d32-672d8a25dea5@s31g2000yqs.googlegroups.com>
Hello,
I want a function to be private inside a module, so - I made it
anonymous. Also I want it to be recursive - how to do that?
use diagnostics;
use warnings;
use strict;
my $F1 = sub($)
{
my $n = shift;
print "$n\n";
$F1->($n + 1) if $n < 10;
};
F1(0);
This gives me the error message:
------------------------
Global symbol "$F1" requires explicit package name at tp205.pl line
27.
Execution of tp205.pl aborted due to compilation errors (#1)
(F) You've said "use strict vars", which indicates that all
variables
must either be lexically scoped (using "my"), declared beforehand
using
"our", or explicitly qualified to say which package the global
variable
is in (using "::").
Uncaught exception from user code:
Global symbol "$F1" requires explicit package name at tp205.pl line
27.
Execution of tp205.pl aborted due to compilation errors.
at tp205.pl line 30
-------------------------
Please help
Thanks
Alex
------------------------------
Date: Tue, 11 Aug 2009 13:54:20 -0700 (PDT)
From: Alex <yakovlev@hotmail.com>
Subject: Re: Question - anonymous recursive functions
Message-Id: <d186b9cd-c464-4e92-980f-3aea3f92c3cd@s15g2000yqs.googlegroups.com>
On Aug 11, 4:52 pm, Alex <yakov...@hotmail.com> wrote:
> Hello,
>
> I want a function to be private inside a module, so - I made it
> anonymous. Also I want it to be recursive - how to do that?
>
> use diagnostics;
> use warnings;
> use strict;
>
> my $F1 = sub($)
> {
> my $n = shift;
> print "$n\n";
> $F1->($n + 1) if $n < 10;
>
> };
>
> F1(0);
>
> This gives me the error message:
>
> ------------------------
>
> Global symbol "$F1" requires explicit package name at tp205.pl line
> 27.
> Execution of tp205.pl aborted due to compilation errors (#1)
> (F) You've said "use strict vars", which indicates that all
> variables
> must either be lexically scoped (using "my"), declared beforehand
> using
> "our", or explicitly qualified to say which package the global
> variable
> is in (using "::").
>
> Uncaught exception from user code:
> Global symbol "$F1" requires explicit package name at tp205.pl line
> 27.
> Execution of tp205.pl aborted due to compilation errors.
> at tp205.pl line 30
>
> -------------------------
>
> Please help
> Thanks
> Alex
My mistake above - I call it as
$F1->(0);
But the question remains....
------------------------------
Date: Tue, 11 Aug 2009 20:59:01 +0000 (UTC)
From: Alexander Bartolich <alexander.bartolich@gmx.at>
Subject: Re: Question - anonymous recursive functions
Message-Id: <h5sm2l$dc8$1@news.albasani.net>
Alex wrote:
> [...]
> my $F1 = sub($)
> {
> my $n = shift;
> print "$n\n";
> $F1->($n + 1) if $n < 10;
> };
> [...]
> Global symbol "$F1" requires explicit package name at tp205.pl line
> 27.
The definition of »$F1« is finished only at the »};«.
Hence you can use it only afterwards.
The fix is trivial.
my $F1;
$F1 = sub($)
{
my $n = shift;
print "$n\n";
$F1->($n + 1) if $n < 10;
};
--
Brüder, in die Tonne die Freiheit,
Brüder, ein Stoppschild davor.
Egal was die Schwarzen Verlangen
Rufen wir: Ja! Brav im Chor.
------------------------------
Date: Tue, 11 Aug 2009 14:21:02 -0700 (PDT)
From: Alex <yakovlev@hotmail.com>
Subject: Re: Question - anonymous recursive functions
Message-Id: <9ad5dd24-3337-4c51-b253-5e48d2b68eab@s15g2000yqs.googlegroups.com>
Quick and easy!
Thank you, Alexander
On Aug 11, 4:59 pm, Alexander Bartolich <alexander.bartol...@gmx.at>
wrote:
> Alex wrote:
> > [...]
> > my $F1 =3D sub($)
> > {
> > my $n =3D shift;
> > print "$n\n";
> > $F1->($n + 1) if $n < 10;
> > };
> > [...]
> > Global symbol "$F1" requires explicit package name at tp205.pl line
> > 27.
>
> The definition of =BB$F1=AB is finished only at the =BB};=AB.
> Hence you can use it only afterwards.
> The fix is trivial.
>
> my $F1;
> $F1 =3D sub($)
> {
> my $n =3D shift;
> print "$n\n";
> $F1->($n + 1) if $n < 10;
> };
>
> --
> Br=FCder, in die Tonne die Freiheit,
> Br=FCder, ein Stoppschild davor.
> Egal was die Schwarzen Verlangen
> Rufen wir: Ja! Brav im Chor.
------------------------------
Date: Tue, 11 Aug 2009 13:21:14 -0700
From: sln@netherlands.com
Subject: Re: regular expressions
Message-Id: <7ea385l98ubsubig3bcsnbad2kua7ojln1@4ax.com>
On Mon, 10 Aug 2009 16:43:21 -0700 (PDT), mud_saisem <mud_saisem@hotmail.com> wrote:
>On Aug 11, 5:19 am, s...@netherlands.com wrote:
>> On Sun, 9 Aug 2009 15:25:24 -0700 (PDT), mud_saisem <mud_sai...@hotmail.com> wrote:
>> >Hi There,
>>
>> >Could anybody please let me know how I would be able to extract the
>> >words that have a = in the middle and print the whole word out. Also I
>> >will never know how many : and in the word either.
>>
>> >eg: "This is a example item, order=TEST:ITEM:123 on shelf
>> >shelf=1:4:23:f"
>>
>> >output: order=TEST:ITEM:123
>> > shelf=1:4:23:f
<snip>
>>
>> My opinion on this group (or any group) is that using real world examples
>> reap the most reward.
>>
>> -sln
>
>Sln,
>
>Thanks for your comments.
>
>The examples that I have given are based on problems that I can not
>figure out and need help with.
>
>If I put in real world example as you call it, It would still make no
>sense to you or any other person reading this discussion. I ask for
>help on what I need to resolve my issue and never intended this to be
>a learning curve for pupils.
>
>Personally I don't see what the issue is as others have managed to
>give very good and efficient solutions to the problem that I face.
>
>But I your point is taken !
>
>I am still very new at perl, and in the future I will put in better
>examples WHERE POSSIBLE.
Sorry, I didn't mean it as criticism, just to be a little helpful.
It doesn't help you to put up example text that you want to
parse with a regular expression, in a waterred down, pristeen way.
This is your example:
"This is a example item, order=TEST:ITEM:123 on shelf
shelf=1:4:23:f"
But you state you really want this form "=::" to be plucked out using \w=[\w:]
Itself, its being used as a form and form delimeter. And thats ok.
In a real example though, its not that simple. The form itself must be
seperately delimited to avoid collision. That makes it more difficult.
And \w as a form delimeter rarely does what you think it does.
It leaves out many possible valid characters. You can class characters
that you would would like to INCLUDE as your only form delimeter, but it
is better to class NOT characters in the form, then surround the form itself
with delimeters.
Since the delimeters are simple whitespace, you could (as someone mentioned)
split on \s+, then analyse the form itself.
Or you could do, in a real sence, something like below.
-sln
use strict;
use warnings;
my $string = "begi-n==TEST:ITEM:b123
begin2=='TEST':ITEM:b-123 This is a example item, order=TEST:ITEM123:test= on shelf
'shelf'=1:4:*23::f";
while ($string =~ /(?:^|(?<=\s))([^\s:=]+)=+([^\s=]+)(?=\s|$)/g)
{
print "$1 = @{[split /:+/, $2]}\n";
}
__END__
begi-n = TEST ITEM b123
begin2 = 'TEST' ITEM b-123
'shelf' = 1 4 *23 f
------------------------------
Date: Tue, 11 Aug 2009 06:37:14 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: rows affected not working..
Message-Id: <slrnh82lg3.47k.tadmc@tadmc30.sbcglobal.net>
Faith Greenwood <fgnowfg@gmail.com> wrote:
> I am making some changes to my mysql table via DBI (I am inserting the
> ages of the people I already have in the table). I have the following:
>
> my $sql="UPDATE table SET age=? WHERE name=?";
> my $sth=$dbh->prepare($sql);
This appears to be inside of a loop.
You should do the prepare only once outside of the loop.
There is no need to prepare() the same query 100 times.
> $sth->execute($age,$name) or warn "$DBI::errstr\n" and next;
> my $rc = $sth->rows;
>
> I have 100 records total. Of course, when I run this script the first
> time I update the age column of every single person in the table and
> $rc=1 for each of the 100 rows. However, running the script the 2nd
> time (without changing any of the ages), I still get $rc=1 for each of
> the 100 rows (it should be zero, since the row actually wasn't
> updated).
The row *was* actually updated.
Replacing 29 with 29 *is* an update.
> To check, I updated a record via phpmyadmin and got 0 rows affected
> (like it should).
I do not know what goes on inside of phpmyadmin and therefore
cannot help with why it fails to update like it should.
Try it with the mysql command-line tool instead. It should
report 1 row affected too.
> Why is Perl giving me the wrong response?
Perl *is* giving you the right response.
> More
> importantly, how do I correct it?
If you want to update age only if it is not set, then you need
a query that will update only if not set:
my $sql="UPDATE table SET age=? WHERE name=? AND age IS NULL";
Of course that will fail when they have a birthday and you need
to update their age.
If you want to update age only if it is not set to the value supplied,
(though I cannot imagine why you would want that...)
then you need a query that will update only if it is not set to the
value supplied:
my $sql="UPDATE table SET age=? WHERE name=? AND age!=?";
...
$sth->execute($age, $name, $age) or warn "$DBI::errstr\n" and next;
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 11 Aug 2009 12:56:41 GMT
From: "Peter Wyzl" <placebo@dontbesilly.com>
Subject: Re: rows affected not working..
Message-Id: <dUdgm.10971$ze1.7101@news-server.bigpond.net.au>
"Faith Greenwood" <fgnowfg@gmail.com> wrote in message
news:d8049316-dae2-4bc5-b99c-40267ab7cf1c@o6g2000yqj.googlegroups.com...
> Hi,
>
> I am making some changes to my mysql table via DBI (I am inserting the
> ages of the people I already have in the table). I have the following:
>
> my $sql="UPDATE table SET age=? WHERE name=?";
> my $sth=$dbh->prepare($sql);
> $sth->execute($age,$name) or warn "$DBI::errstr\n" and next;
> my $rc = $sth->rows;
>
> I have 100 records total. Of course, when I run this script the first
> time I update the age column of every single person in the table and
> $rc=1 for each of the 100 rows. However, running the script the 2nd
> time (without changing any of the ages), I still get $rc=1 for each of
> the 100 rows (it should be zero, since the row actually wasn't
> updated).
>
> To check, I updated a record via phpmyadmin and got 0 rows affected
> (like it should). Why is Perl giving me the wrong response? More
> importantly, how do I correct it?
If you are using DBD::mysql (usually invoked by use DBI and defining the
mysql database) you should check the value of mysql_client_found_rows
(check the DBD::mysql docs at
http://search.cpan.org/~capttofu/DBD-mysql-4.012/lib/DBD/mysql.pm)
I suspect you may have it set to TRUE but be expecting the result from
having it set to FALSE.
I could also be completely off the planet...
P
------------------------------
Date: Tue, 11 Aug 2009 17:02:20 -0700 (PDT)
From: Faith Greenwood <fgnowfg@gmail.com>
Subject: Re: rows affected not working..
Message-Id: <7c96b575-15f1-4d76-bb3f-b0233c2fad7c@b15g2000yqd.googlegroups.com>
On Aug 11, 8:56=A0am, "Peter Wyzl" <plac...@dontbesilly.com> wrote:
> "Faith Greenwood" <fgno...@gmail.com> wrote in message
>
> news:d8049316-dae2-4bc5-b99c-40267ab7cf1c@o6g2000yqj.googlegroups.com...
>
>
>
> > Hi,
>
> > I am making some changes to my mysql table via DBI (I am inserting the
> > ages of the people I already have in the table). I have the following:
>
> > my $sql=3D"UPDATE table SET age=3D? WHERE name=3D?";
> > my $sth=3D$dbh->prepare($sql);
> > $sth->execute($age,$name) or warn "$DBI::errstr\n" and next;
> > my $rc =3D $sth->rows;
>
> > I have 100 records total. Of course, when I run this script the first
> > time I update the age column of every single person in the table and
> > $rc=3D1 for each of the 100 rows. However, running the script the 2nd
> > time (without changing any of the ages), I still get $rc=3D1 for each o=
f
> > the 100 rows (it should be zero, since the row actually wasn't
> > updated).
>
> > To check, I updated a record via phpmyadmin and got 0 rows affected
> > (like it should). Why is Perl giving me the wrong response? More
> > importantly, how do I correct it?
>
> If you are using DBD::mysql (usually invoked by use DBI and defining the
> mysql database) you should check the value of mysql_client_found_rows
> (check the DBD::mysql docs athttp://search.cpan.org/~capttofu/DBD-mysql-4=
.012/lib/DBD/mysql.pm)
>
> I suspect you may have it set to TRUE but be expecting the result from
> having it set to FALSE.
>
> I could also be completely off the planet...
>
> P
thanks guys! I think I will go with $sql=3D"UPDATE table SET age=3D? WHERE
name=3D? AND age!=3D?" as suggested...I just am looking for something that
will alert me when the age has changed and this seems to work and to
be honest I am too tired of this project to really care at this point
so I'll just go with the easiest solution. At some point I will look
more into the client_found_rows...;)....thx again!
------------------------------
Date: Tue, 11 Aug 2009 08:14:39 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: Tkx checkbutton font
Message-Id: <993a0a7c-f0ff-4649-b79c-f865d9458afc@18g2000yqa.googlegroups.com>
On Aug 10, 2:36=A0pm, kens <kenslate...@hotmail.com> wrote:
> Hi all,
>
> (my $resetButton =3D $mw->new_ttk__checkbutton
^^^
font is a standard option for a checkbutton, but
you're not using a checkbutton.
------------------------------
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 V11 Issue 2546
***************************************
