[28772] in Perl-Users-Digest
Perl-Users Digest, Issue: 16 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 12 03:05:53 2007
Date: Fri, 12 Jan 2007 00:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 12 Jan 2007 Volume: 11 Number: 16
Today's topics:
alarm() under W2003 <bol@adv.magwien.gv.at>
array searching <jimcanon@gmail.com>
Re: array searching <john@castleamber.com>
Re: CPAN Write Excel <GreggAllen@gmail.com>
Re: CPAN Write Excel <tadmc@augustmail.com>
Re: DB_File tie error <jehutz@artsci.wustl.edu>
Re: DB_File tie error <glex_no-spam@qwest-spam-no.invalid>
Re: if (! mkdir $dir) <jl_post@hotmail.com>
keys %hash without destory element order <feiliu@aepnetworks.com>
Re: keys %hash without destory element order <someone@example.com>
Re: keys %hash without destory element order <mritty@gmail.com>
Re: keys %hash without destory element order <jurgenex@hotmail.com>
Re: keys %hash without destory element order <rvtol+news@isolution.nl>
Re: keys %hash without destory element order <greg.ferguson@icrossing.com>
Re: keys %hash without destory element order <bart.lateur@pandora.be>
new CPAN modules on Fri Jan 12 2007 (Randal Schwartz)
Re: Parsing an XML file and adding another tag, if the <tadmc@augustmail.com>
Re: Perl 5.00404 - Label not found for "next " , next() <tadmc@augustmail.com>
Re: Perl DBI PostgreSQL <greg.ferguson@icrossing.com>
Re: Perl free e-books <anonymous@127.0.0.1>
Re: Perl free e-books <moya0901@126.com>
Re: Perl free e-books <uri@stemsystems.com>
Re: Perl free e-books <john@castleamber.com>
Re: Problem using SWIG with perl <thepoet_nospam@arcor.de>
Re: regex <rvtol+news@isolution.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 12 Jan 2007 08:44:56 +0100
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: alarm() under W2003
Message-Id: <1168587897.316144@proxy.dienste.wien.at>
Hi,
I have this code which works well under UNIX (Linux):
eval {
local $SIG{ALRM} = sub {die "\nTimeout!\n"};
alarm 3;
print 'Your input: ';
my $input = <STDIN>;
alarm 0;
};
die "$@\n" if $@;
However, on Windows Server 2003, the readline operation
hangs forever, the alarm signal handler gets never executed!
Does someone know what to change here to make this code
running under W2003?
(BTW: the actual command which should be executed later
in the eval block is
sc \\<host> interrogate <service>
to check whether a service is still alive. If it isn't (sometime,
it's in an inproper state, shown as "4 (RUNNING)" although
it does not longer respond to requests), I want to establish
a timeout to ensure that the checking script doesn't wait
forever.)
MTIA & kind greetings from Vienna,
Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: 11 Jan 2007 22:09:25 -0800
From: "jimcanon@gmail.com" <jimcanon@gmail.com>
Subject: array searching
Message-Id: <1168582165.061901.248720@q2g2000cwa.googlegroups.com>
Hi,
This is my first question, I appreciate any information you provide. I
want to compare the numbers after : in @jn to the numbers after job in
@job1 and @job2.
@jn =
JN.2007:555
JN.2007:8433
JN.2007 :594
JN.2007:111
JN.2007:4663
JN.2007.321
JN.2007:2221
@job1 =
job555
job572
job8433
job873
job594
job4663
job2221
job2223
@job2 =
job555
job8433
job873
job594
job4663
job2221
job2223
I want to put what is missing in @jn compared to @job1 and @job2 in
@jobMissing :
job572
job873
job2223
I want to put what is missing in @job1 and @job2 compared to @jn in
@jnMissing :
job111
job321
Thanks and Regards,
Jim
------------------------------
Date: 12 Jan 2007 07:01:48 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: array searching
Message-Id: <Xns98B6A79AE1D7castleamber@130.133.1.4>
"jimcanon@gmail.com" <jimcanon@gmail.com> wrote:
> I want to put what is missing in @jn compared to @job1 and @job2 in
> @jobMissing :
So you want to look up stuff -> look up table -> hash.
See
perldoc perlintro (Perl variable types)
online:
http://perldoc.perl.org/perlintro.html#Perl-variable-types
> I want to put what is missing in @job1 and @job2 compared to @jn in
...
What have you tried so far?
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 11 Jan 2007 16:33:51 -0800
From: "Gallon" <GreggAllen@gmail.com>
Subject: Re: CPAN Write Excel
Message-Id: <1168562031.393387.72330@l53g2000cwa.googlegroups.com>
Tad McClellan wrote:
> Bob Walton <see.sig@rochester.rr.com> wrote:
> > Gallon wrote:
> >> I have MS Excel spreadsheets with tons of formulas and data already in
> >> them, so I was very excited about discovering
> >> "Spreadsheet::WriteExcel". This would allow me to write data directly
> >> from my Perl scripts, rather than cutting and pasting. The only
> >> drawback, except for me being an idiot or a luddite, is the module only
> >> seems to have a "new" constructor! I need an "open" constructor, or
> >> whatever. Does anyone know how I might do this???
>
>
> The very first paragraph of the documentation for the module you
> are using says:
>
> This module cannot be used to write to an existing Excel file.
>
> >
> > So far as I know, Spreadsheet::WriteExcel does exactly what it says: it
> > writes Excel files. It doesn't read them or update them.
> > Spreadsheet::ParseExcel will read Excel files. Between the two, you
> > might be able to accomplish an update. I recommend, though, that you
> > check out the Win32::OLE module. It is more suitable for updating Excel
> > spreadsheets. There are Excel examples in the module documentation that
> > will get you started.
>
>
> I needed to do this in a CGI program last week, but the web server
> was not Redmondware, so no OLE.
>
> Jakarta POI to the rescue!
>
> http://jakarta.apache.org/poi/
>
> Recalling enough Java to get it working made me spit, but it allowed
> me to serve Excel files derived from an Excel "template" file.
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
*********************************************************************
"This module cannot be used to write to an existing Excel file"
I'm on a MAC. I should have read the documentation first instead of
just examining the code.
Thanks
------------------------------
Date: Thu, 11 Jan 2007 21:44:48 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: CPAN Write Excel
Message-Id: <slrneqe11g.ko7.tadmc@tadmc30.august.net>
Gallon <GreggAllen@gmail.com> wrote:
> Tad McClellan wrote:
[ snip full-quote. Please do not do that. ]
> I'm on a MAC.
I'm on a chair.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Jan 2007 15:49:19 -0800
From: "Janna" <jehutz@artsci.wustl.edu>
Subject: Re: DB_File tie error
Message-Id: <1168559359.149225.210590@i39g2000hsf.googlegroups.com>
I copied my program to another file and drastically edited it to about
75 lines (from over 1000) that duplicate the problem. I also added
Xho's suggested warnings. Here's the complete code now (sorry for the
length):
#!/usr/bin/perl
use strict;
use warnings;
use Fcntl;
use DB_File;
my $expweight = 0; # Will hold the user's expression weight
my $litweight=1; # Will hold the user's literature (>1 hit)
weight
my $conweight=0; # Will hold the user's conservation weight#
LIT BLOCK
unless ($litweight == 0) {
use strict;
use warnings;
#Open the BTREE with the publications
my $dbloc = '/data3/mcleod.3/aldi/janna/candid/BUILD2/humanpubs.db';
$DB_BTREE->{'flags'} = R_DUP;
my %pubhash;
my $pubdb = tie %pubhash, "DB_File", $dbloc, O_RDWR|O_CREAT, 0640,
$DB_BTREE or die "Cannot open $dbloc: $!\n";
#Open the BTREE with totalpubs
my $totalloc = '/data3/mcleod.3/aldi/janna/candid/BUILD2/totalpubs.db';
$DB_BTREE->{'flags'} = R_DUP;
my %totalpubhash;
my $totalpubdb = tie %totalpubhash, "DB_File", $totalloc,
O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $totalloc: $!\n";
undef $pubdb;
untie %pubhash;
undef $totalpubdb;
untie %totalpubhash;
}
# CON BLOCK
unless ($conweight == 0) {
#Load BTREE of Homologene data.
my $dbloc = '/data3/mcleod.3/aldi/janna/candid/BUILD2/humanhomol.db';
my %homolhash;
my $homoldb = tie %homolhash, "DB_File", $dbloc, O_RDWR|O_CREAT, 0640,
$DB_BTREE or die "Cannot open $dbloc: $!\n";
undef $homoldb;
untie %homolhash;
}
# EXP BLOCK
unless ($expweight == 0) {
# Load exphash
use strict;
use warnings;
my $dbloc = "/data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db";
my %exphash;
my $expdb = tie %exphash, "DB_File", $dbloc, O_RDWR|O_CREAT, 0640,
$DB_BTREE or do {
warn "-e ", -e $dbloc, " -f ", -f $dbloc;
warn "@{[stat $dbloc]}";
die "Cannot open this file $dbloc: $!\n";
};
undef $expdb;
untie %exphash;
} #unless
exit;
As I said before, it requires $expweight AND $litweight to be nonzero
in order to reproduce the error. If $expweight is nonzero and
$litweight and $conweight are both 0, the error does not occur.
Likewise, if $litweight and $conweight are nonzero, but $expweight is
0, the error does not occur.
When I run the program as above ($expweight and $litweight = 1), this
is what I get as the output:
-e 1 -f 1 at ./gutless.pl line 704.
2067 7372805 33188 1 1067 1067 0 87662592 1168557177 1168538256
1168538256 4096 171392 at ./gutless.pl line 705.
Cannot open this file
/data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db: No such file or
directory
I have no idea what the 'warn "@{[stat $dbloc]}";' line Xho suggested
does, so if the answer is obvious from that output, I apologize for my
lack of Perl skills.
Thanks,
Janna
xhos...@gmail.com wrote:
> "Janna" <jehutz@artsci.wustl.edu> wrote:
> ...
> >
> > Here's where it gets interesting. If the user specifies options such
> > that the EXP block is run by itself, or in any combination with the CON
> > and ASSOC blocks, everything's fine. If, however, the LIT block
> > executes, I get an error message that *starts with* "Cannot open this
> > file /data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db:" If the
> > program is running interactively, there's no further information. If
> > it's running with options specified at the command line, following the
> > colon in the original error message is "No such file or directory".
> ...
>
>
> >
> > EXP block
> > unless ($expweight == 0) {
> > my %tissuehash;
> > foreach (my $count=0; $count<@exptissues; $count++) {
> > $tissuehash{$exptissues[$count]} = 1;}
> > # Load exphash
> > my $dbloc = "/data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db";
> > my %exphash;
> > my $expdb = tie %exphash, "DB_File", $dbloc, O_RDWR|O_CREAT, 0640,
> > $DB_BTREE or die "Cannot open this file $dbloc: $!\n";
>
> Add some additional diagnostic things here.
>
> my $expdb = tie %exphash, "DB_File", $dbloc, O_RDWR|O_CREAT, 0640,
> $DB_BTREE or do {
> warn "-e ", -e $dbloc, " -f ", -f $dbloc;
> warn "@{[stat $dbloc]}";
> die "Cannot open this file $dbloc: $!\n";
> };
>
>
>
> >
> > undef $expdb;
> > untie %exphash;
> > }
> >
> > There's more code I can include if needed, and I've chopped out the
> > guts of each block where the operations with the hashes are performed.
>
> Have you run the program with those guts chopped out to see if the error
> reproduces that way?
>
> Xho
>
> --
> -------------------- http://NewsReader.Com/ --------------------
> Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Thu, 11 Jan 2007 19:23:21 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: DB_File tie error
Message-Id: <45a6e258$0$704$815e3792@news.qwest.net>
Janna wrote:
[...]
> As I said before, it requires $expweight AND $litweight to be nonzero
> in order to reproduce the error. If $expweight is nonzero and
> $litweight and $conweight are both 0, the error does not occur.
> Likewise, if $litweight and $conweight are nonzero, but $expweight is
> 0, the error does not occur.
It's occurring on the humanexp.db file, so you can narrow it down to:
use Fcntl;
use DB_File;
use strict;
use warnings;
$DB_BTREE->{'flags'} = R_DUP;
my $dbloc = '/data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db';
my %exphash;
my $expdb = tie %exphash, "DB_File", $dbloc, O_RDWR|O_CREAT, 0640,
$DB_BTREE or do {
warn "-e ", -e $dbloc, " -f ", -f $dbloc;
warn "@{[stat $dbloc]}";
die "Cannot open this file $dbloc: $!\n";
};
Does that fail too?
>
> When I run the program as above ($expweight and $litweight = 1), this
> is what I get as the output:
> -e 1 -f 1 at ./gutless.pl line 704.
> 2067 7372805 33188 1 1067 1067 0 87662592 1168557177 1168538256
> 1168538256 4096 171392 at ./gutless.pl line 705.
> Cannot open this file
> /data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db: No such file or
> directory
>
> I have no idea what the 'warn "@{[stat $dbloc]}";' line Xho suggested
> does, so if the answer is obvious from that output, I apologize for my
> lack of Perl skills.
perldoc -f stat
Is that file a DBM file?
Run the following, from your command line, and show us the output:
file /data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db
file /data3/mcleod.3/aldi/janna/candid/BUILD2/totalpubs.db
Also, for fun,
ls -l /data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp.db
ls -l /data3/mcleod.3/aldi/janna/candid/BUILD2/totalpubs.db
ls -l /data3/mcleod.3/aldi/janna/candid/BUILD2/humanexp*
If that file is a text file, or a non-DBM file, you should
get a different error, but the output from ls and file
might help diagnose the issue.
It might be an issue with how it was created, maybe a
different DBM version, different OS, etc. Maybe it wasn't
created with R_DUP? I don't know, just throwing out
possible problems.
------------------------------
Date: 11 Jan 2007 15:06:09 -0800
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: if (! mkdir $dir)
Message-Id: <1168556768.704920.37600@k58g2000hse.googlegroups.com>
j...@yahoo.com wrote:
>
> if (! mkdir $dir)
>
> When I try to run this code no matter what I set $dir to it fails with:
> Not enough arguments for mkdir at test.pl line 11, near "$dir ) "
> Execution of test.pl aborted due to compilation errors.
If you're using an older version of Perl, the mkdir() function may
be expecting a MASK parameter. Type "perldoc -f mkdir" to see if this
additional parameter is required (which I suspect is the case).
If that's the case, try changing your line to:
if (! mkdir $dir, 0777)
and see if that works.
I hope this helps, Zim.
-- Jean-Luc
------------------------------
Date: Thu, 11 Jan 2007 23:33:09 GMT
From: Fei Liu <feiliu@aepnetworks.com>
Subject: keys %hash without destory element order
Message-Id: <45A6C94F.3090100@aepnetworks.com>
Hi Group, what should I do to keep the order of elements in a hash when
I iterate through it? Example:
Code:
%hash = (a, b, c, d, e, f, ca, cb);
foreach (keys %hash){ print "$_ => $hash{$_}\n"; }
Result:
e => f
c => d
a => b
ca => cb
How to make it output:
a => b
c => d
e => f
ca => cb
Thanks,
------------------------------
Date: Thu, 11 Jan 2007 23:39:42 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: keys %hash without destory element order
Message-Id: <2Vzph.150299$hn.106602@edtnps82>
Fei Liu wrote:
> Hi Group, what should I do to keep the order of elements in a hash when
> I iterate through it? Example:
>
> Code:
Don't forget to include:
use warnings;
use strict;
> %hash = (a, b, c, d, e, f, ca, cb);
Don't use barewords, quote your strings.
my %hash = ( 'a', 'b', 'c', 'd', 'e', 'f', 'ca', 'cb' );
Or:
my %hash = qw( a b c d e f ca cb );
> foreach (keys %hash){ print "$_ => $hash{$_}\n"; }
>
> Result:
> e => f
> c => d
> a => b
> ca => cb
>
> How to make it output:
> a => b
> c => d
> e => f
> ca => cb
my %hash = qw( a b c d e f ca cb );
my @order = qw( a c e ca );
for my $key ( @order ) {
print "$key => $hash{$key}\n";
}
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: 11 Jan 2007 15:52:08 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: keys %hash without destory element order
Message-Id: <1168559527.857770.278990@i56g2000hsf.googlegroups.com>
Fei Liu wrote:
> Hi Group, what should I do to keep the order of elements in a hash when
> I iterate through it? Example:
You're confused. There *is no order* in a hash. There's no order to
keep.
If you'd like to use a structure that pretends to be a hash, but also
has an order, download the Tie::IxHash module from CPAN
Please see:
http://search.cpan.org/~gsar/Tie-IxHash-1.21/lib/Tie/IxHash.pm
perldoc -q cpan
perldoc perlmodinstall
Paul Lalli
------------------------------
Date: Fri, 12 Jan 2007 00:12:30 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: keys %hash without destory element order
Message-Id: <OnAph.8503$312.990@trndny02>
Fei Liu wrote:
> Hi Group, what should I do to keep the order of elements in a hash
There is no such thing as the order of elements in a hash.
jue
------------------------------
Date: Fri, 12 Jan 2007 01:19:19 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: keys %hash without destory element order
Message-Id: <eo6nvt.1n4.1@news.isolution.nl>
Fei Liu schreef:
> Hi Group, what should I do to keep the order of elements in a hash
> when I iterate through it? Example:
>
> Code:
> %hash = (a, b, c, d, e, f, ca, cb);
> foreach (keys %hash){ print "$_ => $hash{$_}\n"; }
>
> Result:
> e => f
> c => d
> a => b
> ca => cb
>
> How to make it output:
> a => b
> c => d
> e => f
> ca => cb
If your order is an algorithm, like: "first by length, then
alphabetical", then you can use sort.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 11 Jan 2007 16:33:45 -0800
From: "gf" <greg.ferguson@icrossing.com>
Subject: Re: keys %hash without destory element order
Message-Id: <1168562025.636983.31260@s34g2000cwa.googlegroups.com>
John W. Krahn wrote:
> my %hash = qw( a b c d e f ca cb );
> my @order = qw( a c e ca );
>
> for my $key ( @order ) {
> print "$key => $hash{$key}\n";
> }
I tend to go at it a bit backwards to this...
my @order = qw( a c e ca);
my %hash;
@hash{@order} = qw(b d f cb);
Or just for a bit easier maintenance because the keys and values are
easily aligned and checked visually...
my @keys = qw( a c e ca );
my @values = qw( b d f cb );
my %hash;
@hash{@keys} = @values;
Then iterate through @keys however is desired and do the lookups in
%hash as normal. It's not much different, but on hashes where you've
absolutely got to retrieve keys in a certain order it works well.
For big hashes it's unweildy to maintain though so I use an alternative
of a dynamically built hash of hashes with the secondary hash
containing a key that is the order to use and look at that value in an
inline sort {}. It's a bit uglier for static lists of values but works
nicely if you don't know how many elements there's going to be.
Shootin' from the hip here...
use strict;
use warnings;
my %hash;
my $order = 0;
# gather some arbitrary data...
foreach ( 'A' .. 'Z' )
{
$hash{$_} = {
'order' => $order++, # ...remember the order...
'value' => ord($_) # ...remember the related value...
};
}
# now walk through the keys, put them back in order...
foreach ( sort { $hash{$a}->{'order'} <=> $hash{$b}->{'order'} } keys
%hash )
{
print $_, ' => ', $hash{$_}->{'value'}, "\n"; # ...and print the
values.
}
Or something like that.
------------------------------
Date: Fri, 12 Jan 2007 02:21:20 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: keys %hash without destory element order
Message-Id: <f4sdq2d1p0ve9kcug8b2srdm5colkc6arj@4ax.com>
Paul Lalli wrote:
>If you'd like to use a structure that pretends to be a hash, but also
>has an order, download the Tie::IxHash module from CPAN
Or its XS sibling, Tie::Hash::Indexed.
--
Bart.
------------------------------
Date: Fri, 12 Jan 2007 05:42:13 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Jan 12 2007
Message-Id: <JBqqID.1EAv@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.
CGI-Application-Dispatch-2.10_02
http://search.cpan.org/~wonko/CGI-Application-Dispatch-2.10_02/
Dispatch requests to CGI::Application based objects
----
Config-Model-0.606
http://search.cpan.org/~ddumont/Config-Model-0.606/
Model to create configuration validation tool
----
DBIx-Class-0.07005
http://search.cpan.org/~jrobinson/DBIx-Class-0.07005/
Extensible and flexible object <-> relational mapper.
----
DBIx-CopyRecord-0.002
http://search.cpan.org/~jackb/DBIx-CopyRecord-0.002/
Perl module for copying records in databases within same table including all child tables;
----
DBIx-CopyRecord-0.003
http://search.cpan.org/~jackb/DBIx-CopyRecord-0.003/
Perl module for copying records in databases within same table including all child tables;
----
DBIx-HA-0.99-1
http://search.cpan.org/~hasseily/DBIx-HA-0.99-1/
High Availability package for DBI
----
DBIx-Web-0.66
http://search.cpan.org/~makarow/DBIx-Web-0.66/
Active Web Database Layer
----
Data-Float-0.004
http://search.cpan.org/~zefram/Data-Float-0.004/
details of the floating point data type
----
Devel-FindRef-0.1
http://search.cpan.org/~mlehmann/Devel-FindRef-0.1/
where is that reference to my scalar hiding?
----
EnsEMBL-Web-Record-1.00
http://search.cpan.org/~mjw/EnsEMBL-Web-Record-1.00/
A family of modules used for representing and storing a user's persistant data.
----
GD-Graph-Thermometer-0.03
http://search.cpan.org/~hesco/GD-Graph-Thermometer-0.03/
Generate progress graph on the fly
----
GD-Graph-Thermometer-0.04
http://search.cpan.org/~hesco/GD-Graph-Thermometer-0.04/
Generate progress graph on the fly
----
Games-FEAR-Log-0.01
http://search.cpan.org/~evank/Games-FEAR-Log-0.01/
Log analysis tool for F.E.A.R. dedicated servers
----
LaTeX-Pod-0.09
http://search.cpan.org/~schubiger/LaTeX-Pod-0.09/
Transform LaTeX source files to POD (Plain old documentation)
----
Mail-Mbox-MessageParser-1.5000
http://search.cpan.org/~dcoppit/Mail-Mbox-MessageParser-1.5000/
A fast and simple mbox folder reader
----
Math-Random-MT-1.05
http://search.cpan.org/~ams/Math-Random-MT-1.05/
The Mersenne Twister PRNG
----
Math-Random-MT-1.06
http://search.cpan.org/~ams/Math-Random-MT-1.06/
The Mersenne Twister PRNG
----
Math-Random-MT-1.07
http://search.cpan.org/~ams/Math-Random-MT-1.07/
The Mersenne Twister PRNG
----
Net-FTP-Common-6.0
http://search.cpan.org/~tbone/Net-FTP-Common-6.0/
simplify common usages of Net::FTP
----
Net-SIP-0.11
http://search.cpan.org/~sullr/Net-SIP-0.11/
Framework SIP (Voice Over IP, RFC3261)
----
Net-SIP-0.12
http://search.cpan.org/~sullr/Net-SIP-0.12/
Framework SIP (Voice Over IP, RFC3261)
----
Win32-Process-Info-1.007
http://search.cpan.org/~wyant/Win32-Process-Info-1.007/
Provide process information for Windows 32 systems.
----
YAPE-Regex-3.03
http://search.cpan.org/~pinyan/YAPE-Regex-3.03/
Yet Another Parser/Extractor for Regular Expressions
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: Thu, 11 Jan 2007 21:28:27 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Parsing an XML file and adding another tag, if the tag is not available / the value is null
Message-Id: <slrneqe02r.ko7.tadmc@tadmc30.august.net>
P <pannbu79@gmail.com> wrote:
> I still have an issue, I can't use XML::Twig, it is not provided with
^^^^^^^^^^^^
> the version of the UNIX we use here,
Then install it!
[ snip TOFU, please do not top-post ]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 11 Jan 2007 21:36:09 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Perl 5.00404 - Label not found for "next " , next() function
Message-Id: <slrneqe0h9.ko7.tadmc@tadmc30.august.net>
Liora <liora.keller@gmail.com> wrote:
> Do I have any environment variables set before I run perl?
We do not have access to your environment.
You do have access to your environment.
Who do you suppose has a better chance of knowing what is
in your environment?
>> > Any idea why perl can not see this function?
Probably because it is not a function.
>> Also, it's 'next;', not 'next();'.
Did you try that?
>> perldoc -f next
Or that?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Jan 2007 16:43:24 -0800
From: "gf" <greg.ferguson@icrossing.com>
Subject: Re: Perl DBI PostgreSQL
Message-Id: <1168562603.545550.231480@q2g2000cwa.googlegroups.com>
raminoacid wrote:
> Hi,
>
> I'm using Perl's DBI package to connect to a PostgreSQL database.
> Everything works fine except the annoying DEBUG: output for each DB
> operation. This is not the same as tracing since the later can be
> disabled. For instance, the following output can be seen in my
> terminal:
[...]
> Is there anyway to disable this. I need to parse my output file and I'd
> like to have a light-weight file rather a file with lots of garbage.
Please show a sample of your connect() call, along with all the
parameters used.
------------------------------
Date: Thu, 11 Jan 2007 18:49:02 -0500
From: "Jim Carlock" <anonymous@127.0.0.1>
Subject: Re: Perl free e-books
Message-Id: <45a6cceb$0$16667$4c368faf@roadrunner.com>
"John Bokma" <john@castleamber.com> stated...
: Don't top post.
: Don't post using HTML, fix the settings of your news client.
Shuo,
What John is saying...
Inside of Outlook Express...
Click on Tools, then Options, wait for the dialog of settings to
appear. Then click on the Send tab.
Look down at the bottom where it says News Sending Format,
and make sure Plain Text is selected. If it's not selected, select it.
Also, one other thing you might want to consider...
Click upon the Read tab and make sure there's a check mark
next to "Read all messages in plain text". If that's not selected
you're inviting your system open to all sorts cotastrophes.
Hope this helps.
--
Jim Carlock
------------------------------
Date: Fri, 12 Jan 2007 13:47:05 +0800
From: "Shuo Shi" <moya0901@126.com>
Subject: Re: Perl free e-books
Message-Id: <eo76lf$3ld$1@az33news01.freescale.net>
Yes, it is just what I want to read the hard copies of books, so I should
buy the books from bookstore, however, I am in China, I cannot find any good
book about Perl, whatever is from bookstore or online shop. Frankly
speaking, Perl is not very popular and welcomed by programmers in China, all
books in bookstore's shelves are about C++, Java, VB.net etc--- no good
books are available to see. If you don't believe it, you can come to China
to see what happens to Perl here?
So I need your help to get online free book which owns PDF format, and then
print it book.
Regards,
Shuo
"John Bokma" <john@castleamber.com> wrote in message
news:Xns98B57A19FCB0Ecastleamber@130.133.1.4...
> "Shuo Shi" <moya0901@126.com> wrote:
>
>> John,It is very nice of you! I am moving by your kindness.
>
> And I am, sadly, moved by your ignorance.
>
> Don't top post
> Don't reply using HTML
>
>> However, I
>> tried to look through the material from your below link, it is still
>> not pdf format, and the pdf book which you refer to is not real what I
>> want,
>
> It's clear that you want a professional book in PDF format. There are a
> few free, but I guess that the one you want is a book that you have to pay
> for. Like I wrote earlier on, then pay for it, or borrow it. By paying you
> indirectly support the Perl community. By downloading it you don't.
>
> If you are not able to find a pdf file other then by begging in a Perl
> group I don't have much hope for your programming capabilities.
>
> IMO a part of programming involves ethics. And while I think it's not a
> problem to glimpse over a downloaded pirated book once in a while, like I
> think (note the I) to listen to downloaded music in a while isn't going to
> kill the music industry.
>
> But I also do think that buying a book (or CDs / DVDs) is a good thing.
> And if more ebooks become available without weird limiting protection
> schemes I am sure to buy those instead of the paper version if the price
> is right. People who pirate somehow make publishers willing to do so panic
> here and there. While this might not be justified, I mean, pirated books
> do happen. And protection is pissing customers off, while pirates already
> have the unprotected version in a torrent or two.
>
> Buying books might make this happen:
> http://www.apress.com/free/index.html
>
>
> As for Perl, there is plenty of /good/ and /free/ material out there. The
> non-free material is often written by professionals that have been
> supporting the Perl community for years. Show some respect, sooner then
> you expect it will be paying back.
>
> --
> John Experienced Perl programmer: http://castleamber.com/
>
> Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 12 Jan 2007 01:49:48 -0500
From: Uri Guttman <uri@stemsystems.com>
To: "Shuo Shi" <moya0901@126.com>
Subject: Re: Perl free e-books
Message-Id: <x7zm8owxgz.fsf@mail.sysarch.com>
>>>>> "SS" == Shuo Shi <moya0901@126.com> writes:
SS> Yes, it is just what I want to read the hard copies of books, so I
SS> should buy the books from bookstore, however, I am in China, I
SS> cannot find any good book about Perl, whatever is from bookstore
SS> or online shop. Frankly speaking, Perl is not very popular and
SS> welcomed by programmers in China, all books in bookstore's shelves
SS> are about C++, Java, VB.net etc--- no good books are available to
SS> see. If you don't believe it, you can come to China to see what
SS> happens to Perl here? So I need your help to get online free book
SS> which owns PDF format, and then print it book.
are you reading the responses? i told you about a free IN PDF book you
can print. also i told you how to print the perl docs. you don't need
pdf to print them. you have this obession about pdf which makes no sense
as you can print from many formats.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 12 Jan 2007 06:55:56 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Perl free e-books
Message-Id: <Xns98B697AC952Ecastleamber@130.133.1.4>
"Shuo Shi" <moya0901@126.com> wrote:
> Yes, it is
Another top post. Please google for top post and learn why it's not a good
way to reply.
> just what I want to read the hard copies of books, so I
> should buy the books from bookstore, however, I am in China, I cannot
> find any good book about Perl,
I have given you several tips on *free* documentation you can read. You're
having a non-problem.
> whatever is from bookstore or online
> shop. Frankly speaking, Perl is not very popular and welcomed by
> programmers in China, all books in bookstore's shelves are about C++,
> Java, VB.net etc--- no good books are available to see. If you don't
> believe it, you can come to China to see what happens to Perl here?
I live in Mexico, and can't hardly read Spanish, so I understand that part
of the story. I solved it by doing some Perl work in exchange for book(s)
for people with a very small budget, TANSTAAFL, and it makes me happy. I
got Higher Order Perl that way (which you can also download for free by
the way).
> So I need your help to get online free book which owns PDF format, and
> then print it book.
Like others said, the format doesn't matter, PDF, CHM, plain text.
Perl comes with excellent documentation, you can download PDF versions
from: http://perldoc.perl.org/perl.html Just pick what you want to learn.
Or you can keep asking for a certain book from Wrox press. But I doubt
anyone here is going to send it to you by email. In my opinion if you want
to become a programmer you must be able to solve such a task yourself, or
stand above it, and go with the standard documentation. I have read a few
of those documents myself, and while they are together not an easy to read
book (several authors, etc), the info is there, and more.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 12 Jan 2007 08:14:54 +0100
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Problem using SWIG with perl
Message-Id: <45a7356c$0$5717$9b4e6d93@newsspool3.arcor-online.net>
None wrote:
> Hi,
>
> I was trying to use SWIG to expose some C++ functions to perl. But, I
> ran into some issues here. I don't know why, but I see that a macro in
> SWIG replaces "NORMAL" with "PL_op->op_next"...
Yes, NORMAL is defined in the Perl core (file pp.h). So you
will have to change the name to make it work. Of course it could
be discussed if using a name like that in the core was really
a wise idea in the first place, or if a more specific naming
convention would have been better (like e.g. PPNORMAL).
-Chris
------------------------------
Date: Thu, 11 Jan 2007 23:44:59 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: regex
Message-Id: <eo6ifp.1h4.1@news.isolution.nl>
Arved Sandstrom schreef:
> I'm still not a big fan of how "Abigail" answers many questions, and I
> certainly stand by my assertion that I'd not want him/her as a member
> of any programming team that I'm on, except at a high consulting rate
> for a 2-3 hour session to shake up some programmers. That opinion is
> based on years of seeing what "Abigail" posts.
LOL, I only know Abigail as a friendly person, who helped me plenty in
this group when I started using Perl.
I'll leave it to others to comment on inside-out objects and
Regexp::Common and his educational presentations and so on.
:)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
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 16
*************************************
