[30199] in Perl-Users-Digest
Perl-Users Digest, Issue: 1442 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 15 15:51:14 2008
Date: Tue, 15 Apr 2008 12:51:05 -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, 15 Apr 2008 Volume: 11 Number: 1442
Today's topics:
moving unused of a website <mstep@podiuminternational.org>
Re: moving unused of a website <darthludi@gmail.com>
Re: moving unused of a website <1usa@llenroc.ude.invalid>
Re: moving unused of a website <mstep@podiuminternational.org>
Re: moving unused of a website <simon.chao@fmr.com>
Re: moving unused of a website <jurgenex@hotmail.com>
Re: moving unused of a website <mstep@podiuminternational.org>
Re: moving unused of a website <someone@example.com>
Re: moving unused of a website <ben@morrow.me.uk>
new CPAN modules on Fri Apr 11 2008 (Randal Schwartz)
new CPAN modules on Mon Apr 14 2008 (Randal Schwartz)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 15 Apr 2008 04:46:56 -0700 (PDT)
From: Marek <mstep@podiuminternational.org>
Subject: moving unused of a website
Message-Id: <3547d8bf-791e-4854-b2c8-d50a557c8c0d@c19g2000prf.googlegroups.com>
Hello all,
I am a perl beginner. So patience please!
I wrote a perl-script to find all unused pix of a web site. Now I
would like to move all those 168! pix from the folder pix to the
folder pix_out keeping the same hierarchy as in the original folder.
That means:
/Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/thumbnails/
tn_munich28.jpg
should be renamed to:
/Users/xxx/Documents/webpages/www.myproject.de/pix_out/fotos/
thumbnails/tn_munich28.jpg
Only one folder is changing his name: pix -> pix_out And this with all
my 168 unused pix in different folders.
I was hoping, that the rename function would create the missing
folders, doing:
rename "/Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/
thumbnails/tn_munich28.jpg", "/Users/xxx/Documents/webpages/
www.myproject.de/pix_out/fotos/thumbnails/tn_munich28.jpg";
But there is even no error message, trying to do it like this with one
test file. So probably I have to grep out the folders starting from
"pix"-folder until the file:
this would give in this example the folders fotos -> thumbnails which
are missing and which I have to create in pix_out - folder
My questions are:
How to grep these missing folders? Starting from pix, my hierarchy is
maximum 2 folders deep. But if there would be more folders?
how to test whether a folder is already created? I tried with:
if (-e ! $dir_pix_out)
#wrong!!
{
mkdir
$dir_pix_out;
}
thank you for your help
marek
------------------------------
Date: Tue, 15 Apr 2008 15:57:20 +0200
From: Peter Ludikovsky <darthludi@gmail.com>
Subject: Re: moving unused of a website
Message-Id: <1208267798.846800@nntpcache01.si.eunet.at>
Marek wrote:
>
> Hello all,
>
>
> I am a perl beginner. So patience please!
>
>
> I wrote a perl-script to find all unused pix of a web site. Now I
> would like to move all those 168! pix from the folder pix to the
> folder pix_out keeping the same hierarchy as in the original folder.
> That means:
>
> /Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/thumbnails/
> tn_munich28.jpg
>
> should be renamed to:
>
> /Users/xxx/Documents/webpages/www.myproject.de/pix_out/fotos/
> thumbnails/tn_munich28.jpg
>
> Only one folder is changing his name: pix -> pix_out And this with all
> my 168 unused pix in different folders.
>
> I was hoping, that the rename function would create the missing
> folders, doing:
>
> rename "/Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/
> thumbnails/tn_munich28.jpg", "/Users/xxx/Documents/webpages/
> www.myproject.de/pix_out/fotos/thumbnails/tn_munich28.jpg";
>
> But there is even no error message, trying to do it like this with one
> test file. So probably I have to grep out the folders starting from
> "pix"-folder until the file:
>
> this would give in this example the folders fotos -> thumbnails which
> are missing and which I have to create in pix_out - folder
>
> My questions are:
>
> How to grep these missing folders? Starting from pix, my hierarchy is
> maximum 2 folders deep. But if there would be more folders?
>
> how to test whether a folder is already created? I tried with:
>
> if (-e ! $dir_pix_out)
> #wrong!!
> {
> mkdir
> $dir_pix_out;
> }
>
>
>
> thank you for your help
>
>
>
> marek
BEWARE, UNTESTED PSEUDOCODE
---SNIP---
use strict;
use warnings;
use File::Path;
use File::Basename;
use File::Copy;
my @moved=map{s/pix/pix_old/} @filelist;
for(my $i=0;$i<$#filelist;$i++){
mkpath(dirname($filelist[$i]));
move($filelist[$i],$moved[$i]);
}
---SNIP---
as said, that code is neither tested nor beautiful, but it should give
you an idea on how to start...
hth
/peter
------------------------------
Date: Tue, 15 Apr 2008 14:18:38 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: moving unused of a website
Message-Id: <Xns9A8168E197800asu1cornelledu@127.0.0.1>
Marek <mstep@podiuminternational.org> wrote in
news:3547d8bf-791e-4854-b2c8-
d50a557c8c0d@c19g2000prf.googlegroups.co
m:
> I am a perl beginner.
You are a Perl beginner. Perl is the language, perl is the binary.
perldoc -q difference
> So patience please!
>
>
> I wrote a perl-script to find all unused pix of a web site. Now I
> would like to move all those 168! pix from the folder pix to the
> folder pix_out keeping the same hierarchy as in the original
> folder. That means:
>
> /Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/
> thumbnails/tn_munich28.jpg
>
> should be renamed to:
>
> /Users/xxx/Documents/webpages/www.myproject.de/pix_out/fotos/
> thumbnails/tn_munich28.jpg
Learn to use the right tool for the job. The command line tool move
is perfect for this.
move /Users/xxx/Documents/webpages/www.myproject.de/pix
/Users/xxx/Documents/webpages/www.myproject.de/pix_out
> Only one folder is changing his name: pix -> pix_out And this with
> all my 168 unused pix in different folders.
I am not sure what you mean by this.
> I was hoping, that the rename function would create the missing
> folders, doing:
>
> rename "/Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/
> thumbnails/tn_munich28.jpg", "/Users/xxx/Documents/webpages/
> www.myproject.de/pix_out/fotos/thumbnails/tn_munich28.jpg";
>
> But there is even no error message, trying to do it like this with
> one test file.
Why would there be an error message if you don't ask for it?
#!/usr/bin/perl
use strict;
use warnings;
my ($old, $new) = ( 'does not exist', 'miracle' );
rename $old => $new
or die "Cannot rename '$old' to '$new': $!";
__END__
C:\Temp> t9
Cannot rename 'does not exist' to 'miracle': No such file or
directory at C:\Temp\t9.pl line 8.
> how to test whether a folder is already created? I tried with:
>
> if (-e ! $dir_pix_out)
WTF?
mkdir $dir unless -d $dir;
or
mkdir $dir unless ! -d $dir;
or
if ( ! -d $dir ) {
}
C:\Temp\t> cat t0.pl
#!/usr/bin/perl
use strict;
use warnings;
mkdir 's' unless -d 's';
mkdir 't' if ! -d 't';
if ( ! -d 'u' ) {
mkdir 'u';
}
unless ( -d 'v' ) {
mkdir 'v';
}
__END__
C:\Temp\t> t0
2008/04/15 10:14 AM <DIR> s
2008/04/15 10:14 AM <DIR> t
2008/04/15 10:14 AM <DIR> u
2008/04/15 10:14 AM <DIR> v
However, testing and creation of the directory is not done in a
single atomic transaction. Therefore, testing the existence of the
directory before attempting to create it is of dubious use. Just do
mkdir $dir;
and make sure to check for errors in subsequent file operations
because a directory that existed a few statements back can disappear
once you reach the file operations.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Tue, 15 Apr 2008 08:38:51 -0700 (PDT)
From: Marek <mstep@podiuminternational.org>
Subject: Re: moving unused of a website
Message-Id: <1f9a7cb0-9cf9-494a-875b-52c1e14288ad@m1g2000pre.googlegroups.com>
Thank you Sinan and Peter for you prompt answers!
Meanwhile I made some progress myself. I am reading in the file name
of the unused pix, and then a grep starting with my "pix" folder, and
then splitting over '/'. The result is three array elements, and the
file name. I am testing, whether the two folders are existing, and if
not, create them. Is this a good approach? (My test script follows on
the bottom).
But I will think over your hints and try to integrate your advices!
marek
#! /usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $start_dir = "/Users/xyz/Documents/webpages/www.myproject.de";
my $pix_unused_pix =
"/Users/xyz/Documents/webpages/www.munich-taxis.de/pix/fotos/
thumbnails/tn_munich17.jpg"; # an example of an unused pix
my ($path) = $pix_unused_pix =~ m~/pix/([^"]+?)$~;
my @folders = split("/",$path);
print "The missing folders are:\n\n";
print Dumper(@folders);
print "\n\n";
chdir($start_dir);
if (-e $folders[1]) {
print "\nYes, your folder /$folders[1] exists!\n\n";
}
if (!-e $folders[1]) {
print "\nNO! Your folder /$folders[1] does not exists!\n\n";
mkdir $folders[1];
}
if (-e $folders[1].'/'.$folders[2]) {
print "\nYes, your folder /$folders[1]/$folders[2] exists!\n\n";
}
if (!-e $folders[1].'/'.$folders[2]) {
print "\nNO! Your folder /$folders[1]/$folders[2] does not exists!
\n\n";
mkdir $folders[1] . '/' . $folders[2];
}
------------------------------
Date: Tue, 15 Apr 2008 09:31:17 -0700 (PDT)
From: nolo contendere <simon.chao@fmr.com>
Subject: Re: moving unused of a website
Message-Id: <3c16c774-c994-45d8-9354-c0bb0551fbba@8g2000hse.googlegroups.com>
On Apr 15, 10:18=A0am, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
> mkdir $dir unless -d $dir;
>
> or
>
> mkdir $dir unless ! -d $dir;
>
I think here, you meant:
mkdir $dir if ! -d $dir;
------------------------------
Date: Tue, 15 Apr 2008 16:31:28 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: moving unused of a website
Message-Id: <lml904hdudfhhf5lgql0s5q2rpkksc4r0a@4ax.com>
Marek <mstep@podiuminternational.org> wrote:
>Meanwhile I made some progress myself. I am reading in the file name
>of the unused pix, and then a grep starting with my "pix" folder, and
>then splitting over '/'. The result is three array elements, and the
>file name.
You may want to look at File::Basename which has functions to split a
file path into its components.
>I am testing, whether the two folders are existing, and if
>not, create them. Is this a good approach? (My test script follows on
>the bottom).
You may want to look at File::Path which provides mkpath() to create
file paths of any depth.
>print Dumper(@folders);
Why not a simple
print @folders;
jue
------------------------------
Date: Tue, 15 Apr 2008 10:39:50 -0700 (PDT)
From: Marek <mstep@podiuminternational.org>
Subject: Re: moving unused of a website
Message-Id: <b8700e9e-d32e-406f-b09b-f16e4537c7e9@u12g2000prd.googlegroups.com>
Thank you all! Yes I will look into all your suggestions. Meanwhile I
am progressing on my own way but I will seriously look into all your
suggestions tomorrow.
marek
*******I am here now! I will make a subroutine in my perl script out
of it. If you have any suggestions directly to this script ...
#! /usr/local/bin/perl
use strict;
use warnings;
my $start_dir = "/Users/xyz/Documents/webpages/www.myproject.de";
my $pix_out_folder = $start_dir . "/pix_out";
my $pix_unused_pix =
"/Users/xyz/Documents/webpages/www.myproject.de/pix/fotos/thumbnails/
tn_munich17.jpg";
my ($path) = $pix_unused_pix =~ m~/pix/([^"]+?)$~;
my @folders = split( "/", $path );
if ( !-e $pix_out_folder ) {
mkdir $pix_out_folder
or die "could not create your folder: $pix_out_folder! $!";
}
my $first_sub = shift @folders unless $folders[0] =~ m~\.(jpe?g|gif|
png)$~;
$first_sub = $pix_out_folder . '/' . $first_sub if $first_sub;
if ( $first_sub and !-e $first_sub ) {
print "\nNO! Your folder /$folders[1] does not exists!\n\n";
mkdir $first_sub or die "could not create your folder: \"$first_sub
\"! $!";
}
my $second_sub = shift @folders unless $folders[0] =~ m~\.(jpe?g|gif|
png)$~;
$second_sub = $first_sub . '/' . $second_sub if $second_sub;
if ( $second_sub and !-e $second_sub ) {
print "\nNO! Your folder $second_sub does not exists!\n\n";
mkdir $second_sub
or die "could not create your folder: \"$second_sub\"! $!";
}
my $third_sub = shift @folders unless $folders[0] =~ m~\.(jpe?g|gif|
png)$~;
$third_sub = $second_sub . '/' . $third_sub if $third_sub;
if ( $third_sub and !-e $third_sub ) {
print "\nNO! Your folder $third_sub does not exists!\n\n";
mkdir $third_sub or die "could not create your folder: \"$third_sub
\"! $!";
}
------------------------------
Date: Tue, 15 Apr 2008 18:12:51 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: moving unused of a website
Message-Id: <De6Nj.5$5F3.4@edtnps82>
Peter Ludikovsky wrote:
> Marek wrote:
>>
>> I wrote a perl-script to find all unused pix of a web site. Now I
>> would like to move all those 168! pix from the folder pix to the
>> folder pix_out keeping the same hierarchy as in the original folder.
>> That means:
>>
>> /Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/thumbnails/
>> tn_munich28.jpg
>>
>> should be renamed to:
>>
>> /Users/xxx/Documents/webpages/www.myproject.de/pix_out/fotos/
>> thumbnails/tn_munich28.jpg
>
> BEWARE, UNTESTED PSEUDOCODE
> ---SNIP---
> use strict;
> use warnings;
>
> use File::Path;
> use File::Basename;
> use File::Copy;
>
> my @moved=map{s/pix/pix_old/} @filelist;
Now @moved contains a list of either '1' or '' depending of whether
/pix/ matched or not. And all the elements of @filelist have been
modified so that 'pix' is replaced with 'pix_old'.
> for(my $i=0;$i<$#filelist;$i++){
You have an off-by-one error. You are iterating through the first
element of @filelist through the second-to-last element of @filelist.
> mkpath(dirname($filelist[$i]));
> move($filelist[$i],$moved[$i]);
> }
> ---SNIP---
>
> as said, that code is neither tested nor beautiful, but it should give
> you an idea on how to start...
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Tue, 15 Apr 2008 19:18:34 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: moving unused of a website
Message-Id: <q48fd5-9ub.ln1@osiris.mauzo.dyndns.org>
Quoth Marek <mstep@podiuminternational.org>:
>
> I wrote a perl-script to find all unused pix of a web site. Now I
> would like to move all those 168! pix from the folder pix to the
> folder pix_out keeping the same hierarchy as in the original folder.
168! is approximately 10^302. I'm impressed you have a filesystem with
that many inodes...
> That means:
>
> /Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/thumbnails/
> tn_munich28.jpg
>
> should be renamed to:
>
> /Users/xxx/Documents/webpages/www.myproject.de/pix_out/fotos/
> thumbnails/tn_munich28.jpg
>
> Only one folder is changing his name: pix -> pix_out And this with all
> my 168 unused pix in different folders.
>
> I was hoping, that the rename function would create the missing
> folders, doing:
>
> rename "/Users/xxx/Documents/webpages/www.myproject.de/pix/fotos/
> thumbnails/tn_munich28.jpg", "/Users/xxx/Documents/webpages/
> www.myproject.de/pix_out/fotos/thumbnails/tn_munich28.jpg";
No, rename doesn't do that.
> But there is even no error message, trying to do it like this with one
> test file.
There is no error message because you didn't ask for one. Always check
the return value of system calls.
my $src = "/Users/...";
(my $dst = $src) =~ s,/pix/,/pix_out/,;
rename $src, $dst or die "can't rename $src -> $dst: $!";
> So probably I have to grep out the folders starting from "pix"-folder
> until the file: this would give in this example the folders fotos ->
> thumbnails which are missing and which I have to create in pix_out -
> folder
You can use File::Basename or File::Spec to find the directory you are
trying to rename into, and File::Path to create the whole directory tree
required in one step.
> how to test whether a folder is already created? I tried with:
>
> if (-e ! $dir_pix_out) #wrong!! { mkdir $dir_pix_out; }
Huh? What made you think that would work? Assuming $dir_pix_out contains
a filename, it is a true value. This means ! $die_pix_out is undef, and
you are trying to test for the existance of a file with an empty name.
You will also get a warning: do you have warnings switched on?
The test for a directory is -d, so you want
if (! -d $dir_pix_out) {
or
unless (-d $dor_pix_out) {
Note that mkdir doesn't create multiple levels of directory, either;
again, you need to use File::Path.
Ben
------------------------------
Date: Fri, 11 Apr 2008 04:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Apr 11 2008
Message-Id: <Jz592I.8n5@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-Ukrop-0.01
http://search.cpan.org/~karasik/Acme-Ukrop-0.01/
ukrop parser
----
Acme-Ukrop-0.02
http://search.cpan.org/~karasik/Acme-Ukrop-0.02/
ukrop parser
----
Apache2-AuthenNIS-0.15
http://search.cpan.org/~iteahaus/Apache2-AuthenNIS-0.15/
mod_perl2 NIS Authentication module
----
Astro-FITS-CFITSIO-Utils-0.10
http://search.cpan.org/~djerius/Astro-FITS-CFITSIO-Utils-0.10/
FITS utility routines
----
Business-KontoCheck-2.6
http://search.cpan.org/~michel/Business-KontoCheck-2.6/
Perl extension for checking German and Austrian Bank Account Numbers
----
CGI-CMS-0.32
http://search.cpan.org/~lze/CGI-CMS-0.32/
Content Managment System that runs under mod_perl and and as cgi script.
----
CPAN-Site-0.20
http://search.cpan.org/~markov/CPAN-Site-0.20/
CPAN.pm subclass for adding site local modules
----
Catalyst-Controller-Atompub-v0.5.1
http://search.cpan.org/~takeru/Catalyst-Controller-Atompub-v0.5.1/
A Catalyst controller for the Atom Publishing Protocol
----
Catalyst-Engine-XMPP2-0.2
http://search.cpan.org/~druoso/Catalyst-Engine-XMPP2-0.2/
Net::XMPP2::Connection Catalyst Engine
----
Coro-4.50
http://search.cpan.org/~mlehmann/Coro-4.50/
coroutine process abstraction
----
DJabberd-Plugin-Balancer-0.1
http://search.cpan.org/~druoso/DJabberd-Plugin-Balancer-0.1/
Load balancing djabberd plugin
----
Devel-Cover-0.64
http://search.cpan.org/~pjcj/Devel-Cover-0.64/
Code coverage metrics for Perl
----
EekBoek-1.03.12
http://search.cpan.org/~jv/EekBoek-1.03.12/
Bookkeeping software for small and medium-size businesses
----
Email-VirusScan-0.011_01
http://search.cpan.org/~doneill/Email-VirusScan-0.011_01/
Unified interface for virus scanning of email messages
----
Encode-Base32-Crockford-1.12
http://search.cpan.org/~hex/Encode-Base32-Crockford-1.12/
encode/decode numbers using Douglas Crockford's Base32 Encoding
----
Finance-Bank-Cahoot-0.07
http://search.cpan.org/~masaccio/Finance-Bank-Cahoot-0.07/
Check your Cahoot bank accounts from Perl
----
Fukurama-Class-0.032
http://search.cpan.org/~tobiwan/Fukurama-Class-0.032/
Pragma to extend the Perl-OO (in native Perl)
----
HTML-FillInForm-Lite-1.01
http://search.cpan.org/~gfuji/HTML-FillInForm-Lite-1.01/
Fills in HTML forms with data
----
HTML-Table-2.08
http://search.cpan.org/~ajpeacock/HTML-Table-2.08/
produces HTML tables
----
HTTP-MobileAttribute-0.08
http://search.cpan.org/~tokuhirom/HTTP-MobileAttribute-0.08/
Yet Another HTTP::MobileAgent
----
Hash-Unnest-0.00_01
http://search.cpan.org/~berle/Hash-Unnest-0.00_01/
Simple deep hash iterator
----
Keystone-Resolver-1.20
http://search.cpan.org/~mirk/Keystone-Resolver-1.20/
an OpenURL resolver
----
Keystone-Resolver-1.21
http://search.cpan.org/~mirk/Keystone-Resolver-1.21/
an OpenURL resolver
----
Locale-Maketext-Gettext-1.25
http://search.cpan.org/~imacat/Locale-Maketext-Gettext-1.25/
Joins the gettext and Maketext frameworks
----
Memcached-libmemcached-0.1901
http://search.cpan.org/~timb/Memcached-libmemcached-0.1901/
Thin fast full interface to the libmemcached client API
----
Module-Install-ExtraTests-0.001
http://search.cpan.org/~rjbs/Module-Install-ExtraTests-0.001/
contextual tests that the harness can ignore
----
Net-CIDR-MobileJP-0.12
http://search.cpan.org/~tokuhirom/Net-CIDR-MobileJP-0.12/
mobile ip address in Japan
----
Osgood-Client-1.1.2
http://search.cpan.org/~gphat/Osgood-Client-1.1.2/
Client for the Osgood Passive, Persistent Event Queue
----
Osgood-Server-1.2.0
http://search.cpan.org/~gphat/Osgood-Server-1.2.0/
Event Repository
----
PDF-FDF-Simple-0.14
http://search.cpan.org/~schwigon/PDF-FDF-Simple-0.14/
Read and write (Acrobat) FDF files.
----
Parse-Marpa-0.207_004
http://search.cpan.org/~jkegl/Parse-Marpa-0.207_004/
(Alpha) Earley's algorithm with LR(0) precomputation
----
PerlIO-Util-0.01
http://search.cpan.org/~gfuji/PerlIO-Util-0.01/
A selection of general-utility PerlIO layers
----
Prima-1.25
http://search.cpan.org/~karasik/Prima-1.25/
a perl graphic toolkit
----
SQL-Tokenizer-0.11
http://search.cpan.org/~izut/SQL-Tokenizer-0.11/
A simple SQL tokenizer.
----
TM-Easy-0.01
http://search.cpan.org/~drrho/TM-Easy-0.01/
Topic Maps, Easy Usage
----
TM-Virtual-DNS-0.12
http://search.cpan.org/~drrho/TM-Virtual-DNS-0.12/
Virtual Topic Map for DNS retrieval
----
Template-Alloy-1.012
http://search.cpan.org/~rhandom/Template-Alloy-1.012/
TT2/3, HT, HTE, Tmpl, and Velocity Engine
----
Test-A8N-0.03
http://search.cpan.org/~nachbaur/Test-A8N-0.03/
Storytest Automation Runner
----
Test-Declare-0.02
http://search.cpan.org/~nekokak/Test-Declare-0.02/
declarative testing
----
Test-TAP-0.01
http://search.cpan.org/~ovid/Test-TAP-0.01/
Test your TAP
----
Test-TAP-0.02
http://search.cpan.org/~ovid/Test-TAP-0.02/
Test your TAP
----
Unix-PID-0.0.14
http://search.cpan.org/~dmuey/Unix-PID-0.0.14/
Perl extension for getting PID info.
----
Unix-PID-Tiny-0.4
http://search.cpan.org/~dmuey/Unix-PID-Tiny-0.4/
Subset of Unix::PID functionality with smaller memory footprint
----
WWW-MobileCarrierJP-0.14
http://search.cpan.org/~tokuhirom/WWW-MobileCarrierJP-0.14/
scrape mobile carrier information
----
WWW-RapidShare-v0.2.0
http://search.cpan.org/~rohan/WWW-RapidShare-v0.2.0/
Download files from Rapidshare
----
WordNet-SenseRelate-AllWords-0.09
http://search.cpan.org/~tpederse/WordNet-SenseRelate-AllWords-0.09/
Disambiguate All Words in a Text based on semantic similarity and relatedness in WordNet
----
Wx-ActiveX-0.09
http://search.cpan.org/~mdootson/Wx-ActiveX-0.09/
ActiveX Control Interface for Wx
----
XML-Compile-0.74
http://search.cpan.org/~markov/XML-Compile-0.74/
Compilation based XML processing
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, 14 Apr 2008 04:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Apr 14 2008
Message-Id: <JzAt2I.DpF@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.
Alien-wxWidgets-0.34
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.34/
building, finding and using wxWidgets binaries
----
App-Addex-0.016
http://search.cpan.org/~rjbs/App-Addex-0.016/
generate mail tool configuration from an address book
----
CPAN-Test-Dummy-Perl5-Make-Features-1.03
http://search.cpan.org/~andk/CPAN-Test-Dummy-Perl5-Make-Features-1.03/
CPAN Test Dummy
----
Cache-Memcached-libmemcached-0.02003
http://search.cpan.org/~dmaki/Cache-Memcached-libmemcached-0.02003/
Perl Interface to libmemcached
----
Class-Data-ConfigHash-0.00001
http://search.cpan.org/~dmaki/Class-Data-ConfigHash-0.00001/
Add Catalyst-Style Config To Your Class
----
DBIx-Class-Schema-Loader-0.04999_05
http://search.cpan.org/~ilmari/DBIx-Class-Schema-Loader-0.04999_05/
Dynamic definition of a DBIx::Class::Schema
----
DBIx-JCL-0.04
http://search.cpan.org/~badkins/DBIx-JCL-0.04/
----
DOCSIS-ConfigFile-0.5
http://search.cpan.org/~eidolon/DOCSIS-ConfigFile-0.5/
Decodes and encodes DOCSIS config-files for cablemodems
----
DOCSIS-ConfigFile-0.51
http://search.cpan.org/~eidolon/DOCSIS-ConfigFile-0.51/
Decodes and encodes DOCSIS config-files
----
Devel-PPPort-3.13_02
http://search.cpan.org/~mhx/Devel-PPPort-3.13_02/
Perl/Pollution/Portability
----
Devel-PerlySense-0.0152
http://search.cpan.org/~johanl/Devel-PerlySense-0.0152/
Perl IDE with Emacs frontend
----
Devel-Tokenizer-C-0.06
http://search.cpan.org/~mhx/Devel-Tokenizer-C-0.06/
Generate C source for fast keyword tokenizer
----
Device-Velleman-K8055-Fuse-0.92
http://search.cpan.org/~ronan/Device-Velleman-K8055-Fuse-0.92/
Communication with the Velleman K8055 USB experiment board using Fuse and K8055fs
----
EekBoek-1.03.13
http://search.cpan.org/~jv/EekBoek-1.03.13/
Bookkeeping software for small and medium-size businesses
----
Exception-Base-0.14
http://search.cpan.org/~dexter/Exception-Base-0.14/
Lightweight exceptions
----
Exception-System-0.0801
http://search.cpan.org/~dexter/Exception-System-0.0801/
The exception class for system or library calls
----
Fatal-Exception-0.0202
http://search.cpan.org/~dexter/Fatal-Exception-0.0202/
succeed or throw exception
----
File-Stat-Moose-0.0105
http://search.cpan.org/~dexter/File-Stat-Moose-0.0105/
Status info for a file - Moose-based
----
Graph-Regexp-0.05
http://search.cpan.org/~tels/Graph-Regexp-0.05/
Create graphical flowchart from a regular expression
----
IPC-System-Simple-0.08
http://search.cpan.org/~pjf/IPC-System-Simple-0.08/
Call system() commands with a minimum of fuss
----
Imager-Screenshot-0.007
http://search.cpan.org/~tonyc/Imager-Screenshot-0.007/
screenshot to an Imager image
----
Lingua-EN-Fathom-1.12
http://search.cpan.org/~kimryan/Lingua-EN-Fathom-1.12/
Measure readability of English text
----
MP4-File-0.02
http://search.cpan.org/~mhx/MP4-File-0.02/
Read/Write MP4 files
----
Math-BigInt-FastCalc-0.17
http://search.cpan.org/~tels/Math-BigInt-FastCalc-0.17/
Math::BigInt::Calc with some XS for more speed
----
Module-CPANTS-Analyse-0.81
http://search.cpan.org/~domm/Module-CPANTS-Analyse-0.81/
Generate Kwalitee ratings for a distribution
----
Module-Install-ExtraTests-0.003
http://search.cpan.org/~rjbs/Module-Install-ExtraTests-0.003/
contextual tests that the harness can ignore
----
Muldis-D-0.25.1
http://search.cpan.org/~duncand/Muldis-D-0.25.1/
Formal spec of Muldis D relational DBMS lang
----
Muldis-Rosetta-0.7.0
http://search.cpan.org/~duncand/Muldis-Rosetta-0.7.0/
Full-featured truly relational DBMS in Perl
----
Net-SNMP-Mixin-0.06
http://search.cpan.org/~gaissmai/Net-SNMP-Mixin-0.06/
mixin framework for Net::SNMP
----
Net-SNMP-Mixin-0.07
http://search.cpan.org/~gaissmai/Net-SNMP-Mixin-0.07/
mixin framework for Net::SNMP
----
Net-SNMP-Mixin-Dot1abLLDP-0.02
http://search.cpan.org/~gaissmai/Net-SNMP-Mixin-Dot1abLLDP-0.02/
mixin class for the Link Layer Dicsovery Protocol
----
POE-Component-IRC-Plugin-SigFail-0.001
http://search.cpan.org/~zoffix/POE-Component-IRC-Plugin-SigFail-0.001/
make witty error/no result messages
----
Parley-0.59.04
http://search.cpan.org/~chisel/Parley-0.59.04/
Message board / forum application
----
Parse-Marpa-0.209_000
http://search.cpan.org/~jkegl/Parse-Marpa-0.209_000/
(Alpha) Earley's algorithm with LR(0) precomputation
----
Parse-Stallion-0.006
http://search.cpan.org/~arthur/Parse-Stallion-0.006/
Perl backtracking parser and resultant tree evaluator
----
Parse-Stallion-0.007
http://search.cpan.org/~arthur/Parse-Stallion-0.007/
Perl backtracking parser and resultant tree evaluator
----
Pod-WikiText-0.04
http://search.cpan.org/~badkins/Pod-WikiText-0.04/
----
SQL-Tokenizer-0.14
http://search.cpan.org/~izut/SQL-Tokenizer-0.14/
A simple SQL tokenizer.
----
SVG-GD-0.09
http://search.cpan.org/~ronan/SVG-GD-0.09/
----
SVG-GD-0.1
http://search.cpan.org/~ronan/SVG-GD-0.1/
----
SVG-GD-0.11
http://search.cpan.org/~ronan/SVG-GD-0.11/
----
SVG-Template-Graph-0.16
http://search.cpan.org/~ronan/SVG-Template-Graph-0.16/
Perl extension for generating template-driven graphs with SVG
----
Test-Environment-0.04_02
http://search.cpan.org/~jkutej/Test-Environment-0.04_02/
Base module for loading Test::Environment::Plugin::*
----
Tk-DataTree-0.06
http://search.cpan.org/~mhx/Tk-DataTree-0.06/
A tree widget for arbitrary data structures
----
WWW-MySociety-Gaze-0.01
http://search.cpan.org/~andya/WWW-MySociety-Gaze-0.01/
An interface to MySociety.org's Gazetteer service
----
ack-1.82
http://search.cpan.org/~petdance/ack-1.82/
grep-like text finder
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: 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 1442
***************************************
