[31056] in Perl-Users-Digest
Perl-Users Digest, Issue: 2301 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 27 03:09:47 2009
Date: Fri, 27 Mar 2009 00:09:07 -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 Fri, 27 Mar 2009 Volume: 11 Number: 2301
Today's topics:
Re: first sentence regexp? <cartercc@gmail.com>
Re: first sentence regexp? <whynot@pozharski.name>
Re: hash of arrays... <tadmc@seesig.invalid>
Re: help with IO::Socket:INET <1usa@llenroc.ude.invalid>
Re: help with IO::Socket:INET <tadmc@seesig.invalid>
Re: logic, algorithms, and (Perl) data structures <smallpond@juno.com>
Namespaces and require <unclebob@tnglwood.demon.co.uk>
Re: Namespaces and require <ben@morrow.me.uk>
Re: Namespaces and require <1usa@llenroc.ude.invalid>
Re: Net::SSH::Perl Help (Jens Thoms Toerring)
Re: Net::SSH::Perl Help <someone@example.com>
Re: Net::SSH::Perl Help <someone@example.com>
new CPAN modules on Fri Mar 27 2009 (Randal Schwartz)
Re: Typeglobs vs References <1usa@llenroc.ude.invalid>
Re: Typeglobs vs References <schaitan@gmail.com>
Re: Typeglobs vs References <uri@stemsystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 26 Mar 2009 18:38:39 -0700 (PDT)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: first sentence regexp?
Message-Id: <13d14670-999f-4957-8eb2-1be67ff126df@e35g2000yqc.googlegroups.com>
On Mar 26, 2:22=A0pm, Charlton Wilbur <cwil...@chromatico.net> wrote:
> <p>I shall be sure to inform Dr. Jones and Mrs. Miller about the
> success you have had; shall I invite them around to tea at 4
> p.m. today?<?p>
Yeah, the text I looked at wasn't anything like that.
In this case, I would conclude that any sort of reasonable rule about
punctuation won't work. Now we're reduced to looking at grammar, and
this is one area where humans are far superior to computers.
If this were me, I'd either go with an arbitrary number of characters,
ending at a word boundry, or wrap the first sentence in a <span>
element, which would defeat the whole purpose since it would be done
manually.
CC
------------------------------
Date: Thu, 26 Mar 2009 23:24:40 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: first sentence regexp?
Message-Id: <slrngsnskq.q6u.whynot@orphan.zombinet>
On 2009-03-26, bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
> I would like to pick out the first sentence of some
> text, so that it can be manipulated (displayed, indexed)
> differently from the rest of the text.
>
> The text is HTML (which doesn't help), so there may be tags
> mixed in. And I'm struggling to avoid getting spurious "ends"
> from things like the decimal point in numbers, and abbreviations
> e.g. "e.g."
>
> Anyone done this before, and got a decent answer?
If only you would have a kind of gremlin handy...
> I'm aware that any regexp will only be an approximate solution,
> but I'm hoping it will be "good enough"
Whatever way you'll go, first -- construct something reasonable, then
track for false positives and adjust your solution. Just keep in mind,
that you really need a test suite then (or you'll face new false
positives among those that happen to work yesterday).
--
Torvalds' goal for Linux is very simple: World Domination
Stallman's goal for GNU is even simpler: Freedom
------------------------------
Date: Thu, 26 Mar 2009 19:25:28 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: hash of arrays...
Message-Id: <slrngso77o.jjq.tadmc@tadmc30.sbcglobal.net>
preacher37@gmail.com <preacher37@gmail.com> wrote:
> Subject: Re: hash of arrays...
"hash of arrays" is just an over-simplified colloquial term.
"hash of references to arrays" is the technically correct term.
> for (@some_array) {
> @new_array = &do_someting_elesewhere($_);
^
^
You should not use ampersand on subroutine calls unless what it means
(perldoc perlsub) is what you want, and it seldom is.
If you don't want every array to be the same array, then you
need a fresh @new_array for each loop iteration:
my @new_array = do_something_elsewhere($_); # spell it correctly too
> # ceate a hash using an element from the array as a key
> $some_hash{$new_array[2]} = @new_array;
$some_hash{$new_array[2]} = \@new_array;
> }
Have a look at the data structure you have built:
use Data::Dumper;
print Dumper \%some_hash;
Does it look right to you?
> So, how do I see the n^th element of each array?
>
> foreach $key (keys %some_hash) {
> print $some_hash{$key}[n^th];
> }
>
> no workey...
That would workey fine if you had actually constructed the data structure
that you were hoping to construct.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 26 Mar 2009 22:15:06 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: help with IO::Socket:INET
Message-Id: <Xns9BDAB9A7BD499asu1cornelledu@127.0.0.1>
deja_vu_was_better <ebabin@yahoo.com> wrote in news:3c0bed90-52d8-478a-
b771-814af07e9b73@v28g2000vbb.googlegroups.com:
> $client = $sock->accept() but when I did a
>
> print "got a connection from $client->peerhost\n";
>
> I get:
>
> got a connection from IO::Socket::INET=GLOB(0x1c24284)->peerhost
>
> It is not evaluating to a string, I guess, so how do I do that?
printf "got a connection from %s\n", $client->peerhost;
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: Thu, 26 Mar 2009 19:31:06 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: help with IO::Socket:INET
Message-Id: <slrngso7ia.jjq.tadmc@tadmc30.sbcglobal.net>
deja_vu_was_better <ebabin@yahoo.com> wrote:
> print "got a connection from $client->peerhost\n";
>
> I get:
>
> got a connection from IO::Socket::INET=GLOB(0x1c24284)->peerhost
>
>
> It is not evaluating to a string,
Sure it is.
$client is evaluating to the string "IO::Socket::INET=GLOB(0x1c24284)".
function (method) calls are not interpolated.
> I guess, so how do I do that?
print "got a connection from ", $client->peerhost, "\n";
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 26 Mar 2009 15:32:26 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: logic, algorithms, and (Perl) data structures
Message-Id: <9d179233-f1ab-431d-b98b-a021099340a6@f33g2000vbf.googlegroups.com>
On Mar 26, 11:20 am, ccc31807 <carte...@gmail.com> wrote:
> On Mar 26, 11:00 am, smallpond <smallp...@juno.com> wrote:
>
> > My advice:
> > 1) define the operations you want to do
> > 2) lay out tables to simplify the operations
> > 3) write the SQL needed to perform the operations
> > 4) write the perl glue
> > 5) test, test, test, test, test
> > ...
> > 97) worry about the efficiency of the perl code
>
> Absolutely great advice. Two points:
>
> 3.5) write the user interface. Users must interact with the system,
> and I find that writing the interface before I write the code (Perl
> glue) gives me both the input and the output that I need to write the
> code for.
>
> More importantly, people can be active in different capacities in
> different events, and I'm drowning in complexity. I'd like to be able
> to have ONE (1) table with all my people data. The prior developers
> have about ten tables representing different capacities, with the
> problem that if a person's address and email changes, you've got to
> chase that person over ten (worst case) different tables. My way out
> is to match the incoming names against the existing names, which won't
> tag duplicates but will at least tag uniques. I'll let the client sort
> out the duplicates, and he understands that this isn't a software
> problem.
>
> Truthfully, this is the first application that I have been involved
> with that has to track people in this way, and I'm having a problem
> dealing with it. Thanks for your help.
>
> CC
My point is that the database design will determine 99% of
the system stability and efficiency. 10 tables is ok as long
as they are linked properly - i.e. not by selecting on non-unique
strings, but by using unique keys. Solve that problem first.
You are correct that if you have multiple tables indexed by the same
thing (person) then they should be combined. Especially in any
environment where you have to worry about multiple processes
doing updates, like a website.
------------------------------
Date: Thu, 26 Mar 2009 23:57:17 +0000
From: Robert Billing <unclebob@tnglwood.demon.co.uk>
Subject: Namespaces and require
Message-Id: <yDUyl.164912$Ii4.131972@newsfe19.ams2>
I have a fairly large suite of Perl scripts, and a configuration file
called db_config.pl which has some "configuration parameters" such as
where things are in the file tree, names of databases and tables and so
on. The intention is that this small file can be edited manually if needed.
When a stand-alone script is run it executes
require "db_config.pl" ;
which pulls in the definitions. This worked beautifully until I decided
that one new feature was best implemented as an object.
I therefore set up a package, let's call it dbadmin, which provides
methods to create an object, do something with it and finally output it
as HTML for display. This also works perfectly.
The problem is that if I require the configuration in main namespace it
is invisible in dbadmin and vice versa. If I put in two require
statements the clever behaviour of require means that only one does
anything.
At the moment I am getting at the definitions by writing things like
$Main::blivit, but is there a better, cleaner way of doing this?
Or in other works can I create a variable which is visible in all
namespaces?
------------------------------
Date: Fri, 27 Mar 2009 00:24:42 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Namespaces and require
Message-Id: <avit96-rjr.ln1@osiris.mauzo.dyndns.org>
Quoth Robert Billing <unclebob@tnglwood.demon.co.uk>:
> I have a fairly large suite of Perl scripts, and a configuration file
> called db_config.pl which has some "configuration parameters" such as
> where things are in the file tree, names of databases and tables and so
> on. The intention is that this small file can be edited manually if needed.
>
<snip>
>
> I therefore set up a package, let's call it dbadmin, which provides
> methods to create an object, do something with it and finally output it
> as HTML for display. This also works perfectly.
>
> The problem is that if I require the configuration in main namespace it
> is invisible in dbadmin and vice versa. If I put in two require
> statements the clever behaviour of require means that only one does
> anything.
>
> At the moment I am getting at the definitions by writing things like
> $Main::blivit, but is there a better, cleaner way of doing this?
>
> Or in other works can I create a variable which is visible in all
> namespaces?
No, you can't. You have several options here:
1. Refer to your config variables as $::blivit. It's a little
clunky, but not too long, and has the advantage of making them stand
out.
2. Convert the config file into a real module, and 'use' it instead.
Then you can export variables with Exporter. Something like
package DBAdmin::Config;
use base qw/Exporter/;
our @EXPORT = qw(
$blivit
...
);
our $blivit = "...";
3. If you think that's too much gunk in the config file, you can
create a tiny module which requires the actual config file, and then
exports its variables. Everywhere else you use the module instead of
requiring the config file.
4. You can manually import variables with
package dbadmin;
*blivit = \$main::blivit;
Not something you want to do a lot of, but it will work if you just
need a few variables in a few places. If you want to avoid 'strict'
failures, you will need to either declare the variables with 'our',
or import them in a BEGIN block while in a different package, like
package dbadmin;
BEGIN {
package main;
*dbadmin::blivit = \$blivit;
}
(This is in fact exactly what Exporter does for you.)
5. If you think listing all those variable names is too much work (I
would :) ) you can move them into a hash and just export that:
package DBAdmin::Config;
use base qw/Exporter/;
our @EXPORT = qw/%Config/;
our %Config = (
blivit => "...",
...,
);
You will need to change $blivit to $Config{blivit}, of course. You
may also want to apply Hash::Util::lock_hash to the hash after it's
been populated, so you get typo checking on the keys and readonly
values.
Ben
------------------------------
Date: Fri, 27 Mar 2009 02:28:45 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Namespaces and require
Message-Id: <Xns9BDAE4A90FD9Aasu1cornelledu@127.0.0.1>
Ben Morrow <ben@morrow.me.uk> wrote in
news:avit96-rjr.ln1@osiris.mauzo.dyndns.org:
> 5. If you think listing all those variable names is too much work
> (I would :) ) you can move them into a hash and just export that:
>
> package DBAdmin::Config;
>
> use base qw/Exporter/;
> our @EXPORT = qw/%Config/;
>
> our %Config = (
> blivit => "...",
> ...,
> );
I would use a different name for the hash: Even %config is better, because
my mind automatically assumes %Config is the hash exported by Config:
perldoc Config
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: 26 Mar 2009 21:05:27 GMT
From: jt@toerring.de (Jens Thoms Toerring)
Subject: Re: Net::SSH::Perl Help
Message-Id: <73290nFssm5bU1@mid.uni-berlin.de>
vendion <vendion@charter.net> wrote:
> I am trying to make a script that loops 26 times each time using SSH
> to remote into a different machine every time and run a second
> script. When I run the first one with SSH I get this error:
> Permission denied at /home/e-307-20/bin/upgrader.pl line 13
> I know that I can SSH into the machine because SSH alone works fine.
> My code is as follows (user name and password has been replaced for
> security reasons)
> #!/usr/bin/perl
> #upgrader.pl This is the server side of a two part perl script that
> uses ssh to
> #get into the lab PCs and have them run the upgrade.
> use warnings;
> use strict;
> use Net::SSH::Perl;
> my $computer = '01'; #set the script for the first out of 26 computers
> that use
> #10.18.1.1xx ip scheme
> while ($computer <= 26) {
> my $ssh = Net::SSH::Perl->new("10.18.1.1$computer");
Did you print out the IP addresses? The first time round you
get 10.18.1.101, the seond time 10.18.1.12, etc. until $computer
is 10, then you get 10.18.1.110, 10.18.1.111 etc. That's because
in order to increment $computer it's converted to an integer,
and then the leading '0' goes missing.
I would rather guess that this wasn't your intention. Perhaps youd
should replace this with
my $ssh = Net::SSH::Perl->new(sprintf("10.18.1.1%02d",$computer));
to get 101, 102, 103, etc. as the last part of the IP address.
Regards, Jens
--
\ Jens Thoms Toerring ___ jt@toerring.de
\__________________________ http://toerring.de
------------------------------
Date: Thu, 26 Mar 2009 14:12:16 -0700
From: "John W. Krahn" <someone@example.com>
Subject: Re: Net::SSH::Perl Help
Message-Id: <fdSyl.80677$Tp5.69903@newsfe13.iad>
vendion wrote:
> I am trying to make a script that loops 26 times each time using SSH
> to remote into a different machine every time and run a second
> script. When I run the first one with SSH I get this error:
>
> Permission denied at /home/e-307-20/bin/upgrader.pl line 13
>
> I know that I can SSH into the machine because SSH alone works fine.
> My code is as follows (user name and password has been replaced for
> security reasons)
>
> #!/usr/bin/perl
> #upgrader.pl This is the server side of a two part perl script that
> uses ssh to
> #get into the lab PCs and have them run the upgrade.
> use warnings;
> use strict;
> use Net::SSH::Perl;
>
> my $computer = '01'; #set the script for the first out of 26 computers
> that use
> #10.18.1.1xx ip scheme
>
> while ($computer <= 26) {
> my $ssh = Net::SSH::Perl->new("10.18.1.1$computer");
> $ssh->login('user', 'password');
> my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
> $computer ++;
> }
Would be better written as:
for my $computer ( '01' .. '26' ) {
my $ssh = Net::SSH::Perl->new("10.18.1.1$computer");
$ssh->login('user', 'password');
my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
}
Or:
for my $computer ( 1 .. 26 ) {
my $ssh = Net::SSH::Perl->new( sprintf '10.18.1.1%02d', $computer );
$ssh->login('user', 'password');
my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
}
Or:
for my $computer ( 101 .. 126 ) {
my $ssh = Net::SSH::Perl->new("10.18.1.$computer");
$ssh->login('user', 'password');
my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
}
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
------------------------------
Date: Thu, 26 Mar 2009 21:38:01 -0700
From: "John W. Krahn" <someone@example.com>
Subject: Re: Net::SSH::Perl Help
Message-Id: <JKYyl.173503$xK6.135514@newsfe12.iad>
Jens Thoms Toerring wrote:
> vendion <vendion@charter.net> wrote:
>> I am trying to make a script that loops 26 times each time using SSH
>> to remote into a different machine every time and run a second
>> script. When I run the first one with SSH I get this error:
>
>> Permission denied at /home/e-307-20/bin/upgrader.pl line 13
>
>> I know that I can SSH into the machine because SSH alone works fine.
>> My code is as follows (user name and password has been replaced for
>> security reasons)
>
>> #!/usr/bin/perl
>> #upgrader.pl This is the server side of a two part perl script that
>> uses ssh to
>> #get into the lab PCs and have them run the upgrade.
>> use warnings;
>> use strict;
>> use Net::SSH::Perl;
>
>> my $computer = '01'; #set the script for the first out of 26 computers
>> that use
>> #10.18.1.1xx ip scheme
>
>> while ($computer <= 26) {
>> my $ssh = Net::SSH::Perl->new("10.18.1.1$computer");
>
> Did you print out the IP addresses? The first time round you
> get 10.18.1.101, the seond time 10.18.1.12, etc. until $computer
> is 10, then you get 10.18.1.110, 10.18.1.111 etc. That's because
> in order to increment $computer it's converted to an integer,
> and then the leading '0' goes missing.
Really?
$ perl -le'
my $computer = "01";
print $computer;
$computer ++;
print $computer;
$computer ++;
print $computer;
'
01
02
03
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
------------------------------
Date: Fri, 27 Mar 2009 04:42:26 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Mar 27 2009
Message-Id: <KH5EEq.1oLE@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-Satan-6.006006
http://search.cpan.org/~tyemq/Acme-Satan-6.006006/
Damn further program execution
----
App-CSV-0.01
http://search.cpan.org/~gaal/App-CSV-0.01/
process CSV files
----
Authen-Htpasswd-Trac-0.00002
http://search.cpan.org/~nishikawa/Authen-Htpasswd-Trac-0.00002/
interface to read and modify Trac password files
----
Business-OnlinePayment-PaymenTech-1.3
http://search.cpan.org/~gphat/Business-OnlinePayment-PaymenTech-1.3/
PaymenTech backend for Business::OnlinePayment
----
CGI-Auth-FOAF_SSL-0.05
http://search.cpan.org/~tobyink/CGI-Auth-FOAF_SSL-0.05/
Authentication using FOAF+SSL.
----
CGI-RSS-0.91
http://search.cpan.org/~jettero/CGI-RSS-0.91/
provides a CGI-like interface for making rss feeds
----
CGI-RSS-0.92
http://search.cpan.org/~jettero/CGI-RSS-0.92/
provides a CGI-like interface for making rss feeds
----
Cache-Memcached-libmemcached-0.02009
http://search.cpan.org/~dmaki/Cache-Memcached-libmemcached-0.02009/
Perl Interface to libmemcached
----
Catalyst-Action-REST-0.67
http://search.cpan.org/~hdp/Catalyst-Action-REST-0.67/
Automated REST Method Dispatching
----
Catalyst-Action-REST-0.68
http://search.cpan.org/~hdp/Catalyst-Action-REST-0.68/
Automated REST Method Dispatching
----
Catalyst-Action-REST-0.69
http://search.cpan.org/~hdp/Catalyst-Action-REST-0.69/
Automated REST Method Dispatching
----
Catalyst-Controller-SOAP-1.13
http://search.cpan.org/~druoso/Catalyst-Controller-SOAP-1.13/
Catalyst SOAP Controller
----
Catalyst-Plugin-Session-State-URI-0.09
http://search.cpan.org/~bobtfish/Catalyst-Plugin-Session-State-URI-0.09/
Saves session IDs by rewriting URIs delivered to the client, and extracting the session ID from requested URIs.
----
Class-MOP-0.78_02
http://search.cpan.org/~drolsky/Class-MOP-0.78_02/
A Meta Object Protocol for Perl 5
----
Class-Private-0.02
http://search.cpan.org/~leont/Class-Private-0.02/
Private hashes for your objects
----
DBD-DB2-1.71
http://search.cpan.org/~ibmtordb2/DBD-DB2-1.71/
DataBase Driver for DB2 UDB
----
DBD-Pg-2.11.8_2
http://search.cpan.org/~turnstep/DBD-Pg-2.11.8_2/
PostgreSQL database driver for the DBI module
----
DBD-mysqlPPrawSjis-0.05
http://search.cpan.org/~ina/DBD-mysqlPPrawSjis-0.05/
Pure Perl MySQL driver for raw ShiftJIS
----
Date-Converter-1.01
http://search.cpan.org/~andy/Date-Converter-1.01/
Convert dates between calendar systems
----
Date-Converter-1.1
http://search.cpan.org/~andy/Date-Converter-1.1/
Convert dates between calendar systems
----
DateTime-Format-Pg-0.16003
http://search.cpan.org/~dmaki/DateTime-Format-Pg-0.16003/
Parse and format PostgreSQL dates and times
----
Devel-NYTProf-2.08_92
http://search.cpan.org/~timb/Devel-NYTProf-2.08_92/
Powerful feature-rich perl source code profiler
----
EasyDBAccess-3.1.2
http://search.cpan.org/~foolfish/EasyDBAccess-3.1.2/
Perl Database Access Interface
----
Fey-0.24
http://search.cpan.org/~drolsky/Fey-0.24/
Better SQL Generation Through Perl
----
Games-AssaultCube-0.01
http://search.cpan.org/~apocal/Games-AssaultCube-0.01/
The AssaultCube perl libraries
----
HTML-FormFu-0.04000
http://search.cpan.org/~cfranks/HTML-FormFu-0.04000/
HTML Form Creation, Rendering and Validation Framework
----
IO-Vec-0.01
http://search.cpan.org/~leont/IO-Vec-0.01/
writev and readv in perl
----
Log-Log4perl-1.21
http://search.cpan.org/~mschilli/Log-Log4perl-1.21/
Log4j implementation for Perl
----
Mobile-Devices-0.02
http://search.cpan.org/~jkutej/Mobile-Devices-0.02/
search for and get mobile device information
----
Module-New-0.02
http://search.cpan.org/~ishigaki/Module-New-0.02/
creates module/distribution skeleton and more
----
Moose-0.72_01
http://search.cpan.org/~drolsky/Moose-0.72_01/
A postmodern object system for Perl 5
----
MooseX-AttributeHelpers-0.15
http://search.cpan.org/~drolsky/MooseX-AttributeHelpers-0.15/
Extend your attribute interfaces
----
Net-OAuth-Simple-0.9
http://search.cpan.org/~simonw/Net-OAuth-Simple-0.9/
a simple wrapper round the OAuth protocol
----
Net-OAuth-Simple-1.0
http://search.cpan.org/~simonw/Net-OAuth-Simple-1.0/
a simple wrapper round the OAuth protocol
----
Net-OpenSSH-0.34
http://search.cpan.org/~salva/Net-OpenSSH-0.34/
Perl SSH client package implemented on top of OpenSSH
----
Net-ParSCP-0.02
http://search.cpan.org/~casiano/Net-ParSCP-0.02/
Parallel secure copy
----
Net-Pcap-Easy-1.322
http://search.cpan.org/~jettero/Net-Pcap-Easy-1.322/
Net::Pcap is awesome, but it's difficult to bootstrap
----
Net-Whois-Raw-1.66
http://search.cpan.org/~despair/Net-Whois-Raw-1.66/
Get Whois information for domains
----
Net-ZooKeeper-0.32
http://search.cpan.org/~cdarroch/Net-ZooKeeper-0.32/
----
News-Pictures-0.04
http://search.cpan.org/~cguine/News-Pictures-0.04/
The great new News::Pictures!
----
News-Pictures-0.05
http://search.cpan.org/~cguine/News-Pictures-0.05/
The great new News::Pictures!
----
Palm-ProjectGutenberg-1.0
http://search.cpan.org/~dcantrell/Palm-ProjectGutenberg-1.0/
convert PG text files to Palm Doc format
----
Parse-Method-Signatures-1.003004
http://search.cpan.org/~ash/Parse-Method-Signatures-1.003004/
Perl6 like method signature parser
----
Perl-Dist-WiX-v0.161
http://search.cpan.org/~csjewell/Perl-Dist-WiX-v0.161/
Experimental 4th generation Win32 Perl distribution builder
----
Proc-Exists-0.93
http://search.cpan.org/~brianski/Proc-Exists-0.93/
quickly check for process existence
----
RDF-Simple-0.407
http://search.cpan.org/~mthurn/RDF-Simple-0.407/
read and write RDF without complication
----
Schedule-Cron-0.97_02
http://search.cpan.org/~roland/Schedule-Cron-0.97_02/
cron-like scheduler for Perl subroutines
----
Statistics-Basic-1.6005
http://search.cpan.org/~jettero/Statistics-Basic-1.6005/
A collection of very basic statistics modules
----
String-Format-1.15
http://search.cpan.org/~darren/String-Format-1.15/
sprintf-like string formatting capabilities with arbitrary format definitions
----
Test-Base-0.57
http://search.cpan.org/~ingy/Test-Base-0.57/
A Data Driven Testing Framework
----
Test-Base-0.58
http://search.cpan.org/~ingy/Test-Base-0.58/
A Data Driven Testing Framework
----
Test-SharedFork-0.03
http://search.cpan.org/~tokuhirom/Test-SharedFork-0.03/
fork test
----
Test-SharedFork-0.04
http://search.cpan.org/~tokuhirom/Test-SharedFork-0.04/
fork test
----
Test-TCP-0.03
http://search.cpan.org/~tokuhirom/Test-TCP-0.03/
testing TCP program
----
Test-TCP-0.04
http://search.cpan.org/~tokuhirom/Test-TCP-0.04/
testing TCP program
----
URI-GoogleChart-0.01
http://search.cpan.org/~gaas/URI-GoogleChart-0.01/
Generate Google Chart URIs
----
WebService-UPS-0.1
http://search.cpan.org/~kbrandt/WebService-UPS-0.1/
----
Win32-SqlServer-DTS-0.09
http://search.cpan.org/~arfreitas/Win32-SqlServer-DTS-0.09/
Perl classes to access Microsoft SQL Server 2000 DTS Packages
----
XML-Reader-0.03
http://search.cpan.org/~keichner/XML-Reader-0.03/
Reading XML and providing path information based on a pull-parser.
----
XML-Tiny-DOM-1.0
http://search.cpan.org/~dcantrell/XML-Tiny-DOM-1.0/
wrapper for XML::Tiny to provide a DOMmish interface
----
YAML-Logic-0.02
http://search.cpan.org/~mschilli/YAML-Logic-0.02/
Simple boolean logic in YAML
----
YAML-Visitor-0.00003
http://search.cpan.org/~nishikawa/YAML-Visitor-0.00003/
Like visitor style traversal for yaml
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, 26 Mar 2009 22:18:49 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Typeglobs vs References
Message-Id: <Xns9BDABA4931A1Basu1cornelledu@127.0.0.1>
Krishna Chaitanya <schaitan@gmail.com> wrote in news:34f148a0-216d-4c55-
8999-5c9f7e10cfc2@i28g2000prd.googlegroups.com:
> Also, dealing with filehandles, passing them around to subroutines,
> don't you agree we need to know abt typeglobs?
s/abt/about/
The answer is 'no' if you use lexical filehandles.
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: Thu, 26 Mar 2009 22:28:52 -0700 (PDT)
From: Krishna Chaitanya <schaitan@gmail.com>
Subject: Re: Typeglobs vs References
Message-Id: <08e0304c-cdbe-4c1b-bc51-d05086cba7fe@d2g2000pra.googlegroups.com>
Yeah I agree with your point on lexical file-handles. Read last night
that it is a newer feature. Older code does use type-globs and bare-
word identifiers.
But as a matter of curiosity, is it everyone's opinion here that
trying to understand type-globs is totally unproductive and not worth
one's time?
There has to be some to the concept, after all?
------------------------------
Date: Fri, 27 Mar 2009 00:53:59 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Typeglobs vs References
Message-Id: <x7fxgzzf2g.fsf@mail.sysarch.com>
>>>>> "KC" == Krishna Chaitanya <schaitan@gmail.com> writes:
KC> But as a matter of curiosity, is it everyone's opinion here that
KC> trying to understand type-globs is totally unproductive and not worth
KC> one's time?
it isn't worth the time until you need to do something with the symbol
table. and that is rarely needed so why study typeglobs now?
KC> There has to be some to the concept, after all?
sure, they are a way to access entries in the symbol table. you can also
do that with symrefs (evil) and accessing the stash. study it if you
want but you just don't need typeglobs in normal perl coding.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
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 2301
***************************************
