[28316] in Perl-Users-Digest
Perl-Users Digest, Issue: 9680 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 4 06:05:59 2006
Date: Mon, 4 Sep 2006 03:05:06 -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, 4 Sep 2006 Volume: 10 Number: 9680
Today's topics:
Re: (Off topic) Cyberwar question beartiger@gmail.com
CPAN - 'cl' is not recognized as an internal or externa <lev.weissman@creo.com>
Re: CPAN - 'cl' is not recognized as an internal or ext <sisyphus1@nomail.afraid.org>
Re: CPAN - 'cl' is not recognized as an internal or ext <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: CPAN - 'cl' is not recognized as an internal or ext <lev.weissman@creo.com>
Re: CPAN - 'cl' is not recognized as an internal or ext <lev.weissman@creo.com>
Re: Hi Guys ! <BLOCKSPAMfishfry@your-mailbox.com>
Re: how to install Win32-Word-Writer-0.02 <liyuefu@gmail.com>
Insert Log file into oracle table mattjones@hotmail.co.uk
Re: map tricks anno4000@radom.zrz.tu-berlin.de
Re: map tricks <kraven@noip.com>
Re: map tricks <abigail@abigail.be>
Re: map tricks <uri@stemsystems.com>
Re: map tricks <kraven@noip.com>
Re: map tricks <uri@stemsystems.com>
Re: map tricks <bik.mido@tiscalinet.it>
Re: map tricks <bik.mido@tiscalinet.it>
Re: map tricks <bik.mido@tiscalinet.it>
Re: map tricks <kraven@noip.com>
Re: map tricks <bik.mido@tiscalinet.it>
new CPAN modules on Mon Sep 4 2006 (Randal Schwartz)
Program that download ZIP file from web? <maran@homewares.ro>
Re: Program that download ZIP file from web? <bik.mido@tiscalinet.it>
Re: qr// doesn't handle m modifier? anno4000@radom.zrz.tu-berlin.de
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Sep 2006 21:40:51 -0700
From: beartiger@gmail.com
Subject: Re: (Off topic) Cyberwar question
Message-Id: <1157344851.129029.259240@m79g2000cwm.googlegroups.com>
Tad McClellan wrote:
> Skybuck <skybuck2000@hotmail.com> wrote:
>
>
> > Subject: (Off topic) Cyberwar question
>
>
> Making off topic posts is rude.
>
> Labelling an off topic post does not make it any less rude.
Objecting to OT posts by replying to OT posts is stupid.
HTH,
John
------------------------------
Date: 3 Sep 2006 22:44:23 -0700
From: "MoshiachNow" <lev.weissman@creo.com>
Subject: CPAN - 'cl' is not recognized as an internal or external command,
Message-Id: <1157348663.749932.191920@74g2000cwt.googlegroups.com>
HI,
when installing some modules - get an error:
'cl' is not recognized as an internal or external command,
operable program or batch file.
NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code
'0x1'
Stop.
NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code
'0x2'
I do not have an executable "cl.exe" anywhere on my machine.
Any advice?
Thanks
------------------------------
Date: Mon, 4 Sep 2006 17:01:42 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: CPAN - 'cl' is not recognized as an internal or external command,
Message-Id: <44fbd04c$0$21803$afc38c87@news.optusnet.com.au>
"MoshiachNow" <lev.weissman@creo.com> wrote in message
news:1157348663.749932.191920@74g2000cwt.googlegroups.com...
> HI,
>
> when installing some modules - get an error:
> 'cl' is not recognized as an internal or external command,
> operable program or batch file.
> NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code
> '0x1'
> Stop.
> NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code
> '0x2'
>
> I do not have an executable "cl.exe" anywhere on my machine.
>
> Any advice?
>
Install such modules using the ppm utility instead.
Cheers,
Rob
------------------------------
Date: Mon, 04 Sep 2006 08:08:03 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: CPAN - 'cl' is not recognized as an internal or external command,
Message-Id: <D9RKg.6134$bM.1302@newsread4.news.pas.earthlink.net>
On 09/04/2006 12:44 AM, MoshiachNow wrote:
> HI,
>
> when installing some modules - get an error:
> 'cl' is not recognized as an internal or external command,
> operable program or batch file.
> NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code
> '0x1'
> [...]
You need a C compiler to install those modules.
------------------------------
Date: 4 Sep 2006 01:12:26 -0700
From: "MoshiachNow" <lev.weissman@creo.com>
Subject: Re: CPAN - 'cl' is not recognized as an internal or external command,
Message-Id: <1157357546.868418.248620@i3g2000cwc.googlegroups.com>
Mumia W. wrote:
> You need a C compiler to install those modules.
Thanks.
No way to install it without a C compiler ?
Possibly using ppm,as suggested above ?
------------------------------
Date: 4 Sep 2006 01:28:13 -0700
From: "MoshiachNow" <lev.weissman@creo.com>
Subject: Re: CPAN - 'cl' is not recognized as an internal or external command,
Message-Id: <1157358492.870947.101260@74g2000cwt.googlegroups.com>
>Install such modules using the ppm utility instead.
Thanks,Rob
Works like majic.
But why these errors pop up in the first place?
Do I realy need have C++ compilers installed for this ?
------------------------------
Date: Sun, 03 Sep 2006 19:51:19 -0700
From: fishfry <BLOCKSPAMfishfry@your-mailbox.com>
Subject: Re: Hi Guys !
Message-Id: <BLOCKSPAMfishfry-11BE8A.19511903092006@comcast.dca.giganews.com>
In article <1156917378.295275.26390@b28g2000cwb.googlegroups.com>,
"rajesh" <rajeshmvj@gmail.com> wrote:
> i want to know about the recruitment in perl for 1 year !
Recruiters are missing their enlistment targets due to casualties taken
in the war with PHP.
------------------------------
Date: 4 Sep 2006 01:40:14 -0700
From: "liyuefu@gmail.com" <liyuefu@gmail.com>
Subject: Re: how to install Win32-Word-Writer-0.02
Message-Id: <1157359214.585714.249770@e3g2000cwe.googlegroups.com>
Thanks Brian for kindly reply.
I have installed uplevel, but the error is still there.
I wonder if the module was tested completely, Maybe I should use
win32:ole instead.
Brian Greenfield =E5=86=99=E9=81=93=EF=BC=9A
> On 3 Sep 2006 06:07:31 -0700, "liyuefu@gmail.com" <liyuefu@gmail.com>
> wrote:
>
> >I found the module Win32-Word-Writer-0.02 can help me to archive
> >this, but when I
> >tried to test it, I got some errors:
>
> ...
>
> >t\04-saveas_format.....Can't locate Sub/Uplevel.pm in @INC (@INC
> >contains: D:\de
>
> I'd start by installing Sub::Uplevel. On the other hand,
> http://testers.cpan.org/show/Win32-Word-Writer.html shows 2 out 2
> testers failed to build the module.
------------------------------
Date: 4 Sep 2006 03:04:19 -0700
From: mattjones@hotmail.co.uk
Subject: Insert Log file into oracle table
Message-Id: <1157364259.467907.317320@b28g2000cwb.googlegroups.com>
hi,
Im having trouble loading a .log file into oracle. I can connect to the
database and i can insert data (that i define in an INSERT statement).
I eventually need to filter specific info from the .log files (there
are alot of them - and this script provides an automated process) but
for now i just want to read the whole script into a table!
CURRENT SCRIPT:
#!/usr/central/bin/perl -w
use strict;
use DBI;
my $dbh = DBI ->connect("dbi:Oracle:SERVER", "DATABASE", "PASSWORD")
or die "Couldn't connect to database: $DBI::errstr\n";
my $rows = $dbh->do("
INSERT INTO LOGS VALUES ('160820061-fst.log', '5', '0', 'FASTSEARCH',
'0', 'inversions', '0', 'conflicting') ");
$dbh->disconnect;
exit;
##### I have also tried the following and putting $LOG into one of the
values but I just get the value '1' returned!
my $LOG = open (LOG, "/home/USRNAME/PERL/hello.log");
my @data = <LOG>;
close LOG;
Any ideas?
Thanks
------------------------------
Date: 3 Sep 2006 22:07:09 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: map tricks
Message-Id: <4m120dF41t6aU1@news.dfncis.de>
Tad McClellan <tadmc@augustmail.com> wrote in comp.lang.perl.misc:
> kraven <kraven@noip.com> wrote:
> > I was playing around with hashes and map and came up with this to build a
> > hash from a file with ":" separated fields. It really does work, I'm just
> > wondering if there is a better way.
[...]
> my %hash = map split(/:/), `zcat etc_apache.md5.20060903143002.3.gz`;
That would leave linefeeds on the hash values, probably unwanted. One
way to get rid of them is (untested)
my %hash = map split(/[:\n]/), ...
Anno
------------------------------
Date: Sun, 03 Sep 2006 23:17:35 GMT
From: kraven <kraven@noip.com>
Subject: Re: map tricks
Message-Id: <pan.2006.09.03.23.17.31.228907@noip.com>
On Sun, 03 Sep 2006 21:21:46 +0000, kraven wrote:
> I was playing around with hashes and map and came up with this to build a
> hash from a file with ":" separated fields. It really does work, I'm just
> wondering if there is a better way.
>
>
>
> %hash=map {$hash{$_} = $_} map {(@key,@value) = split(":",$_)}`zcat
> etc_apache.md5.20060903143002.3.gz`
Thank you Tad, you are correct that @value is unnecessay. As for split
yes I know it is a regular expression, but it can be written ":"or ':' as
well as /:/ and work. Since I was playing with this on the command line I
really wasn't paying attention to style or whitespace.
anno4000, yes the new lines were in there but honestly I was ignoring
them, your untested does not work, but a chomp in the map at the start
takes care of it.
I never code without warn and strict, but playing on the command line,
well never.
#!/usr/bin/perl
use strict;
use warnings;
#apparently we don't need any arrays at all, but we don't get the desired
#results without the additional map
#I got the idea to do this from the Schwartzian Transform and as expected
#this line is read from left to right.
my %hash = map { chomp; $hash{$_} = $_ } map {split(/:/,$_)} `zcat $ARGV[0]`;
foreach (sort keys %hash) {
print "key $_ has value $hash{$_}\n";
}
__END__
hopefully this is less ugly and more readable
I added the $ARGV[0] simply for testing, more likely it will read
`zcat $gzMD5logfile`
------------------------------
Date: 03 Sep 2006 23:34:55 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: map tricks
Message-Id: <slrnefmpkr.6dg.abigail@alexandra.abigail.be>
kraven (kraven@noip.com) wrote on MMMMDCCLI September MCMXCIII in
<URL:news:pan.2006.09.03.21.21.46.91811@noip.com>:
:: I was playing around with hashes and map and came up with this to build a
:: hash from a file with ":" separated fields. It really does work, I'm just
:: wondering if there is a better way.
::
::
::
:: %hash=map {$hash{$_} = $_} map {(@key,@value) = split(":",$_)}`zcat
:: etc_apache.md5.20060903143002.3.gz`
Is this really what you want? The values associated with the keys
will be the same as the keys. If so, I'd write it as:
@keys = map {split /:/} `zcat etc_apache.md5.20060903143002.3.gz`;
@hash {@keys} = @keys;
Or, if you don't want the extra variable:
%hash = map {($_) x 2}
map {split /:/} `zcat etc_apache.md5.20060903143002.3.gz`;
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Sun, 03 Sep 2006 23:23:33 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: map tricks
Message-Id: <x7r6ys9ux6.fsf@mail.sysarch.com>
>>>>> "k" == kraven <kraven@noip.com> writes:
k> my %hash = map { chomp; $hash{$_} = $_ } map {split(/:/,$_)} `zcat $ARGV[0]`;
regardless of the rest of this thread, why are you assigning to %hash
AND $hash{$_}?? assuing you have some concept of what map does, why the
double assigment. and in fact that that shouldn't even compile under
strict as you can't refer to %hash on the same line it is declare.
k> foreach (sort keys %hash) {
k> print "key $_ has value $hash{$_}\n";
k> }
k> __END__
k> hopefully this is less ugly and more readable
k> I added the $ARGV[0] simply for testing, more likely it will read
k> `zcat $gzMD5logfile`
it doesn't even look like it will compile under strict. whether the
correct results are in %hash is also under doubt.
now assuming the format in the file is just foo:bar\n type lines (i
haven't seen any spec for it yet here), you can do this which is the
simplest and likely the fastest:
use File::Slurp ;
my %hash = read_file( $ARGV[0] ) =~ /^([^:]+):(.+)$/mg ;
look ma, no maps or splits!
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, 04 Sep 2006 06:10:34 GMT
From: kraven <kraven@noip.com>
Subject: Re: map tricks
Message-Id: <pan.2006.09.04.06.10.26.595222@noip.com>
On Sun, 03 Sep 2006 23:23:33 -0400, Uri Guttman wrote:
>>>>>> "k" == kraven <kraven@noip.com> writes:
>
>
> k> my %hash = map { chomp; $hash{$_} = $_ } map {split(/:/,$_)} `zcat $ARGV[0]`;
>
> regardless of the rest of this thread, why are you assigning to %hash
> AND $hash{$_}?? assuing you have some concept of what map does, why the
> double assigment. and in fact that that shouldn't even compile under
> strict as you can't refer to %hash on the same line it is declare.
It compiles as written under strict just fine actually. I could have said:
my %hash;
map { chomp; $hash{$_} = $_ } etc....
it works on the same line because the curly braces inside the map is a
code block.
>
> k> foreach (sort keys %hash) {
> k> print "key $_ has value $hash{$_}\n";
> k> }
>
> k> __END__
>
> k> hopefully this is less ugly and more readable
> k> I added the $ARGV[0] simply for testing, more likely it will read
> k> `zcat $gzMD5logfile`
>
> it doesn't even look like it will compile under strict. whether the
> correct results are in %hash is also under doubt.
>
> now assuming the format in the file is just foo:bar\n type lines (i
> haven't seen any spec for it yet here), you can do this which is the
> simplest and likely the fastest:
>
> use File::Slurp ;
>
> my %hash = read_file( $ARGV[0] ) =~ /^([^:]+):(.+)$/mg ;
>
> look ma, no maps or splits!
>
> uri
basically the file contains /path/file:files_md5sum
the way I presented works very well. Does File::Slurp gunzip files?
While I can certainly use something like that on the development system, I
am trying to keep the number of modules that I have to install on a bunch
of production systems to a minimum.
------------------------------
Date: Mon, 04 Sep 2006 02:18:59 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: map tricks
Message-Id: <x77j0k9mss.fsf@mail.sysarch.com>
>>>>> "k" == kraven <kraven@noip.com> writes:
k> On Sun, 03 Sep 2006 23:23:33 -0400, Uri Guttman wrote:
>>
k> my %hash = map { chomp; $hash{$_} = $_ } map {split(/:/,$_)} `zcat $ARGV[0]`;
k> It compiles as written under strict just fine actually. I could
k> have said:
perl begs to differ.
perl -Mstrict -e 'my %hash = map { chomp; $hash{$_} = $_ } map {split(/:/,$_)}'
Global symbol "%hash" requires explicit package name at -e line 1.
syntax error at -e line 1, at EOF
Execution of -e aborted due to compilation errors.
k> my %hash;
k> map { chomp; $hash{$_} = $_ } etc....
not what you pasted. that is all i have to work with. that is why you
must paste exactly what you ran and not just little snippets.
k> it works on the same line because the curly braces inside the map is a
k> code block.
duh! i do know what a map code block is.
and that is using map in a void context. even though it may be efficient
these days, it is still weaker code than using for modifier.
>> my %hash = read_file( $ARGV[0] ) =~ /^([^:]+):(.+)$/mg ;
>>
>> look ma, no maps or splits!
>>
k> basically the file contains /path/file:files_md5sum the way I
k> presented works very well. Does File::Slurp gunzip files? While I
k> can certainly use something like that on the development system, I
k> am trying to keep the number of modules that I have to install on a
k> bunch of production systems to a minimum.
even without file::slurp my code would work fine. just slurp in any old
way you want. the single regex extract and assignment to a hash will be
much faster than a set of map, split and for.
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: 4 Sep 2006 09:49:33 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: map tricks
Message-Id: <vgmnf25vgqa24ofhteh5d30f3j4klgq0o7@4ax.com>
On Sun, 3 Sep 2006 16:51:03 -0500, Tad McClellan
<tadmc@augustmail.com> wrote:
> my %hash = map split(/:/), `zcat etc_apache.md5.20060903143002.3.gz`;
Or, for completeness, just in case split()s return lists with more
than two elements:
my %hash = map +(split /:/)[0,1], @whatever;
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: 4 Sep 2006 09:55:33 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: map tricks
Message-Id: <tpmnf2129v07mev2clr06id7kng7063t15@4ax.com>
On Mon, 04 Sep 2006 06:10:34 GMT, kraven <kraven@noip.com> wrote:
>map { chomp; $hash{$_} = $_ } etc....
>
>it works on the same line because the curly braces inside the map is a
>code block.
perldoc -q grep
Time and space issues apart, map() is good for returning a list, not
as a shorthand for C<for>. I may use it like that in ob-fu or golf,
but otherwise it does not make for a syntax clearly expressive of the
logic of the program: it is in fact an *abuse*.
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: 4 Sep 2006 10:11:11 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: map tricks
Message-Id: <v2nnf2h9lkeqlsm2lrc1e2pash6cdhl2oq@4ax.com>
On Mon, 04 Sep 2006 06:10:34 GMT, kraven <kraven@noip.com> wrote:
>> my %hash = read_file( $ARGV[0] ) =~ /^([^:]+):(.+)$/mg ;
[snip]
>basically the file contains /path/file:files_md5sum
>the way I presented works very well. Does File::Slurp gunzip files?
>While I can certainly use something like that on the development system, I
>am trying to keep the number of modules that I have to install on a bunch
>of production systems to a minimum.
Uri has a certain tendency to the shameless self ad for File::Slurp,
which is reasonable because it is indeed a useful module. However the
logic he proposed would work just fine with more "standard" IO:
my %hash = qx/whatever/ =~ /^([^:]+):(.+)$/mg;
local $/;
my %hash = <> =~ /^([^:]+):(.+)$/mg;
As for the second option, to answer your gunzip question, you
certainly know that you can always open() in '-|' mode, don't you?
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: Mon, 04 Sep 2006 08:45:15 GMT
From: kraven <kraven@noip.com>
Subject: Re: map tricks
Message-Id: <pan.2006.09.04.08.45.14.888273@noip.com>
> my %hash = qx/whatever/ =~ /^([^:]+):(.+)$/mg;
>
> local $/;
> my %hash = <> =~ /^([^:]+):(.+)$/mg;
Ah yes, line noise ;)
> As for the second option, to answer your gunzip question, you
> certainly know that you can always open() in '-|' mode, don't you?
>
>
> Michele
Thank you Michele, that actually does look more like what I was hoping to
see. Yes I do know how to pipe.
Kraven
------------------------------
Date: 4 Sep 2006 11:12:25 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: map tricks
Message-Id: <pcrnf2d7h3310p40gu9b2jitj9hc0rbfcl@4ax.com>
On Mon, 04 Sep 2006 08:45:15 GMT, kraven <kraven@noip.com> wrote:
>> my %hash = <> =~ /^([^:]+):(.+)$/mg;
>
>Ah yes, line noise ;)
Use readline() if the diamond operator *really* bothers you! :-)
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: Mon, 4 Sep 2006 04:42:09 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Sep 4 2006
Message-Id: <J51x29.qxJ@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.
Acme-BooK-Is-My-Bitch-0.02
http://search.cpan.org/~cog/Acme-BooK-Is-My-Bitch-0.02/
----
CPAN-1.87_59
http://search.cpan.org/~andk/CPAN-1.87_59/
query, download and build perl modules from CPAN sites
----
CSS-Tiny-1.14
http://search.cpan.org/~adamk/CSS-Tiny-1.14/
Read/Write .css files with as little code as possible
----
Catalyst-Model-XML-Feed-0.02
http://search.cpan.org/~jrockway/Catalyst-Model-XML-Feed-0.02/
Use RSS/Atom feeds as a Catalyst Model
----
Class-Autouse-1.27
http://search.cpan.org/~adamk/Class-Autouse-1.27/
Run-time load a class the first time you call a method in it.
----
Class-Default-1.50
http://search.cpan.org/~adamk/Class-Default-1.50/
Static calls apply to a default instantiation
----
Class-Virtual-0.06
http://search.cpan.org/~mschwern/Class-Virtual-0.06/
Base class for virtual base classes.
----
Data-Package-1.00
http://search.cpan.org/~adamk/Data-Package-1.00/
Base class for packages that are purely data
----
Data-Package-SQLite-1.00
http://search.cpan.org/~adamk/Data-Package-SQLite-1.00/
A data package for a SQLite database
----
Data-Page-Tied-2.00
http://search.cpan.org/~smueller/Data-Page-Tied-2.00/
Tied interface for the Data::Page module
----
Devel-Timer-0.02
http://search.cpan.org/~szabgab/Devel-Timer-0.02/
Track and report execution time for parts of code
----
Digest-TransformPath-1.00
http://search.cpan.org/~adamk/Digest-TransformPath-1.00/
Implements the TransformPath concept
----
Directory-Scratch-0.08
http://search.cpan.org/~jrockway/Directory-Scratch-0.08/
Easy-to-use self-cleaning scratch space.
----
ExportTo-0.02
http://search.cpan.org/~ktat/ExportTo-0.02/
export function/method to namespace
----
File-BLOB-0.04
http://search.cpan.org/~adamk/File-BLOB-0.04/
A file (with name, and other metadata) you can BLOBify
----
File-Find-Object-0.0.5
http://search.cpan.org/~shlomif/File-Find-Object-0.0.5/
An object oriented File::Find replacement
----
File-Find-Rule-PPI-0.04
http://search.cpan.org/~adamk/File-Find-Rule-PPI-0.04/
Add support for PPI queries to File::Find::Rule
----
File-Find-Rule-Perl-0.02
http://search.cpan.org/~adamk/File-Find-Rule-Perl-0.02/
Common rules for searching for Perl things
----
File-Find-Rule-VCS-1.01
http://search.cpan.org/~adamk/File-Find-Rule-VCS-1.01/
Exclude files/directories for Version Control Systems
----
File-ShareDir-0.05
http://search.cpan.org/~adamk/File-ShareDir-0.05/
Locate per-dist and per-module shared files
----
Geo-Postcodes-0.20
http://search.cpan.org/~arne/Geo-Postcodes-0.20/
Base class for the Geo::Postcodes::XX modules
----
Geo-Postcodes-DK-0.20
http://search.cpan.org/~arne/Geo-Postcodes-DK-0.20/
Danish postcodes with associated information
----
Geo-Postcodes-NO-0.20
http://search.cpan.org/~arne/Geo-Postcodes-NO-0.20/
Norwegian postcodes with associated information
----
Getopt-Compact-0.03
http://search.cpan.org/~asw/Getopt-Compact-0.03/
getopt processing in a compact statement with both long and short options, and usage functionality.
----
Graph-Easy-0.47
http://search.cpan.org/~tels/Graph-Easy-0.47/
Render graphs as ASCII, HTML, SVG or via Graphviz
----
Graph-Easy-As_svg-0.20
http://search.cpan.org/~tels/Graph-Easy-As_svg-0.20/
Output a Graph::Easy as Scalable Vector Graphics (SVG)
----
Graph-Easy-Manual-0.34
http://search.cpan.org/~tels/Graph-Easy-Manual-0.34/
HTML manual for Graph::Easy
----
HTML-Email-Obfuscate-1.00
http://search.cpan.org/~adamk/HTML-Email-Obfuscate-1.00/
Obfuscated HTML email addresses that look normal
----
Handel-0.99_07
http://search.cpan.org/~claco/Handel-0.99_07/
Simple commerce framework with AxKit/TT/Catalyst support
----
JavaScript-Librarian-1.00
http://search.cpan.org/~adamk/JavaScript-Librarian-1.00/
Load and use libraries of JavaScript packages
----
Module-Recursive-Require-0.04
http://search.cpan.org/~masap/Module-Recursive-Require-0.04/
This class require module recursively.
----
Net-IP-Resolver-0.02
http://search.cpan.org/~adamk/Net-IP-Resolver-0.02/
Resolve IPs to a particular network
----
PAR-Dist-0.19
http://search.cpan.org/~smueller/PAR-Dist-0.19/
Create and manipulate PAR distributions
----
POE-Component-Server-IRC-0.99_03
http://search.cpan.org/~bingos/POE-Component-Server-IRC-0.99_03/
a fully event-driven networkable IRC server daemon module.
----
RT-Extension-CommandByMail-0.05
http://search.cpan.org/~jesse/RT-Extension-CommandByMail-0.05/
Change metadata of ticket via email
----
Rubric-0.141
http://search.cpan.org/~rjbs/Rubric-0.141/
a notes and bookmarks manager with tagging
----
Sys-LDAP-0.10_20060903
http://search.cpan.org/~cfaerber/Sys-LDAP-0.10_20060903/
Connects to the LDAP server that serves as the authentication backend for the local system.
----
Task-Email-PEP-All-6245.133
http://search.cpan.org/~rjbs/Task-Email-PEP-All-6245.133/
every Perl Email Project distribution, for testing
----
Task-Email-PEP-NoStore-6245.133
http://search.cpan.org/~rjbs/Task-Email-PEP-NoStore-6245.133/
every Perl Email Project distribution... except Email::Store
----
Test-Number-Delta-1.03
http://search.cpan.org/~dagolden/Test-Number-Delta-1.03/
Compare the difference between numbers against a given tolerance
----
Test-Script-1.00
http://search.cpan.org/~adamk/Test-Script-1.00/
Cross-platform basic tests for scripts
----
Tie-Trace-0.04
http://search.cpan.org/~ktat/Tie-Trace-0.04/
easy print debugging with tie
----
Tie-Trace-0.05
http://search.cpan.org/~ktat/Tie-Trace-0.05/
easy print debugging with tie
----
UNIVERSAL-exports-0.04
http://search.cpan.org/~mschwern/UNIVERSAL-exports-0.04/
Lightweight, universal exporting of variables
----
UNIVERSAL-exports-0.05
http://search.cpan.org/~mschwern/UNIVERSAL-exports-0.05/
Lightweight, universal exporting of variables
----
WWW-MediaWikiOO-0.00_20060903
http://search.cpan.org/~cfaerber/WWW-MediaWikiOO-0.00_20060903/
----
WWW-Shorten-Smallr-0.01
http://search.cpan.org/~dwilson/WWW-Shorten-Smallr-0.01/
Perl interface to Smallr.com
----
Web-Scaffold-0.01
http://search.cpan.org/~miker/Web-Scaffold-0.01/
build minimalist fancy web sites
----
Win32-MediaPlayer-0.01
http://search.cpan.org/~kenwu/Win32-MediaPlayer-0.01/
Module for playing sound *.mp3 *.wma *.wav *.midi file on Win32 platforms
----
sys-MON-Lite-0.01
http://search.cpan.org/~jnbrookes/sys-MON-Lite-0.01/
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: Mon, 4 Sep 2006 10:29:43 +0200
From: <maran@homewares.ro>
Subject: Program that download ZIP file from web?
Message-Id: <edgo58$5f8$1@ss408.t-com.hr>
I make program that download ZIP file from web.
Why downloaded file isn't ZIP file?
Why file has different size?
If I make download from IE I downloaded file is ZIP file?
IE-downloaded file size is 495.306 bites long.
Perl-downloaded file size is 497.098 bites long.
Please help me.
Thanks.
Perl program
--------------------------
# c:\perl\bin\perl.exe
#
#
use warnings;
use strict;
use WWW::Mechanize;
use CGI;
my $cgi = CGI->new();
my $form = $cgi->Vars;
my $agent = WWW::Mechanize->new();
$agent->get('http://www.ve-mil.hr/korisnici/Login.aspx');
$agent->form_number('1');
$agent->field('EmailTextBox','user22');
$agent->field('LozinkaTextBox','********');
$agent->submit();
$agent->get('http://www.ve-mil.hr/download.aspx?Item=Cjenik_Zip');
open (FF, ">Cjenik.zip");
print FF $agent->content();
--------------------------
End
------------------------------
Date: 4 Sep 2006 11:43:31 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Program that download ZIP file from web?
Message-Id: <7nsnf2hhjcp69kcc84akhitvrtjmfr8o73@4ax.com>
On Mon, 4 Sep 2006 10:29:43 +0200, <maran@homewares.ro> wrote:
>IE-downloaded file size is 495.306 bites long.
>Perl-downloaded file size is 497.098 bites long.
[snip]
>open (FF, ">Cjenik.zip");
Try binmode(); or since you "should" use the three args form of open()
(and lexical filehandles, and should also check for errors), directly
the '>:raw' mode, check perldoc -f open.
HTH,
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: 4 Sep 2006 10:04:15 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: qr// doesn't handle m modifier?
Message-Id: <4m2c0vF45od5U1@news.dfncis.de>
<xhoster@gmail.com> wrote in comp.lang.perl.misc:
> Michele Dondi <bik.mido@tiscalinet.it> wrote:
> > On 1 Sep 2006 10:57:38 -0700, adam@irvine.com wrote:
> >
> > >The following program doesn't do what I expected. The second and third
> > >"print" statements print, but the first one doesn't. It looks as
> > >though when the match operator uses a regular expression constructed
> > >with qr//, the "m" modified that should have been stored in the regular
> > >expression is ignored. Did I do something wrong, or is this a bug in
>
> I get the same behavior as you do, using 5.8.8.
Strange. I see the problem with 5.6.1 but not with 5.8.8 (nor with
bleadperl 5.9.4).
Anno
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9680
***************************************
