[30748] in Perl-Users-Digest
Perl-Users Digest, Issue: 1993 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 20 11:09:45 2008
Date: Thu, 20 Nov 2008 08:09:09 -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 Thu, 20 Nov 2008 Volume: 11 Number: 1993
Today's topics:
Re: Connect to multiple unix servers <mvdwege.usenet@wanadoo.nl>
debug cgi programs with post forms <michaelgang@gmail.com>
Re: debug cgi programs with post forms <sopan.shewale@gmail.com>
Re: debug cgi programs with post forms <smallpond@juno.com>
Re: How to find all the strings in a long that are at m <tadmc@seesig.invalid>
Re: How to find all the strings in a long that are at m <cwilbur@chromatico.net>
Re: How to find all the strings in a long that are at m <PengYu.UT@gmail.com>
Re: How to find all the strings in a long that are at m <someone@example.com>
Re: How to find all the strings in a long that are at m <PengYu.UT@gmail.com>
Re: How to find all the strings in a long that are at m <PengYu.UT@gmail.com>
Re: How to find all the strings in a long that are at m <pilcrow6@gmail.com>
new CPAN modules on Thu Nov 20 2008 (Randal Schwartz)
Re: OpenOffice Spreadsheet <grehom@ntlworld.com>
Re: Perl module for managing user groups (UNIX) <whynot@pozharski.name>
Re: subroutine local variable with initialization <nobull67@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 20 Nov 2008 08:45:31 +0100
From: Mart van de Wege <mvdwege.usenet@wanadoo.nl>
Subject: Re: Connect to multiple unix servers
Message-Id: <86tza2kfhg.fsf@gareth.avalon.lan>
"C.DeRykus" <ced@blv-sam-01.ca.boeing.com> writes:
> On Nov 19, 9:00 am, Mart van de Wege
> ...
>> >> From windows, I need to
>> >> connect to one unix server, execute some commands, logout from that
>> >> box then move onto the next box and repeat the process all over again.
>>
>> > Net::Telnet?
>>
>> Telnet is deprecated.
>> ...
>
> Net::Telnet can be useful running over an ssh connection to change
> passwords however.
Well yeah. There is equipment out there that doesn't speak SSH yet, so
Telnet-over-SSH is a decent solution for that.
OTOH, for the parent use case, Telnet is definitely deprecated.
Mart
--
"We will need a longer wall when the revolution comes."
--- AJS, quoting an uncertain source.
------------------------------
Date: Thu, 20 Nov 2008 01:38:12 -0800 (PST)
From: david <michaelgang@gmail.com>
Subject: debug cgi programs with post forms
Message-Id: <ed7aadcb-c1f4-496b-b82d-82e6c6cbf1ac@k41g2000yqn.googlegroups.com>
Hi all,
How do i debug cgi programs where the html contains a post form ?
If it contains a get form it is easy because i can run perl -d from
the command line.
In this case i have a very large form with many variables and it is a
post form.
How can i debug it ?
I made a google search and found answers like printing the environment
variables and then run it like a get command with perl -d but this is
a bit tedious.
Is there a "best practice" for this type of problem ?
Thanks in advance,
David
------------------------------
Date: Thu, 20 Nov 2008 02:02:26 -0800 (PST)
From: "sopan.shewale@gmail.com" <sopan.shewale@gmail.com>
Subject: Re: debug cgi programs with post forms
Message-Id: <83f96fa8-2775-4ba0-b39d-6def7937a093@s9g2000prm.googlegroups.com>
Try using Data::Dumper module.
--------
use CGI;
use Data::Dumper;
my $query=3D new CGI();
print $query->header();
print Data::Dumper->Dump([$query]);
----------
This should give you all information into your browser.
-Sopan Shewale
(http://sopanshewale.blogspot.com)
On Nov 20, 2:38=A0pm, david <michaelg...@gmail.com> wrote:
> Hi all,
>
> How do i debug cgi programs where the html contains a post form ?
> If it contains a get form it is easy because i can run perl -d from
> the command line.
> In this case i have a very large form with many variables and it is a
> post form.
> How can i debug it ?
> I made a google search and found answers like printing the environment
> variables and then run it like a get command with perl -d but this is
> a bit tedious.
> Is there a "best practice" for this type of problem ?
>
> Thanks in advance,
> David
------------------------------
Date: Thu, 20 Nov 2008 07:27:17 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: debug cgi programs with post forms
Message-Id: <57bec833-642e-4350-ab3a-01926e9ff56f@j35g2000yqh.googlegroups.com>
On Nov 20, 4:38 am, david <michaelg...@gmail.com> wrote:
> Hi all,
>
> How do i debug cgi programs where the html contains a post form ?
> If it contains a get form it is easy because i can run perl -d from
> the command line.
> In this case i have a very large form with many variables and it is a
> post form.
> How can i debug it ?
> I made a google search and found answers like printing the environment
> variables and then run it like a get command with perl -d but this is
> a bit tedious.
> Is there a "best practice" for this type of problem ?
>
> Thanks in advance,
> David
http://search.cpan.org/dist/CGI.pm/CGI.pm#DEBUGGING
CGI has a -debug mode that should allow you to emulate POST input
from
the command line. I haven't tried it, so I have no idea what it does
about the CONTENT_LENGTH stuff. The alternative would be to set
CONTENT_LENGTH and open a file of your POST data on STDIN.
------------------------------
Date: Wed, 19 Nov 2008 22:15:09 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <slrngi9p2d.ji7.tadmc@tadmc30.sbcglobal.net>
Peng Yu <PengYu.UT@gmail.com> wrote:
> I can not find what '$-[$i]' means in your code
It is accessing the array named @-
> on online perl
> documentation. Would you please let me know its meaning? Where is its
> documentation?
perldoc perlvar
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 20 Nov 2008 09:52:46 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <867i6yh2kh.fsf@mithril.chromatico.net>
>>>>> "PY" == Peng Yu <PengYu.UT@gmail.com> writes:
PY> BTW, I'd think that the perldoc be made more readable for
PY> newbies. I'm not sure whether other newbies would have the same
PY> feeling.
There's a tradeoff between making the perldocs more readable for newbies
and making them more information-dense for experts. There are other
sources of documentation for newbies, but precious few for experts, and
so I think the perldocs are at a very sweet spot.
Further, you can learn more about Perl by following up on everything in
the documentation that you don't understand. Indeed, that's how many of
us learned as much as we did.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Wed, 19 Nov 2008 18:52:40 -0800 (PST)
From: Peng Yu <PengYu.UT@gmail.com>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <52e1c5d8-6c5a-439f-a3be-ed4a13d6aef9@v4g2000yqa.googlegroups.com>
On Nov 19, 7:55=A0pm, s...@netherlands.com wrote:
> On Wed, 19 Nov 2008 15:34:17 -0800 (PST), Peng Yu <PengYu...@gmail.com> w=
rote:
> >Hi,
>
> >Suppose I have a long string $a, and a test string $b.
>
> >I want to fine all the substrings in $a, whose length is the same as
> >$b with at most n mismatches.
>
> >For example, string 'abcdef' and string 'aacdxf' have two mismatches
> >at the 2nd character and the 5th character.
>
> >I'm wondering if this can be done easily in perl. Can I use regular
> >expression to solve this problem?
>
> >Thanks,
> >Peng
>
> Not easily, and probably fairly slow.
> You need some heuristic algorithym.
>
> sln
>
> ----------------------------
>
> use strict;
> use warnings;
>
> my $str =A0 =A0 =3D 'aacdxfo =A0 sdfbsabcrxfodfbdfb';
> my $pattern =3D 'abcdef';
> my $misses =A0=3D 2;
>
> my @tmp =3D split '',$pattern;
> my $pstr;
> for (@tmp) {
> =A0 =A0 =A0 =A0 $pstr .=3D "(?:$_|(.))";}
>
> $pstr =3D '('.$pstr.')';
> my $rxpattern =3D qr/$pstr/i;
>
> print @tmp,"\n",$rxpattern,"\n\n";
>
> while ($str =3D~ /$rxpattern/g )
> {
> =A0 =A0 =A0 =A0 my $cnt =3D 0;
> =A0 =A0 =A0 =A0 for my $i (2..(@tmp+1)) {
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 last if (($cnt +=3D defined( $-[$i])) > $=
misses);
> =A0 =A0 =A0 =A0 }
> =A0 =A0 =A0 =A0 if ($cnt > $misses) {
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 pos($str) =3D $-[0]+1;
> =A0 =A0 =A0 =A0 } else {
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "$cnt bad chars, but found a close =
match: '$1'\n";
> =A0 =A0 =A0 =A0 }
>
> }
>
> __END__
>
> abcdef
> (?i-xsm:((?:a|(.))(?:b|(.))(?:c|(.))(?:d|(.))(?:e|(.))(?:f|(.))))
>
> 2 bad chars, but found a close match: 'aacdxf'
> 2 bad chars, but found a close match: 'abcrxf'
Hi,
I can not find what '$-[$i]' means in your code on online perl
documentation. Would you please let me know its meaning? Where is its
documentation?
Thanks,
Peng
Thanks,
Peng
------------------------------
Date: Wed, 19 Nov 2008 22:19:01 -0800
From: "John W. Krahn" <someone@example.com>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <pj7Vk.37$jd3.9@newsfe21.iad>
Peng Yu wrote:
> On Nov 19, 7:55 pm, s...@netherlands.com wrote:
>>
>> use strict;
>> use warnings;
>>
>> my $str = 'aacdxfo sdfbsabcrxfodfbdfb';
>> my $pattern = 'abcdef';
>> my $misses = 2;
>>
>> my @tmp = split '',$pattern;
>> my $pstr;
>> for (@tmp) {
>> $pstr .= "(?:$_|(.))";}
>>
>> $pstr = '('.$pstr.')';
>> my $rxpattern = qr/$pstr/i;
>>
>> print @tmp,"\n",$rxpattern,"\n\n";
>>
>> while ($str =~ /$rxpattern/g )
>> {
>> my $cnt = 0;
>> for my $i (2..(@tmp+1)) {
>> last if (($cnt += defined( $-[$i])) > $misses);
>> }
>> if ($cnt > $misses) {
>> pos($str) = $-[0]+1;
>> } else {
>> print "$cnt bad chars, but found a close match: '$1'\n";
>> }
>> }
>>
>> __END__
>
> I can not find what '$-[$i]' means in your code on online perl
> documentation. Would you please let me know its meaning? Where is its
> documentation?
You can find out about the @- array in:
perldoc perlvar
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: Thu, 20 Nov 2008 05:54:27 -0800 (PST)
From: Peng Yu <PengYu.UT@gmail.com>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <8f31f2be-e332-4d6d-a5ad-337e18208809@o2g2000yqd.googlegroups.com>
On Nov 20, 12:19=A0am, "John W. Krahn" <some...@example.com> wrote:
> Peng Yu wrote:
> > On Nov 19, 7:55 pm, s...@netherlands.com wrote:
>
> >> use strict;
> >> use warnings;
>
> >> my $str =A0 =A0 =3D 'aacdxfo =A0 sdfbsabcrxfodfbdfb';
> >> my $pattern =3D 'abcdef';
> >> my $misses =A0=3D 2;
>
> >> my @tmp =3D split '',$pattern;
> >> my $pstr;
> >> for (@tmp) {
> >> =A0 =A0 =A0 =A0 $pstr .=3D "(?:$_|(.))";}
>
> >> $pstr =3D '('.$pstr.')';
> >> my $rxpattern =3D qr/$pstr/i;
>
> >> print @tmp,"\n",$rxpattern,"\n\n";
>
> >> while ($str =3D~ /$rxpattern/g )
> >> {
> >> =A0 =A0 =A0 =A0 my $cnt =3D 0;
> >> =A0 =A0 =A0 =A0 for my $i (2..(@tmp+1)) {
> >> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 last if (($cnt +=3D defined( $-[$i])) =
> $misses);
> >> =A0 =A0 =A0 =A0 }
> >> =A0 =A0 =A0 =A0 if ($cnt > $misses) {
> >> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 pos($str) =3D $-[0]+1;
> >> =A0 =A0 =A0 =A0 } else {
> >> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "$cnt bad chars, but found a clo=
se match: '$1'\n";
> >> =A0 =A0 =A0 =A0 }
> >> }
>
> >> __END__
>
> > I can not find what '$-[$i]' means in your code on online perl
> > documentation. Would you please let me know its meaning? Where is its
> > documentation?
>
> You can find out about the @- array in:
>
> perldoc perlvar
It seems that the perldoc is not easy to understand by a newbie. While
it explains @-, the perldoc keeps on referring to others things that I
don't understand. Can somebody help explain @- for me with more
examples?
BTW, I'd think that the perldoc be made more readable for newbies. I'm
not sure whether other newbies would have the same feeling.
Thanks,
Peng
------------------------------
Date: Thu, 20 Nov 2008 06:28:29 -0800 (PST)
From: Peng Yu <PengYu.UT@gmail.com>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <507eb197-9641-475c-ae52-f7dea1c77cbe@w22g2000yqd.googlegroups.com>
On Nov 20, 8:07=A0am, Pilcrow <pilcr...@gmail.com> wrote:
> On Wed, 19 Nov 2008 15:34:17 -0800 (PST), Peng Yu <PengYu...@gmail.com>
> wrote:
>
> >Hi,
>
> >Suppose I have a long string $a, and a test string $b.
>
> >I want to fine all the substrings in $a, whose length is the same as
> >$b with at most n mismatches.
>
> >For example, string 'abcdef' and string 'aacdxf' have two mismatches
> >at the 2nd character and the 5th character.
>
> >I'm wondering if this can be done easily in perl. Can I use regular
> >expression to solve this problem?
>
> >Thanks,
> >Peng
>
> Not too hard the simple way.
> -------------------------------------------------------------------
> #!/usr/bin/perl
> use strict; use warnings;
>
> my $a =3D
> "abcdefbacdefabbdefaaaaacdxfaaacdefcdefbacdefabbdefaaaaacdxfaaacdefaacdxf=
aacdfx";
> my $b =3D "aacdxf";
>
> my @a =3D split //,$a;
> my @b =3D split //,$b;
> my $limit =3D 2;
> my $cnt;
> my $lenb =3D length $b;
> my @substrings =3D ();
>
> print "\nmatching '$a' against '$b'\n";
>
> OUTER:
> for (my $i =3D 0; $i <=3D $#a-$lenb+1; $i++) {
> =A0 =A0 $cnt =3D 0;
> =A0 =A0 for (my $j =3D 0; $j <=3D $#b; $j++) {
> =A0 =A0 =A0 =A0 $cnt++ unless $a[$i+$j] eq $b[$j];
> =A0 =A0 =A0 =A0 next OUTER if $cnt > $limit;
> =A0 =A0 }
> =A0 =A0 my $sub =3D substr($a,$i,$lenb);
> # =A0 =A0push @substrings, $sub; =A0 =A0 =A0 =A0 =A0 =A0# alternate outpu=
t
> =A0 =A0 print "match '$sub' at offset $i\n";
>
> }
>
> __END__
If $a could be very long, say, of the order of MB, will this approach
be much slower than the code given by sln?
Thanks,
Peng
------------------------------
Date: Thu, 20 Nov 2008 06:07:32 -0800
From: Pilcrow <pilcrow6@gmail.com>
Subject: Re: How to find all the strings in a long that are at most of n different characters of a test string?
Message-Id: <ihrai4129pqq6spqh4oe9fvtbqpj40vicq@4ax.com>
On Wed, 19 Nov 2008 15:34:17 -0800 (PST), Peng Yu <PengYu.UT@gmail.com>
wrote:
>Hi,
>
>Suppose I have a long string $a, and a test string $b.
>
>I want to fine all the substrings in $a, whose length is the same as
>$b with at most n mismatches.
>
>For example, string 'abcdef' and string 'aacdxf' have two mismatches
>at the 2nd character and the 5th character.
>
>I'm wondering if this can be done easily in perl. Can I use regular
>expression to solve this problem?
>
>Thanks,
>Peng
Not too hard the simple way.
-------------------------------------------------------------------
#!/usr/bin/perl
use strict; use warnings;
my $a =
"abcdefbacdefabbdefaaaaacdxfaaacdefcdefbacdefabbdefaaaaacdxfaaacdefaacdxfaacdfx";
my $b = "aacdxf";
my @a = split //,$a;
my @b = split //,$b;
my $limit = 2;
my $cnt;
my $lenb = length $b;
my @substrings = ();
print "\nmatching '$a' against '$b'\n";
OUTER:
for (my $i = 0; $i <= $#a-$lenb+1; $i++) {
$cnt = 0;
for (my $j = 0; $j <= $#b; $j++) {
$cnt++ unless $a[$i+$j] eq $b[$j];
next OUTER if $cnt > $limit;
}
my $sub = substr($a,$i,$lenb);
# push @substrings, $sub; # alternate output
print "match '$sub' at offset $i\n";
}
__END__
matching
'abcdefbacdefabbdefaaaaacdxfaaacdefcdefbacdefabbdefaaaaacdxfaaacdefaacdxfaacdfx'
against 'aacdxf'
match 'abcdef' at offset 0
match 'bacdef' at offset 6
match 'aacdxf' at offset 21
match 'aacdef' at offset 28
match 'bacdef' at offset 38
match 'aacdxf' at offset 53
match 'aacdef' at offset 60
match 'aacdxf' at offset 66
match 'aacdfx' at offset 72
---------------------------------------------------------------
Sorry about the line wrap
--
"Usenet is like a herd of performing elephants with diarrhea:
massive, difficult to redirect, awe-inspiring, entertaining, and a
source of mind-boggling amounts of excrement when you least
expect it." (Gene Spafford, 1992).
------------------------------
Date: Thu, 20 Nov 2008 05:42:22 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Nov 20 2008
Message-Id: <KAMAIM.1zq9@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.
AFS-2.6.1
http://search.cpan.org/~nog/AFS-2.6.1/
Basic functions and variables of the AFS module
----
Apache2-ASP-2.00_23
http://search.cpan.org/~johnd/Apache2-ASP-2.00_23/
ASP for Perl, reloaded.
----
Catalyst-Authentication-Credential-HTTP-1.007
http://search.cpan.org/~bobtfish/Catalyst-Authentication-Credential-HTTP-1.007/
HTTP Basic and Digest authentication for Catalyst.
----
Catalyst-Controller-WrapCGI-0.0024
http://search.cpan.org/~rkitover/Catalyst-Controller-WrapCGI-0.0024/
Run CGIs in Catalyst
----
CatalystX-CRUD-YUI-0.009
http://search.cpan.org/~karman/CatalystX-CRUD-YUI-0.009/
YUI for your CatalystX::CRUD view
----
Class-MOP-0.70_01
http://search.cpan.org/~drolsky/Class-MOP-0.70_01/
A Meta Object Protocol for Perl 5
----
Coro-4.914
http://search.cpan.org/~mlehmann/Coro-4.914/
coroutine process abstraction
----
DBD-PgLite-0.10
http://search.cpan.org/~gruber/DBD-PgLite-0.10/
PostgreSQL emulation mode for SQLite
----
DayDayUp-0.01
http://search.cpan.org/~fayland/DayDayUp-0.01/
good good study, day day up
----
EBook-Tools-0.3.2
http://search.cpan.org/~azed/EBook-Tools-0.3.2/
An object class for the manipulation and generation of E-books based on IDPF standards
----
EV-3.49
http://search.cpan.org/~mlehmann/EV-3.49/
perl interface to libev, a high performance full-featured event loop
----
Foorum-1.000001
http://search.cpan.org/~fayland/Foorum-1.000001/
forum system based on Catalyst
----
Geo-IPfree-0.3
http://search.cpan.org/~bricas/Geo-IPfree-0.3/
Look up country of IP Address. This module make this off-line and the DB of IPs is free & small.
----
HTML-Table-FromDatabase-0.03
http://search.cpan.org/~bigpresh/HTML-Table-FromDatabase-0.03/
subclass of HTML::Table to generate tables easily from a database query
----
HTTP-Session-0.20
http://search.cpan.org/~tokuhirom/HTTP-Session-0.20/
simple session
----
HTTP-Session-0.21
http://search.cpan.org/~tokuhirom/HTTP-Session-0.21/
simple session
----
Hardware-Simulator-MIX-0.5
http://search.cpan.org/~litchie/Hardware-Simulator-MIX-0.5/
A simulator of Knuth's famous virtual machine
----
IO-Stream-1.0.2
http://search.cpan.org/~powerman/IO-Stream-1.0.2/
ease non-blocking I/O streams based on EV
----
IO-Stream-Crypt-RC4-1.0.1
http://search.cpan.org/~powerman/IO-Stream-Crypt-RC4-1.0.1/
Crypt::RC4 plugin for IO::Stream
----
IO-Stream-Proxy-HTTPS-1.0.1
http://search.cpan.org/~powerman/IO-Stream-Proxy-HTTPS-1.0.1/
HTTPS proxy plugin for IO::Stream
----
Log-Dump-0.02
http://search.cpan.org/~ishigaki/Log-Dump-0.02/
simple logger mainly for debugging
----
Mail-DKIM-0.32_5
http://search.cpan.org/~jaslong/Mail-DKIM-0.32_5/
Signs/verifies Internet mail with DKIM/DomainKey signatures
----
Mail-DKIM-0.32_6
http://search.cpan.org/~jaslong/Mail-DKIM-0.32_6/
Signs/verifies Internet mail with DKIM/DomainKey signatures
----
Mail-SPF-Iterator-0.03
http://search.cpan.org/~sullr/Mail-SPF-Iterator-0.03/
iterative SPF lookup
----
MediaWiki-API-0.20
http://search.cpan.org/~exobuzz/MediaWiki-API-0.20/
Provides a Perl interface to the MediaWiki API (http://www.mediawiki.org/wiki/API)
----
Moxy-0.49
http://search.cpan.org/~tokuhirom/Moxy-0.49/
Mobile web development proxy
----
Net-Whois-Raw-1.60
http://search.cpan.org/~despair/Net-Whois-Raw-1.60/
Get Whois information for domains
----
Perlwikipedia-1.4.0
http://search.cpan.org/~dcollins/Perlwikipedia-1.4.0/
a Wikipedia bot framework written in Perl
----
Rose-DBx-Garden-Catalyst-0.11
http://search.cpan.org/~karman/Rose-DBx-Garden-Catalyst-0.11/
plant Roses in your Catalyst garden
----
Sledge-HTTPSession-0.03
http://search.cpan.org/~tokuhirom/Sledge-HTTPSession-0.03/
HTTP::Session to Sledge bindings
----
TestGen4Web-Runner-0.09
http://search.cpan.org/~mackers/TestGen4Web-Runner-0.09/
A PERL module to replay files recorded with TestGen4Web
----
URI-Platonic-0.02
http://search.cpan.org/~masaki/URI-Platonic-0.02/
Platonic and Distinct URIs
----
WWW-Wikipedia-TemplateFiller-0.07
http://search.cpan.org/~diberri/WWW-Wikipedia-TemplateFiller-0.07/
Fill Wikipedia templates with your eyes closed
----
XML-LibXML-Simple-0.13
http://search.cpan.org/~markov/XML-LibXML-Simple-0.13/
XML::LibXML clone of XML::Simple::XMLin()
----
XML-SAX-Writer-0.50
http://search.cpan.org/~perigrin/XML-SAX-Writer-0.50/
SAX2 Writer
----
XML-SAX-Writer-0.51
http://search.cpan.org/~perigrin/XML-SAX-Writer-0.51/
SAX2 Writer
----
XML-SAX-Writer-0.52
http://search.cpan.org/~perigrin/XML-SAX-Writer-0.52/
SAX2 Writer
----
XML-Toolkit-0.04
http://search.cpan.org/~perigrin/XML-Toolkit-0.04/
A set of tools for dealing with XML with the Way of the Moose.
----
YAML-Tiny-1.34_01
http://search.cpan.org/~adamk/YAML-Tiny-1.34_01/
Read/Write YAML files with as little code as possible
----
o2sms-3.30
http://search.cpan.org/~mackers/o2sms-3.30/
A module to send SMS messages using the website of O2 Ireland
----
parrot-0.8.1
http://search.cpan.org/~chromatic/parrot-0.8.1/
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/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Thu, 20 Nov 2008 00:34:40 -0800 (PST)
From: Grehom <grehom@ntlworld.com>
Subject: Re: OpenOffice Spreadsheet
Message-Id: <61824bf8-bc85-4d98-9453-645dd3189022@20g2000yqt.googlegroups.com>
On Nov 18, 11:41=A0am, Chris Haffenstedt <ch...@t-online.de> wrote:
> Grehomschrieb:
>
>
>
> > I'm just trying to read a column in a spreadsheet and create a new
> > value in a new column to right of the others.
> > I tried with the following, but it doesn't create the new column, any
> > hints please
>
> > use OpenOffice::OODoc;
> > my $doc =3D odfDocument(file =3D> 'iwm.ods');
>
> > $row =3D 3;
> > while ( my $cli =3D $doc->cellValue(0, "D$row") ) {
> > =A0 =A0 my $username =3D get_customer_account( $dbh, $cli );
> > =A0 =A0 print "$cli =3D> $username\n";
> > =A0 =A0 $doc->cellValue(0, "E$row", $username);
> > =A0 =A0 $row++;
> > }
>
> > $doc->save();
>
> > It's reading the spreadsheet fine, but it's not inserting the new
> > value into 'E' column
>
> Try
> $doc->updateCell(0, "E$row", $username);
Thanks, but I had already tried that, the problem I think is that
the table (0) I want to insert a fifth column into is only 4 columns
wide (when I open the spreadsheet you can see bold black outline
around the overall table size), I tried expanding the table but that
only seemed to widen the very last line of the table. I guess I
should just write a brand new table based on the old table and
delete the old table, but that seems rather crude.
------------------------------
Date: Thu, 20 Nov 2008 00:19:10 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: Perl module for managing user groups (UNIX)
Message-Id: <slrngi9481.rlp.whynot@orphan.zombinet>
On 2008-11-19, J.D. Baldwin <INVALID_SEE_SIG@example.com.invalid> wrote:
*SKIP*
> Seems this should be pretty straightforward, it's just that it's a lot
> of code, particularly for the error-checking. I'd rather not write it
> if I can steal-- er, "reuse" it.
{50997:35} [0:1]$ file /usr/sbin/adduser
/usr/sbin/adduser: a /usr/bin/perl script text executable
{51006:36} [0:0]$ dpkg -S /usr/sbin/adduser
adduser: /usr/sbin/adduser
{51168:38} [0:0]$ apt-cache show -a=no adduser |grep Homepage
Homepage: http://alioth.debian.org/projects/adduser/
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Thu, 20 Nov 2008 07:11:17 -0800 (PST)
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: subroutine local variable with initialization
Message-Id: <c98a6733-0841-4706-b245-756c13ef5cf3@f20g2000yqg.googlegroups.com>
On 14 Nov, 18:17, Uri Guttman <u...@stemsystems.com> wrote:
>
> BEGIN {
>
> =A0 =A0 my $count =3D 1 ;
>
> =A0 =A0 sub doit {
> =A0 =A0 =A0 =A0 print "count=3D$count\n";
> =A0 =A0 =A0 =A0 $count++;
> =A0 =A0 }
>
> }
I would argue that an INIT block would be more idiomatically correct
rather than a BEGIN one.
But it does not really make any difference.
------------------------------
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 1993
***************************************
