[29046] in Perl-Users-Digest
Perl-Users Digest, Issue: 290 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 2 03:09:59 2007
Date: Mon, 2 Apr 2007 00:09:04 -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 Mon, 2 Apr 2007 Volume: 11 Number: 290
Today's topics:
Re: Any good Perl coders out there? <BLOCKSPAMfishfry@your-mailbox.com>
Re: Any good Perl coders out there? <BLOCKSPAMfishfry@your-mailbox.com>
Re: Any good Perl coders out there? <mjcarman@mchsi.com>
Re: Any good Perl coders out there? <uri@stemsystems.com>
Re: Any good Perl coders out there? <uri@stemsystems.com>
Re: Any good Perl coders out there? <kkeller-usenet@wombat.san-francisco.ca.us>
Re: Any good Perl coders out there? <kkeller-usenet@wombat.san-francisco.ca.us>
executing code without exiting the interpreter <n.pontikos@laconic.com>
Re: executing code without exiting the interpreter <wahab-mail@gmx.de>
How to put the command ls -l| awk '{print $1" "$5" "$9} <robertchen117@gmail.com>
Re: How to put the command ls -l| awk '{print $1" "$5" <robertchen117@gmail.com>
Re: How to put the command ls -l| awk '{print $1" "$5" <someone@example.com>
Re: How to put the command ls -l| awk '{print $1" "$5" <paduille.4060.mumia.w+nospam@earthlink.net>
new CPAN modules on Mon Apr 2 2007 (Randal Schwartz)
Re: readline - possible security hole noident@my-deja.com
Re: Shifting Away anno4000@radom.zrz.tu-berlin.de
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 01 Apr 2007 18:53:12 -0700
From: fishfry <BLOCKSPAMfishfry@your-mailbox.com>
Subject: Re: Any good Perl coders out there?
Message-Id: <BLOCKSPAMfishfry-D3491E.18531101042007@news.giganews.com>
In article <Lc117449434296880x8c0e7c4@pong.podro.com>,
nospam@geniegate.com (Jamie) wrote:
> In <GMhMh.21970$Uk6.15371@reader1.news.saunalahti.fi>,
> Timo Jokinen <jokinentimo@kolumbus.fi.invalid> mentions:
> >Michael Vilain wrote:
> >> In article <1174493670.753360.57970@n76g2000hsh.googlegroups.com>,
> >> "amerar@iwc.net" <amerar@iwc.net> wrote:
> >>
> >>> Hi All,
> >>>
> >>> I need to convert a PHP script into Perl. This PHP script interacts
> >>> with our Oracle database. It executes some stored procedures and
> >>> returns values. I've pasted the PHP code below, I'm just not sure how
> >>> to code it in Perl & DBI. Can anyone help?? I would really
> >>> appreciate it.
> >>>
> >>> PHP CODE
> >>> ----------------
> >>> $conn = ociplogon("scott", "tiger", "ABCD.world");
> >>> $curs = OCINewCursor($conn);
> >>> $stmt = OCIParse($conn,"BEGIN AUTO_CHARGE.EXP_RENEW_SUBSCR(:data);
> >>> end ;");
> >>> ocibindbyname($stmt,"data",&$curs,-1,OCI_B_CURSOR);
> >>> ociexecute($stmt);
> >>> ociexecute($curs);
> >>>
> >>> while (OCIFetchInto($curs,&$data)) {
> >>> $customer_id = $data[0];
> >>> $owner_name = $data[1];
> >>> $type = $data[2];
> >>> $code = $data[3];
> >>> .
> >>> .
> >>> .
> >>> }
>
> >Sorry but if you doesn't want to help him/her don't bother to
> >write your sarcastic's answer's.
>
> Well said!
>
> This is part of the reason perl is loosing ground to other languages like
> PHP.
>
>
> Here we have a perfectly good opportunity to introduce someone to the wonders
> of perl and we've thrown it away. The original poster will probably walk away
> from all this thinking
>
> "Perl? phew! no thanks!"
>
>
I'm happy to add a hearty Me Too to this thread. This newsgroup has had
an attitude problem from day one. I don't know if the newsgroup's
attitude correlates with the decline of Perl as a development language;
but it certainly isn't helping any.
A PHP programmer comes here with a request for a how-to on the standard
db connection/retrieval syntax; and he gets a hearty FUCK YOU from
several different people. It's really sad.
------------------------------
Date: Sun, 01 Apr 2007 18:54:19 -0700
From: fishfry <BLOCKSPAMfishfry@your-mailbox.com>
Subject: Re: Any good Perl coders out there?
Message-Id: <BLOCKSPAMfishfry-D9FAAA.18541901042007@news.giganews.com>
In article <8tn8d4xkm6.ln2@goaway.wombat.san-francisco.ca.us>,
Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us> wrote:
> On 2007-03-21, Jamie <nospam@geniegate.com> wrote:
> > In <GMhMh.21970$Uk6.15371@reader1.news.saunalahti.fi>,
> > Timo Jokinen <jokinentimo@kolumbus.fi.invalid> mentions:
> >
> >>Sorry but if you doesn't want to help him/her don't bother to
> >>write your sarcastic's answer's.
> >
> > Well said!
> >
> > This is part of the reason perl is loosing ground to other languages like
> > PHP.
>
> I'm sure you have data to support this claim!
>
Just look at the Craigslist help-wanteds.
------------------------------
Date: Mon, 02 Apr 2007 03:49:29 GMT
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: Any good Perl coders out there?
Message-Id: <d3%Ph.25190$_c5.16047@attbi_s22>
fishfry:
> Jamie:
>> Timo Jokinen:
>>>
>>> Sorry but if you doesn't want to help him/her don't bother to write your
>>> sarcastic's answer's.
>>
>> This is part of the reason perl is loosing ground to other languages like
>> PHP.
If you think that all Perl is good for is CGI, then you have a lot to learn.
>> Here we have a perfectly good opportunity to introduce someone to the
>> wonders of perl and we've thrown it away. The original poster will probably
>> walk away from all this thinking "Perl? phew! no thanks!"
If it means one less person coming here looking for someone do to their
job/homework for them the old timers will be pleased.
> This newsgroup has had an attitude problem from day one.
It can be blunt at the best of times, but you shouldn't take that personally.
As far as "help me!" threads go, I'd rather scare off the gimme gimme crowd (who
have nothing to contribute) than drive away the experts.
The people here are very happy to help *if* you make a genuine effort to figure
things out yourself first. Repeat after me: "Usenet is not a helpdesk."
> A PHP programmer comes here with a request for a how-to on the standard db
> connection/retrieval syntax...
It didn't look that way to me. It looked like he wanted someone to write the
code for him. There's nothing wrong with that, but those sorts of things belong
in a jobs newsgroup, not a discussion one.
-mjc
------------------------------
Date: Sun, 01 Apr 2007 23:52:45 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Any good Perl coders out there?
Message-Id: <x74pnzv3ea.fsf@mail.sysarch.com>
>>>>> "f" == fishfry <BLOCKSPAMfishfry@your-mailbox.com> writes:
f> I'm happy to add a hearty Me Too to this thread. This newsgroup has
f> had an attitude problem from day one. I don't know if the
f> newsgroup's attitude correlates with the decline of Perl as a
f> development language; but it certainly isn't helping any.
perl isn't in any decline. just that more kiddies who can't code are
using php. fine with us. perl is used for much more outside the web
anyhow. ever heard php called the ducttape of the internet?
f> A PHP programmer comes here with a request for a how-to on the
f> standard db connection/retrieval syntax; and he gets a hearty FUCK
f> YOU from several different people. It's really sad.
well, did you try to help him? no. the bitching types are always the
ones who never offer help. 100% of the time this is the case. so you
help all those php kiddies who wander into here asking for help. notice
that they don't ask in the php groups since they are populated by more
of the kiddies who cut/paste and don't know actually how to
program. everyone comes to the perl group as they claim we are
smarter. hmmm, smarter coders use perl but perl is losing ground. sounds
like the kiddies are learning that php is not as good as they hoped and
they will never learn more from their fellow php kiddies. too bad.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sun, 01 Apr 2007 23:54:37 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Any good Perl coders out there?
Message-Id: <x7zm5rtoqq.fsf@mail.sysarch.com>
>>>>> "f" == fishfry <BLOCKSPAMfishfry@your-mailbox.com> writes:
f> In article <8tn8d4xkm6.ln2@goaway.wombat.san-francisco.ca.us>,
f> Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us> wrote:
>> On 2007-03-21, Jamie <nospam@geniegate.com> wrote:
>> > In <GMhMh.21970$Uk6.15371@reader1.news.saunalahti.fi>,
>> > Timo Jokinen <jokinentimo@kolumbus.fi.invalid> mentions:
>> >
>> >>Sorry but if you doesn't want to help him/her don't bother to
>> >>write your sarcastic's answer's.
>> >
>> > Well said!
>> >
>> > This is part of the reason perl is loosing ground to other languages like
>> > PHP.
>>
>> I'm sure you have data to support this claim!
>>
f> Just look at the Craigslist help-wanteds.
and look at jobs.perl.org. i bet the job levels are signifigantly higher
for the perl jobs as for the php kiddie jobs. notice how many of the
perl jobs want stuff beyond the web and academic backgrounds. i would
find it amusing to see a php job which wanted a BS in computer
science. when you grow up you will want a perl job.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sun, 1 Apr 2007 21:32:25 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Any good Perl coders out there?
Message-Id: <qjd6e4x2bf.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-04-02, fishfry <BLOCKSPAMfishfry@your-mailbox.com> wrote:
> In article <8tn8d4xkm6.ln2@goaway.wombat.san-francisco.ca.us>,
> Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us> wrote:
>>
>> I'm sure you have data to support this claim!
>
> Just look at the Craigslist help-wanteds.
Wow, I'm now convinced! I'm going to switch to PHP right now.
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Sun, 1 Apr 2007 21:33:30 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Any good Perl coders out there?
Message-Id: <qld6e4xbbf.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-04-02, Uri Guttman <uri@stemsystems.com> wrote:
>
> and look at jobs.perl.org. i bet the job levels are signifigantly higher
> for the perl jobs as for the php kiddie jobs. notice how many of the
> perl jobs want stuff beyond the web and academic backgrounds. i would
> find it amusing to see a php job which wanted a BS in computer
> science. when you grow up you will want a perl job.
s/when/if/;
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Sun, 01 Apr 2007 23:53:08 +0100
From: nikolas pontikos <n.pontikos@laconic.com>
Subject: executing code without exiting the interpreter
Message-Id: <eup3np$8k2g$1@uns-a.ucl.ac.uk>
When I launch the interpreter (i.e. just running "perl" at the command
line) I'd like to be able to execute what I've written so far without
quitting the interpreter (i.e. without doing a ctrl+D).
I've looked at the available flags but haven't found a way of doing this.
------------------------------
Date: Sun, 01 Apr 2007 23:14:59 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: executing code without exiting the interpreter
Message-Id: <eup7nh$j0q$1@mlucom4.urz.uni-halle.de>
nikolas pontikos wrote:
> When I launch the interpreter (i.e. just running "perl" at the command
> line) I'd like to be able to execute what I've written so far without
> quitting the interpreter (i.e. without doing a ctrl+D).
>
> I've looked at the available flags but haven't found a way of doing this.
its:
perl -de 1
You can also read
http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q3.7.html
Regards
Mirco
------------------------------
Date: 1 Apr 2007 19:59:47 -0700
From: "robertchen117@gmail.com" <robertchen117@gmail.com>
Subject: How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl script?
Message-Id: <1175482787.462726.273110@l77g2000hsb.googlegroups.com>
hi all,
In a Unix server,
#cd /tmp
# ls -l| awk '{print $1" "$5" "$9}'
total
-rw------- 159045 1IUPKPnHDb
-rw------- 1287908 1Mbi68lSf3
-rw------- 1475 1o3Bj5Dc1G
...
My perl is:
#!/vendor/perl/bin/perl
#`ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out`; #This does not
work!
#system("ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out");
#compilation error
system("ls -l| awk '{print $1\" \"$5\" \"$9}' > /tmp/ls.out"); #The
File is generated but with empty lines.
I tried the above 3 commands all failed.
How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl
script?
Thanks.
------------------------------
Date: 1 Apr 2007 20:06:10 -0700
From: "robertchen117@gmail.com" <robertchen117@gmail.com>
Subject: Re: How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl script?
Message-Id: <1175483170.627066.34130@b75g2000hsg.googlegroups.com>
`ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out`; #put this in perl,
could not get right result
system("ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out"); #put this
in perl, compile error
system("ls -l| awk '{print $1\" \"$5\" \"$9}' > /tmp/ls.out"); ##put
this in perl, also could not get right result
Thanks.
On 4=D4=C22=C8=D5, =C9=CF=CE=E710=CA=B159=B7=D6, "robertchen...@gmail.com" =
<robertchen...@gmail.com>
wrote:
> hi all,
>
> In a Unix server,
> #cd /tmp
> # ls -l| awk '{print $1" "$5" "$9}'
> total
> -rw------- 159045 1IUPKPnHDb
> -rw------- 1287908 1Mbi68lSf3
> -rw------- 1475 1o3Bj5Dc1G
> ...
>
> My perl is:
>
> #!/vendor/perl/bin/perl
>
> #`ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out`; #This does not
> work!
> #system("ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out");
> #compilation error
> system("ls -l| awk '{print $1\" \"$5\" \"$9}' > /tmp/ls.out"); #The
> File is generated but with empty lines.
>
> I tried the above 3 commands all failed.
> How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl
> script?
>
> Thanks.
------------------------------
Date: Mon, 02 Apr 2007 04:56:37 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl script?
Message-Id: <920Qh.31149$x9.17827@edtnps89>
robertchen117@gmail.com wrote:
>
> In a Unix server,
> #cd /tmp
> # ls -l| awk '{print $1" "$5" "$9}'
> total
> -rw------- 159045 1IUPKPnHDb
> -rw------- 1287908 1Mbi68lSf3
> -rw------- 1475 1o3Bj5Dc1G
> ...
>
> My perl is:
>
> #!/vendor/perl/bin/perl
>
> #`ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out`; #This does not
> work!
> #system("ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out");
> #compilation error
> system("ls -l| awk '{print $1\" \"$5\" \"$9}' > /tmp/ls.out"); #The
> File is generated but with empty lines.
>
> I tried the above 3 commands all failed.
> How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl
> script?
use Fcntl ':mode';
for my $file ( <*> ) {
my ( $mode, $size ) = ( stat $file )[ 2, 7 ];
print +
($mode & S_IFDIR) ? 'd' : '-',
($mode & S_IRUSR) ? 'r' : '-',
($mode & S_IWUSR) ? 'w' : '-',
($mode & S_IXUSR) ? 'x' : '-',
($mode & S_IRGRP) ? 'r' : '-',
($mode & S_IWGRP) ? 'w' : '-',
($mode & S_IXGRP) ? 'x' : '-',
($mode & S_IROTH) ? 'r' : '-',
($mode & S_IWOTH) ? 'w' : '-',
($mode & S_IXOTH) ? 'x' : '-',
" $size $file";
}
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Mon, 02 Apr 2007 05:23:20 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: How to put the command ls -l| awk '{print $1" "$5" "$9}' in a perl script?
Message-Id: <cr0Qh.17446$PL.1598@newsread4.news.pas.earthlink.net>
On 04/01/2007 10:06 PM, robertchen117@gmail.com wrote:
> `ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out`; #put this in perl,
> could not get right result
>
> system("ls -l| awk '{print $1" "$5" "$9}' > /tmp/ls.out"); #put this
> in perl, compile error
>
> system("ls -l| awk '{print $1\" \"$5\" \"$9}' > /tmp/ls.out"); ##put
> this in perl, also could not get right result
> [...]
use File::Slurp;
my $data = `ls -l | awk '{print \$1, \$5, \$8}'`;
write_file('/tmp/ls.out', $data);
Mostly you just needed backslashes before the dollar signs.
------------------------------
Date: Mon, 2 Apr 2007 04:42:09 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Apr 2 2007
Message-Id: <JFut29.ywp@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
AltaVista-BabelFish-v42.0.2
http://search.cpan.org/~dmuey/AltaVista-BabelFish-v42.0.2/
Perl OO interface to http://babelfish.altavista.com
----
Array-Compare-1.14
http://search.cpan.org/~davecross/Array-Compare-1.14/
Perl extension for comparing arrays.
----
AudioFile-Info-1.09
http://search.cpan.org/~davecross/AudioFile-Info-1.09/
Perl extension to get info from audio files.
----
BBS-Perm-v0.0.1
http://search.cpan.org/~sunnavy/BBS-Perm-v0.0.1/
a component for your own BBS client
----
BBS-Perm-v0.0.2
http://search.cpan.org/~sunnavy/BBS-Perm-v0.0.2/
a component for your own BBS client
----
Bundle-Net-Frame-1.00
http://search.cpan.org/~gomor/Bundle-Net-Frame-1.00/
A bundle to install various Net::Frame related modules
----
CPANPLUS-0.78
http://search.cpan.org/~kane/CPANPLUS-0.78/
API & CLI access to the CPAN mirrors
----
Crypt-MatrixSSL-1.83
http://search.cpan.org/~cdrake/Crypt-MatrixSSL-1.83/
Perl extension for SSL and TLS using MatrixSSL.org
----
Email-Address-1.887
http://search.cpan.org/~rjbs/Email-Address-1.887/
RFC 2822 Address Parsing and Creation
----
Email-Folder-IMAP-1.102
http://search.cpan.org/~rjbs/Email-Folder-IMAP-1.102/
Email::Folder Access to IMAP Folders
----
Email-Folder-IMAPS-1.102
http://search.cpan.org/~rjbs/Email-Folder-IMAPS-1.102/
Email::Folder Access to IMAP over SSL Folders
----
File-NCopy-0.34_01
http://search.cpan.org/~chorny/File-NCopy-0.34_01/
Almost abandoned module. Copy file, file. Copy file[s] | dir[s], dir
----
Finance-Bank-DE-DeutscheBank-0.04
http://search.cpan.org/~wschl/Finance-Bank-DE-DeutscheBank-0.04/
Checks your Deutsche Bank account from Perl
----
Gaim-Log-Parser-0.03
http://search.cpan.org/~mschilli/Gaim-Log-Parser-0.03/
Parse Gaim's Log Files
----
Gaim-Log-Parser-0.04
http://search.cpan.org/~mschilli/Gaim-Log-Parser-0.04/
Parse Gaim's Log Files
----
Geo-ECEF-0.08
http://search.cpan.org/~mrdvt/Geo-ECEF-0.08/
Converts between ECEF (earth centered earth fixed) coordinates and latitude, longitude and height above ellipsoid.
----
Hash-AsObject-0.09
http://search.cpan.org/~nkuitse/Hash-AsObject-0.09/
treat hashes as objects, with arbitrary accessors/mutators
----
Imager-0.56
http://search.cpan.org/~tonyc/Imager-0.56/
Perl extension for Generating 24 bit Images
----
JE-0.007
http://search.cpan.org/~sprout/JE-0.007/
Pure-Perl ECMAScript (JavaScript) Engine
----
JQuery-1.02
http://search.cpan.org/~peterg/JQuery-1.02/
Interface to Jquery, a language based on Javascript
----
Lemonldap-NG-Portal-0.71
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.71/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
Net-Amazon-EC2-0.04
http://search.cpan.org/~jkim/Net-Amazon-EC2-0.04/
Perl interface to the Amazon Elastic Compute Cloud (EC2) environment.
----
Net-Frame-Layer-PPPLCP-1.00
http://search.cpan.org/~gomor/Net-Frame-Layer-PPPLCP-1.00/
PPP Link Control Protocol layer object
----
Net-Frame-Layer-PPPoES-1.00
http://search.cpan.org/~gomor/Net-Frame-Layer-PPPoES-1.00/
PPP-over-Ethernet layer object
----
Pod-Html-HtmlTree-0.92
http://search.cpan.org/~tomyhero/Pod-Html-HtmlTree-0.92/
class to convert pod files to html tree
----
Pod-Trac-0.0.1
http://search.cpan.org/~franckc/Pod-Trac-0.0.1/
Convert a POD to trac's wiki syntax and add it to the trac
----
Sysadm-Install-0.23
http://search.cpan.org/~mschilli/Sysadm-Install-0.23/
Typical installation tasks for system administrators
----
Template-Plugin-Text-Widont-0.01
http://search.cpan.org/~dcardwell/Template-Plugin-Text-Widont-0.01/
A Template Toolkit filter for removing typographic widows
----
Text-Widont-0.01
http://search.cpan.org/~dcardwell/Text-Widont-0.01/
Suppress typographic widows
----
Tripletail-0.27_02
http://search.cpan.org/~hio/Tripletail-0.27_02/
Tripletail, Framework for Japanese Web Application
----
Tripletail-0.27_03
http://search.cpan.org/~hio/Tripletail-0.27_03/
Tripletail, Framework for Japanese Web Application
----
WWW-Mechanize-SpamCop-0.05
http://search.cpan.org/~adamowski/WWW-Mechanize-SpamCop-0.05/
SpamCop reporting automation.
----
WebService-30Boxes-API-0.01
http://search.cpan.org/~blom/WebService-30Boxes-API-0.01/
Perl interface to the 30boxes.com REST API
----
WebService-Images-IMGSpot-0.03
http://search.cpan.org/~blom/WebService-Images-IMGSpot-0.03/
upload an image to http://www.imgspot.com/
----
Wx-Perl-ProcessStream-0.09
http://search.cpan.org/~mdootson/Wx-Perl-ProcessStream-0.09/
access IO of external processes via events
----
XML-MyXML-0.0971
http://search.cpan.org/~karjala/XML-MyXML-0.0971/
A simple-to-use XML module, for parsing and creating XML documents
----
YAML-Syck-0.84
http://search.cpan.org/~audreyt/YAML-Syck-0.84/
Fast, lightweight YAML loader and dumper
----
gmuck-1.12
http://search.cpan.org/~scop/gmuck-1.12/
The Generated MarkUp Checker
----
retr2-WWW-Mechanize-SpamCop-0.04
http://search.cpan.org/~adamowski/retr2-WWW-Mechanize-SpamCop-0.04/
----
retr_WWW-Mechanize-SpamCop-0.04
http://search.cpan.org/~adamowski/retr_WWW-Mechanize-SpamCop-0.04/
----
sys-MON-Lite-0.02
http://search.cpan.org/~jnbrookes/sys-MON-Lite-0.02/
lightweight pluggable service monitoring
----
yagg-1.4001
http://search.cpan.org/~dcoppit/yagg-1.4001/
generate a string generator from a grammar
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 1 Apr 2007 16:32:34 -0700
From: noident@my-deja.com
Subject: Re: readline - possible security hole
Message-Id: <1175470354.517027.54710@n76g2000hsh.googlegroups.com>
> I can't find a way to specify maximum buffer size.
> readline's prototype is "readline EXPR".
> Thus, it seems to me that there is no way to specify max buffer size
> except globally. But how?
You can use sysread(). There you can specify the buffer size. It's not
line-oriented though, so you'll have to look for the new-line in the
buffer yourself.
------------------------------
Date: 1 Apr 2007 20:01:39 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Shifting Away
Message-Id: <57ahd3F2c40n6U1@mid.dfncis.de>
Xiong Changnian <please@nospam.net> wrote in comp.lang.perl.misc:
> In article <577f2vF2bvrpmU1@mid.dfncis.de>,
> anno4000@radom.zrz.tu-berlin.de wrote:
[...]
> >"for" (but not the non-word "foreach")
>
> Say, are there two armed camps of Perl monks throwing gazillion megawatt
> lightning bolts at one another over for/foreach? Reminds me of how to
> liven up a Saturday night: Go to the gray-collar bar nearest the city
> daily at shift change and shout "When should I use an en dash?"
Nothing of that sort. Use of for/foreach varies considerably among
Perl programmers, but it is rarely the subject of debate. The C-like
for (;;) is another matter. It is mostly avoided except for the
rare cases (arbitrary arithmetic sequences, for instance) where
it is clearly superior.
> I use foreach when iterating over a list and for when constructing a
> traditional for loop. I know they're synonyms and that's cool.
Theoretically I agree, in practice I find myself using "for" throughout.
> > It proves that what shift() returns *is* an lvalue and can be used to
> > clobber the actual parameter.
>
> Well, I'm enlightened; thank you. I think I'd have to try pretty hard to
> get stuck in that crack but it's always good to know what surprises
> lurk.
>
> I guess that shift() = 13 really "shouldn't" raise an exception, then.
> Stuffy guys take away all the fun toys.
I suppose it could technically be enabled if there was a sufficient
lobby, which isn't going to happen. The action on an arbitrary array
would verge on the bizarre: Shift it off and at the same time overwrite
it. It only makes sense if what is shifted is, in fact, an alias
to something else. The use in parameter passing is very limited,
in particular because changing the caller's arguments isn't a done
thing in Perl. No-one wants a syntax change to enable another way
to do that.
> > Perl's "postmodern", non-orthogonal design entails lots and lots of
> > edge cases where the actual behavior can't be derived from general
> > principles, but is geared to the particular case. It is often
> > distracting and sometimes impossible to discuss all that may be
> > relevant to a topic.
>
> Um, well, at the risk of opening Pandora's Box, I'll say that I'm
> extremely interested in all the edges, all the time. Perl's actual
> design isn't all that's postmodern; so are the docs. I come from the
> school where every last detail of operation is spelled out in the man,
> one token per page. I can't quite quash the creeping suspicion that some
> issues are glossed over in Perl docs because *nobody's* completely sure
> what beautiful syntax the interpreter will accept. Besides, X might
> change in a future implementation.
That is quite true. Perl doesn't have a formal description, and in
case of doubt the language definition is what the interpreter does.
The docs do a pretty good job of describing the mess and generally
make an effort not to gloss over murky points but to acknowledge
their existence. Perlre says, when describing the "(?{ code })"
construct:
Currently, the rules to determine where the "code" ends
are somewhat convoluted.
[...]
> If I have one petty objection to Perl, it's that it tries so hard to Do
> What I Want that some pretty crummy code still works, instead of holding
> my idiocy up to the glaring light of fatal error.
Ah, the DWIMmer. It must be the bane of everyone trying to teach
Perl that it can be such a softie, forgiving errors that show
a fundamental misunderstanding in the programmers view of the
situation. It should crash and burn, instead it runs and may
even, in fact, to what was meant.
> I'm an "all warnings, all the time" guy, at least for now.
Very good. You won't find reason to change that habit later.
I assume you also "use strict" habitually.
[...]
> You mentioned that you like assigning in one fell swoop:
>
> my ($A, $B, $C) = @_;
>
> I don't, although it's more compact and I generally like compact. I much
> prefer to put each "declaration" on a line by itself, perhaps with
> comment. Maybe, after time passes, I'll take this particular thumb out
> of my mouth.
There's a lot of variety. If arguments want individual initialization,
a sequence of shifts, combined with or followed by initialization is
probably better than assigning raw values compactly and then going back
to correct each one.
sub set_name {
my $obj = shift;
my $first = shift || 'John';
my $last = shift || 'Doe';
# ...
}
and not
sub set_name {
my ( $obj, $first, $last) = @_;
$first ||= 'John';
$last ||= 'Doe';
# ...
though the difference is small.
That doesn't even mention the popular style of named parameter passing.
It is mostly used when there are many parameters. Here the caller must
provide name-value pairs in the parameter list:
$obj->set_name( last => 'Curie', first => 'Marie');
In the sub, a hash is used to receive the pairs:
sub set_name {
my $obj = shift;
my %param = ( first => 'John', last => 'Doe', @_);
# ...
That provides the defaults nicely, but leaves you with a hash
of values instead of individual variables. Those require an
additional
my ( $first, $last) = @param{ qw( first last)};
There are many styles of receiving arguments. A common rule of
good style is to take the arguments from @_ early and not to
look back (at @_). Then again, occasionally a sub is busy with @_
throughout. There is no hard and fast rule. As often, Perl
leaves a lot to the implementor instead of defining it as part
of the language.
Anno
------------------------------
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 290
**************************************
