[31302] in Perl-Users-Digest
Perl-Users Digest, Issue: 2547 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 12 21:09:50 2009
Date: Wed, 12 Aug 2009 18:09:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 12 Aug 2009 Volume: 11 Number: 2547
Today's topics:
computer information <only4fateh@gmail.com>
computer information <only4fateh@gmail.com>
Easy Earning <smabbask@googlemail.com>
Re: FAQ 8.18 How can I do an atexit() or setjmp()/longj <hjp-usenet2@hjp.at>
Re: Function prototype (Tim McDaniel)
Re: Function prototype <ben@morrow.me.uk>
Re: Function prototype sln@netherlands.com
Re: Function prototype <ben@morrow.me.uk>
Getting file names with MIME::Parser <edMbj@aes-intl.com>
Newbie: perl program in a ksh here-document <jose.luis.fdez.diaz@gmail.com>
Re: Newbie: perl program in a ksh here-document <alexander.bartolich@gmx.at>
Re: Newbie: perl program in a ksh here-document <tadmc@seesig.invalid>
Re: Newbie: perl program in a ksh here-document <RedGrittyBrick@spamweary.invalid>
Re: Passing structure from perl to C. sln@netherlands.com
Re: Passing structure from perl to C. sln@netherlands.com
Re: problem with fork <hirenshah.05@gmail.com>
Re: Question - anonymous recursive functions <peter@makholm.net>
Re: Question - anonymous recursive functions <marc.girod@gmail.com>
Script Hangs on use Win32::OLE::Const <thomas.e.welch@boeing.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 12 Aug 2009 07:20:59 -0700 (PDT)
From: fateh <only4fateh@gmail.com>
Subject: computer information
Message-Id: <ea6d5314-620a-4e82-b0d1-e32c309173d2@12g2000pri.googlegroups.com>
http://computersjust4u.blogspot.com/
Meet the 10.4 Inch Touchscreen LCD with VGA from Chinavasion! This
is more than a cool flat screen computer monitor coming with a touch-
sensitive interface and car support stand. It is a great computer
monitor for use in your car if you have an integrated Wi-Fi module and
can be connected to a car DVD player via AV inputs or a rear view
camera system.
for more details visit:
http://computersjust4u.blogspot.com/
------------------------------
Date: Wed, 12 Aug 2009 07:22:24 -0700 (PDT)
From: fateh <only4fateh@gmail.com>
Subject: computer information
Message-Id: <aa79d756-9652-4ea3-93bc-aec984cf476d@u38g2000pro.googlegroups.com>
http://computersjust4u.blogspot.com
Meet the 10.4 Inch Touchscreen LCD with VGA from Chinavasion! This is
more than a cool flat screen computer monitor coming with a touch-
sensitive interface and car support stand. It is a great computer
monitor for use in your car if you have an integrated Wi-Fi module and
can be connected to a car DVD player via AV inputs or a rear view
camera system.
http://computersjust4u.blogspot.com
http://computersjust4u.blogspot.com
------------------------------
Date: Wed, 12 Aug 2009 10:52:46 -0700 (PDT)
From: smabbask <smabbask@googlemail.com>
Subject: Easy Earning
Message-Id: <175e4722-ad1a-4b84-a843-9e63d7d3d3f1@u16g2000pru.googlegroups.com>
http://stockexchangeonline.blogspot.com/
The Code of Corporate Governance was incorporated in the Listing
Regulations of the Exchange in year 2002. In true sense, it has no
statutory force or penalty provisions. Its implementation through the
Listing Regulations requires companies to disclose in their annual
reports whether or not they are complying with its provisions and if
they are not, to explain why.The main purpose / objectives of Code of
Corporate Governance is to:
Stimulate the performance of companies
Limit insider=92s abuse of power
Monitor manager behavior to ensure corporate accountability and
protection of interest of investors and society.
The Exchange has played a proactive role in safeguarding small
shareholders' interest and has strengthened its monitoring and
enforcement capability to monitor compliance with the Code of
Corporate Governance by the listed companies.Being a front line
regulator,
For More Details...
http://stockexchangeonline.blogspot.com/
------------------------------
Date: Wed, 12 Aug 2009 23:02:59 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: FAQ 8.18 How can I do an atexit() or setjmp()/longjmp()? (Exception handling)
Message-Id: <slrnh86bg4.63g.hjp-usenet2@hrunkner.hjp.at>
On 2009-08-10 16:48, Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
> On 2009-08-10, Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>> Yes. END{} and atexit() are closely related, but have little (if
>> anything) to do with exception handling.
>
> As I already said, in my book they do. Apparently, your notion of
> exception handling is much more narrow... Or maybe you think "clean
> up and report to operator" is not a kind of handling too?
I thought about this for a while and I think that the main difference
for me is that I view an exception as a state, but exit as an action.
Therefore exit isn't an exception, although it might be used to handle
an exception.
Other, more technical, differences are:
An exception causes the stack to unwind until it hits an exception
handler. exit doesn't (In C this makes a big difference, in Perl it
might be academic: objects are still garbage-collected).
You can't recover from calling exit.
>> setjmp/longjmp can be used for exception handling and would usually be
>> replaced with die/eval{} in Perl (although next/last LABEL may be an
>> alternative in some situations).
>
> Here you might contradict yourself. AFAIK, any kind of exceptions
> which may be caught by die/eval{} is also caught by END{}. (E.g.,
> neither will handle signals without help of %SIG.)
I have no idea what your reply has to do with what I wrote.
I was writing a possible use for setjmp/longjmp in C (exception
handling) and how you would translate that into perl (die/eval). The
parenthetical remark alludes to the fact that technically, setjmp/logjmp
is rather similar to using next/last LABEL to jump out of a subroutine
and that this technique is also sometimes useful in Perl (for example
Test::More uses it to implement skip).
I wrote nothing about signals or END blocks.
hp
------------------------------
Date: Wed, 12 Aug 2009 20:50:53 +0000 (UTC)
From: tmcd@panix.com (Tim McDaniel)
Subject: Re: Function prototype
Message-Id: <h5v9vc$5hu$1@reader1.panix.com>
In article <luvuk6-m9n2.ln1@osiris.mauzo.dyndns.org>,
Ben Morrow <ben@morrow.me.uk> wrote:
>
>Quoth tmcd@panix.com:
>>
>> And a few programs where I used
>> sub my_chomp(;\$)
>> sub trim(;\$)
>> I coded them to chomp | trim a scalar variable in-place, but if no
>> scalar is provided, process $_.
>
>If you have 5.10, you can use the '_' prototype character for that
>behaviour.
Thanks. Alas that I have so little control over most systems I use;
perl -e 'print $]'
shows me versions between 5.5 and 5.10 depending on the systems.
>There's no need for the '\': $_[0] is passed by reference.
Not if the actual argument is an expression. Then Perl creates a
temporary variable and passes a reference to that, so any assignments
to it are silently discarded after the sub ends. By contrast, a
prototype of \$ errors out if the argument is not a scalar variable
(expressions, even array elements, are forbidden) and if prototypes
are being checked.
$ perl -e 'sub t1(\$) { ${$_[0]} = 1;} my $v = -1; t1($v ); print $v, "\n"; '
1
$ perl -e 'sub t1(\$) { ${$_[0]} = 1;} my $v = -1; t1($v + 2); print $v, "\n"; '
Type of arg 1 to main::t1 must be scalar (not addition) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.
$ perl -e 'sub t2($) { $_[0] = 1; print $_[0], "\n";} my $v = -1; t2($v); print $v, "\n"; '
1
1
$ perl -e 'sub t2($) { $_[0] = 1; print $_[0], "\n";} my $v = -1; t2($v + 2); print $v, "\n"; '
1
-1
What are the conditions under which the prototype is not used?
I think they're
- a call lexically before the sub declaration
- old-style &name(...) call
- object method call
Is that right?
--
Tim McDaniel, tmcd@panix.com
------------------------------
Date: Wed, 12 Aug 2009 23:42:20 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Function prototype
Message-Id: <c3tbl6-iq3.ln1@osiris.mauzo.dyndns.org>
Quoth tmcd@panix.com:
> In article <luvuk6-m9n2.ln1@osiris.mauzo.dyndns.org>,
> Ben Morrow <ben@morrow.me.uk> wrote:
> >
> >If you have 5.10, you can use the '_' prototype character for that
> >behaviour.
>
> Thanks. Alas that I have so little control over most systems I use;
> perl -e 'print $]'
> shows me versions between 5.5 and 5.10 depending on the systems.
Ummm... OK. If you're actually still using 5.005 in production I'd say
you're on your own. I'd probably say the same about 5.6.
> >There's no need for the '\': $_[0] is passed by reference.
>
> Not if the actual argument is an expression. Then Perl creates a
> temporary variable and passes a reference to that, so any assignments
> to it are silently discarded after the sub ends.
Not true. Perl passes an alias to the result of the expression, so you
can perfectly well assign to $_[0] and change the variable passed:
~% perl -E'sub foo ($) { $_[0] = 2 } my $x; foo($x); say $x'
2
~% perl -E'sub foo ($) { $_[0] = 2 } foo(my $x = 1); say $x'
2
~% perl -E'sub foo ($) { $_[0] = 2 } foo(1); say $x'
Modification of read-only value attempted at -e line 1.
~%
(the ($) prototype has no effect in any of these cases).
> By contrast, a
> prototype of \$ errors out if the argument is not a scalar variable
> (expressions, even array elements, are forbidden) and if prototypes
> are being checked.
Array and hash elements *are* allowed, as is a scalar deref. The rule is
essentially 'something which has a literal '$' sigil'. More importantly,
many expressions which *are* in fact lvalues are not allowed, like the
'$x = 1' above.
> What are the conditions under which the prototype is not used?
> I think they're
> - a call lexically before the sub declaration
> - old-style &name(...) call
> - object method call
> Is that right?
You missed the magic 'goto &name', the arg-less '&name' that reuses the
current @_, and $subref->(). Calling the sub before its definition will
give a warning at the point where perl realizes it was supposed to have
a prototype; the other forms just silently ignore the prototype.
Ben
------------------------------
Date: Wed, 12 Aug 2009 16:09:11 -0700
From: sln@netherlands.com
Subject: Re: Function prototype
Message-Id: <lni685h4r1ecdhqt65ucmh3qb9505g9lss@4ax.com>
On Wed, 12 Aug 2009 23:42:20 +0100, Ben Morrow <ben@morrow.me.uk> wrote:
>
>You missed the magic 'goto &name', the arg-less '&name' that reuses the
>current @_
The only use for & (not \&), which is extremely valuable.
-sln
------------------------------
Date: Thu, 13 Aug 2009 00:42:08 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Function prototype
Message-Id: <gj0cl6-9j4.ln1@osiris.mauzo.dyndns.org>
Quoth sln@netherlands.com:
> On Wed, 12 Aug 2009 23:42:20 +0100, Ben Morrow <ben@morrow.me.uk> wrote:
>
> >
> >You missed the magic 'goto &name', the arg-less '&name' that reuses the
> >current @_
>
> The only use for & (not \&), which is extremely valuable.
Which, 'goto &name;' or a bare '&name;'? (They are separate features,
though both reuse the current @_.) The latter is practically useless:
while name(@_) is marginally slower, it's only worth worrying about that
once you've determined that sub-call overhead is what's killing your
performance. The goto form is, indeed, valuable for situations where you
need a tailcall.
Ben
------------------------------
Date: Wed, 12 Aug 2009 11:57:29 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Getting file names with MIME::Parser
Message-Id: <1t36859g2r35r3b306tr4e4m6ikl08j2lr@4ax.com>
I'm successfully using Mime::Parser to parse a multipart file containing
binary files and save the contents (files) to my desired folder on the
server. But... I do not know, nor do the docs tell me, how do I get the
names of the file contents?
--
Ed Jay (remove 'M' to reply by email)
Win the War Against Breast Cancer.
Knowing the facts could save your life.
http://www.breastthermography.info
------------------------------
Date: Wed, 12 Aug 2009 05:54:09 -0700 (PDT)
From: Jose Luis <jose.luis.fdez.diaz@gmail.com>
Subject: Newbie: perl program in a ksh here-document
Message-Id: <32de22c2-2969-4e1a-abd5-9ac05213f53d@o6g2000yqj.googlegroups.com>
Hi,
#/usr/bin/ksh
cat kk|perl - <<-"EOF"
use strict;
use warnings;
while(<STDIN>)
{
print "$_";
}
EOF
The shell script program above doesn't print on screen the file "kk".
Any help?
Thanks in advance,
Jose Luis
------------------------------
Date: Wed, 12 Aug 2009 13:39:31 +0000 (UTC)
From: Alexander Bartolich <alexander.bartolich@gmx.at>
Subject: Re: Newbie: perl program in a ksh here-document
Message-Id: <h5ugmj$3v4$2@news.albasani.net>
Jose Luis wrote:
> [...]
> cat kk|perl - <<-"EOF"
> [...]
>
> The shell script program above doesn't print on screen the file "kk".
I guess you are confusing »cat« with »echo«. Or do you actually have
a filed called »kk« containing nothing but the line »kk«?
--
Brüder, in die Tonne die Freiheit,
Brüder, ein Stoppschild davor.
Egal was die Schwarzen Verlangen
Rufen wir: Ja! Brav im Chor.
------------------------------
Date: Wed, 12 Aug 2009 08:48:48 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Newbie: perl program in a ksh here-document
Message-Id: <slrnh85hih.sq3.tadmc@tadmc30.sbcglobal.net>
Jose Luis <jose.luis.fdez.diaz@gmail.com> wrote:
> #/usr/bin/ksh
A shebang lines should have both a "she" (#) and a "bang" (!)...
> cat kk|perl - <<-"EOF"
>
> use strict;
> use warnings;
>
>
> while(<STDIN>)
> {
> print "$_";
> }
>
>
> EOF
>
>
>
> The shell script program above doesn't print on screen the file "kk".
You want perl to read both the program and the data from STDIN?
How is perl supposed to know where one stops and the other starts?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 12 Aug 2009 15:08:37 +0100
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: Newbie: perl program in a ksh here-document
Message-Id: <4a82ccec$0$2490$db0fefd9@news.zen.co.uk>
Jose Luis wrote:
> Hi,
>
> #/usr/bin/ksh
>
>
> cat kk|perl - <<-"EOF"
>
> use strict;
> use warnings;
>
>
> while(<STDIN>)
> {
> print "$_";
> }
>
>
> EOF
>
>
>
> The shell script program above doesn't print on screen the file "kk".
> Any help?
>
$ cat t.ksh
#!/bin/ksh
perl - kk<<EOF
use strict;
use warnings;
while(<>) {
print "\$_";
}
EOF
$ ./t.ksh
This is
what's in
file kk.
...
$ cat t.ksh
#!/bin/ksh
perl - kk<<EOF
use strict;
use warnings;
while(<>) {
print;
}
EOF
$ ./t.ksh
This is
what's in
file kk.
--
RGB
------------------------------
Date: Wed, 12 Aug 2009 15:56:43 -0700
From: sln@netherlands.com
Subject: Re: Passing structure from perl to C.
Message-Id: <udg685pmc0j0cvgsojnpvjtvjhhqjrei2q@4ax.com>
On Thu, 06 Aug 2009 21:01:32 -0700, Xho Jingleheimerschmidt <xhoster@gmail.com> wrote:
>Prathap wrote:
>> On Aug 6, 8:32 am, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
>>> Prathap wrote:
>>>
>>>> The C function addStruct takes pointer to structure as an input.
>>>> How do I make perl pass the data as pointer to structure kind of
>>>> variable?
>>> I'd use a wrapper. (This is for Inline, not XS)
>>>
>>> int addStruct_wrapper(int t1, int t2) {
>>> struct test t;
>>> t.t1=t1;
>>> t.t2=t2;
>>> return addStruct(&t);
>>>
>>> };
>>>
>>
>> Thanks for the reply.
>> How do I access the members of the structure that the C routinue
>> returns in Perl.
>
>
>I wouldn't. I carefully arranged for it to happen that C never returns
>a struct test * to Perl. If you return a pointer to Perl, then it AFAIK
>it will have to get cast to a void *, rather than a specific pointer,
>and then from there will get recast to an int of the appropriate size.
>Now you have this thing in Perl, that is a struct test * but as far as
>Perl knows it is just an integer. And just who is responsible for
>deciding when it should be freed and actually doing the freeing?
>
>I really don't want to deal with crap like that on a regular basis. If
>I did, I'd just stick with C in the first place rather than using Perl
>and trying to interface them together in a messy hodge-podge.
>
>If I really needed to do this, there are several different ways I could
>choose from. You could return a list of values, and interpret it
>positionally, like Sisyphus showed. Or return a list of name value
>pairs and assign it to a hash. Or define a getter method for each
>element of the struct (which requires you to deal with naked pointers in
>Perl, ugh). Which one I chose would depend the exact situation. Your
>exact situation seems to be adding two integers, which I wouldn't try to
>accomplish by juggling back and forth between Perl and C in the first place.
>
>use Inline C;
>my $x=addStruct_ptr(8,9);
>print get_t1($x);
>
>__END__
>__C__
>struct test
>{
> int t1;
> int t2;
>} test;
>
>void * addStruct_ptr(int t1, int t2) {
> struct test *t;
> t=(struct test *) malloc(sizeof(struct test));
> t->t1=t1;
> t->t2=t2;
> return t;
>};
>
>int get_t1(void * x) {
> return ((struct test *)x)->t1;
>};
>
>
>
>Xho
typedef struct _test
{
int t1;
int t2;
} TEST, *PTEST;
void *addStruct_ptr( int t1, int t2)
{
PTEST ptest = (PTEST) malloc( sizeof(TEST));
ptest->t1 = t1;
ptest->t2 = t2;
return (void *) ptest;
}
int get_t1(void *x)
{
PTEST ptest = (PTEST x);
return ptest->t1;
}
Yeah right, void *x, sure ... lol
At a casual glance it might be more readable like
this imo.
-sln
------------------------------
Date: Wed, 12 Aug 2009 16:15:51 -0700
From: sln@netherlands.com
Subject: Re: Passing structure from perl to C.
Message-Id: <j2j685h1na01vcla2a1gcts6mmpbppr4v6@4ax.com>
On Wed, 12 Aug 2009 15:56:43 -0700, sln@netherlands.com wrote:
>On Thu, 06 Aug 2009 21:01:32 -0700, Xho Jingleheimerschmidt <xhoster@gmail.com> wrote:
>
>>Prathap wrote:
>
>typedef struct _test
>{
> int t1;
> int t2;
>} TEST, *PTEST;
>
>void *addStruct_ptr( int t1, int t2)
>{
> PTEST ptest = (PTEST) malloc( sizeof(TEST));
> ptest->t1 = t1;
> ptest->t2 = t2;
> return (void *) ptest;
>}
>
>int get_t1(void *x)
>{
> PTEST ptest = (PTEST x);
(PTEST) x;
yeah right, sure.. but who cares about unsafe typecasts,
valid ptrs and mallocs out of nowhere, deallocation, sure ... lol
-sln
------------------------------
Date: Wed, 12 Aug 2009 12:59:07 -0700 (PDT)
From: "friend.05@gmail.com" <hirenshah.05@gmail.com>
Subject: Re: problem with fork
Message-Id: <c4e95cc1-b363-46b8-99fc-92bc44948aee@a26g2000yqn.googlegroups.com>
On Aug 11, 10:06=A0pm, Xho Jingleheimerschmidt <xhos...@gmail.com>
wrote:
> friend...@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? =A0You are quite =
sure
> >> 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.
>
> 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. =A0But 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- Hide quoted text -
>
> - Show quoted text -
Before forking I have following code of OPEN2.
open2(*README,*WRITEME,"......");
I am using README and WRITEME in my child processes.
So do I have to include OPEN2 statement in child process or not ???
Thanks for ur help
------------------------------
Date: Wed, 12 Aug 2009 10:23:36 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: Question - anonymous recursive functions
Message-Id: <87skfxo2yf.fsf@vps1.hacking.dk>
Alex <yakovlev@hotmail.com> writes:
> 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?
You can also use namespace::clean for private functions:
package Foo;
use namespace::clean qw(foo);
sub foo { return 42 }
sub bar { return foo() + 1 }
1;
This would effectivly make the foo function private to Foo.pm.
//Makholm
------------------------------
Date: Wed, 12 Aug 2009 07:10:38 -0700 (PDT)
From: Marc Girod <marc.girod@gmail.com>
Subject: Re: Question - anonymous recursive functions
Message-Id: <9adb6db3-3106-4262-9eca-485c90581411@c29g2000yqd.googlegroups.com>
On Aug 12, 9:23=A0am, Peter Makholm <pe...@makholm.net> wrote:
> You can also use namespace::clean for private functions:
Thanks!
The best answers are are those to questions you were too stupid to
make.
I, in this case.
Marc
------------------------------
Date: Wed, 12 Aug 2009 06:37:27 -0700 (PDT)
From: TomW <thomas.e.welch@boeing.com>
Subject: Script Hangs on use Win32::OLE::Const
Message-Id: <938e70a3-5ba3-41b7-ba61-f959ac9b1d86@w6g2000yqw.googlegroups.com>
I've been using win32::ole for some time to automate PowerPoint
(Office 2003) on a server. I know it's not recommended but I'm stuck
with it. It's been working well for several years but sometime over
the last few days it stopped working. I've tracked down the possible
problem to this statement:
use Win32::OLE::Const 'Microsoft Office 11.0 Object Library';
For some unknown reason the above statement now causes the script to
hang. It will eventually time out. I'm at a total loss as to why
this is happening. The version of office has not changed. I even
reinstalled Perl from a clean image and it still hangs. Has anyone
ever encountered anything like this ? I have checked the event viewer
and there is no record of any error. Could it be the module is now
unable to communicate with PowerPoint and that causes the hang up ?
I'm stumped. Thanks in advance for any help.
------------------------------
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 2547
***************************************
