[29766] in Perl-Users-Digest
Perl-Users Digest, Issue: 1009 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 7 06:09:39 2007
Date: Wed, 7 Nov 2007 03:09:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 7 Nov 2007 Volume: 11 Number: 1009
Today's topics:
&Compress::Zlib::gzopen and Scalar::Util errors <tim@denmantire.com>
CPU limits <alexxx.magni@gmail.com>
error message each time I use perl -MCPAN <mmccaws@comcast.net>
Re: FAQ 8.17 How can I measure time under a second? <brian.d.foy@gmail.com>
Re: How do I use a variable-width positive look behind <jimsgibson@gmail.com>
Re: How do I use a variable-width positive look behind <rvtol+news@isolution.nl>
Re: How Does One Implement a Timer in Perl? <jordilin@gmail.com>
Re: How Does One Implement a Timer in Perl? <josef.moellers@fujitsu-siemens.com>
Re: How to handle fields names in comma separated file? <tadmc@seesig.invalid>
new CPAN modules on Wed Nov 7 2007 (Randal Schwartz)
Re: Platypus - Current Working Directory - write file <youcontrol@hispeed.ch>
Re: Platypus - Current Working Directory - write files <rvtol+news@isolution.nl>
Re: Platypus - Current Working Directory - write files <tadmc@seesig.invalid>
problem installing DBD/mysql.pm <mmccaws@comcast.net>
Re: Replace without back reference <howachen@gmail.com>
Supply basketball shoe, football shoes, clothes, hat an <swukong21@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 06 Nov 2007 19:54:34 -0500
From: Tim Boyer <tim@denmantire.com>
Subject: &Compress::Zlib::gzopen and Scalar::Util errors
Message-Id: <ti12j3pbf5cv48a6rd12a42lv3ji3km0j2@4ax.com>
I'm running Red Hat Enterprise version 5 in a mixture of 32 and 64 bit
environments. There was a Perl security update last night, updating perl
5.8.8-10. to 5.8.8-10_02.
Since then, I've been having problems running a number of perl applications.
For instance, SpamAssassin:
[root@roosevelt scripts]# spamassassin --lint
Use of uninitialized value in concatenation (.) or string at
/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Scalar/Util.pm line 30.
Use of uninitialized value in concatenation (.) or string at
/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Scalar/Util.pm line 30.
or CPAN:
cpan> install Bundle::CPAN
CPAN: Storable loaded ok
Going to read /root/.cpan/Metadata
Database was generated on Sun, 19 Aug 2007 04:36:49 GMT
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
http://mirror.hyperian.net/CPAN/authors/01mailrc.txt.gz
Use of uninitialized value in concatenation (.) or string at
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/Scalar/Util.pm line 30.
Going to read /root/.cpan/sources/authors/01mailrc.txt.gz
Undefined subroutine &Compress::Zlib::gzopen called at
/usr/lib/perl5/5.8.8/CPAN.pm line 5721.
I've ?fixed? the Scalar::Util problem by doing a force install Scalar::Util.
I've tried to do the same with Compress::Zlib, but with less luck:
cpan> install Compress::Zlib
Running install for module Compress::Zlib
Running make for P/PM/PMQS/Compress-Zlib-2.007.tar.gz
Undefined subroutine &Compress::Zlib::gzopen called at
/usr/lib/perl5/5.8.8/CPAN.pm line 5721.
So apparently I can't install Compress::Zlib until I get Compress::Zlib
working. This is... a conundrum.
Pointers in the right direction greatly appreciated.
--
tim boyer
tim@denmantire.com
------------------------------
Date: Wed, 07 Nov 2007 02:40:59 -0800
From: "alexxx.magni@gmail.com" <alexxx.magni@gmail.com>
Subject: CPU limits
Message-Id: <1194432059.732928.107170@v3g2000hsg.googlegroups.com>
Inspired by the recent posting of "FAQ 8.39 How do I set CPU limits?",
I hoped to solve this problem, that I always had with computationally
intensive scripts - namely that the CPU usage goes to 100%, and a very
noisy fan starts.
I'd much prefer to be able to set my script's CPU usage at - say - 75%
or similar...
In the FAQ I saw that this possibility is in the BSD::Resource module,
but unfortunately I work in Linux.
Moreover, I'm not certain that even under BSD this could be possible:
setrlimit seems to allow you just to kill processes going beyond your
given threshold.
Any hint?
Thanks!
Alessandro Magni
------------------------------
Date: Wed, 07 Nov 2007 01:14:39 -0800
From: mmccaws2 <mmccaws@comcast.net>
Subject: error message each time I use perl -MCPAN
Message-Id: <1194426879.771034.260980@i13g2000prf.googlegroups.com>
Everytime I use 'perl -MCPAN -e shell' I get the following error
messages
What do I need to do to correct the cause of the error messages.
Mike
cpan[1]> Redefining sub readline::F_ForwardChar at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_BackwardChar at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_BeginningOfLine at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_EndOfLine at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_ForwardWord at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_BackwardWord at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_RedrawCurrentLine at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_ClearScreen at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_QuotedInsert at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_TabInsert at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_OperateAndGetNext at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_BackwardDeleteChar at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_DeleteChar at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_UnixWordRubout at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_UnixLineDiscard at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_UpcaseWord at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_DownCaseWord at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_CapitalizeWord at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_TransposeWords at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_TransposeChars at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_PreviousHistory at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_NextHistory at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_BeginningOfHistory at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_EndOfHistory at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_ReverseSearchHistory at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_ForwardSearchHistory at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_HistorySearchBackward at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_HistorySearchForward at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_KillLine at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_BackwardKillLine at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_Yank at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_YankPop at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_YankNthArg at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_KillWord at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_BackwardKillWord at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_Abort at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_DoLowercaseVersion at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_DoControlVersion at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_DoMetaVersion at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_Undo at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_RevertLine at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_EmacsEditingMode at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_Interrupt at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_PrefixMeta at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_UniversalArgument at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_DigitArgument at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_OverwriteMode at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_InsertMode at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_ToggleInsertMode at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_Suspend at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_Ding at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_PossibleCompletions at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_Complete at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::clipboard_set at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_CopyRegionAsKillClipboard at /opt/perl_32/
lib/5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_KillRegionClipboard at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_YankClipboard at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_BeginUndoGroup at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_EndUndoGroup at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_DoNothing at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_ForceMemorizeDigitArgument at /opt/perl_32/
lib/5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_MemorizeDigitArgument at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_UnmemorizeDigitArgument at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_MemorizePos at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_MergeInserts at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
Redefining sub readline::F_ResetDigitArgument at /opt/perl_32/lib/
5.8.8/Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_BeginPasteGroup at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_EndPasteGroup at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_BeginEditGroup at /opt/perl_32/lib/5.8.8/
Term/ReadLine/readline.pm line 1668
Redefining sub readline::F_EndEditGroup at /opt/perl_32/lib/5.8.8/Term/
ReadLine/readline.pm line 1668
------------------------------
Date: Wed, 07 Nov 2007 02:36:16 -0600
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 8.17 How can I measure time under a second?
Message-Id: <071120070236162888%brian.d.foy@gmail.com>
In article <1nc405-qr4.ln1@osiris.mauzo.dyndns.org>, Ben Morrow
<ben@morrow.me.uk> wrote:
> Since Time::HiRes can call gettimeofday(2) in a sane manner, wouldn't it
> be better to remove the second part of this answer? Perhaps replace it
> with a note
>
> If you can't install Time::HiRes, and you are on a Unixish system,
> you may be able to call gettimeofday(2) directly. See
> L<perlfunc/syscall>.
Patched, thanks, :)
------------------------------
Date: Tue, 06 Nov 2007 15:38:49 -0800
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: How do I use a variable-width positive look behind assertion?
Message-Id: <061120071538490986%jimsgibson@gmail.com>
In article <1194389534.282536.278580@o80g2000hse.googlegroups.com>,
<"jl_post@hotmail.com"> wrote:
> Hi,
>
> I have some code that splits text right after a line containing
> only a single dot. To do this, I used a positive look-behind
> assertion, like in this sample script:
>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $text = <<"END_OF_TEXT";
> Line 1
> .
> Line 2
> .
> Line 3
> END_OF_TEXT
>
> # Use a positive look-behind assertion
> # to split $text right after a dot on
> # a line by itself:
> my @elements = split m/(?<=\n\.\n)/, $text;
>
> use Data::Dumper;
> print Dumper @elements;
>
> __END__
>
>
> Running this program gives the output:
>
> $VAR1 = 'Line 1
> .
> ';
> $VAR2 = 'Line 2
> .
> ';
> $VAR3 = 'Line 3
> ';
>
> Basically, $text was split into three elements, which each element
> (except for the last) ending with a dot (on a line by itself).
>
> This positive look-behind assertion works great if the dot is truly
> on a line by itself. But it there was leading and/or trailing
> whitespace with the dot (on a line by itself), the regular expression
> m/(?<=\n\.\n)/ won't split after that line.
> my @elements = split m/(\n\s*\.\s*\n)/, $text;
> {
> my @newElements;
> push @newElements, shift(@elements) . shift(@elements)
> while @elements > 1;
> push @newElements, @elements;
>
> @elements = @newElements;
> }
>
> Because of the parentheses in split()'s regular expression (notice it
> no longer uses a look-behind assertion), the line containing a dot
> (and whitespace) on a line by itself is now split out into a separate
> element. The block of code that follows it is just "reassembling" the
> elements so that the "dot-line" is now attached to the previous
> element.
>
> This method does what I want, but it feels like a hack. Is there a
> better way to do what I want?
Capture the (lines + separator line) substrings, plus an alternation to
get the substring after the last separator:
#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $text = <<"END_OF_TEXT";
Line 1
.
Line 2
.
Line 3
END_OF_TEXT
my @elements = ($text =~
m{ \G ( (?:.*? \n \s* \. \s* \n) | (?:.* \z) ) }gxs);
print Dumper @elements;
__OUTPUT__
$VAR1 = 'Line 1
.
';
$VAR2 = 'Line 2
.
';
$VAR3 = 'Line 3
';
$VAR4 = '';
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Wed, 7 Nov 2007 01:25:04 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: How do I use a variable-width positive look behind assertion?
Message-Id: <fgr4at.1jg.1@news.isolution.nl>
jl_post@hotmail.com schreef:
You take far too many words and lines to explain your simple problem.
Further, the subject doesn't mention the problem at hand, but your
problem with some assumed way to solve it.
> I want to split right after a line that
> contains exactly one dot and an arbitrary amount of whitespace, but I
> don't think I can do it with split() using a simple regular
> expression. Or can I?
If you can afford to lose the separating lines:
split /^[[:blank:]]*\.[[:blank:]]*\n/m, $text;
If you want to keep the separating lines too:
split /(^ [[:blank:]]* \. [[:blank:]]* \n )/mx, $text;
But why use split() at all? Alternative that keeps the blocks together:
#!/usr/bin/perl
use strict;
use warnings;
my $text = join "", <DATA>;
my @elements =
$text =~
m{ .*?
(?:
^
[[:blank:]]*
[.]
[[:blank:]]*
\n
|
\z
)
}msxg;
print "[$_]\n" for grep $_, @elements;
__DATA__
Line 1
.
Line 2
.
.
Line 3<EOF>
(things just get a bit more difficult when there is no newline at the
end of the file, and when there is an ebedded empty block)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Wed, 07 Nov 2007 08:10:08 -0000
From: jordilin <jordilin@gmail.com>
Subject: Re: How Does One Implement a Timer in Perl?
Message-Id: <1194423008.366264.280310@d55g2000hsg.googlegroups.com>
On Nov 6, 6:24 pm, "J=FCrgen Exner" <jurge...@hotmail.com> wrote:
> kvnsm...@hotmail.com wrote:
> > I need to write a Perl script for one server that sends off messages
> > on a socket and then waits for a response. If a response comes in
> > five seconds, it uses that response for its output. If a response
> > _doesn't_ come in five seconds, it uses another algorithm to generate
> > its output.
>
> Your Question is Asked Frequently. See
>
> perldoc -q timeout
>
> "How do I timeout a slow event?"
>
> jue
Take a look at
http://www.perl.com/doc/manual/html/pod/perlfunc/alarm.html
hope that helps,
jordi
------------------------------
Date: Wed, 07 Nov 2007 09:59:42 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: How Does One Implement a Timer in Perl?
Message-Id: <fgruq3$omi$2@nntp.fujitsu-siemens.com>
jordilin wrote:
> On Nov 6, 6:24 pm, "J=FCrgen Exner" <jurge...@hotmail.com> wrote:
>=20
>>kvnsm...@hotmail.com wrote:
>>
>>>I need to write a Perl script for one server that sends off messages
>>>on a socket and then waits for a response. If a response comes in
>>>five seconds, it uses that response for its output. If a response
>>>_doesn't_ come in five seconds, it uses another algorithm to generate
>>>its output.
>>
>>Your Question is Asked Frequently. See
>>
>> perldoc -q timeout
>>
>>"How do I timeout a slow event?"
>>
>>jue
>=20
>=20
> Take a look at
> http://www.perl.com/doc/manual/html/pod/perlfunc/alarm.html
Using alarm introduces a potential race condition:
1. you set up an alarm to fire in 5s
2. you request the response
3. the reponse arrives within 1s
4. dur to high load, further execution is delayed by 4.5s
5. the alarm fires, you throw away a perfectly valid reply.
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Tue, 6 Nov 2007 20:09:10 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: How to handle fields names in comma separated file?
Message-Id: <slrnfj27i6.io2.tadmc@tadmc30.sbcglobal.net>
Ben Morrow <ben@morrow.me.uk> wrote:
>
> Quoth Ben Morrow <ben@morrow.me.uk>:
>>
>> If you want access by name, you can use a hash:
>>
>> my @fields = qw/NAME ADDRESS CITY STATE/;
>> my %fields = split /,/; # or something better
>
> Sorry, stupid thinko; that should read
>
> my @fields = qw/NAME ADDRESS CITY STATE/;
> my %fields;
> @fields{@fields} = split /,/; # or something better
>
> Note that @fields{} actually refers to %fields, not to @fields. There is
> some sense there somewhere, but it's quite hard to find... :)
Not if you think about it the right way though.
Dollar-sign is singular and at-sign is plural.
A hash slice is a list, which is plural, so there should be
an at-sign somewhere.
:-)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 7 Nov 2007 05:42:16 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Nov 7 2007
Message-Id: <Jr4FuG.10AC@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.
AnyEvent-2.55
http://search.cpan.org/~mlehmann/AnyEvent-2.55/
provide framework for multiple event loops
----
Baldrick-0.82
http://search.cpan.org/~hucke/Baldrick-0.82/
----
BatchSystem-SBS-0.38
http://search.cpan.org/~alexmass/BatchSystem-SBS-0.38/
a Simple Batch System
----
CPAN-Reporter-1.05
http://search.cpan.org/~dagolden/CPAN-Reporter-1.05/
Adds CPAN Testers reporting to CPAN.pm
----
CSS-Squish-0.06
http://search.cpan.org/~ruz/CSS-Squish-0.06/
Compact many CSS files into one big file
----
Catalyst-Model-Gedcom-0.04
http://search.cpan.org/~bricas/Catalyst-Model-Gedcom-0.04/
Gedcom Model Class
----
CatalystX-CRUD-0.06
http://search.cpan.org/~karman/CatalystX-CRUD-0.06/
CRUD framework for Catalyst applications
----
Class-Factory-1.06
http://search.cpan.org/~phred/Class-Factory-1.06/
Base class for dynamic factory classes
----
Class-Factory-Enhanced-0.03
http://search.cpan.org/~marcel/Class-Factory-Enhanced-0.03/
more functionality for Class::Factory
----
DBD-ODBC-1.15_1
http://search.cpan.org/~mjevans/DBD-ODBC-1.15_1/
ODBC Driver for DBI
----
DBIx-Perlish-0.32
http://search.cpan.org/~gruber/DBIx-Perlish-0.32/
a perlish interface to SQL databases
----
Data-Decode-0.00003
http://search.cpan.org/~dmaki/Data-Decode-0.00003/
Pluggable Data Decoder
----
Data-Decode-0.00004
http://search.cpan.org/~dmaki/Data-Decode-0.00004/
Pluggable Data Decoder
----
Data-Decode-0.00005
http://search.cpan.org/~dmaki/Data-Decode-0.00005/
Pluggable Data Decoder
----
Date-DateTime-Easy-0.020
http://search.cpan.org/~rkrimen/Date-DateTime-Easy-0.020/
Quickly and easily create a Date::DateTime object (by parsing almost anything)
----
Date-DateTime-Easy-0.021
http://search.cpan.org/~rkrimen/Date-DateTime-Easy-0.021/
Quickly and easily create a Date::DateTime object (by parsing almost anything)
----
DateTime-Easy-0.01
http://search.cpan.org/~rkrimen/DateTime-Easy-0.01/
Quickly and easily create a DateTime object (by parsing almost anything)
----
DateTime-Easy-0.013
http://search.cpan.org/~rkrimen/DateTime-Easy-0.013/
Quickly and easily create a DateTime object (by parsing almost anything)
----
EV-0.5
http://search.cpan.org/~mlehmann/EV-0.5/
perl interface to libev, a high performance full-featured event loop
----
EV-0.51
http://search.cpan.org/~mlehmann/EV-0.51/
perl interface to libev, a high performance full-featured event loop
----
Egg-Plugin-Log-Syslog-0.01
http://search.cpan.org/~lushe/Egg-Plugin-Log-Syslog-0.01/
Plugin for Sys::Syslog.
----
Egg-Plugin-SessionKit-2.10
http://search.cpan.org/~lushe/Egg-Plugin-SessionKit-2.10/
Plugin that manages session.
----
Egg-Plugin-SessionKit-Auth-2.10
http://search.cpan.org/~lushe/Egg-Plugin-SessionKit-Auth-2.10/
Authentication of session base.
----
File-Fetch-0.13_02
http://search.cpan.org/~kane/File-Fetch-0.13_02/
A generic file fetching mechanism
----
Getargs-Long-1.1002
http://search.cpan.org/~dcoppit/Getargs-Long-1.1002/
Named subroutine arguments, with optional type checking
----
HTML-Feature-2.00004_00
http://search.cpan.org/~miki/HTML-Feature-2.00004_00/
Extract Feature Sentences From HTML Documents
----
HTML-Template-Ex-0.08
http://search.cpan.org/~lushe/HTML-Template-Ex-0.08/
The Perl code is operated in the template for HTML::Template.
----
JSON-Any-1.13
http://search.cpan.org/~perigrin/JSON-Any-1.13/
Wrapper Class for the various JSON classes.
----
LaTeX-Table-0.5.1
http://search.cpan.org/~limaone/LaTeX-Table-0.5.1/
Perl extension for the automatic generation of LaTeX tables.
----
LaTeX-Table-0.5.2
http://search.cpan.org/~limaone/LaTeX-Table-0.5.2/
Perl extension for the automatic generation of LaTeX tables.
----
Language-Befunge-Debugger-0.1.0
http://search.cpan.org/~jquelin/Language-Befunge-Debugger-0.1.0/
a graphical debugger for Language::Befunge
----
Language-Befunge-Debugger-0.1.1
http://search.cpan.org/~jquelin/Language-Befunge-Debugger-0.1.1/
a graphical debugger for Language::Befunge
----
Log-Syslog-Abstract-1.001
http://search.cpan.org/~doneill/Log-Syslog-Abstract-1.001/
Use any available syslog API
----
Net-Address-Ethernet-1.097
http://search.cpan.org/~mthurn/Net-Address-Ethernet-1.097/
find hardware ethernet address
----
Net-Address-Ethernet-1.098
http://search.cpan.org/~mthurn/Net-Address-Ethernet-1.098/
find hardware ethernet address
----
Object-InsideOut-3.28
http://search.cpan.org/~jdhedden/Object-InsideOut-3.28/
Comprehensive inside-out object support module
----
Package-Builder-5.03
http://search.cpan.org/~drauoner/Package-Builder-5.03/
The great new Package::Builder!
----
Parse-Marpa-0.001_035
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_035/
Jay Earley's general parsing algorithm with LR(0) precomputation
----
Set-Groups-0.7
http://search.cpan.org/~jacquelin/Set-Groups-0.7/
A set of groups.
----
Set-Groups-0.8
http://search.cpan.org/~jacquelin/Set-Groups-0.8/
A set of groups.
----
TRL-Microarray-0.23
http://search.cpan.org/~cjones/TRL-Microarray-0.23/
A Perl module for creating and manipulating microarray objects
----
Test-Depends-0.04
http://search.cpan.org/~samv/Test-Depends-0.04/
Gracefully skip tests if missing modules
----
Test-Harness-3.00
http://search.cpan.org/~andya/Test-Harness-3.00/
Run Perl standard test scripts with statistics
----
Text-CSV-0.99_04
http://search.cpan.org/~makamaka/Text-CSV-0.99_04/
comma-separated values manipulator (using XS or PurePerl)
----
WWW-Dattebayo-0.01
http://search.cpan.org/~sepp/WWW-Dattebayo-0.01/
----
WebService-Backlog-0.01_02
http://search.cpan.org/~yamamoto/WebService-Backlog-0.01_02/
Perl interface to Backlog.
----
Win32-Outlook-IAF-0.01
http://search.cpan.org/~pczerkas/Win32-Outlook-IAF-0.01/
Internet Account File (*.iaf) management for Outlook Express/2003.
----
Wx-0.80
http://search.cpan.org/~mbarbon/Wx-0.80/
interface to the wxWidgets cross-platform GUI toolkit
----
XML-Atom-0.28
http://search.cpan.org/~miyagawa/XML-Atom-0.28/
Atom feed and API implementation
----
XML-Bare-0.22
http://search.cpan.org/~codechild/XML-Bare-0.22/
Minimal XML parser implemented via a C state engine
----
XML-Compile-0.58
http://search.cpan.org/~markov/XML-Compile-0.58/
Compilation based XML processing
----
XML-Compile-SOAP-0.60
http://search.cpan.org/~markov/XML-Compile-SOAP-0.60/
base-class for SOAP implementations
----
XML-Compile-SOAP-0.61
http://search.cpan.org/~markov/XML-Compile-SOAP-0.61/
base-class for SOAP implementations
----
XML-Twig-3.30
http://search.cpan.org/~mirod/XML-Twig-3.30/
A perl module for processing huge XML documents in tree mode.
----
threads-shared-1.15
http://search.cpan.org/~jdhedden/threads-shared-1.15/
Perl extension for sharing data structures between threads
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: Wed, 7 Nov 2007 01:22:30 +0100
From: Markus S <youcontrol@hispeed.ch>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <47310548@news1-rz-ap.ethz.ch>
On 2007-11-06 11:40 pm, Ben Morrow said:
> Have you tried simply using a
> Perl script instead of shell? That is, instead of start.sh, have
> start.pl
>
> #!/usr/bin/perl
>
> use File::Spec::Functions;
>
> my $dir = catdir $ARGV[0], qw/Contents Resources/;
> chdir $dir;
>
> # presumably the dropped items are now in $ARGV[1]... ?
>
> Ben
I don't want to pretend that I fully understand that code but where and
how do I tell Perl the content of $1 (which should contain the current
working directory) in this?
------------------------------
Date: Wed, 7 Nov 2007 01:34:43 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Platypus - Current Working Directory - write files
Message-Id: <fgr4tn.1go.1@news.isolution.nl>
Joe Smith schreef:
> Tad McClellan wrote:
>
>> What â € ™ s wrong with always quoting "$vars"?
>
> Tad,
> The headers on your posting says
>
> Mime-Version: 1.0
> Content-Type: text/plain; charset=iso-8859-1
> Content-Transfer-Encoding: 8bit
> User-Agent: slrn/0.9.8.1pl1 (Linux)
>
> yet the article body has UTF-8 characters.
Yes, Tad does that frequently. He could just use
LANG= perldoc -q vars
before copy/pasting, but he insists in forgetting that.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Tue, 6 Nov 2007 20:12:15 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Platypus - Current Working Directory - write files
Message-Id: <slrnfj27nv.io2.tadmc@tadmc30.sbcglobal.net>
Dr.Ruud <rvtol+news@isolution.nl> wrote:
> Joe Smith schreef:
>> Tad McClellan wrote:
>>
>>> What â € ™ s wrong with always quoting "$vars"?
>>
>> Tad,
>> The headers on your posting says
>>
>> Mime-Version: 1.0
>> Content-Type: text/plain; charset=iso-8859-1
>> Content-Transfer-Encoding: 8bit
>> User-Agent: slrn/0.9.8.1pl1 (Linux)
>>
>> yet the article body has UTF-8 characters.
>
> Yes, Tad does that frequently. He could just use
>
> LANG= perldoc -q vars
>
> before copy/pasting, but he insists in forgetting that.
Rather, I keep forgetting to
perldoc -uq vars
before copy/paste.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 07 Nov 2007 01:11:46 -0800
From: mmccaws2 <mmccaws@comcast.net>
Subject: problem installing DBD/mysql.pm
Message-Id: <1194426706.549918.151590@y27g2000pre.googlegroups.com>
I'm getting closer but don't know where I going wrong. On HPUX system
and had to manually install DBI and DBD-mysql modules. the error
message says
error message begin
DBD::mysql initialisation failed: Can't locate object method "driver"
via package "DBD::mysql" at /opt/perl_32/lib/5.8.8/IA64.ARCHREV_0-
thread-multi/DBI.pm line 782.
Perhaps the capitalisation of DBD 'mysql' isn't right. at ./conntst.pl
line 6
error message end
now the install seems to have installed it in my .cpan directory
/home/mmcca/.cpan/Bundle/DBD/mysql.pm
so in the test script I put a lib statement. Am I using lib correctly
or do I need a different method to have mysql.pm visible to the DBI
module? Below the code is the original error message.
#!/usr/bin/perl
use strict;
use lib '/home/mmcca/.cpan/Bundle';
use DBI;
my $dbh = DBI->connect('DBI:mysql:smartcard:localhost', 'root',
'Welcome1',
{RaiseError => 1});
if ($dbh) {
print "Successfully connected to the database\n";
}
$dbh->disconnect;
orignal error message
$ ./conntst.pl
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC
contains: /home/mccannm/.cpan/Bundle/DBD /opt/perl_32/lib/5.8.8/
IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/5.8.8 /opt/perl_32/lib/
site_perl/5.8.8/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/site_perl/
5.8.8 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.8/
IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/vendor_perl/5.8.8 /opt/
perl_32/lib/vendor_perl .) at (eval 4) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge,
mysqlPP.
at ./conntst.pl line 6
------------------------------
Date: Tue, 06 Nov 2007 19:50:27 -0800
From: howa <howachen@gmail.com>
Subject: Re: Replace without back reference
Message-Id: <1194407427.449770.6890@v29g2000prd.googlegroups.com>
On 11 6 , 9 45 , Brian McCauley <nobul...@gmail.com> wrote:
> On Nov 6, 11:18 am, howa <howac...@gmail.com> wrote:
>
> > $str =~ s/(C)D/$1F/g;
> > I need to do these kind of operations a lot, seems using back
> > reference is slow
>
> > Any better or faster approach for the above example?
>
> Not yet, but as of 5.10 [1] you'll be able to use \K.
>
> $str =~ s/C\KD/F/g;
>
> [1]http://www.regex-engineer.org/slides/perl510_regex.html
Hello,
I am using Perl 5.8.7 on Windows, when using \K, it shows:
Unrecognized escape \K passed through at C:\test.pl line 6.
any idea?
------------------------------
Date: Tue, 06 Nov 2007 19:31:11 -0800
From: "swukong21@gmail.com" <swukong21@gmail.com>
Subject: Supply basketball shoe, football shoes, clothes, hat and so on
Message-Id: <1194406271.133587.68600@i13g2000prf.googlegroups.com>
Hello
http://www.shoessuperstar.com/
shoessuperstar.co.,LTD greets and desires of success and wishes you
happy times.
This is professional export company from china who carry PAYPAL
payment and DROPSHIP .
We greated in 1998 year ,and now we become the one of best supplier
here because of we keep our credit standing .
Pls visit our site if u are interest in any products below ,
http://www.shoessuperstar.com/
Our main products :
Fashion shoes:
Air Jordan , Air force , Air max , Shox , Dunk , Adidas , Puma ,
Prada , Chanel , Gucci , Lacoste , LouisVuiton and more .
Fashion Hoodies&T-Shirt&Jeans&Jacket:
Gino Green Globa , Bape , BBC , Evsiu , Juicy couture , Burberry , 10
Deep , LRG , ED Hardy , Chanel , G-Star , Red monkey , lacoste ,
POLO,
Armani ,Replay , Tommy and more.
Fashion bags:
LouisVuiton , Pada , Chanel , Fendi , Versace , Burberry , MIUMIU ,
Y-3 , Gucci ,Chloe , Guess , Juicy and more
Electronic :
IPOD NANO ,
Features:
1) All Package are original ,coming with guarantee cards
2) Main Market : U.S.A . U.K ,ITALY , EURO COUNTRY ,
AUSTRALIA
3) Ship Company : DHL , TNT , UPS , SODIEX , EMS
4) Payment Method : PAYPAL , WESTERN UNION ,T/T .
5) Custom : We carry the custom clear and promise items
must be arrive .
Thanks for your reading , pls mail us if u have any problem
with
the business . We hope that will make a long&great business with you
in future.
Your satisfactions,Our pursuit!
Please Email me to get discount!!
EMAIL: swukong116@hotmail.com
MSN : swukong1@hotmail.com
http://www.shoessuperstar.com/
Best regards
------------------------------
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 1009
***************************************
