[28210] in Perl-Users-Digest
Perl-Users Digest, Issue: 9574 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 8 03:05:56 2006
Date: Tue, 8 Aug 2006 00: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 Tue, 8 Aug 2006 Volume: 10 Number: 9574
Today's topics:
[ANNOUNCE] Emacs modules for Perl programming (Jari Aalto+mail.perl)
Re: B::Lint does not detect undefined subs <benmorrow@tiscali.co.uk>
Re: does it matter whether References headers are folde (J Moreno)
Re: geometry problem <benmorrow@tiscali.co.uk>
Re: geometry problem <carlston88@gmail.com>
Re: geometry problem <john@castleamber.com>
Re: HOA redundancy in array. <benmorrow@tiscali.co.uk>
Re: HOA redundancy in array. <john@castleamber.com>
Re: HOA redundancy in array. <hpbenton@scripps.edu>
Re: HOA redundancy in array. <john@castleamber.com>
How to create a folder in ftp using perl windqin@gmail.com
Re: How to create a folder in ftp using perl <simon@unisolve.com.au>
Re: How to create a folder in ftp using perl windqin@gmail.com
Re: How to use OO and package? <zhushenli@gmail.com>
Re: Net FTP -- Size showing different results on AIX sy <simon@unisolve.com.au>
Re: Net FTP -- Size showing different results on AIX sy <veatchla@yahoo.com>
new CPAN modules on Tue Aug 8 2006 (Randal Schwartz)
Re: Perl question <simon.chao@gmail.com>
Re: Test::Harness and test values. <attn.steven.kuo@gmail.com>
Re: Test::Harness and test values. <yusufm@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 08 Aug 2006 04:22:49 GMT
From: <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
Subject: [ANNOUNCE] Emacs modules for Perl programming
Message-Id: <perl-faq/emacs-lisp-modules_1155010931@rtfm.mit.edu>
Archive-name: perl-faq/emacs-lisp-modules
Posting-Frequency: 2 times a month
Maintainer: Jari Aalto A T cante net
Announcement: "What Emacs lisp modules can help with programming Perl"
Preface
Emacs is your friend if you have to do anything comcerning software
development: It offers plug-in modules, written in Emacs lisp
(elisp) language, that makes all your programmings wishes come
true. Please introduce yourself to Emacs and your programming era
will get a new light.
Where to find Emacs/XEmacs
o Unix:
http://www.gnu.org/software/emacs/emacs.html
http://www.xemacs.org/
o Unix Windows port (for Unix die-hards):
install http://www.cygwin.com/ which includes native Emacs 21.x.
and XEmacs port
o Pure Native Windows port
http://www.gnu.org/software/emacs/windows/ntemacs.html
ftp://ftp.xemacs.org/pub/xemacs/windows/setup.exe
o More Emacs resources at
http://tiny-tools.sourceforge.net/ => Emacs resource page
Emacs Perl Modules
Cperl -- Perl programming mode
http://math.berkeley.edu/~ilya/software/emacs/
by Ilya Zakharevich
CPerl is major mode for editing perl files. Also included in
latest Emacs, but newest version is at Ilya's site. Note that
the directrory at CPAN is out of date:
http://www.cpan.org/modules/by-authors/id/ILYAZ/cperl-mode/
Compared to default `perl-mode' that comes with Emacs, this
one has more features.
TinyPerl -- Perl related utilities
http://tiny-tools.sourceforge.net/
If you ever wonder how to deal with Perl POD pages or how to find
documentation from all perl manpages, this package is for you.
Couple of keystrokes and all the documentaion is in your hands.
o Instant function help: See documentation of `shift', `pop'...
o Show Perl manual pages in *pod* buffer
o Grep through all Perl manpages (.pod)
o Follow POD references e.g. [perlre] to next pod with RETURN
o Coloured pod pages with `font-lock'
o Separate `tiperl-pod-view-mode' for jumping topics and pages
forward and backward in *pod* buffer.
o Update `$VERSION' variable with YYYY.MMDD on save.
o Load source code into Emacs, like Devel::DProf.pm
o Prepare script (version numbering) and Upload it to PAUSE
o Generate autoload STUBS (Devel::SelfStubber) for you
Perl Module (.pm)
TinyIgrep -- Perl Code browsing and easy grepping
[TinyIgrep is included in Tiny Tools Kit]
To grep from all installed Perl modules, define database to
TinyIgrep. There is example file emacs-rc-tinyigrep.el that shows
how to set up dattabases for Perl5, Perl4 whatever you have
installed
TinyIgrep calls Igrep.el to to do the search, You can adjust
recursive grep options, set search case sensitivity, add user grep
options etc.
You can find latest `igrep.el' module at
<http://groups.google.com/groups?group=gnu.emacs.sources> The
maintainer is Jefin Rodgers <kevinr@ihs.com>.
TinyCompile -- To Browse grep results in Emacs *compile* buffer
TinyCompile is a minor mode for *compile* buffer from where
you can collapse unwanted lines or shorten file URLs:
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file1:NNN: MATCHED TEXT
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file2:NNN: MATCHED TEXT
-->
cd /asd/asd/asd/asd/ads/as/da/sd/as/as/asd/
file1:NNN: MATCHED TEXT
file1:NNN: MATCHED TEXT
End
------------------------------
Date: Mon, 7 Aug 2006 22:58:19 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: B::Lint does not detect undefined subs
Message-Id: <rkpkq3-4s8.ln1@osiris.mauzo.dyndns.org>
Quoth Alexander Frink <Alexander.Frink@Uni-Mainz.DE>:
> Hi!
>
> I tried to use lint to detect undefined subroutines in a Perl script, but
> recent 5.8 versions seem to fail.
>
> With Perl 5.6.1 on Linux, everything still works as expected:
>
> $ perl -MO=Lint,all -e 'foo();'
> Undefined subroutine foo called at -e line 1
> -e syntax OK
>
> But with 5.8.8 for Win32, 5.8.5 for Linux and 5.8.2 for AIX, the undefined
> sub is not detected:
>
> $ perl -MO=Lint,all -e 'foo();'
> -e syntax OK
>
> One difference is that the 5.6.1 version is single-threaded, whereas all
> other versions to which I have access are multi-threaded. The B::Lint man
> page says "This module doesn't work correctly on thread-enabled perls."
~% perl -v
This is perl, v5.8.8 built for i686-linux
Copyright 1987-2006, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
~% perl -MB::Lint -le'print $B::Lint::VERSION'
1.03
~% perl -MO=Lint,all -e'foo()'
Undefined subroutine foo called at -e line 1
-e syntax OK
~%
> Is there a way to force Perl to single-threaded mode without recompiling?
> Or is this simply a bug?
No, I don't believe there is.
Ben
--
All persons, living or dead, are entirely coincidental.
benmorrow@tiscali.co.uk Kurt Vonnegut
------------------------------
Date: Mon, 7 Aug 2006 20:52:59 -0800
From: planB@newsreaders.com (J Moreno)
Subject: Re: does it matter whether References headers are folded?
Message-Id: <1hjpw7v.1rr8ow1bal6tN%planB@newsreaders.com>
Dr.Ruud <rvtol+news@isolution.nl> wrote:
> Curt Welch schreef:
>
> > [son-of-1036]
> > <<Followup agents SHOULD not shorten References headers. If
> > it is absolutely necessary to shorten the header, as a des-
> > perate last resort, a followup agent MAY do this by deleting
> > some of the message IDs. However, it MUST not delete the
> > first message ID, the last three message IDs (including that
> > of the immediate precursor), or any message ID mentioned in
> > the body of the followup.>>
>
> There is one (very theoretical) catch in there: a <message-id> can be
> that long that a References: header field with four of them wouldn't fit
> in 998 characters. But then you would just drop one more (the oldest of
> the tail).
Hmn, I'm not sure that's actually true -- or at least I'm not sure it
should be true if people play by the rules. There's a limit on the MID
because of a NNTP command, IMS it also should prevent any four MID from
exceeding the 998 limit.
Of course, not everyone plays by the rules, so you're right...still,
rather unlikely.
--
JM
"Everything is futile." -- Marvin of Borg
------------------------------
Date: Tue, 8 Aug 2006 02:34:58 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: geometry problem
Message-Id: <2b6lq3-0ca.ln1@osiris.mauzo.dyndns.org>
Quoth John Bokma <john@castleamber.com>:
> "IcyMint" <carlston88@gmail.com> wrote:
>
> > Hi, I'm trying to write a program that's able to place boxes into a
> > room. Basically it's an empty rectangular room with different sizes of
> > boxes in it. The program will need to figure out where to place the new
> > boxes.
>
> If you want to do it near optimal, it sounds like 2D bin packing:
>
> http://en.wikipedia.org/wiki/Bin_packing
> http://en.wikipedia.org/wiki/Packing_problem
Heh :)
> > I'm thinking of marking out the place taken by the boxes in the
> > room then compare if the coordinate of the new box overlaps with them.
>
> So you want to test if one rectangle overlaps another..
>
> Google will give you plenty of solutions to that geometric problem.
s/Google/Common sense/, surely?
Ben
--
Outside of a dog, a book is a man's best friend.
Inside of a dog, it's too dark to read.
benmorrow@tiscali.co.uk Groucho Marx
------------------------------
Date: 7 Aug 2006 19:07:08 -0700
From: "IcyMint" <carlston88@gmail.com>
Subject: Re: geometry problem
Message-Id: <1155002827.994188.250770@b28g2000cwb.googlegroups.com>
Hi John, Thanks a lot for the links. After browsing through those links
and some googling, I think my problem is the bin packing thing. Will
look for more info about it later. Thanks for your help!
------------------------------
Date: 8 Aug 2006 02:17:20 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: geometry problem
Message-Id: <Xns9818D88EDBA82castleamber@130.133.1.4>
Ben Morrow <benmorrow@tiscali.co.uk> wrote:
>
> Quoth John Bokma <john@castleamber.com>:
[ overlapping rectangles ]
>> Google will give you plenty of solutions to that geometric problem.
>
> s/Google/Common sense/, surely?
Nah, some problems that look very easy have now and then very elegant
solutions that are not that easy to come up with common sense. Common
sense makes a O(n^2) bubble sort :-D
(which is not bad for small n, and might outperform other solutions, but
that's no longer common sense as in given context :-D)
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Tue, 8 Aug 2006 02:37:05 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: HOA redundancy in array.
Message-Id: <1f6lq3-0ca.ln1@osiris.mauzo.dyndns.org>
Quoth "PB0711" <hpbenton@scripps.edu>:
> Hello,
> So I have an Hash of Arrays and I would like to remove all of the
> redundancy from the array.
> So I did this
> "for my $i (0 .. $#{HOA_protein{$pro_name}}){
> if ($HOA_protein{$pro_name}[$i] eq
> $HOA_protein{$pro_name}[$i+1]){
> $HOA_protein{$pro_name}[$i] = undef;
> }
> }"
> Please excuse any grammer errors or misspellings I rewrote this on
> windows from Linux, network problems today :(
> I was wondering if anyone knows of a CPAN module that I can wave a
> magic wand with and get ride of it.
List::MoreUtils::uniq
Ben
--
For far more marvellous is the truth than any artists of the past imagined!
Why do the poets of the present not speak of it? What men are poets who can
speak of Jupiter if he were like a man, but if he is an immense spinning
sphere of methane and ammonia must be silent?~Feynmann~benmorrow@tiscali.co.uk
------------------------------
Date: 8 Aug 2006 02:22:30 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: HOA redundancy in array.
Message-Id: <Xns9818D96F7F3D4castleamber@130.133.1.4>
"PB0711" <hpbenton@scripps.edu> wrote:
> Hello,
> So I have an Hash of Arrays and I would like to remove all of the
> redundancy from the array.
> So I did this
> "for my $i (0 .. $#{HOA_protein{$pro_name}}){
> if ($HOA_protein{$pro_name}[$i] eq
> $HOA_protein{$pro_name}[$i+1]){
> $HOA_protein{$pro_name}[$i] = undef;
> }
> }"
If your problem is: how to remove duplicates from an array, see:
perldoc -q duplicate
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: 7 Aug 2006 19:44:49 -0700
From: "PB0711" <hpbenton@scripps.edu>
Subject: Re: HOA redundancy in array.
Message-Id: <1155005089.601973.71630@i3g2000cwc.googlegroups.com>
Thank you, sorry didn't look at manpages :|
------------------------------
Date: 8 Aug 2006 03:12:23 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: HOA redundancy in array.
Message-Id: <Xns9818E1E48244Dcastleamber@130.133.1.4>
"PB0711" <hpbenton@scripps.edu> wrote:
> Thank you, sorry didn't look at manpages :|
Most of the times it's the first place you should look :-D Also because
that information is probably the most accurate you can find, and most
often experienced people here are going to refer to it anyway (give
someone a fish v.s. learn him/her how to fish :-D ).
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: 7 Aug 2006 21:49:35 -0700
From: windqin@gmail.com
Subject: How to create a folder in ftp using perl
Message-Id: <1155012575.870252.319280@n13g2000cwa.googlegroups.com>
Hello I'm a perl beginner, I want to create a folder in a ftp using
perl, can anyone give me a help?
I know to use Net::FTP reference, but I don't know the detail function
to create a folder.
------------------------------
Date: Tue, 08 Aug 2006 15:21:21 +1000
From: Simon Taylor <simon@unisolve.com.au>
Subject: Re: How to create a folder in ftp using perl
Message-Id: <eb975n$12q2$1@otis.netspace.net.au>
Hello Perl beginner with no name,
> Hello I'm a perl beginner, I want to create a folder in a ftp using
> perl, can anyone give me a help?
> I know to use Net::FTP reference, but I don't know the detail function
> to create a folder.
Try this (after modifying to add in your own values for $host, $login
and $passwd):
Regards,
Simon Taylor
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;
my $host = 'nnn.nnn.nnn.nnn';
my $debug = 0;
my $login = 'xxxxxx';
my $passwd = 'xxxxxx';
my $folder = 'new_folder';
my $ftp = Net::FTP->new($host, Debug => $debug)
or die "Cannot connect to $host";
$ftp->login($login, $passwd)
or die "Cannot login to $host";
$ftp->mkdir($folder)
or die "Cannot create $folder " . $ftp->message;
$ftp->quit();
exit 0;
--
www.perlmeme.org
------------------------------
Date: 8 Aug 2006 00:03:35 -0700
From: windqin@gmail.com
Subject: Re: How to create a folder in ftp using perl
Message-Id: <1155020615.405219.80210@m79g2000cwm.googlegroups.com>
Really thank you :)
Now everything is OK.
Simon Taylor wrote:
> Hello Perl beginner with no name,
>
> > Hello I'm a perl beginner, I want to create a folder in a ftp using
> > perl, can anyone give me a help?
> > I know to use Net::FTP reference, but I don't know the detail function
> > to create a folder.
>
> Try this (after modifying to add in your own values for $host, $login
> and $passwd):
>
> Regards,
>
> Simon Taylor
>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Net::FTP;
>
> my $host = 'nnn.nnn.nnn.nnn';
> my $debug = 0;
> my $login = 'xxxxxx';
> my $passwd = 'xxxxxx';
> my $folder = 'new_folder';
>
> my $ftp = Net::FTP->new($host, Debug => $debug)
> or die "Cannot connect to $host";
>
> $ftp->login($login, $passwd)
> or die "Cannot login to $host";
>
> $ftp->mkdir($folder)
> or die "Cannot create $folder " . $ftp->message;
>
> $ftp->quit();
> exit 0;
>
>
> --
> www.perlmeme.org
------------------------------
Date: 7 Aug 2006 22:29:23 -0700
From: "Davy" <zhushenli@gmail.com>
Subject: Re: How to use OO and package?
Message-Id: <1155014963.725975.280480@i42g2000cwa.googlegroups.com>
Hi Michele,
I am sorry, but what's top-post mean? Thanks!
Davy
Michele Dondi wrote:
> On 7 Aug 2006 03:44:18 -0700, "Davy" <zhushenli@gmail.com> wrote:
>
> >Thanks! But why the program need a return value, what's the function
> >means??
>
> You're welcome! But why do you top-post? This is annoying, you know...
>
> Re your actual question... I can hardly make any sense of it. We're
> *not* speaking of a program's return value. And I don't have the
> slightest idea of which means of which function you're referring to.
>
> To come back on the topic we were dealing with: you can have multiple
> packages in a file. Thus
>
> #!/usr/bin/perl -l
>
> use strict;
> use warnings;
>
> {
> package Foo;
> sub bar { 'baz' }
> }
>
> print Foo->bar;
>
> __END__
>
> But if you plan of making Foo a proper module in a separate file, then
> you'll need to use() or require() it. If you check
>
> perldoc -f require
>
> you'll notice this paragraph:
>
> The file must return true as the last statement to indicate
> successful execution of any initialization code, so it's cus-
> tomary to end such a file with "1;" unless you're sure it'll
> return true otherwise. But it's better just to put the "1;",
> in case you add more statements.
>
> Are you asking why it is so? Well, there are good reasons, but I think
> you won't be interested in knowing. You may want to know that there's
> people who whish there were a way to use the actual return value, thus
> allowing one to put there something more interesting than a
> generically true (or false) value.
>
>
> 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: Tue, 08 Aug 2006 11:20:07 +1000
From: Simon Taylor <simon@unisolve.com.au>
Subject: Re: Net FTP -- Size showing different results on AIX system and Linux system
Message-Id: <eb8p1k$ugk$1@otis.netspace.net.au>
Hello Frank,
> This is my first post. My name is Frank. I have been using Net FTP
> to create an automated FTP process. I developed it on an AIX box (AIX
> 5.2.0.7) and now want to move it to our Linux box (Redhat). The size
> subroutine gives different results when running on the AIX version
> Linux box. On the AIX the size functions returns the size of the file
> on the FTP while the call on the Linux box returns undefined.
>
> I am calling the same FTP site each time and using the same version of
> the script. What else would need to be done to get these version in
> sync??
As others have said, the discipline of creating the smallest possible
instance of your problem often highlights the problem directly.
Nonetheless, I'm feeling generous, so see below for the sort of
example they're talking about.
Once you've modified the code to supply sensible values for
$host, $login and $passwd, do you really get different results
talking to the same ftp server from Linux and from AIX?
Regards,
Simon Taylor
--
www.perlmeme.org
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;
my $host = 'nnn.nnn.nnn.nnn';
my $debug = 0;
my $login = 'xxxxxx';
my $passwd = 'xxxxxx';
my $host_dir = '/tmp';
my $file = 'some_file';
my $ftp = Net::FTP->new($host, Debug => $debug)
or die "Cannot connect to $host";
$ftp->login($login, $passwd)
or die "Cannot login to $host";
$ftp->cwd($host_dir)
or die "Cannot change to directory $host_dir";
$ftp->binary()
or die 'Cannot set transfer mode to binary';
my $filesize = $ftp->size($file);
print "Filesize: $filesize\n";
$ftp->quit();
exit 0;
------------------------------
Date: Mon, 07 Aug 2006 21:53:07 -0500
From: l v <veatchla@yahoo.com>
Subject: Re: Net FTP -- Size showing different results on AIX system and Linux system
Message-Id: <eb8u7t$9bu$1@emma.aioe.org>
fmbright wrote:
> To All:
>
> This is my first post. My name is Frank. I have been using Net FTP
> to create an automated FTP process. I developed it on an AIX box (AIX
> 5.2.0.7) and now want to move it to our Linux box (Redhat). The size
> subroutine gives different results when running on the AIX version
> Linux box. On the AIX the size functions returns the size of the file
> on the FTP while the call on the Linux box returns undefined.
>
> I am calling the same FTP site each time and using the same version of
> the script. What else would need to be done to get these version in
> sync??
>
> Thanks!
>
>
> Frank Bright
> Univ. of the Arts
> 215.717.6081
> fbright@uarts.edu
>
Are your Net::FTP modules the same version?
--
Len
------------------------------
Date: Tue, 8 Aug 2006 04:42:08 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Aug 8 2006
Message-Id: <J3nx28.Mn2@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-Terror-AU-0.01
http://search.cpan.org/~adamk/Acme-Terror-AU-0.01/
Fetch the current AU terror alert level
----
Acme-Terror-UK-0.02
http://search.cpan.org/~rprice/Acme-Terror-UK-0.02/
Fetch the current UK terror alert level
----
Apache-AxKit-Plugin-QueryStringCacheRegexp-0.04
http://search.cpan.org/~zeya/Apache-AxKit-Plugin-QueryStringCacheRegexp-0.04/
Cache based on QS and regular expression matching
----
Apache-LangPrefCookie-1.00
http://search.cpan.org/~zeya/Apache-LangPrefCookie-1.00/
implant a language-preference provided by a cookie into httpd's representation of the Accept-Language HTTP-header.
----
BSD-Jail-Object-0.01
http://search.cpan.org/~mahlon/BSD-Jail-Object-0.01/
----
Blog-BlogML-Reader-1.03
http://search.cpan.org/~mmathews/Blog-BlogML-Reader-1.03/
read data from a BlogML formatted document
----
Catalyst-Plugin-Session-State-Cookie-0.05
http://search.cpan.org/~islue/Catalyst-Plugin-Session-State-Cookie-0.05/
Maintain session IDs using cookies.
----
Class-Constant-0.02
http://search.cpan.org/~robn/Class-Constant-0.02/
Build constant classes
----
Devel-GC-Helper-0.25
http://search.cpan.org/~abergman/Devel-GC-Helper-0.25/
Perl extension for finding unused variables
----
Device-USB-0.15
http://search.cpan.org/~gwadej/Device-USB-0.15/
Use libusb to access USB devices.
----
Directory-Scratch-0.04
http://search.cpan.org/~jrockway/Directory-Scratch-0.04/
Easy-to-use self-cleaning scratch space.
----
Directory-Scratch-0.05
http://search.cpan.org/~jrockway/Directory-Scratch-0.05/
Easy-to-use self-cleaning scratch space.
----
File-Attributes-0.02
http://search.cpan.org/~jrockway/File-Attributes-0.02/
Manipulate file metadata
----
HTML-TreeBuilder-XPath-0.06
http://search.cpan.org/~mirod/HTML-TreeBuilder-XPath-0.06/
add XPath support to HTML::TreeBuilder
----
IPC-Locker-1.452
http://search.cpan.org/~wsnyder/IPC-Locker-1.452/
Distributed lock handler
----
Image-Magick-Square-1.001
http://search.cpan.org/~leocharre/Image-Magick-Square-1.001/
Takes image and crops to a square
----
LWPx-ParanoidAgent-DashT-1.021
http://search.cpan.org/~csjewell/LWPx-ParanoidAgent-DashT-1.021/
subclass of LWPx::ParanoidAgent that runs under -T
----
Lisp-Fmt-0.01
http://search.cpan.org/~jaw/Lisp-Fmt-0.01/
Perl module for Common Lisp like formatting
----
Net-LibIDN-0.09
http://search.cpan.org/~thor/Net-LibIDN-0.09/
Perl bindings for GNU Libidn
----
POE-0.36
http://search.cpan.org/~rcaputo/POE-0.36/
portable multitasking and networking framework for Perl
----
POSIX-RT-Semaphore-0.04
http://search.cpan.org/~mjp/POSIX-RT-Semaphore-0.04/
Perl interface to POSIX.1b semaphores
----
Perl-Dist-0.000003
http://search.cpan.org/~dagolden/Perl-Dist-0.000003/
Create binary Perl distributions
----
Perl-Dist-Vanilla-7
http://search.cpan.org/~dagolden/Perl-Dist-Vanilla-7/
Vanilla Perl for win32
----
Plagger-0.7.6
http://search.cpan.org/~miyagawa/Plagger-0.7.6/
Pluggable RSS/Atom Aggregator
----
Test-Log4perl-0.1001
http://search.cpan.org/~fotango/Test-Log4perl-0.1001/
test log4perl
----
Test-Memory-Cycle-1.04
http://search.cpan.org/~petdance/Test-Memory-Cycle-1.04/
Check for memory leaks and circular memory references
----
Text-MeCab-0.13
http://search.cpan.org/~dmaki/Text-MeCab-0.13/
Alternate Interface To libmecab
----
Text-Template-Simple-0.41
http://search.cpan.org/~burak/Text-Template-Simple-0.41/
Simple text template engine
----
Tie-Array-Sorted-1.41
http://search.cpan.org/~tmtm/Tie-Array-Sorted-1.41/
An array which is kept sorted
----
Tripletail-0.14
http://search.cpan.org/~mikage/Tripletail-0.14/
Tripletail, Framework for Japanese Web Application
----
WebService-CIA-1.0
http://search.cpan.org/~imalpass/WebService-CIA-1.0/
information from the CIA World Factbook.
----
Win32-Useful-0.01
http://search.cpan.org/~esskar/Win32-Useful-0.01/
Collection of useful functions that extend Win32 functionality
----
XML-XPathScript-1.45
http://search.cpan.org/~yanick/XML-XPathScript-1.45/
a Perl framework for XML stylesheets
----
Yahoo-Marketing-0.03
http://search.cpan.org/~jlavallee/Yahoo-Marketing-0.03/
an interface for Yahoo! Search Marketing's Web Services.
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: 7 Aug 2006 21:04:53 -0700
From: "it_says_BALLS_on_your_forehead" <simon.chao@gmail.com>
Subject: Re: Perl question
Message-Id: <1155009893.163748.179430@b28g2000cwb.googlegroups.com>
sibijohn@gmail.com wrote:
> I have a file name result01182006.xml which is named according to the
> date. I know how to split it to get the values
>
> $a = "result01182006.xml";
> $a =~ /^(result)(\d{2})(\d{2})(\d{4})/;
> print "$1 $2 $3 $4\n";
>
> In the contents of this file i I need to replace every instance of
> 1/7/2006 to 01/18/2006.
>
> Change the date of "Sat 07 Jan 2006" to corresponding day which
> 01/18/2006 falls on, so it should be changed to "Wed 18 Jan 2006
>
> and change the string result01072006 to result01182006
i love your subject line.
------------------------------
Date: 7 Aug 2006 18:23:49 -0700
From: "attn.steven.kuo@gmail.com" <attn.steven.kuo@gmail.com>
Subject: Re: Test::Harness and test values.
Message-Id: <1155000229.114608.42270@m79g2000cwm.googlegroups.com>
yusuf wrote:
> Ok, heres a cleaned up verion of t.pl:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use Test::Harness;
>
> $Test::Harness::Verbose=1;
>
> $|=1;
>
> print "before\n";
>
> my @a = ("t2.pl");
> my $allok = runtests(@a);
>
> print " all ok? :" . $allok ." \n";
>
> and t2.pl:
>
> #!/usr/bin/perl
>
>
>
> use strict;
> use warnings;
>
> use Test::More tests => 1;
>
> ok(1==2);
>
> 1;
>
> The question is, why doesn't the print after the runtests() function
> print out?
Your program dies after running runtests. You can,
however, trap the exception with eval:
my $all_ok;
eval {
$all_ok = runtests( @test_programs );
};
warn "Something bad happened : $@" if $@;
# Go on to print:
print "Onward\n";
__END__
You probably want to use the
'prove' utility rather than
using Test::Harness directly:
http://search.cpan.org/~petdance/Test-Harness-2.62/bin/prove
--
Hope this helps,
Steven
------------------------------
Date: 7 Aug 2006 22:24:11 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Re: Test::Harness and test values.
Message-Id: <1155014651.871529.168130@m73g2000cwd.googlegroups.com>
> Your program dies after running runtests. You can,
> however, trap the exception with eval:
>
> my $all_ok;
>
> eval {
> $all_ok = runtests( @test_programs );
> };
>
> warn "Something bad happened : $@" if $@;
>
> # Go on to print:
>
> print "Onward\n";
>
> __END__
>
> You probably want to use the
> 'prove' utility rather than
> using Test::Harness directly:
>
> http://search.cpan.org/~petdance/Test-Harness-2.62/bin/prove
Thanks, I'll try it out. Also, I looked into prove, the thing I need is
that once the tests are run, I need to determine what the passed and''
failed amounts are so that I can log them to a server. I looked through
the docs for Test::Harness, but coudln't find anything. Is there a way
to get that dta out of runtests()?
------------------------------
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 9574
***************************************
