[28972] in Perl-Users-Digest
Perl-Users Digest, Issue: 216 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 12 06:11:03 2007
Date: Mon, 12 Mar 2007 03: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, 12 Mar 2007 Volume: 11 Number: 216
Today's topics:
Re: ${{ foo => bar, baz => faz }}{ baz } <uri@stemsystems.com>
Re: ${{ foo => bar, baz => faz }}{ baz } <blgl@stacken.kth.se>
Re: ${{ foo => bar, baz => faz }}{ baz } <bik.mido@tiscalinet.it>
Re: Convert IEEE single from integer representation <1usa@llenroc.ude.invalid>
Equivalent in Perl <pankaj_wolfhunter@yahoo.co.in>
Re: How get cell count and match total column value <sahoo.byomokesh@gmail.com>
Re: How get cell count and match total column value <sahoo.byomokesh@gmail.com>
Re: invoking system commands from a perl script <uri@stemsystems.com>
Re: Match a regular expression <alex.habar.nam@gmail.com>
Re: Muhammad, the Messenger of Allah <uri@stemsystems.com>
new CPAN modules on Mon Mar 12 2007 (Randal Schwartz)
Re: Use Perl to Fix DST on Windows Computer <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 11 Mar 2007 18:38:54 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <x7ps7fwdtd.fsf@mail.sysarch.com>
>>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
MD> On Fri, 09 Mar 2007 18:19:15 +0100, Michele Dondi
MD> <bik.mido@tiscalinet.it> wrote:
>>> with making it truly a slice is the multilevel problem. you can slice at
>>> the bottom most level with no problem but what does it mean at higher
>>> levels? you would need to create a deep data structure on the fly and it
>>> couldn't be used for anything but returning it (via a ref). perl6 does
>>
>> Hmmm, sounds like a convincing explanation. Hadn't tought of that, of
>> course.
MD> Thinking of it better, the same problems affects $aref->[$n,$m],
MD> although in that case there wasn't the same ambiguity. Given that
MD> "multilevel" hashes are an obsolete feature anyway, and are obsoleted
MD> exactly by real refs, then I would consider $href->{$foo,$bar} to be
MD> more intuitively representing a slice. However inutitivity like
MD> trea^Wbeauty is in the eye of the beholder...
it might work ok at the shallow top level there, but when you get deeper
is when it gets ugly and hard to manage. what does this return?
$href->{$foo,$bar}{qw( abc xyz )}
a reasonable guess would be a multilevel hash slice but that means
multiple internal loops, plenty of calls to malloc and such. some langs
(PL/I among them) supported such things. p5 didn't but p6 will. p6 even
allows a wildcard across a dimension.
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: Mon, 12 Mar 2007 05:37:33 +0100
From: Bo Lindbergh <blgl@stacken.kth.se>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <et2lee$ole$1@news.su.se>
In article <x7ps7fwdtd.fsf@mail.sysarch.com>, Uri Guttman <uri@stemsystems.com>
wrote:
> >>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
>
> MD> Thinking of it better, the same problems affects $aref->[$n,$m],
> MD> although in that case there wasn't the same ambiguity. Given that
> MD> "multilevel" hashes are an obsolete feature anyway, and are obsoleted
> MD> exactly by real refs, then I would consider $href->{$foo,$bar} to be
> MD> more intuitively representing a slice. However inutitivity like
> MD> trea^Wbeauty is in the eye of the beholder...
>
> it might work ok at the shallow top level there, but when you get deeper
> is when it gets ugly and hard to manage. what does this return?
>
> $href->{$foo,$bar}{qw( abc xyz )}
>
> a reasonable guess would be a multilevel hash slice but that means
> multiple internal loops, plenty of calls to malloc and such.
No, a reasonable guess would be to do the same thing today's Perl does when
&$cref in the example below returns multiple values:
$cref->($foo)->{qw(abc xyz)}
(For the lazy: the function is called in scalar context, i.e. if it tries to
return multiple values only the last one is used.)
/Bo Lindbergh
------------------------------
Date: Mon, 12 Mar 2007 11:06:55 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <vf9av2h5ko1ou069n1m27mt38njja1tbgf@4ax.com>
On Sun, 11 Mar 2007 18:38:54 -0500, Uri Guttman <uri@stemsystems.com>
wrote:
>it might work ok at the shallow top level there, but when you get deeper
>is when it gets ugly and hard to manage. what does this return?
>
> $href->{$foo,$bar}{qw( abc xyz )}
Well, what does this return?
$aref->[$foo,$bar][1..3]
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sun, 11 Mar 2007 19:26:56 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Convert IEEE single from integer representation
Message-Id: <Xns98F09D2461ADBasu1cornelledu@127.0.0.1>
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote in
news:et0m7o$1psp$1@agate.berkeley.edu:
> [A complimentary Cc of this posting was sent to
> A. Sinan Unur
> <1usa@llenroc.ude.invalid>], who wrote in article
> <Xns98EFBA3051F7Dasu1cornelledu@127.0.0.1>:
>> > Keep in mind that there is no such thing as "an IEEE format". IEEE
>> > requires a certain *semantic* of floats, not a particular way of
>> > binary representation. However, IIRC, all but 2 architechtures use
>> > one of two representations, related to each other as V is to N
>> > (pack-parlance).
>>
>> I was using the word 'format' not to refer to the way they were
>> stored on disk but rather what the bits mean once you have it in the
>> appropriate int.
>
> Me too.
Oh, OK, I have to do some more reading then.
>
>> Would you mind posting/letting me know which two architectures you
>> are referring to above?
>
> If I remebered, I would write it down in the initial post. ;-)
;-) Thank you.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: 12 Mar 2007 02:42:50 -0700
From: "pankaj_wolfhunter@yahoo.co.in" <pankaj_wolfhunter@yahoo.co.in>
Subject: Equivalent in Perl
Message-Id: <1173692570.711072.110300@8g2000cwh.googlegroups.com>
Greetings,
Whats the equivalent for the following code in perl:
sqlplus -s orauser/orapass@oadb << eof > output_file.txt
some oracle queries
exit;
eof;
I did this using "system" command.
We've been told to do this using DBI or some other method?
I tried with DBI but the problem is I dont know how to redirect the
oracle output to
to a file (outout_file.txt) instead of console.
Help would be appreciated.
TIA
------------------------------
Date: 12 Mar 2007 00:58:40 -0700
From: "Rahul" <sahoo.byomokesh@gmail.com>
Subject: Re: How get cell count and match total column value
Message-Id: <1173686320.772266.91470@64g2000cwx.googlegroups.com>
On Mar 10, 6:30 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> On 9 Mar 2007 21:42:04 -0800, "Rahul" <sahoo.byomok...@gmail.com>
> wrote:
>
> >> --
> >> {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> >> (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> >> .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> >> 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
>
> You did better than top-posting, but you'd better go further and trim
> down the quoted material to the relevant parts you're commenting only.
> In particular you should strip .sig's, well, unless you want to
> discuss them, that is.
>
> >Thanks for reply. Yes i am trying to column count and compare tgroup
> >cols value. I have a huge xml file. thats why i was not added here. I
>
> That's why I suggested you to take it and edit it to a bare minimum
> still having the charachteristics you need to show what you want.
>
> >want to catch if tgroup cols="3" colspace(column) should be 3. If
> >colspace should be 4 then showing parse error.
>
> >my pl
> >------
>
> No
>
> use strict; # nor
> use warnings; # too bad!
>
> (The rationale being: ask perl to give you all the help it can, by
> restricting your freedom in ways that will help you to prevent common
> programming mistakes.)
>
> >$tmp=0;
>
> Unused variable, and probably no need to initialize it if it were
> used.
>
> >print "Enter the filename: ";
> >chomp($ram=<STDIN>);
> >open(RED,"$ram.xml");
>
> Bareword FH, two-args and unckecked open().
>
> BTW: So is $ram the filename or *part* of it?
>
> >open(MAD,">$ram.err");
>
> Ditto.
>
> >print "WAIT! CHECKING IS IN PROGRESS ..... .....\n";
> >$cols=0;
>
> Other unused variable.
>
> >while(<RED>)
> >{
> >$cou++;
>
> Awkward indenting, bad style.
>
> >if(/[.,:;!]<\/title>/)
>
> Attempt at manual XML parsing with regexen: bad! Use some XML parsing
> module instead.
>
>
>
> >{
> > print MAD "LINE No. $cou: Trailing punctuations found before </title>
>
> So $cou is for counting lines... don't! Just use $. instead. Read
> about it in
>
> perldoc perlvar
>
> BTW: warning would better go to STDERR, possibly through the dedicated
> warn() function.
>
> >if(/[.,:;?!]<\/mono>/)
>
> >{
> > print MAD "LINE No. $cou: Trailing punctuations found before </mono>
> >\n";
>
> Ditto as above.
>
> >close(RED);
> >close(MAD);
>
> And then?!? I see no attempt at all at checking what you claimed to be
> wanting to check.
>
> >I am confused how define tgroup cols value and count in
> >colspace(column) then it is not matching in tgroup cols value, should
> >be showing error msg. Value is not constant. Because so many tables in
> >XML files. All tables column is different. If table is 5 column,
> >tgroup cols="5".
>
> >I hope you understand.
>
> Sort of. Without having a *sample* of your actual XML file (not the
> whole of it), hard to give even a bare example. But IF the xml is as
> regular as the snippet you showed in the last post, then something
> just as rude as the following *may* work:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> while (<>) {
> if (/<tgroup\s+cols\s*=\s*"(\d+)">/) {
> my ($expected, $found)=$1;
> $found++ while <>=~/<colspec/;
> warn "Expected $expected cols, found $found at line $.\n"
> unless $expected==$found;
> }
> }
>
> __END__
>
> PLEASE NOTE THAT THIS IS ADMITTEDLY BAD ADVICE AND IF YOU THINK OF
> USING SOMETHING LIKE THIS ON A REGULAR BASIS, THEN IT'S LIKELY TO BITE
> YOU IN THE NECK.
>
> Michele
> --
> {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
Thanks for the help. But According to your method i m not getting any
response, when i run this file.
My XML file
------------
<table frame="all" colsep="0" rowsep="0" pgwide="0">
<tgroup cols="3">
<colspec colnum="1" colname="col1"/>
<colspec colnum="2" colname="col2"/>
<colspec colnum="3" colname="col3"/>
<colspec colnum="4" colname="col4"/> <!-- I want catch this error. Bcz
column is 3 but user define 4 column here -->
<tbody>
<row>
<entry valign="top" align="left"><p><b>nada</b></p></entry>
<entry valign="top" align="left"><p><i>nothing</i></p></entry>
<entry valign="top" align="left"><p>— No, <b>no</b> hay
<b>nada.</b></p></entry>
</row>
</tbody>
</tgroup>
</table>
Pl file
-------
#!/usr/bin/perl
use strict;
use warnings;
open(FH,"count.xml");
open(MAD,">count.err");
while (<FH>) {
if (/<tgroup\s+cols\s*=\s*"(\d+)">/) {
my ($expected, $found)=$1;
$found++ while <>=~/<colspec/;
warn "Expected $expected cols, found $found at line $.\n"
unless $expected==$found;
}
}
close(FH);
close(MAD);
Please give me complete method. I am very confused.
Byomokesh
------------------------------
Date: 12 Mar 2007 02:06:28 -0700
From: "Rahul" <sahoo.byomokesh@gmail.com>
Subject: Re: How get cell count and match total column value
Message-Id: <1173690388.402474.31780@8g2000cwh.googlegroups.com>
On Mar 12, 12:58 pm, "Rahul" <sahoo.byomok...@gmail.com> wrote:
> On Mar 10, 6:30 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
>
>
>
>
>
> > On 9 Mar 2007 21:42:04 -0800, "Rahul" <sahoo.byomok...@gmail.com>
> > wrote:
>
> > >> --
> > >> {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> > >> (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> > >> .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> > >> 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
>
> > You did better than top-posting, but you'd better go further and trim
> > down the quoted material to the relevant parts you're commenting only.
> > In particular you should strip .sig's, well, unless you want to
> > discuss them, that is.
>
> > >Thanks for reply. Yes i am trying to column count and compare tgroup
> > >cols value. I have a huge xml file. thats why i was not added here. I
>
> > That's why I suggested you to take it and edit it to a bare minimum
> > still having the charachteristics you need to show what you want.
>
> > >want to catch if tgroup cols="3" colspace(column) should be 3. If
> > >colspace should be 4 then showing parse error.
>
> > >my pl
> > >------
>
> > No
>
> > use strict; # nor
> > use warnings; # too bad!
>
> > (The rationale being: ask perl to give you all the help it can, by
> > restricting your freedom in ways that will help you to prevent common
> > programming mistakes.)
>
> > >$tmp=0;
>
> > Unused variable, and probably no need to initialize it if it were
> > used.
>
> > >print "Enter the filename: ";
> > >chomp($ram=<STDIN>);
> > >open(RED,"$ram.xml");
>
> > Bareword FH, two-args and unckecked open().
>
> > BTW: So is $ram the filename or *part* of it?
>
> > >open(MAD,">$ram.err");
>
> > Ditto.
>
> > >print "WAIT! CHECKING IS IN PROGRESS ..... .....\n";
> > >$cols=0;
>
> > Other unused variable.
>
> > >while(<RED>)
> > >{
> > >$cou++;
>
> > Awkward indenting, bad style.
>
> > >if(/[.,:;!]<\/title>/)
>
> > Attempt at manual XML parsing with regexen: bad! Use some XML parsing
> > module instead.
>
> > >{
> > > print MAD "LINE No. $cou: Trailing punctuations found before </title>
>
> > So $cou is for counting lines... don't! Just use $. instead. Read
> > about it in
>
> > perldoc perlvar
>
> > BTW: warning would better go to STDERR, possibly through the dedicated
> > warn() function.
>
> > >if(/[.,:;?!]<\/mono>/)
>
> > >{
> > > print MAD "LINE No. $cou: Trailing punctuations found before </mono>
> > >\n";
>
> > Ditto as above.
>
> > >close(RED);
> > >close(MAD);
>
> > And then?!? I see no attempt at all at checking what you claimed to be
> > wanting to check.
>
> > >I am confused how define tgroup cols value and count in
> > >colspace(column) then it is not matching in tgroup cols value, should
> > >be showing error msg. Value is not constant. Because so many tables in
> > >XML files. All tables column is different. If table is 5 column,
> > >tgroup cols="5".
>
> > >I hope you understand.
>
> > Sort of. Without having a *sample* of your actual XML file (not the
> > whole of it), hard to give even a bare example. But IF the xml is as
> > regular as the snippet you showed in the last post, then something
> > just as rude as the following *may* work:
>
> > #!/usr/bin/perl
>
> > use strict;
> > use warnings;
>
> > while (<>) {
> > if (/<tgroup\s+cols\s*=\s*"(\d+)">/) {
> > my ($expected, $found)=$1;
> > $found++ while <>=~/<colspec/;
> > warn "Expected $expected cols, found $found at line $.\n"
> > unless $expected==$found;
> > }
> > }
>
> > __END__
>
> > PLEASE NOTE THAT THIS IS ADMITTEDLY BAD ADVICE AND IF YOU THINK OF
> > USING SOMETHING LIKE THIS ON A REGULAR BASIS, THEN IT'S LIKELY TO BITE
> > YOU IN THE NECK.
>
> > Michele
> > --
> > {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> > (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> > .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> > 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
>
> Thanks for the help. But According to your method i m not getting any
> response, when i run this file.
>
> My XML file
> ------------
>
> <table frame="all" colsep="0" rowsep="0" pgwide="0">
> <tgroup cols="3">
> <colspec colnum="1" colname="col1"/>
> <colspec colnum="2" colname="col2"/>
> <colspec colnum="3" colname="col3"/>
> <colspec colnum="4" colname="col4"/> <!-- I want catch this error. Bcz
> column is 3 but user define 4 column here -->
> <tbody>
> <row>
> <entry valign="top" align="left"><p><b>nada</b></p></entry>
> <entry valign="top" align="left"><p><i>nothing</i></p></entry>
> <entry valign="top" align="left"><p>— No, <b>no</b> hay
> <b>nada.</b></p></entry>
> </row>
> </tbody>
> </tgroup>
> </table>
>
> Pl file
> -------
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> open(FH,"count.xml");
> open(MAD,">count.err");
> while (<FH>) {
> if (/<tgroup\s+cols\s*=\s*"(\d+)">/) {
> my ($expected, $found)=$1;
> $found++ while <>=~/<colspec/;
> warn "Expected $expected cols, found $found at line $.\n"
> unless $expected==$found;
> }
> }
>
> close(FH);
> close(MAD);
>
> Please give me complete method. I am very confused.
>
> Byomokesh- Hide quoted text -
>
> - Show quoted text -
Thank you Michel. Many many thanks for quick response. I solved my
problem. Thanks...thanks...
------------------------------
Date: Sun, 11 Mar 2007 18:46:34 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: invoking system commands from a perl script
Message-Id: <x7hcsrwdgl.fsf@mail.sysarch.com>
>>>>> "a" == anno4000 <anno4000@radom.zrz.tu-berlin.de> writes:
a> vabby <vaibhav.aparimit@gmail.com> wrote in comp.lang.perl.misc:
>> so using backticks or system is teh same thing except when you want to
>> capture the result value of teh command.
a> Its *output*. The term "result value" is ambiguous at best.
>> my idea of asking the
>> question was that somebody told me , that using system to execute unix
>> commands, is the synchronous way of doing it, and using backticks the
>> asynchronous way
a> If by "synchronous" you mean you don't get control back before the
a> command has been executed, both are synchronous. To get asynchronous
a> behavior, in the sense that your Perl program keeps running while the
a> external program executes, you'll need forking. That can happen
a> directly or through appropriate calls of open().
well, you know both system and backticks fork too. the synchronous part
is that they wait until they complete. open | is one way to run an async
process and IPC::open2/3 are some others. and as you implied calling
fork (and maybe exec) directly is another.
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: 12 Mar 2007 01:25:51 -0700
From: "whiskey" <alex.habar.nam@gmail.com>
Subject: Re: Match a regular expression
Message-Id: <1173687951.040681.237250@c51g2000cwc.googlegroups.com>
There's probably no way to do this using solely a regular expression.
Thank you for your answers.
------------------------------
Date: Sun, 11 Mar 2007 18:40:03 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Muhammad, the Messenger of Allah
Message-Id: <x7lki3wdrg.fsf@mail.sysarch.com>
and is perl muhammad's favorite programming language? i sure hope so!
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: Mon, 12 Mar 2007 05:42:09 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Mar 12 2007
Message-Id: <JErzu9.2427@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.
AI-MegaHAL-0.05_01
http://search.cpan.org/~chorny/AI-MegaHAL-0.05_01/
Perl interface to the MegaHAL natural language conversation simulator.
----
Acme-Colour-Fuzzy-0.01
http://search.cpan.org/~mbarbon/Acme-Colour-Fuzzy-0.01/
give names to arbitrary RGB triplets
----
Algorithm-RectanglesContainingDot_XS-0.02
http://search.cpan.org/~salva/Algorithm-RectanglesContainingDot_XS-0.02/
C/XS implementation of Algorithm::RectanglesContainingDot
----
Apache-Session-1.82_02
http://search.cpan.org/~chorny/Apache-Session-1.82_02/
A persistence framework for session data
----
Bio-Grep-v0.2.0
http://search.cpan.org/~limaone/Bio-Grep-v0.2.0/
Perl extension for searching in Fasta files
----
CPANPLUS-Dist-Build-0.05
http://search.cpan.org/~kwilliams/CPANPLUS-Dist-Build-0.05/
----
Catalyst-Model-DBI-SQL-Library-0.15
http://search.cpan.org/~alexp/Catalyst-Model-DBI-SQL-Library-0.15/
SQL::Library DBI Model Class
----
Catalyst-View-HTML-Template-0.02
http://search.cpan.org/~mramberg/Catalyst-View-HTML-Template-0.02/
HTML::Template View Class
----
Class-MOP-0.37
http://search.cpan.org/~stevan/Class-MOP-0.37/
A Meta Object Protocol for Perl 5
----
Color-Similarity-HCL-0.01
http://search.cpan.org/~mbarbon/Color-Similarity-HCL-0.01/
compute color similarity using the HCL color space
----
DBIx-Class-QueryLog-0.03
http://search.cpan.org/~gphat/DBIx-Class-QueryLog-0.03/
Log queries for later analysis.
----
DBIx-SearchBuilder-1.48
http://search.cpan.org/~ruz/DBIx-SearchBuilder-1.48/
Encapsulate SQL queries and rows in simple perl objects
----
Date-Holidays-ES-0.02
http://search.cpan.org/~fmerges/Date-Holidays-ES-0.02/
Spanish holidays
----
DateTime-Format-Natural-0.25
http://search.cpan.org/~schubiger/DateTime-Format-Natural-0.25/
Create machine readable date/time with natural parsing logic
----
Devel-ebug-Wx-0.03
http://search.cpan.org/~mbarbon/Devel-ebug-Wx-0.03/
GUI interface for your (d)ebugging needs
----
Image-Pngslimmer-0.16
http://search.cpan.org/~acmcmen/Image-Pngslimmer-0.16/
slims (dynamically created) PNGs
----
JSON-DWIW-0.01
http://search.cpan.org/~dowens/JSON-DWIW-0.01/
JSON converter that Does What I Want
----
Lemonldap-NG-Manager-0.511
http://search.cpan.org/~guimard/Lemonldap-NG-Manager-0.511/
Perl extension for managing Lemonldap::NG Web-SSO system.
----
Log-Log4perl-ConfigByInifile-0.01
http://search.cpan.org/~horshack/Log-Log4perl-ConfigByInifile-0.01/
Get Log::Log4perl config from an ini-File
----
Mail-ListDetector-1.00
http://search.cpan.org/~mstevens/Mail-ListDetector-1.00/
Perl extension for detecting mailing list messages
----
Makefile-GraphViz-0.15
http://search.cpan.org/~agent/Makefile-GraphViz-0.15/
Draw building flowchart from Makefiles using GraphViz
----
Mediawiki-POD-0.04
http://search.cpan.org/~tels/Mediawiki-POD-0.04/
convert POD to HTML suitable for a MediaWiki wiki
----
Moose-0.18
http://search.cpan.org/~stevan/Moose-0.18/
A complete modern object system for Perl 5
----
Net-DNS-Callback-1.03
http://search.cpan.org/~shevek/Net-DNS-Callback-1.03/
Asynchronous DNS helper for high volume applications
----
Net-GPSD-Server-Fake-0.16
http://search.cpan.org/~mrdvt/Net-GPSD-Server-Fake-0.16/
Provides a Fake GPSD daemon server test harness.
----
Net-IRC3-0.5
http://search.cpan.org/~elmex/Net-IRC3-0.5/
An event system independend IRC protocol module
----
Parse-DMIDecode-0.03
http://search.cpan.org/~nicolaw/Parse-DMIDecode-0.03/
Interface to SMBIOS using dmidecode
----
Pod-POM-Web-1.01
http://search.cpan.org/~dami/Pod-POM-Web-1.01/
HTML Perldoc server
----
Proc-InvokeEditor-0.03
http://search.cpan.org/~mstevens/Proc-InvokeEditor-0.03/
Perl extension for starting a text editor
----
Proc-InvokeEditor-1.00
http://search.cpan.org/~mstevens/Proc-InvokeEditor-1.00/
Perl extension for starting a text editor
----
Search-Indexer-0.73
http://search.cpan.org/~dami/Search-Indexer-0.73/
full-text indexer
----
Search-Indexer-0.74
http://search.cpan.org/~dami/Search-Indexer-0.74/
full-text indexer
----
Socialtext-Resting-0.19
http://search.cpan.org/~lukec/Socialtext-Resting-0.19/
module for accessing Socialtext REST APIs
----
Spork-S5ThemePixel-0.03
http://search.cpan.org/~fmerges/Spork-S5ThemePixel-0.03/
Pixel Theme for Spork::S5
----
Template-Plugin-POSIX-0.05
http://search.cpan.org/~agent/Template-Plugin-POSIX-0.05/
TT2 plugin to import POSIX functions
----
Template-Plugin-Perl-0.06
http://search.cpan.org/~agent/Template-Plugin-Perl-0.06/
TT2 plugin to import Perl built-in functions
----
Term-Size-Perl-0.029
http://search.cpan.org/~ferreira/Term-Size-Perl-0.029/
Perl extension for retrieving terminal size (Perl version)
----
Test-ClassAPI-1.04
http://search.cpan.org/~adamk/Test-ClassAPI-1.04/
Provides basic first-pass API testing for large class trees
----
Test-Timer-0.03
http://search.cpan.org/~jonasbn/Test-Timer-0.03/
a test module to test/assert response times
----
Tie-Array-Packed-0.05
http://search.cpan.org/~salva/Tie-Array-Packed-0.05/
store arrays in memory efficiently as packed strings
----
Tie-Array-Packed-0.06
http://search.cpan.org/~salva/Tie-Array-Packed-0.06/
store arrays in memory efficiently as packed strings
----
Tie-Array-Packed-Auto-0.03
http://search.cpan.org/~salva/Tie-Array-Packed-Auto-0.03/
auto uses Tie::Array::Packed or Tie::Array::PackedC
----
Wx-Perl-FSHandler-LWP-0.03
http://search.cpan.org/~mbarbon/Wx-Perl-FSHandler-LWP-0.03/
file system handler based upon LWP
----
gmuck-1.11
http://search.cpan.org/~scop/gmuck-1.11/
The Generated MarkUp Checker
----
mocked-0.04
http://search.cpan.org/~lukec/mocked-0.04/
use mocked libraries in unit tests
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: Sun, 11 Mar 2007 19:25:48 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Use Perl to Fix DST on Windows Computer
Message-Id: <Xns98F09CF36C80Easu1cornelledu@127.0.0.1>
"EdwardATeller" <sorry_no_email@yahoo.com> wrote in
news:1173625305.025759.269330@c51g2000cwc.googlegroups.com:
> My OS cannot be patched.
I used tzedit.exe available at http://support.microsoft.com/kb/927229
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
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 216
**************************************
