[30513] in Perl-Users-Digest
Perl-Users Digest, Issue: 1756 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 31 03:09:46 2008
Date: Thu, 31 Jul 2008 00: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, 31 Jul 2008 Volume: 11 Number: 1756
Today's topics:
Re: behavior of m// operator xhoster@gmail.com
Re: Bug found in Open Perl IDE perl5db.pl module <smallpond@juno.com>
Re: FAQ 4.2 Why is int() broken? <jwkenne@attglobal.net>
Re: FAQ 4.2 Why is int() broken? <hjp-usenet2@hjp.at>
Re: FAQ 4.2 Why is int() broken? <jwkenne@attglobal.net>
fix a per script fred78980@yahoo.com
Re: fix a per script <RedGrittyBrick@SpamWeary.foo>
Re: fix a per script <john@castleamber.com>
Re: Hash order <whynot@pozharski.name>
Re: how to change the effective UID <dominique.dumont@hp.com>
Re: How to find ioctl.ph - is my version of perl busted <ben@morrow.me.uk>
Japanese Girl > Megumi Okina astraumax@yeah.net
Logging with Log::StdLog from within a package <jerry@ieee.org>
new CPAN modules on Thu Jul 31 2008 (Randal Schwartz)
Re: parse postfix stream <hjp-usenet2@hjp.at>
Re: Question about variable scope <someone@example.com>
questions on XML::Simple <dreamgear@gmail.com>
Re: questions on XML::Simple <ben@morrow.me.uk>
Re: Textfile to array or hash <juergen.gluch@gmx.de>
Re: what is the expression mean? <whynot@pozharski.name>
Re: what is the expression mean? <mjcarman@mchsi.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Jul 2008 15:09:33 GMT
From: xhoster@gmail.com
Subject: Re: behavior of m// operator
Message-Id: <20080730110934.473$vI@newsreader.com>
Nathan <user@serverrb.net> wrote:
> According to the documentation this program should print nothing since
> m// uses the last successful pattern match from m//, split, etc.
My docs don't explicitly say whether the regex used in a split counts
as previously "matched" or not in this context. Experimentally, it looks
to me like it does 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: Wed, 30 Jul 2008 10:16:17 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: Bug found in Open Perl IDE perl5db.pl module
Message-Id: <63091aa8-20d8-484e-aa6e-1919c059b397@m36g2000hse.googlegroups.com>
On Jul 30, 5:21 am, mattsteel <matteo_vitt...@virgilio.it> wrote:
> Hello all.
>
> I'm using this IDE since months, and have to say this is a good IDE,
> light, simple, easy to use, but not bug-free ;-)
>
> I found a subtle bug in perl5db.pl module (that is shipped with the
> IDE for Windows available from SurceForge);
>
> Trying this piece of script:
>
> my $code =3D sub { print "hello\n" } ;
> print "Let's call $code\n";
> $code->();
> print "Done.\n";
>
> During a normal debug session, moving the mouse over the variable
> $code (that is a code-reference i.e. ref($code) returns CODE), the IDE
> replies with an =93<undef>=94 which is not true. The same thing happens
> listing $code in the =93variable=94 watch-window.
>
> I tried to fix it and patched the perl5db.pl module to handle this
> case, so the IDE replies something like
> =93$code: code =3D 0x1a81c40=94.
>
> Since the module source is more than 700 lines long, I think useful
> giving here the four chunks I added: I simply added another "elsif"
> case just before the ending "else", so you should be able to insert
> these few lines directly in your dbTemplate.txt in the correct
> position.
>
> #within SizeOfDerefValue sub:
> } elsif ($refType eq 'CODE') {
> return length($reference);
>
> #within ShortEval sub:
> } elsif ($refType eq 'CODE') {
> $reference =3D~ /\((.*)\)/;
> return "code =3D $1";
>
> #within LongEval sub:
> } elsif ($refType eq 'CODE') {
> $reference =3D~ /\((.*)\)/;
> $retValue =3D "code =3D $1";
>
> #within ShowDerefValues sub:
> } elsif ($refType eq 'CODE') {
> $type =3D "code";
> $reference =3D~ /\((.*)\)/;
> $value =3D "$1";
>
> I hope this helps.
>
> Regards.
You might want to post this on Sourceforge if that's where the project
is located.
--S
------------------------------
Date: Wed, 30 Jul 2008 10:03:18 -0400
From: John W Kennedy <jwkenne@attglobal.net>
Subject: Re: FAQ 4.2 Why is int() broken?
Message-Id: <489074a6$0$20923$607ed4bc@cv.net>
Peter J. Holzer wrote:
> You mean the days *before* the 486 processor.
>
> The 486 was the first intel processor which had an integrated FP
> unit instead of a separate coprocessor.
However, the 486SX didn't, unless you added a 487 (which was just a
sneaky way for Intel to sell spoiled 486s at a reduced price).
>> I wonder what would happen if they reinstituted
>> that idea, but on a more powerful/modern scale?
> The "math coprocessor" is still there. It's just on the same chip. And
> the FP unit of a Pentium 4 is much, much more powerful than the 387 was.
However, Intel is dragging its feet on adding decimal floating point,
per IEEE-754r.
--
John W. Kennedy
"Sweet, was Christ crucified to create this chat?"
-- Charles Williams. "Judgement at Chelmsford"
------------------------------
Date: Wed, 30 Jul 2008 19:19:35 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: FAQ 4.2 Why is int() broken?
Message-Id: <slrng918l7.k8l.hjp-usenet2@hrunkner.hjp.at>
On 2008-07-30 14:03, John W Kennedy <jwkenne@attglobal.net> wrote:
> Peter J. Holzer wrote:
>> You mean the days *before* the 486 processor.
>>
>> The 486 was the first intel processor which had an integrated FP
>> unit instead of a separate coprocessor.
>
> However, the 486SX didn't, unless you added a 487 (which was just a
> sneaky way for Intel to sell spoiled 486s at a reduced price).
Yup. I intentionally omitted that detail.
>>> I wonder what would happen if they reinstituted that idea, but on a
>>> more powerful/modern scale?
>
>> The "math coprocessor" is still there. It's just on the same chip. And
>> the FP unit of a Pentium 4 is much, much more powerful than the 387 was.
>
> However, Intel is dragging its feet on adding decimal floating point,
> per IEEE-754r.
If there truly is demand for this, then that's good for IBM. They can
sell lots of Power6 boxes.
hp
------------------------------
Date: Wed, 30 Jul 2008 15:50:13 -0400
From: John W Kennedy <jwkenne@attglobal.net>
Subject: Re: FAQ 4.2 Why is int() broken?
Message-Id: <4890c5f5$0$4996$607ed4bc@cv.net>
Peter J. Holzer wrote:
> On 2008-07-30 14:03, John W Kennedy <jwkenne@attglobal.net> wrote:
>> However, Intel is dragging its feet on adding decimal floating point,
>> per IEEE-754r.
> If there truly is demand for this, then that's good for IBM. They can
> sell lots of Power6 boxes.
And z/Architecture.
The very existence of this thread (and the fact that it grows out of a
FAQ entry) is an illustration of the demand. At least since the first
release of MS BASIC, this has been a problem; mathematical naïfs believe
that reality is decimally quantized, and they always will, and, on the
other hand, even fairly sophisticated people, including program-language
designers, have problems dealing with noninteger fixed-point. (The
original COBOL designers screwed the pooch so badly on this point that
it took until 2002 to come up with an /optional/ fix.)
--
John W. Kennedy
"Only an idiot fights a war on two fronts. Only the heir to the
throne of the kingdom of idiots would fight a war on twelve fronts"
-- J. Michael Straczynski. "Babylon 5", "Ceremonies of Light and Dark"
------------------------------
Date: Wed, 30 Jul 2008 09:03:24 -0700 (PDT)
From: fred78980@yahoo.com
Subject: fix a per script
Message-Id: <9151d99f-b6e9-4114-8b90-914fc78e0dd1@i76g2000hsf.googlegroups.com>
I have this script that sort and erase duplicate. When I run the
script I receive this message and I am not able to fix it.
Use of uninitialized value in hash element at ./pgm1.pl line 21,
<DATA> line 10.
#title -vegetables-#
Use of uninitialized value in concatenation (.) or string at ./pgm1.pl
line 48, <DATA> line 10.
=>
Please help me to fix it.
Thanks
#!/usr/bin/perl
use warnings;
use strict;
my $title;
my %titles;
my $key;
my $val;
my $rec;
while(<DATA>){
chomp;
if (substr($_,0,1) eq "#") {
$title = $_;
$titles{$title} = [];
}
else {
my ($key,$val) = split(/\s*=>\s*/);
$rec = {};
$rec->{$key}=$val;
push (@{$titles{$title}},$rec);
}
}
sub cmpkey
{
if(((keys %$a)[0] cmp (keys %$b)[0])==0)
{
return (values %$a)[0] cmp (values %$b)[0];
}
else
{
return (keys %$a)[0] cmp (keys %$b)[0];
}
}
foreach $title (keys (%titles))
{
print "$title\n";
for $rec (sort cmpkey @{$titles{$title}})
{
foreach $key (keys (%$rec))
{
foreach $val (values (%$rec))
{
print "$key => $val\n";
}
}
}
}
__DATA__
#title -fruit-#
red => strawberry
orange => orange
red => apple
orange => carot
red => cherry
#title -vegetables-#
green => cucumber
red => tomatoes
------------------------------
Date: Wed, 30 Jul 2008 17:14:00 +0100
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: fix a per script
Message-Id: <48909349$0$2920$fa0fcedb@news.zen.co.uk>
fred78980@yahoo.com wrote:
> I have this script that sort and erase duplicate. When I run the
> script I receive this message and I am not able to fix it.
>
> Use of uninitialized value in hash element at ./pgm1.pl line 21,
> <DATA> line 10.
> #title -vegetables-#
> Use of uninitialized value in concatenation (.) or string at ./pgm1.pl
> line 48, <DATA> line 10.
> =>
>
> Please help me to fix it.
> Thanks
>
> #!/usr/bin/perl
> use warnings;
> use strict;
> my $title;
> my %titles;
> my $key;
> my $val;
> my $rec;
>
> while(<DATA>){
>
> chomp;
next if /^\s*$/; # ignore blank lines
>
> if (substr($_,0,1) eq "#") {
> $title = $_;
> $titles{$title} = [];
> }
> else {
> my ($key,$val) = split(/\s*=>\s*/);
> $rec = {};
> $rec->{$key}=$val;
> push (@{$titles{$title}},$rec);
> }
> }
>
> sub cmpkey
> {
> if(((keys %$a)[0] cmp (keys %$b)[0])==0)
> {
> return (values %$a)[0] cmp (values %$b)[0];
> }
> else
> {
> return (keys %$a)[0] cmp (keys %$b)[0];
> }
> }
>
>
> foreach $title (keys (%titles))
> {
> print "$title\n";
> for $rec (sort cmpkey @{$titles{$title}})
> {
> foreach $key (keys (%$rec))
> {
> foreach $val (values (%$rec))
> {
> print "$key => $val\n";
> }
> }
> }
> }
>
>
> __DATA__
> #title -fruit-#
> red => strawberry
> orange => orange
> red => apple
> orange => carot
> red => cherry
> #title -vegetables-#
> green => cucumber
> red => tomatoes
>
The problem is the blank line at the end. This is read as data and then
split on \s*=>\s* which fils as the blank line does not contain =>. From
then on $val is undefined - leading to the complaints from Perl.
--
RGB
------------------------------
Date: 30 Jul 2008 21:31:38 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: fix a per script
Message-Id: <Xns9AEBA81F75463castleamber@130.133.1.4>
RedGrittyBrick <RedGrittyBrick@SpamWeary.foo> wrote:
>> while(<DATA>){
>>
>> chomp;
>
> next if /^\s*$/; # ignore blank lines
You might want to do that before the chomp.
--
John
------------------------------
Date: Wed, 30 Jul 2008 23:35:28 +0300
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: Hash order
Message-Id: <gtv6m5xrup.ln2@carpet.zombinet>
Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
> On 2008-07-29 19:46, Eric Pozharski <whynot@pozharski.name> wrote:
>> Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>>> On 2008-07-28 19:06, Eric Pozharski <whynot@pozharski.name> wrote:
*SKIP*
> for perldoc -f keys, the change is simple: Just change "is different"
> to "may be different". For the longer discussion in perlsec, one would
> have to look at the code to see how much of it still applies.
That's not the first time I struck at implementation and documentation
difference (at least, I'm not hitten, this time). I hope, that
documentation follows development (sometime it's other way).
>>> hp (who asked the same question not too long ago)
>> Is it a FAQ already?
> Does two times count as "frequently"?
Anyway. No one cares.
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Wed, 30 Jul 2008 17:06:37 +0200
From: Dominique Dumont <dominique.dumont@hp.com>
Subject: Re: how to change the effective UID
Message-Id: <kgivdyn5s3m.fsf@komarr.gre.hp.com>
Daneel Yaitskov <rtfm.rtfm.rtfm@gmail.com> writes:
> I can't change the EUID of a perl process which performs a perl script.
> I used the manual perlsec and wrote the script:
>
> #!/usr/bin/perl
> use English;
>
> $EUID = 0;
> open(THEFILE, ">/var/log/messages") || die "can't open file";
Eek
Why do you want to clobber logs not related to your program ?
Why don't you use logger (or the Perl module equivalent) to send logs?
--
Dominique Dumont
"Delivering successful solutions requires giving people what they
need, not what they want." Kurt Bittner
------------------------------
Date: Wed, 30 Jul 2008 17:03:33 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to find ioctl.ph - is my version of perl busted?
Message-Id: <lvf6m5-8qn.ln1@osiris.mauzo.dyndns.org>
Quoth Mark Seger <Mark.Seger@hp.com>:
> According to perlpaq8, I should be able to "require sys/ioctl.ph" but
> when I run my script I get:
>
> Can't locate features.ph in @INC (did you run h2ph?)...
>
> I sure hope I don't have to run h2ph because I'd rather simply know if
> ioctl.ph is loadable or not. I'm running on a fairly old system with
> perl 5.8.0 and am wondering is this is correct behavior or if my
> installation might have gotten corrupted over the years. I can't find
> 'features' anywhere under the perl tree.
h2ph is not much used any more; a lot of distributions of perl don't
bother installing the .ph files. IIRC h2ph chokes on some of the weirder
stuff in the glibc headers: maybe that's your problem here?
As a rule it's better nowadays to create a proper XS module that uses
the C compiler to #include the headers rather than trying to convert
them into Perl. If this is just a quick-n-dirty job you may find
Inline::C useful.
Ben
--
Joy and Woe are woven fine,
A Clothing for the Soul divine William Blake
Under every grief and pine 'Auguries of Innocence'
Runs a joy with silken twine. ben@morrow.me.uk
------------------------------
Date: Wed, 30 Jul 2008 22:51:47 -0700 (PDT)
From: astraumax@yeah.net
Subject: Japanese Girl > Megumi Okina
Message-Id: <9e3d0053-44ad-4045-9aba-a5ed2a8c9135@a6g2000prm.googlegroups.com>
Megumi Okina ( born 6 August 1979) is a Japanese actress and J-Pop
singer. Born in Hiroshima and raised in Tokyo, she made her J-Pop
debut on 19 August 1995. She starred in the Japanese original of The
Grudge. She married Susumu Fujita in January 2004, however they
divorced on 22 July 2005.
http://qqgirl.110mb.com/Japanese%20Girl/Megumi%20Okina/index.html
------------------------------
Date: Wed, 30 Jul 2008 22:35:21 -0700 (PDT)
From: Jerry Krinock <jerry@ieee.org>
Subject: Logging with Log::StdLog from within a package
Message-Id: <aa428b8f-e0ab-470a-982b-66dbc0014eaa@m36g2000hse.googlegroups.com>
Today, I separated out a file of functions into a separate package:
package MyPackage ;
Instead of 'use', I 'require and call the functions using
MyPackage::aFunction() ;
It works fine except for my Log::Stdlog calls such as:
print {*STDLOG} info => "Hello\n" ;
None of any such calls from inside package functions print to my log
any more. They "just don't work".
A confession: I've come a long way with Perl, but one thing still
beyond my comprehension is the 'tie' function with its "enchanted"
variable that seems to be the magic behind {*STDLOG}. What does the
asterisk do?
How can I make my logs work inside my package?
Thanks very much,
Jerry Krinock
------------------------------
Date: Thu, 31 Jul 2008 04:42:20 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jul 31 2008
Message-Id: <K4ut2K.yys@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.
ARGV-readonly-0.01
http://search.cpan.org/~davidnico/ARGV-readonly-0.01/
make <> open files regardless of leading/trailing whitespace and/or control characters such as |, >, amd <.
----
Bundle-DBD-PO-0.06
http://search.cpan.org/~steffenw/Bundle-DBD-PO-0.06/
A bundle to install all DBD::PO related modules
----
Catalyst-Controller-Mobile-JP-0.02
http://search.cpan.org/~tomita/Catalyst-Controller-Mobile-JP-0.02/
decode/encode with Encode::JP::Mobile
----
Catalyst-Controller-POD-0.01_03
http://search.cpan.org/~perler/Catalyst-Controller-POD-0.01_03/
Serves PODs right from your Catalyst application
----
Catalyst-Plugin-AutoRestart-0.92
http://search.cpan.org/~jgoulah/Catalyst-Plugin-AutoRestart-0.92/
Catalyst plugin to restart server processes when specified memory threshold is reached
----
Catalyst-View-MobileJpFilter-0.01
http://search.cpan.org/~tomita/Catalyst-View-MobileJpFilter-0.01/
Filtering HTML for Japanese cellphone
----
Config-Model-0.625
http://search.cpan.org/~ddumont/Config-Model-0.625/
Framework to create configuration validation tools and editors
----
DBD-PO-0.06
http://search.cpan.org/~steffenw/DBD-PO-0.06/
DBI driver for PO files
----
DBIx-Class-Journal-0.02_01
http://search.cpan.org/~nuffin/DBIx-Class-Journal-0.02_01/
auditing for tables managed by DBIx::Class
----
DBIx-Class-Storage-CacheProxy-0.04
http://search.cpan.org/~gugu/DBIx-Class-Storage-CacheProxy-0.04/
Caching layer for DBIx::Class
----
DTS-0.04
http://search.cpan.org/~arfreitas/DTS-0.04/
Perl classes to access Microsoft SQL Server 2000 DTS Packages
----
Data-UUID-LibUUID-0.04
http://search.cpan.org/~nuffin/Data-UUID-LibUUID-0.04/
uuid.h based UUID generation (versions 1, 2 and 4)
----
DateTime-Format-Natural-0.71_01
http://search.cpan.org/~schubiger/DateTime-Format-Natural-0.71_01/
Create machine readable date/time with natural parsing logic
----
Devel-PartialDump-0.06
http://search.cpan.org/~nuffin/Devel-PartialDump-0.06/
Partial dumping of data structures, optimized for argument printing.
----
Games-SGF-0.08
http://search.cpan.org/~whitcode/Games-SGF-0.08/
A general SGF parser
----
Geometry-Primitive-0.05
http://search.cpan.org/~gphat/Geometry-Primitive-0.05/
Primitive Geometry Entities
----
Google-Chart-0.05000
http://search.cpan.org/~dmaki/Google-Chart-0.05000/
Interface to Google Charts API
----
Graphics-Color-0.06
http://search.cpan.org/~gphat/Graphics-Color-0.06/
Device and library agnostic color spaces.
----
Graphics-Primitive-0.08
http://search.cpan.org/~gphat/Graphics-Primitive-0.08/
Device and library agnostic graphic primitives
----
Graphics-Primitive-Driver-Cairo-0.01
http://search.cpan.org/~gphat/Graphics-Primitive-Driver-Cairo-0.01/
Cairo backend for Graphics::Primitive
----
HTML-Declare-2.2
http://search.cpan.org/~bingos/HTML-Declare-2.2/
For When Template Systems Are Too Huge And Heredocs Too Messy
----
HTML-FormatText-WithLinks-0.11
http://search.cpan.org/~struan/HTML-FormatText-WithLinks-0.11/
HTML to text conversion with links as footnotes
----
HTTP-Cookies-Mozilla-2.00_02
http://search.cpan.org/~polettix/HTTP-Cookies-Mozilla-2.00_02/
Cookie storage and management for Mozilla
----
Hey-heyPass-2.04
http://search.cpan.org/~wilsond/Hey-heyPass-2.04/
Client for heyPass Centralized Authentication System
----
Hey-heyPass-2.05
http://search.cpan.org/~wilsond/Hey-heyPass-2.05/
Client for heyPass Centralized Authentication System
----
Hey-heyPass-2.06
http://search.cpan.org/~wilsond/Hey-heyPass-2.06/
Client for heyPass Centralized Authentication System
----
Hey-heyPass-2.07
http://search.cpan.org/~wilsond/Hey-heyPass-2.07/
Client for heyPass Centralized Authentication System
----
JE-0.024
http://search.cpan.org/~sprout/JE-0.024/
Pure-Perl ECMAScript (JavaScript) Engine
----
LEOCHARRE-DEBUG-1.12
http://search.cpan.org/~leocharre/LEOCHARRE-DEBUG-1.12/
my default debug subroutines
----
LWP-UserAgent-POE-0.01
http://search.cpan.org/~mschilli/LWP-UserAgent-POE-0.01/
Drop-in LWP::UserAgent replacement in POE environments
----
Layout-Manager-0.09
http://search.cpan.org/~gphat/Layout-Manager-0.09/
2D Layout Management
----
Math-GSL-0.07
http://search.cpan.org/~leto/Math-GSL-0.07/
Perl interface to the GNU Scientific Library (GSL) using SWIG
----
MediaWiki-API-0.11
http://search.cpan.org/~exobuzz/MediaWiki-API-0.11/
Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
----
MediaWiki-API-0.12
http://search.cpan.org/~exobuzz/MediaWiki-API-0.12/
Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
----
MooseX-Emulate-Class-Accessor-Fast-0.00300
http://search.cpan.org/~groditi/MooseX-Emulate-Class-Accessor-Fast-0.00300/
Emulate Class::Accessor::Fast behavior using Moose attributes
----
Muldis-D-0.43.0
http://search.cpan.org/~duncand/Muldis-D-0.43.0/
Formal spec of Muldis D relational DBMS lang
----
MySQL-Insert-0.03
http://search.cpan.org/~despair/MySQL-Insert-0.03/
extended inserts for MySQL via DBI
----
Number-Tolerant-1.600
http://search.cpan.org/~rjbs/Number-Tolerant-1.600/
tolerance ranges for inexact numbers
----
P4-Server-0.11.1
http://search.cpan.org/~srvance/P4-Server-0.11.1/
Perl wrapper for control of a Perforce server
----
POE-Component-IRC-Plugin-WWW-CPAN-0.0101
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-WWW-CPAN-0.0101/
access http://search.cpan.org/ from IRC
----
POE-Component-WWW-Alexa-TrafficRank-0.001
http://search.cpan.org/~zoffix/POE-Component-WWW-Alexa-TrafficRank-0.001/
non-blocking wrapper around WWW::Alexa::TrafficRank
----
Parallel-MapReduce-0.09
http://search.cpan.org/~drrho/Parallel-MapReduce-0.09/
MapReduce Infrastructure, multithreaded
----
Rose-Object-0.853
http://search.cpan.org/~jsiracusa/Rose-Object-0.853/
A simple object base class.
----
Set-Crontab-1.02
http://search.cpan.org/~ams/Set-Crontab-1.02/
Expand crontab(5)-style integer lists
----
TRD-DebugLog-0.0.3
http://search.cpan.org/~ichi/TRD-DebugLog-0.0.3/
debug log
----
TRD-DebugLog-0.0.4
http://search.cpan.org/~ichi/TRD-DebugLog-0.0.4/
debug log
----
TRD-Velocity-0.0.4
http://search.cpan.org/~ichi/TRD-Velocity-0.0.4/
Template engine
----
Template-Perlish-1.03
http://search.cpan.org/~polettix/Template-Perlish-1.03/
Yet Another Templating system for Perl
----
Test-Differences-0.4801
http://search.cpan.org/~ovid/Test-Differences-0.4801/
Test strings and data structures and show differences if not ok
----
Test-Manifest-1.22_03
http://search.cpan.org/~bdfoy/Test-Manifest-1.22_03/
interact with a t/test_manifest file
----
Tkx-1.05
http://search.cpan.org/~gaas/Tkx-1.05/
Yet another Tk interface
----
UML-Class-Simple-0.12
http://search.cpan.org/~agent/UML-Class-Simple-0.12/
Render simple UML class diagrams, by loading the code
----
WWW-Facebook-API-0.4.12
http://search.cpan.org/~unobe/WWW-Facebook-API-0.4.12/
Facebook API implementation
----
WWW-Facebook-API-0.4.13
http://search.cpan.org/~unobe/WWW-Facebook-API-0.4.13/
Facebook API implementation
----
WWW-Mechanize-Plugin-Ajax-0.01
http://search.cpan.org/~sprout/WWW-Mechanize-Plugin-Ajax-0.01/
WWW::Mechanize plugin that provides the XMLHttpRequest object
----
WWW-Mechanize-Plugin-JavaScript-0.003
http://search.cpan.org/~sprout/WWW-Mechanize-Plugin-JavaScript-0.003/
JavaScript plugin for WWW::Mechanize
----
WWW-PriceMinister-0.01
http://search.cpan.org/~book/WWW-PriceMinister-0.01/
A Perl interface to the PriceMinister web site
----
WWW-WhitePages-2008.0730
http://search.cpan.org/~ermeyers/WWW-WhitePages-2008.0730/
WhitePages Development Interface (WPDI)
----
XML-Grammar-Fortune-Synd-0.01
http://search.cpan.org/~shlomif/XML-Grammar-Fortune-Synd-0.01/
Provides syndication for a set of XML-Grammar-Fortune files.
----
Yahoo-Marketing-4.21
http://search.cpan.org/~shenj/Yahoo-Marketing-4.21/
an interface for Yahoo! Search Marketing's Web Services.
----
v6-0.031
http://search.cpan.org/~fglock/v6-0.031/
An experimental Perl 6 implementation
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/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Wed, 30 Jul 2008 19:32:51 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: parse postfix stream
Message-Id: <slrng919e3.k8l.hjp-usenet2@hrunkner.hjp.at>
On 2008-07-30 06:41, Christian Vallant <christian.vallant@traussnig.at> wrote:
> hello!
>
> I would like to use the postfix-command
>
> test unix - n n - 1 pipe
> flags=R user=test argv=/usr/bin/test.pl -d -n ${user}
>
> to send an e-mail to an file. Now i have to parse the mail with perl.
In the subject you wrote that you need to parse the postfix stream. Here
you write that you need to parse the mail. What is it?
For parsing mail I'd suggest MIME::Parser. It's a bit heavyweight, but
reliable and does just about everything you might need.
Parsing a postfix stream is a different matter. I don't know any perl
module which does this and no documentation of the stream format.
However, you might want to have a look at the Postfix support in qpsmtpd
- it creates such a stream instead of parsing it.
hp
------------------------------
Date: Thu, 31 Jul 2008 05:57:18 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Question about variable scope
Message-Id: <2vckk.46238$nD.41284@pd7urf1no>
nospam wrote:
>
> Subject: Question about variable scope
Perhaps you should read "Coping with Scoping" at
http://perl.plover.com/FAQs/Namespaces.html
> In the code snippet below, why can't I access the $nntp variable, unless I
> instantiate it within the ListGroups() subroutine?
Probably some "action at a distance" is causing it to become undefined.
> #!/usr/bin/perl -w
>
> #This nntp instance cannot be used in ListGroups()
> #sub below:
>
> # $nntp = Net::NNTP->new($newshost);
Here $nntp is a package variable and is visible anywhere inside the
current package. Even if you had used a lexical variable it would be
visible anywhere after this point in the program.
> # $nntp->authinfo($username,$password);
> .
> .
> .
>
> sub ListGroups()
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: Wed, 30 Jul 2008 19:10:31 -0700 (PDT)
From: Jeff <dreamgear@gmail.com>
Subject: questions on XML::Simple
Message-Id: <ec415c6b-8b7e-49fc-a4e3-24f2d4a5f34a@c65g2000hsa.googlegroups.com>
I used the XML::Simple module to read some xml, which works great.
But when I write it back out with XMLout.. it's changed.
For example the input that looks like this:
<Summary>
<TotalOrders>1</TotalOrders>
<TotalLineItems>4</TotalLineItems>
<TotalQuantity>158</TotalQuantity>
</Summary>
ends up looking like this:
<Summary TotalLineItems="4" TotalOrders="1" TotalQuantity="158" />
Is it possible to have it written out in the same format it was read
from? Is there another module that would do this?
Thanks.
------------------------------
Date: Thu, 31 Jul 2008 04:48:42 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: questions on XML::Simple
Message-Id: <q9p7m5-drv1.ln1@osiris.mauzo.dyndns.org>
Quoth Jeff <dreamgear@gmail.com>:
> I used the XML::Simple module to read some xml, which works great.
>
> But when I write it back out with XMLout.. it's changed.
>
> For example the input that looks like this:
>
> <Summary>
> <TotalOrders>1</TotalOrders>
> <TotalLineItems>4</TotalLineItems>
> <TotalQuantity>158</TotalQuantity>
> </Summary>
>
> ends up looking like this:
>
> <Summary TotalLineItems="4" TotalOrders="1" TotalQuantity="158" />
>
>
> Is it possible to have it written out in the same format it was read
> from?
See the NoAttr option.
> Is there another module that would do this?
There are lots of other XML modules (XML::Parser, XML::LibXML, the
XML::SAX modules, XML::DOM, ...) but if XML::Simple does what you need
it's probably better to stick with what you have. If your XML really is
always going to be as simple as you say you could try XML::Tiny, but
make sure you carefully read the list of what it does and doesn't
support.
Ben
--
Outside of a dog, a book is a man's best friend.
Inside of a dog, it's too dark to read.
ben@morrow.me.uk Groucho Marx
------------------------------
Date: Wed, 30 Jul 2008 23:44:31 -0700 (PDT)
From: "J.Gluch" <juergen.gluch@gmx.de>
Subject: Re: Textfile to array or hash
Message-Id: <b9a78ac0-f64a-4c72-8472-aea1a43bc8a0@34g2000hsf.googlegroups.com>
Danke Jens Thoms Toerring, funktioniert genau so wie ich es wollte.
Wieder etwas gelernt!
Gru=DF J=FCrgen
------------------------------
Date: Wed, 30 Jul 2008 23:36:25 +0300
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: what is the expression mean?
Message-Id: <9vv6m5xrup.ln2@carpet.zombinet>
Nathan <user@serverrb.net> wrote:
*SKIP*
> sort function. Also, what newsreader are you using?
No comments.
> The B<> and C<> tags really look confusing!
No comments.
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Thu, 31 Jul 2008 02:59:13 GMT
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: what is the expression mean?
Message-Id: <0U9kk.222623$TT4.667@attbi_s22>
Nathan wrote:
> The B<> and C<> tags really look confusing!
perldoc perlpod
-mjc
------------------------------
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 1756
***************************************
