[29705] in Perl-Users-Digest
Perl-Users Digest, Issue: 949 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 18 16:09:44 2007
Date: Thu, 18 Oct 2007 13: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 Thu, 18 Oct 2007 Volume: 11 Number: 949
Today's topics:
Re: Change date on-the-fly (Gary E. Ansok)
Re: Change date on-the-fly <ldolan@thinkinghatbigpond.net.au>
Re: Change date on-the-fly <ldolan@thinkinghatbigpond.net.au>
Re: how to capture exit value via pipe <glex_no-spam@qwest-spam-no.invalid>
Re: how to capture exit value via pipe xhoster@gmail.com
Re: how to capture exit value via pipe <ku996r@gmail.com>
Re: how to capture exit value via pipe xhoster@gmail.com
Re: Is perl a good candidate for Data Mining xhoster@gmail.com
Re: join("") somehow changes characters after 'z' <Cloink_Friggson@ntlworld.com>
Re: join("") somehow changes characters after 'z' <Cloink_Friggson@ntlworld.com>
Re: line 16 <zaxfuuq@invalid.net>
OT Re: jabba the tuh <zaxfuuq@invalid.net>
Re: OT Re: jabba the tuh <bik.mido@tiscalinet.it>
Re: please help optimize sub xhoster@gmail.com
Re: please help optimize sub xhoster@gmail.com
Re: Pod and perl code integration <stefano.sabatini@caos.org>
Re: printing a subject line <zaxfuuq@invalid.net>
Re: printing a subject line (Alan Curry)
Re: printing a subject line <zaxfuuq@invalid.net>
Re: printing a subject line <bik.mido@tiscalinet.it>
Re: printing a subject line <bik.mido@tiscalinet.it>
Re: Using (?{}) code blocks and $^R <glex_no-spam@qwest-spam-no.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 Oct 2007 15:47:11 +0000 (UTC)
From: ansok@alumni.caltech.edu (Gary E. Ansok)
Subject: Re: Change date on-the-fly
Message-Id: <ff7v5v$chc$1@naig.caltech.edu>
In article <1192662748.758544.215190@v23g2000prn.googlegroups.com>,
Ron Bergin <rkb@i.frys.com> wrote:
>I would use the strftime funcion from POSIX module.
>
>use POSIX qw(strftime);
>
>use constant ONE_DAY => 86400;
>
>my $from_date = strftime("%Y/%m/%d", localtime(time - 3 * ONE_DAY));
>my $to_date = strftime("%Y/%m/%d", localtime(time - ONE_DAY));
Keep in mind that this may not give the desired results around
the daylight-savings transitions.
If you know that your script will never (what, never?) be run
2300-0100, or if you know that the effective timezone does not
use DST, then this may not be an issue for you. Otherwise,
I'd look into one of the Date:: modules instead.
There is something to be said for storing the last-processed
dates in a file -- if for some reason one run doesn't happen
(system was down, perhaps), then the next run will handle the
data that would have been processed (as well as any new data).
Gary
------------------------------
Date: Thu, 18 Oct 2007 17:32:33 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Re: Change date on-the-fly
Message-Id: <RMMRi.1461$CN4.1393@news-server.bigpond.net.au>
"Ron Bergin" <rkb@i.frys.com> wrote in message
news:1192662748.758544.215190@v23g2000prn.googlegroups.com...
> I would use the strftime funcion from POSIX module.
>
> use POSIX qw(strftime);
>
> use constant ONE_DAY => 86400;
>
> my $from_date = strftime("%Y/%m/%d", localtime(time - 3 * ONE_DAY));
> my $to_date = strftime("%Y/%m/%d", localtime(time - ONE_DAY));
>
Thx Ron!
I will have a look at POSIX.
Your assistance is appreciated, cheers, Peter
------------------------------
Date: Thu, 18 Oct 2007 17:32:33 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Re: Change date on-the-fly
Message-Id: <RMMRi.1462$CN4.1197@news-server.bigpond.net.au>
"Gary E. Ansok" <ansok@alumni.caltech.edu> wrote in message
news:ff7v5v$chc$1@naig.caltech.edu...
> In article <1192662748.758544.215190@v23g2000prn.googlegroups.com>,
> Ron Bergin <rkb@i.frys.com> wrote:
>>I would use the strftime funcion from POSIX module.
>>
>>use POSIX qw(strftime);
>>
>>use constant ONE_DAY => 86400;
>>
>>my $from_date = strftime("%Y/%m/%d", localtime(time - 3 * ONE_DAY));
>>my $to_date = strftime("%Y/%m/%d", localtime(time - ONE_DAY));
>
> Keep in mind that this may not give the desired results around
> the daylight-savings transitions.
>
> If you know that your script will never (what, never?) be run
> 2300-0100, or if you know that the effective timezone does not
> use DST, then this may not be an issue for you. Otherwise,
> I'd look into one of the Date:: modules instead.
>
> There is something to be said for storing the last-processed
> dates in a file -- if for some reason one run doesn't happen
> (system was down, perhaps), then the next run will handle the
> data that would have been processed (as well as any new data).
>
> Gary
Thx for the comments Gary!
I am thinking this is the way to go as the file can be checked
periodically.
Your help is appreciated, cheers, Peter
------------------------------
Date: Thu, 18 Oct 2007 10:51:06 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: how to capture exit value via pipe
Message-Id: <471780ea$0$514$815e3792@news.qwest.net>
ku916 wrote:
> I wrote a perl script that would read stdout and parse for particular
> set of keywords, if found it will exit with error status.
>
> sample cmd:
>> sqlplus user/wrong_password @somesql.sql | perl_filter.pl
>
> perl_filter.pl is my script
> since we passed in <wrong_password> into sqlplus, perl_filter.pl will
> parse the stdout (from sqlplus) and find the keyword (i.e. error) and
> exit with non-zero value
>
> but the problem I'm having now is that when the parent command itself
> errors out how can perl_filter.pl catch the exit value ($?) viva pipe
> like:
>> sqlpus user/wrong_password @somesql.sql | perl_filter.pl
>
> since there is no program called sqlpus, it will return non-zero exit
> value, but perl_filter.pl would not detect any stdout keyword and it
> will just exit and return success (zero) value.
>
> any suggestions would be great help
If there's nothing to read from STDIN, then that could be treated
as an error condition.
------------------------------
Date: 18 Oct 2007 18:34:01 GMT
From: xhoster@gmail.com
Subject: Re: how to capture exit value via pipe
Message-Id: <20071018143403.880$26@newsreader.com>
ku916 <ku996r@gmail.com> wrote:
> I wrote a perl script that would read stdout and parse for particular
> set of keywords, if found it will exit with error status.
>
> sample cmd:
> > sqlplus user/wrong_password @somesql.sql | perl_filter.pl
>
> perl_filter.pl is my script
> since we passed in <wrong_password> into sqlplus, perl_filter.pl will
> parse the stdout (from sqlplus) and find the keyword (i.e. error) and
> exit with non-zero value
>
> but the problem I'm having now is that when the parent command itself
> errors out how can perl_filter.pl catch the exit value ($?) viva pipe
> like:
> > sqlpus user/wrong_password @somesql.sql | perl_filter.pl
It appears that a shell is what is starting sqlpus, and thus it is the
shell's responsibility to deal with the error. If you want Perl to deal
with it, make Perl start the script in the first place:
open my $fh, "-|", 'sqlpus user/wrong_password @somesql.sql'
or do_something_with_errors($!,$?);
Maybe even using the 4 or more argument form of pipe open.
Or you could just assume that if STDIN is empty, then an error occurred,
but that seems like a pretty non-general and/or brittle solution.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Thu, 18 Oct 2007 12:05:07 -0700
From: ku916 <ku996r@gmail.com>
Subject: Re: how to capture exit value via pipe
Message-Id: <1192734307.372653.302250@v29g2000prd.googlegroups.com>
what are the "4 or more argument form of pipe open"?
is there no way to grab $? or $PIPIESTATUS in perl? I've tried
something like this (but does not work)
if ( $? != 0 || $PIPESTATUS[0] != 0 )
{
print "caught failed exit status\n";
exit 1;
}
else {
exit 0;
}
------------------------------
Date: 18 Oct 2007 19:51:40 GMT
From: xhoster@gmail.com
Subject: Re: how to capture exit value via pipe
Message-Id: <20071018155142.766$Gf@newsreader.com>
ku916 <ku996r@gmail.com> wrote:
> what are the "4 or more argument form of pipe open"?
from perlipc:
Since Perl 5.8.0, you can also use the list form of "open"
for pipes : the syntax
open KID_PS, "-|", "ps", "aux" or die $!;
forks the ps(1) command (without spawning a shell, as
there are more than three arguments to open()), and reads
its standard output via the "KID_PS" filehandle. The cor-
responding syntax to write to command pipes (with "|-" in
place of "-|") is also implemented.
>
> is there no way to grab $? or $PIPIESTATUS in perl?
For $?, yes, *if Perl started the command in the first place*.
I'm not aware of a built-in Perl variable named $PIPESTATUS.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: 18 Oct 2007 16:13:29 GMT
From: xhoster@gmail.com
Subject: Re: Is perl a good candidate for Data Mining
Message-Id: <20071018121331.385$TK@newsreader.com>
Bo Yang <struggleyb@gmail.com> wrote:
> Hi,
> I am wondering is perl a good candidate for Data Mining?
"Data Mining" covers a multitude of sins. Some are best committed with
Perl, some are not.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Thu, 18 Oct 2007 12:59:11 -0700
From: Cloink <Cloink_Friggson@ntlworld.com>
Subject: Re: join("") somehow changes characters after 'z'
Message-Id: <1192737551.682655.123960@k35g2000prh.googlegroups.com>
> Have you examined HTML::Entities::encode_entities? This may do what
> you require--not positive.
I will look, thanks. Not now, I need the sette, the tv and a glass of
wine.
------------------------------
Date: Thu, 18 Oct 2007 13:00:54 -0700
From: Cloink <Cloink_Friggson@ntlworld.com>
Subject: Re: join("") somehow changes characters after 'z'
Message-Id: <1192737654.672598.279790@e9g2000prf.googlegroups.com>
> Have you examined HTML::Entities::encode_entities? This may do what
> you require--not positive.
I will look, thanks. Not now, I need the settee, the tv and a glass of
wine (or two).
------------------------------
Date: Thu, 18 Oct 2007 12:05:52 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: line 16
Message-Id: <IaadnUSX5bbmPYranZ2dnUVZ_ramnZ2d@comcast.com>
"Michele Dondi" <bik.mido@tiscalinet.it> wrote in message
news:i7beh3hgvvpc54pksto6mcfbvtaq3sbij9@4ax.com...
> On Wed, 17 Oct 2007 22:06:12 -0700, "Wade Ward" <zaxfuuq@invalid.net>
> wrote:
>
>>>> Testing for return values is a bit more than my current perl game.
>>>
>>> You should always test return values.
>>> If you feel you are not competent enough to do that, then you should
>>> hire someone else to do the programing for you.
>>2 interpersonal normative statements, which are philosophically
>>unintelligible.
>>
>>How do I test for return values?
>
> Too many ways. A common one is the
TMTOWTDI? tim-toady
> or do_something; # idiom
>
> But of course you can use an if-else construct instead.
>
I tried to find something in my reading last night, but there is *nothing*
on this in the Camel book, not under value or return, nor in functions.
--
wade ward
"Nicht verzagen, Bruder Grinde fragen."
------------------------------
Date: Thu, 18 Oct 2007 12:21:52 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: OT Re: jabba the tuh
Message-Id: <0KOdnTlw0qWmOYranZ2dnUVZ_qOknZ2d@comcast.com>
"Michele Dondi" <bik.mido@tiscalinet.it> wrote in message
news:d1beh3hv20ckialcml9cn6a9ucfo6qdnm5@4ax.com...
> On Wed, 17 Oct 2007 18:22:39 -0700, "Wade Ward" <zaxfuuq@invalid.net>
> wrote:
>
>>> Yeah, kidiots use it in that acceptation.
>> [form.]
>
> No, I did mean *acceptation*:
>
> : 2. The meaning in which a word or expression is understood,
> : or generally received; as, term is to be used according to
> : its usual acceptation.
> :
> : My words, in common acceptation, Could never give
> : this provocation. --Gay.
>
> Or
>
> : 2: the meaning of a word [syn: {word meaning}, {word sense}]
'acceptation' is an oxymoron in english. It is not in common usage, like
its synonym "usage." As this sentence stands:
>>> Yeah, kidiots use it in that acceptation.
, it makes a native speaker say, huh? You have good English, so I thought
you might be interested.
--
wade ward
"Nicht verzagen, Bruder Grinde fragen."
------------------------------
Date: Thu, 18 Oct 2007 22:06:32 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: OT Re: jabba the tuh
Message-Id: <h5ffh3pce6nu3eeqbbifkagu3fe9bejfo4@4ax.com>
On Thu, 18 Oct 2007 12:21:52 -0700, "Wade Ward" <zaxfuuq@invalid.net>
wrote:
>> : 2: the meaning of a word [syn: {word meaning}, {word sense}]
>'acceptation' is an oxymoron in english. It is not in common usage, like
>its synonym "usage." As this sentence stands:
Are you sure it is an *oxymoron*?!?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 18 Oct 2007 18:42:16 GMT
From: xhoster@gmail.com
Subject: Re: please help optimize sub
Message-Id: <20071018144218.600$6I@newsreader.com>
QoS@domain.invalid wrote:
> "A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in message-id:
> <Xns99CCDA9215648asu1cornelledu@127.0.0.1>
>
> >
> > QoS@domain.invalid wrote in news:T9yRi.15082$fm1.8984@trnddc01:
> >
> > > sub optimizeMePlease
> > > {
> > > my $input = $_[0];
> > > my $return;
> > > my @array = (
> > > 1.6931595338935, 5.07947860168049, 8.46579766946749,
> > > 11.8521167372545, 15.2384358050415, 18.6247548728285,
> > > 22.0110739406155, 25.3973930084025, 28.7837120761895,
> > > 32.1700311439765, 35.5563502117635, 38.9426692795505,
> > > 42.3289883473375, 45.7153074151245, 49.1016264829115,
> > > 52.4879455506985, 55.8742646184855, 59.2605836862725,
> > > 62.6469027540595, 66.0332218218465, 69.4195408896335,
> > > 72.8058599574205, 76.1921790252075, 79.5784980929945,
> > > 82.9648171607815, 86.3511362285685, 89.7374552963554,
> > > 93.1237743641424, 96.5100934319294, 100,
> > > );
> >
> > ...
> >
> > I first moved the definition of @array outside of the subroutine. That
> > resulted in a speed-up of about 55% on my system.
> >
> > Sinan
> >
>
> Ah yes of course, the loading of the array must be alot of work, a
> tradoff then.. memory for speed. Thank you for your attention.
Not even that. Not only is it faster, but it should use less memory, too
(Although it is hard to see that that could matter). With it in the sub,
the data has to be stored someplace as a static data, and then has to be
copied someplace else at each run, to that is two copies of it.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: 18 Oct 2007 18:47:24 GMT
From: xhoster@gmail.com
Subject: Re: please help optimize sub
Message-Id: <20071018144726.527$mM@newsreader.com>
QoS@domain.invalid wrote:
> Hello,
>
> Are there ways to have this execute faster using hashes or map functions?
> Any ideas on optimizing the following subroutine would be greatly
> appreciated.
As has been said already, move the array assignment out of the sub.
After that, the obvious optimization would be a binary search, but
with only 30 things to search through I wouldn't expect much of an
improvement.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Thu, 18 Oct 2007 17:39:30 +0200 (CEST)
From: Stefano Sabatini <stefano.sabatini@caos.org>
Subject: Re: Pod and perl code integration
Message-Id: <slrnfhevhf.jdm.stefano.sabatini@geppetto.reilabs.com>
On 2007-10-18, Stefano Sabatini <stefano.sabatini@caos.org> wrote:
> Hi perlers,
>
> there is a way to integrate nicely Perl code with Pod?
>
> I love the Pod::Usage module very much, and I would like to do
> something like this:
>
> my $program_name=foo;
> my $foo= 1;
>
> ...
>
>=head1 NAME
>
> $program_name - Foo and bazz all the bars of the world.
>
>=head1 SYNOPSIS
>
> $program_name <options> <input-file>
>
>=head1 OPTIONS
>
>=item B<--foo|-F>
>
> Foo value to use when fooing (default is $foo).
>
>=back
>
> Is this possible (I think it isn't)? Can you suggest some way to
> achieve the same effect (maybe with some other module)?
>
> Many thanks in advance.
>
> Regards.
Ehm... I missed the Pod in the subject...
Regards.
--
Stefano Sabatini
Linux user number 337176 (see http://counter.li.org)
------------------------------
Date: Thu, 18 Oct 2007 12:14:04 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: printing a subject line
Message-Id: <E5OdnYyBx6v6P4ranZ2dnUVZ_rKtnZ2d@comcast.com>
"Michele Dondi" <bik.mido@tiscalinet.it> wrote in message
news:7kceh35npon4kgm38t5hd4h7dsuch8qko7@4ax.com...
> On Wed, 17 Oct 2007 17:40:40 -0700, "Wade Ward" <zaxfuuq@invalid.net>
> wrote:
> Re the translation: no, it's way too OT here. Write to me by email and
> I may be so gentle as to translate that for you.
A message (from mpjensen7@comcast.net) was received at 18 Oct 2007 18:07:00
+0000.
The following addresses had delivery problems:
<bik.mido@tiscalinet.it>
Permanent Failure:
550_RCPT_TO:<bik.mido@tiscalinet.it>_Mailbox_disk_quota_exceeded
Delivery last attempted at Thu, 18 Oct 2007 18:07:02 -0000
Che cosa è il vostro indirizzo?
--
wade ward
"Nicht verzagen, Bruder Grinde fragen."
------------------------------
Date: Thu, 18 Oct 2007 18:25:22 +0000 (UTC)
From: pacman@TheWorld.com (Alan Curry)
Subject: Re: printing a subject line
Message-Id: <ff88ei$kgs$1@pcls6.std.com>
In article <7kceh35npon4kgm38t5hd4h7dsuch8qko7@4ax.com>,
Michele Dondi <bik.mido@tiscalinet.it> wrote:
>On Wed, 17 Oct 2007 17:40:40 -0700, "Wade Ward" <zaxfuuq@invalid.net>
>wrote:
>
>>> Due to severe lack of time, I didn't read the whole code, but that
>>> looks suspiscious: what is $_ at that point?!? Why should it contain
>>> an arrayref? Suspect: didn't you by any chance think you're in a
>>> C<for> loop or other construct creating an alias to $_, when in fact
>>> you're not?
>>Oh, and since you mention C and presumably know more Italian than I, can you
>>help me translate this:
>
>Huh?!? (Again) Where in hell did I ever mention C at all?!?
This part right here:
>>> C<for> loop
could very easily be interpreted as making a comparison to a C-language-style
for loop by someone who has never seen POD source before, or didn't expect to
see it in a post that otherwise contained only ordinary English text with
some small perly bits.
Putting undeclared POD markup in a Usenet message seems about as wise as
putting in other kinds of undeclared markup.
Although you might wish that every perl programmer document every program and
every subroutine with inline POD, they don't. (In some cases, we're lucky if
they \fIread\fR any documentation, let alone write it.)
--
Alan Curry
pacman@world.std.com
------------------------------
Date: Thu, 18 Oct 2007 13:20:01 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: printing a subject line
Message-Id: <0-GdnYwSIs9BLIranZ2dnUVZ_h2pnZ2d@comcast.com>
"Alan Curry" <pacman@TheWorld.com> wrote in message
news:ff88ei$kgs$1@pcls6.std.com...
> In article <7kceh35npon4kgm38t5hd4h7dsuch8qko7@4ax.com>,
> Michele Dondi <bik.mido@tiscalinet.it> wrote:
>>Huh?!? (Again) Where in hell did I ever mention C at all?!?
>
> This part right here:
>
>>>> C<for> loop
>
> could very easily be interpreted as making a comparison to a
> C-language-style
> for loop by someone who has never seen POD source before, or didn't expect
> to
> see it in a post that otherwise contained only ordinary English text with
> some small perly bits.
>
> Putting undeclared POD markup in a Usenet message seems about as wise as
> putting in other kinds of undeclared markup.
>
> Although you might wish that every perl programmer document every program
> and
> every subroutine with inline POD, they don't. (In some cases, we're lucky
> if
> they \fIread\fR any documentation, let alone write it.)
I have a real tough time figuring out the control structures in perl. I'm
used to control structures being explicit, either in fortran or C. My
inability to pluck things in and out of control structures is why I had to
grab only one article to extract the subject. The loops, consequently, were
of length one, and I could use the default thingamajig $_ .
--
wade ward
"Nicht verzagen, Bruder Grinde fragen."
------------------------------
Date: Thu, 18 Oct 2007 21:41:06 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: printing a subject line
Message-Id: <mldfh3ltnoeg373q2sv1cl881jp811gv1d@4ax.com>
On Thu, 18 Oct 2007 12:14:04 -0700, "Wade Ward" <zaxfuuq@invalid.net>
wrote:
>> Re the translation: no, it's way too OT here. Write to me by email and
>> I may be so gentle as to translate that for you.
>
>A message (from mpjensen7@comcast.net) was received at 18 Oct 2007 18:07:00
>+0000.
>
>The following addresses had delivery problems:
>
><bik.mido@tiscalinet.it>
>Permanent Failure:
>550_RCPT_TO:<bik.mido@tiscalinet.it>_Mailbox_disk_quota_exceeded
>Delivery last attempted at Thu, 18 Oct 2007 18:07:02 -0000
>
>Che cosa è il vostro indirizzo?
I already gave you my real address and you did already write to me
directly.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 18 Oct 2007 21:48:11 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: printing a subject line
Message-Id: <b0efh3hcln9gg9ksutlo9gruvcugcjvmnk@4ax.com>
On Thu, 18 Oct 2007 18:25:22 +0000 (UTC), pacman@TheWorld.com (Alan
Curry) wrote:
>This part right here:
>
>>>> C<for> loop
>
>could very easily be interpreted as making a comparison to a C-language-style
>for loop by someone who has never seen POD source before, or didn't expect to
>see it in a post that otherwise contained only ordinary English text with
>some small perly bits.
>
>Putting undeclared POD markup in a Usenet message seems about as wise as
>putting in other kinds of undeclared markup.
>
>Although you might wish that every perl programmer document every program and
>every subroutine with inline POD, they don't. (In some cases, we're lucky if
>they \fIread\fR any documentation, let alone write it.)
D'Oh! I hadn't thought of that. Unfortunately C<for> is not
unambiguous as other keywords and one easily want a special markup for
it, for which POD seems perfect. OTOH I hate when people writes and
all uppercase FOR instead, since that is simply *not* a keyword
itself.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 18 Oct 2007 10:38:14 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Using (?{}) code blocks and $^R
Message-Id: <47177de6$0$3573$815e3792@news.qwest.net>
David Combs wrote:
> Man, am I out of date (or maybe just blind to the doc!).
>
> Really briefly, just a quick overview, what are these two
> things, and where do they seem to be useful?
perldoc perlre
>
> Also, in what version did they or each first appear?
------------------------------
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 949
**************************************
