[31293] in Perl-Users-Digest
Perl-Users Digest, Issue: 2538 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 6 09:09:41 2009
Date: Thu, 6 Aug 2009 06:09:07 -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 Thu, 6 Aug 2009 Volume: 11 Number: 2538
Today's topics:
Re: FAQ 8.10 How do I read and write the serial port? <ben@morrow.me.uk>
Function prototype <pavun.bks@gmail.com>
Re: Function prototype sln@netherlands.com
Re: Function prototype <ben@morrow.me.uk>
Re: Function prototype <tadmc@seesig.invalid>
Re: Function prototype <pavun.bks@gmail.com>
Help with traversing an XML structure <michaelp@hio.no>
Re: Improving page layout when doing elementary CGI pro <sbryce@scottbryce.com>
Re: Improving page layout when doing elementary CGI pro <justin.0908@purestblue.com>
Re: lwp::simple and rget--can I compare <thepoet_nospam@arcor.de>
Re: Passing structure from perl to C. <xhoster@gmail.com>
Re: Passing structure from perl to C. <prathap.bgl@gmail.com>
Re: Passing structure from perl to C. sln@netherlands.com
Re: Passing structure from perl to C. <sisyphus359@gmail.com>
Re: Passing structure from perl to C. <ben@morrow.me.uk>
Re: Passing structure from perl to C. <ben@morrow.me.uk>
Re: Passing structure from perl to C. sln@netherlands.com
Re: Passing structure from perl to C. <sisyphus359@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 6 Aug 2009 03:12:30 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: FAQ 8.10 How do I read and write the serial port?
Message-Id: <epqpk6-99t2.ln1@osiris.mauzo.dyndns.org>
Quoth PerlFAQ Server <brian@stonehenge.com>:
>
> open mode
> If you expect to use both read and write operations on the device,
> you'll have to open it for update (see "open" in perlfunc for
> details). You may wish to open it without running the risk of
> blocking by using sysopen() and "O_RDWR|O_NDELAY|O_NOCTTY" from the
> Fcntl module (part of the standard perl distribution). See "sysopen"
> in perlfunc for more on this approach.
O_NDELAY was the old BSD constant, and is deprecated nowadays in favour
of O_NONBLOCK. AFAICT perl doesn't provide any sort of compatibility
wrapper here, so maybe something like
using sysopen() and C<O_RDWR|O_NONBLOCK|O_NOCTTY> from the Fcntl
module (part of the standard perl distribution). Older systems may
need C<O_NDELAY> instead of C<O_NONBLOCK>, and non-Unix systems may
not define C<O_NOCTTY>; you can test for this by checking
C<defined &Fcntl::O_NONBLOCK> and so on.
would be appropriate. I don't know if it's worth mentioning that
O_NOCTTY is the default on some systems (FreeBSD, in particular) but
should be included anyway (if defined) for portability.
Ben
------------------------------
Date: Wed, 5 Aug 2009 22:02:11 -0700 (PDT)
From: pavunkumar <pavun.bks@gmail.com>
Subject: Function prototype
Message-Id: <01b133b8-2bcc-4ab4-a0ef-43c404107c30@l5g2000pra.googlegroups.com>
Dear Friends,
How can I declare the prototype for a function in
Perl.
Thanks
------------------------------
Date: Wed, 05 Aug 2009 22:26:40 -0700
From: sln@netherlands.com
Subject: Re: Function prototype
Message-Id: <8bqk75hhfarf9f7b1f4ddiui2et7bibps9@4ax.com>
On Wed, 5 Aug 2009 22:02:11 -0700 (PDT), pavunkumar <pavun.bks@gmail.com> wrote:
>
>Dear Friends,
>
> How can I declare the prototype for a function in
>Perl.
>
>Thanks
>
>
>
On the top, put it on the top.
-sln
------------------------------
Date: Thu, 6 Aug 2009 09:29:29 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Function prototype
Message-Id: <9sgqk6-1hm1.ln1@osiris.mauzo.dyndns.org>
Quoth pavunkumar <pavun.bks@gmail.com>:
>
> Dear Friends,
>
> How can I declare the prototype for a function in
> Perl.
(Assuming this isn't spam...)
You can't. (What Perl calls 'prototypes' are not what you are looking
for.) What are you actually trying to achieve?
Ben
------------------------------
Date: Thu, 06 Aug 2009 07:45:20 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Function prototype
Message-Id: <slrnh7ljkt.dnp.tadmc@tadmc30.sbcglobal.net>
pavunkumar <pavun.bks@gmail.com> wrote:
> How can I declare the prototype for a function in
> Perl.
It is exceedingly likely that you do NOT want to declare a
prototype for a function.
What is it that you hope to accomplish by using a prototype?
See why Perl's prototypes are nearly always not what you are looking for:
http://www.perl.com/language/misc/fmproto.html
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 6 Aug 2009 06:01:15 -0700 (PDT)
From: pavunkumar <pavun.bks@gmail.com>
Subject: Re: Function prototype
Message-Id: <e983e216-a018-4887-a32f-adbcc1ea8082@j9g2000prh.googlegroups.com>
On Aug 6, 5:45 pm, Tad J McClellan <ta...@seesig.invalid> wrote:
> pavunkumar <pavun....@gmail.com> wrote:
> > How can I declare the prototype for a function in
> > Perl.
>
> It is exceedingly likely that you do NOT want to declare a
> prototype for a function.
>
> What is it that you hope to accomplish by using a prototype?
>
> See why Perl's prototypes are nearly always not what you are looking for:
>
> http://www.perl.com/language/misc/fmproto.html
>
> --
> Tad McClellan
> email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
Dear Sir,
I want to write a function , that should accept specific
number of arguments .
example :
I have a function called "add" , I wrote definition for that adding
two numbers,which I am going to pass as a argument. In this case if I
pass more than two argument, compile has to say error. Actually it is
not saying . So How can I achieve this one.
Thanks.
------------------------------
Date: Thu, 6 Aug 2009 05:20:11 -0700 (PDT)
From: Michaelp <michaelp@hio.no>
Subject: Help with traversing an XML structure
Message-Id: <518b8607-9c13-4493-8560-890d9e113ed3@24g2000yqm.googlegroups.com>
Hello!
I have a large number of huge XML-documents that I need to do things
with relatively fast.
I am trying to use the package XML::CompactTree::XS to interact with
the (relatively simple) XML-structurem of these documents.
(see a fragment here: http://inex.hio.no/~michaelp/test.xml )
The package parses a tree.
$reader = XML::LibXML::Reader->new(location => $url);
$tree = XML::CompactTree::XS::readSubtreeToPerl($reader );
Prettyprinting this tree with the aid of a data dumper, I get the
following:
>print Data::Dumper->Dump($tree);
$VAR1 = 9;
$VAR2 = 'UTF-8';
$VAR3 = [
[
1,
'document',
0,
undef,
[
'ARRAY(0x260eb90)',
.
many of those ...
.
'ARRAY(0xa639448)',
'ARRAY(0xa648668)',
'ARRAY(0xa649280)'
]
]
];
I am interested in traversing the low-level array (with the many
entries) with a foreach loop:
foreach $page (@pageAarray){
# do something
}
But am unable to get a proper handle to this lowe level array.
I have tried referencing and dereferencing my way down this
hierarchy,
but to no avail. Greatful to any hint.
Here is a program fragment with some trials and mostly errors.
-------------------------------------------------------------------------
#!/usr/bin/perl
$\=$"="\n";
use XML::CompactTree::XS;
use XML::LibXML::Reader;
use Data::Dumper;
use UNIVERSAL;
$url="http://inex.hio.no/~michaelp/test.xml";
$reader = XML::LibXML::Reader->new(location => $url);
print $reader;
my $tree = XML::CompactTree::XS::readSubtreeToPerl($reader );
$Data::Dumper::Maxdepth = 3;
print "highest level:";
print Data::Dumper->Dump($tree);
print "\$VAR3 (=\$tree->[2]):";
print Data::Dumper->Dump($tree->[2]);
$tree_2=$tree->[2];
print "\$tree_2:";
print Data::Dumper->Dump($tree_2);
@tree2=@$tree_2;
print "\@tree2:";
print @tree2;
print "\$tree2[0]:";
print $tree2[0];
@tree2_0 = @$tree2[0];
print "\@tree2_0";
print @tree2_0;
print "\$\#tree2_0";
print scalar @tree2_0;
exit;
-----------------------------------------------------------------
------------------------------
Date: Wed, 05 Aug 2009 23:54:39 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Improving page layout when doing elementary CGI programming.
Message-Id: <h5drlp$alq$1@news.eternal-september.org>
Ted Byers wrote:
> What I am looking for is an easy way to do things like place that
> login button in the top right corner, a quarter inch from the top and
> a quarter inch from the side, regardless of the geometry of the
> users' screens, or place this chart in the middle of the screen with
> a client side image map that displays the correct info when the mouse
> is over the chart; and to do these things writing perl code.
Page layout in the browser is done in HTML, not Perl. So build your
HTML, use Perl to drop in your dynamic content, and send that to the
browser.
> Therefore, my question is, "Is there a package related to the CGI
> package, or complimentary to it, that makes it easy to handle page
> layout for the web pages produced?"
HTML::Template. There are others, but HTML::Template should allow you to
do what you want. I'd look at that first.
------------------------------
Date: Thu, 06 Aug 2009 08:46:43 -0000
From: Justin C <justin.0908@purestblue.com>
Subject: Re: Improving page layout when doing elementary CGI programming.
Message-Id: <1084.4a7a9873.8909d@zem>
On 2009-08-05, Ted Byers <r.ted.byers@gmail.com> wrote:
> OK, I am using several CGI packages. This is relatively easy and
> quick. And the pages are much much faster than similar web pages made
> using JSP/JSF in NetBeans.
>
> However, one thing I miss from when I am developing web pages using
> JSP/JSF/Java servlets is that Netbeans makes it trivially easy to
> place controls anywhere on the web page.
>
> No, I am not looking for a perl development environment that will
> duplicate Netbeans! What I am looking for is an easy way to do things
> like place that login button in the top right corner, a quarter inch
> from the top and a quarter inch from the side, regardless of the
> geometry of the users' screens, or place this chart in the middle of
> the screen with a client side image map that displays the correct info
> when the mouse is over the chart; and to do these things writing perl
> code.
>
> Therefore, my question is, "Is there a package related to the CGI
> package, or complimentary to it, that makes it easy to handle page
> layout for the web pages produced?"
Surely that's what the HTML/CSS does for you, and is nothing to do with
the CGI?
Justin.
--
Justin C, by the sea.
------------------------------
Date: Thu, 06 Aug 2009 13:15:36 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: lwp::simple and rget--can I compare
Message-Id: <4a7abbb5$0$30223$9b4e6d93@newsspool1.arcor-online.net>
bdy wrote:
[...]
> if ($firstcopy ne $secondcopy) {
> print ('There has been a content change');
> }
>
> It correctly recognizes a difference, if one exists; but I don't know
> how to print that difference. I tried File:Compare as well; no
> success; I didn't see any feature that would allow me to print the
> difference between the two variables.
Have a look at the String::Diff module at
http://search.cpan.org/~yappo/String-Diff-0.04/lib/String/Diff.pm
which might be what you are looking for.
-Chris
------------------------------
Date: Wed, 05 Aug 2009 20:32:24 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: Passing structure from perl to C.
Message-Id: <4a7a5631$0$4825$ed362ca5@nr5-q3a.newsreader.com>
Prathap wrote:
> Hi:
>
> I'm writing an application that requires perl to pass some data to C
> function as a structure.
> I have this structure in C:
> struct test
> {
> int t1;
> int t2;
> }
>
> The C function addStruct will add the contents of fields t1 and t2
> and will return the result.
What on earth for? Perl can add two numbers pretty well. I assume this
is some kind of pedagogical effort, but I don't know what it is that
you want to learn. The problem with unrealistic examples is that what
might work for them might not work for the real one you have in mind.
> 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);
};
Xho
------------------------------
Date: Wed, 5 Aug 2009 22:02:54 -0700 (PDT)
From: Prathap <prathap.bgl@gmail.com>
Subject: Re: Passing structure from perl to C.
Message-Id: <400dc172-6fab-4f5a-9aed-14da74491940@l5g2000pra.googlegroups.com>
On Aug 6, 8:32=A0am, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
> Prathap wrote:
> > Hi:
>
> > =A0 I'm writing an application that requires perl to pass some data to =
C
> > function as a structure.
> > =A0 I have this structure in C:
> > =A0 struct test
> > =A0 =A0{
> > =A0 =A0 =A0int t1;
> > =A0 =A0 =A0int t2;
> > =A0 }
>
> > =A0 The C function addStruct will add the contents of fields t1 and t2
> > and will return the result.
>
> What on earth for? =A0Perl can add two numbers pretty well. =A0I assume t=
his
> is some kind of pedagogical effort, but =A0I don't know what it is that
> you want to learn. =A0The problem with unrealistic examples is that what
> might work for them might not work for the real one you have in mind.
>
> > =A0 The C function addStruct takes pointer to structure as an input.
>
> > =A0 =A0How do I make perl pass the data as pointer to structure kind of
> > variable?
>
> I'd use a wrapper. =A0(This is for Inline, not XS)
>
> int addStruct_wrapper(int t1, int t2) {
> =A0 =A0struct test t;
> =A0 =A0t.t1=3Dt1;
> =A0 =A0t.t2=3Dt2;
> =A0 =A0return addStruct(&t);
>
> };
>
> Xho
Thanks for the reply.
How do I access the members of the structure that the C routinue
returns in Perl.
Regards,
Prathap
------------------------------
Date: Wed, 05 Aug 2009 22:22:50 -0700
From: sln@netherlands.com
Subject: Re: Passing structure from perl to C.
Message-Id: <gfpk751c5tn911upr2tlhfuqti34ju8ijh@4ax.com>
On Wed, 5 Aug 2009 22:02:54 -0700 (PDT), Prathap <prathap.bgl@gmail.com> wrote:
>On Aug 6, 8:32 am, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
>> Prathap wrote:
>> > Hi:
>>
>> > I'm writing an application that requires perl to pass some data to C
>> > function as a structure.
>> > I have this structure in C:
>> > struct test
>> > {
>> > int t1;
>> > int t2;
>> > }
>>
>> > The C function addStruct will add the contents of fields t1 and t2
>> > and will return the result.
>>
>> What on earth for? Perl can add two numbers pretty well. I assume this
>> is some kind of pedagogical effort, but I don't know what it is that
>> you want to learn. The problem with unrealistic examples is that what
>> might work for them might not work for the real one you have in mind.
>>
>> > 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);
>>
>> };
>>
>> Xho
>
>Thanks for the reply.
>How do I access the members of the structure that the C routinue
>returns in Perl.
>
>Regards,
>Prathap
I ain't exactly sure what that guy who mentioned a wrapper and his
example whas doing there. Doing c++ for about 25 years
and perl for a few, still his syntax and prototyping seems a mix
of both. Don't know what Inline is, must be a perl thing.
The barriers between the two languages are artificially induced,
a frankenstien hypred depending on which side of the compilation
(c - the include file nightmare and perl lib nightmare) and perl
having to load that lib/dll(if it does dll).
Thats why I don't take my mind down that dark alley. Neither should
you because there is no reward on the other side. Unless you are
doing something substantial in c side where the basic thrust of
your effort is on that side, the back and forth interface overhead
will substantially slow down performance on incremental tasks
permeated over time.
-sln
------------------------------
Date: Thu, 6 Aug 2009 01:24:48 -0700 (PDT)
From: sisyphus <sisyphus359@gmail.com>
Subject: Re: Passing structure from perl to C.
Message-Id: <b483bbf8-b3a1-4d71-9b35-341124ba42c6@i8g2000pro.googlegroups.com>
On Aug 6, 3:02=A0pm, Prathap <prathap....@gmail.com> wrote:
> How do I access the members of the structure that the C routinue
> returns in Perl.
I'm not sure I understand the question correctly, but here's a
complete script that answers what I *think* that question asks (and
utilises what Xho already gave you):
#########################################
use warnings;
use strict;
use Inline C =3D> Config =3D>
BUILD_NOISY =3D> 1;
use Inline C =3D> <<'EOC';
typedef struct {
int t1;
int t2;
} Test;
int addStruct(Test * t) {
int ret =3D t->t1 + t-> t2;
return ret;
}
int addStruct_wrapper(int t1, int t2) {
Test t;
t.t1=3Dt1;
t.t2=3Dt2;
return addStruct(&t);
}
void return_members(int t1, int t2) {
Inline_Stack_Vars; /* dXSARGS */
Test t;
t.t1=3Dt1;
t.t2=3Dt2;
Inline_Stack_Reset; /* sp =3D mark */
Inline_Stack_Push(sv_2mortal(newSViv(t.t1))); /* XPUSHs() */
Inline_Stack_Push(sv_2mortal(newSViv(t.t2))); /* XPUSHs() */
Inline_Stack_Done; /* PUTBACK */
Inline_Stack_Return(2); /* XSRETURN(2) */
}
EOC
my $x =3D addStruct_wrapper(5, 7);
print "$x\n";
my @x =3D return_members(9, 23);
print "@x\n";
#########################################
With Inline::C installed, check out 'perldoc Inline::C-Cookbook' for
further examples.
Note that Inline::C is essentially the same as XS - it's just an
automated procedure that generates the XS code from the C code
supplied, compiles that XS code, and then runs the perl code.
Cheers,
Rob
------------------------------
Date: Thu, 6 Aug 2009 09:37:13 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Passing structure from perl to C.
Message-Id: <pahqk6-bop1.ln1@osiris.mauzo.dyndns.org>
Quoth Prathap <prathap.bgl@gmail.com>:
> On Aug 6, 8:32 am, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
> >
> > 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.
Well, unpack, but if you're writing an XSUB anyway you might as well
unpack the structure in C and return Perl data types to Perl, avoiding
nasty issues like data-type size and structure packing.
Can you give us a more complete description of what you are trying to
do? It's very hard to know where you are stuck with these vague
questions. If you post the actual code you have so far, and say what
isn't working, it will make things much clearer (have you read the
Posting Guidelines?).
Ben
------------------------------
Date: Thu, 6 Aug 2009 09:39:58 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Passing structure from perl to C.
Message-Id: <ufhqk6-bop1.ln1@osiris.mauzo.dyndns.org>
Quoth sisyphus <sisyphus359@gmail.com>:
<snip>
> Inline_Stack_Vars; /* dXSARGS */
<snip>
> Inline_Stack_Reset; /* sp = mark */
> Inline_Stack_Push(sv_2mortal(newSViv(t.t1))); /* XPUSHs() */
> Inline_Stack_Push(sv_2mortal(newSViv(t.t2))); /* XPUSHs() */
> Inline_Stack_Done; /* PUTBACK */
> Inline_Stack_Return(2); /* XSRETURN(2) */
That made me laugh :). When you're translating from Inline back to real
XS macros in order to understand it, I really have to wonder if it's
worth the effort :).
Ben
------------------------------
Date: Thu, 06 Aug 2009 02:09:12 -0700
From: sln@netherlands.com
Subject: Re: Passing structure from perl to C.
Message-Id: <4b7l75d8q422e72853l1vu3m3vb7neqmnc@4ax.com>
On Thu, 6 Aug 2009 01:24:48 -0700 (PDT), sisyphus <sisyphus359@gmail.com> wrote:
>On Aug 6, 3:02 pm, Prathap <prathap....@gmail.com> wrote:
>
>> How do I access the members of the structure that the C routinue
>> returns in Perl.
>
>I'm not sure I understand the question correctly, but here's a
>complete script that answers what I *think* that question asks (and
>utilises what Xho already gave you):
>
>#########################################
>use warnings;
>use strict;
>
>use Inline C => Config =>
> BUILD_NOISY => 1;
>
>use Inline C => <<'EOC';
>
>typedef struct {
> int t1;
> int t2;
>} Test;
>
>int addStruct(Test * t) {
> int ret = t->t1 + t-> t2;
> return ret;
>}
>
>int addStruct_wrapper(int t1, int t2) {
> Test t;
> t.t1=t1;
> t.t2=t2;
> return addStruct(&t);
>}
>
>void return_members(int t1, int t2) {
> Inline_Stack_Vars; /* dXSARGS */
> Test t;
> t.t1=t1;
> t.t2=t2;
> Inline_Stack_Reset; /* sp = mark */
> Inline_Stack_Push(sv_2mortal(newSViv(t.t1))); /* XPUSHs() */
> Inline_Stack_Push(sv_2mortal(newSViv(t.t2))); /* XPUSHs() */
> Inline_Stack_Done; /* PUTBACK */
> Inline_Stack_Return(2); /* XSRETURN(2) */
>}
>
>EOC
>
>my $x = addStruct_wrapper(5, 7);
>print "$x\n";
>my @x = return_members(9, 23);
>print "@x\n";
>#########################################
>
>With Inline::C installed, check out 'perldoc Inline::C-Cookbook' for
>further examples.
>
>Note that Inline::C is essentially the same as XS - it's just an
>automated procedure that generates the XS code from the C code
>supplied, compiles that XS code, and then runs the perl code.
>
>Cheers,
>Rob
Its 'sissy C' for people who think perl is
-sln
------------------------------
Date: Thu, 6 Aug 2009 02:10:21 -0700 (PDT)
From: sisyphus <sisyphus359@gmail.com>
Subject: Re: Passing structure from perl to C.
Message-Id: <73aaf4f0-5e54-474f-aa60-6a1485331061@f18g2000prf.googlegroups.com>
On Aug 6, 6:39=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
> That made me laugh :)
Always delighted to introduce a little cheer into the world ;-)
> When you're translating from Inline back to real
> XS macros in order to understand it, I really have to wonder if it's
> worth the effort :).
I've often wondered why Ingy went to the trouble of writing those
Inline_Stack_* definitions. (I guess they have mnemonic properties
that the XS macros don't, but I generally use the XS macros these days
in my Inline::C code.)
The translation was done simply to save anyone (who didn't know what
the Inline_Stack_* definitions are) the trouble of digging through the
C.pm source.
Cheers,
Rob
------------------------------
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 2538
***************************************
