[28605] in Perl-Users-Digest
Perl-Users Digest, Issue: 9969 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 15 09:05:54 2006
Date: Wed, 15 Nov 2006 06:05:06 -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 Wed, 15 Nov 2006 Volume: 10 Number: 9969
Today's topics:
Re: "Did not find leading dereferencer" - new findings <bol@adv.magwien.gv.at>
Re: "Did not find leading dereferencer" - new findings <tadmc@augustmail.com>
Bitwise operator - what am I doing wrong?? <sukesh@zoom.co.uk>
Re: Bitwise operator - what am I doing wrong?? <rvtol+news@isolution.nl>
Re: Bitwise operator - what am I doing wrong?? <sukesh@zoom.co.uk>
Re: compare two string and make some operation on it? <bol@adv.magwien.gv.at>
Re: compare two string and make some operation on it? <uri@stemsystems.com>
Re: compare two string and make some operation on it? <bik.mido@tiscalinet.it>
Re: Confused about namespaces <anon40629@hotmail.com>
Get remote PC windows shares <lev.weissman@creo.com>
Net::SSH::Perl -- can I capture the command prompt? <keithw99@gmail.com>
Re: Net::SSH::Perl -- can I capture the command prompt? <deepika.mediratta@gmail.com>
Re: Net::SSH::Perl -- can I capture the command prompt? koneruarjun@gmail.com
Re: Net::SSH::Perl -- can I capture the command prompt? anno4000@radom.zrz.tu-berlin.de
new CPAN modules on Wed Nov 15 2006 (Randal Schwartz)
Re: Newbie with simple File handling problem <bik.mido@tiscalinet.it>
Re: Perl Packager, pp, compilation mathieu.lory@gmail.com
Re: reverse chomp() <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 15 Nov 2006 09:33:47 +0100
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: "Did not find leading dereferencer" - new findings to an old puzzle
Message-Id: <1163579628.868681@proxy.dienste.wien.at>
Ben Morrow:
> Getting a better answer than this is
> rather tricky (you'd have to use the source-filter-in-@INC hook
What's this?
Greetings, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: Tue, 14 Nov 2006 20:29:25 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: "Did not find leading dereferencer" - new findings to an old puzzle
Message-Id: <slrnelkus5.egh.tadmc@tadmc30.august.net>
Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
> On 2006-11-14 10:42, Ronny <ro.naldfi.scher@gmail.com> wrote:
>> - simply because if removing "irrelevant" characters
>> from a code (irrelevant in the sense of the parsing algorithm) makes a
>> certain error go away, is very, very typical for buffer overrun.
>
> I'd remove at least one "very" from that sentence.
Substitute "damn" every time you're inclined to write "very";
your editor will delete it and the writing will be just as it
should be.
-- Mark Twain
http://en.wikiquote.org/wiki/Mark_Twain
:-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 15 Nov 2006 05:17:55 -0800
From: "Suk" <sukesh@zoom.co.uk>
Subject: Bitwise operator - what am I doing wrong??
Message-Id: <1163596675.062559.261160@f16g2000cwb.googlegroups.com>
I'm trying to get the network number given an IP address and subnet
mask on the command line
Why doesnt this work?
#!/usr/local/bin/perl
#
our ($ip,$netmask,@ip,@net,@nw);
$ip=$ARGV[0];
$netmask=$ARGV[1];
@ip=(split(/\./,$ip));
@net=(split(/\./,$netmask));
$i=0;
foreach (@ip) {
$nw[$i]=$_ & $net[$i];
$i++;
}
print "IP: $ip NETMASK: $netmask NETWORK: @nw\n";
# ./shownet 136.19.96.178 255.255.254.0
IP: 136.19.96.178 NETMASK: 255.255.254.0 NETWORK: 014 01 04 0
Yet 136 & 255 on the command line yields the correct answer
# perl
print 136 & 255
136
What's going on ?
------------------------------
Date: Wed, 15 Nov 2006 14:48:29 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Bitwise operator - what am I doing wrong??
Message-Id: <ejf9cl.1ic.1@news.isolution.nl>
Suk schreef:
> I'm trying to get the network number given an IP address and subnet
> mask on the command line
>
> Why doesnt this work?
>
> #!/usr/local/bin/perl
> #
> our ($ip,$netmask,@ip,@net,@nw);
>
> $ip=$ARGV[0];
> $netmask=$ARGV[1];
>
> @ip=(split(/\./,$ip));
> @net=(split(/\./,$netmask));
$_ += 0 for @net ;
> $i=0;
>
> foreach (@ip) {
> $nw[$i]=$_ & $net[$i];
> $i++;
> }
>
> print "IP: $ip NETMASK: $netmask NETWORK: @nw\n";
>
> # ./shownet 136.19.96.178 255.255.254.0
> IP: 136.19.96.178 NETMASK: 255.255.254.0 NETWORK: 014 01 04 0
#!/usr/bin/perl
use warnings;
use strict;
my @ip = split /\./, my $ip = $ARGV[0] ;
my @nm = split /\./, my $nm = $ARGV[1] ;
my ($i, @nw) = (0) ;
$nw[$i] = $_ & (0 + $nm[$i]), $i++ for @ip ;
print "IP: $ip NETMASK: $nm NETWORK: @nw\n";
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 15 Nov 2006 06:03:22 -0800
From: "Suk" <sukesh@zoom.co.uk>
Subject: Re: Bitwise operator - what am I doing wrong??
Message-Id: <1163599402.051526.184120@i42g2000cwa.googlegroups.com>
Dr.Ruud wrote:
> Suk schreef:
> > I'm trying to get the network number given an IP address and subnet
> > mask on the command line
> >
> > Why doesnt this work?
> >
> > #!/usr/local/bin/perl
> > #
> > our ($ip,$netmask,@ip,@net,@nw);
> >
> > $ip=$ARGV[0];
> > $netmask=$ARGV[1];
> >
> > @ip=(split(/\./,$ip));
> > @net=(split(/\./,$netmask));
>
> $_ += 0 for @net ;
>
>
> > $i=0;
> >
> > foreach (@ip) {
> > $nw[$i]=$_ & $net[$i];
> > $i++;
> > }
> >
> > print "IP: $ip NETMASK: $netmask NETWORK: @nw\n";
> >
> > # ./shownet 136.19.96.178 255.255.254.0
> > IP: 136.19.96.178 NETMASK: 255.255.254.0 NETWORK: 014 01 04 0
>
>
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my @ip = split /\./, my $ip = $ARGV[0] ;
> my @nm = split /\./, my $nm = $ARGV[1] ;
>
> my ($i, @nw) = (0) ;
>
> $nw[$i] = $_ & (0 + $nm[$i]), $i++ for @ip ;
>
> print "IP: $ip NETMASK: $nm NETWORK: @nw\n";
>
> --
> Affijn, Ruud
>
> "Gewoon is een tijger."
hey thanks that now works, but I still dont understand what I was doing
wrong?
You have to set @nw to zero first ? Why did you have to do 0 + $nm[$i]
?
------------------------------
Date: Wed, 15 Nov 2006 09:28:43 +0100
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: compare two string and make some operation on it?
Message-Id: <1163579327.402678@proxy.dienste.wien.at>
Uri Guttman:
> that is actually wrong. sort doesn't grab sequential pairs and sort
> that. that would be a bubble sort which is very slow.
Oh, sorry. In some ancient Perl versions (5.004 or similar), this
algorithm was used, IIRC. I havn't checked this in newer versions.
My apologies.
> on top of that single letter var names are
> bad in general as they are hard to search for and replace and have little
> if any meaning (outside the math indexes like i and j).
I think this is a question of habit. I have seen using m and n
as indexes very often, as well as x, y and z to address
three-dimensional arrays in C programs. But I agree that
single character names are not the best choice for variable
names in general.
What I can't really understand is why not $A and $B were
choosen instead of $a and $b. Anyone knows that uppercase
names (ARGV, INC, ENV, SIG, STDERR, just to name few)
have a special meanings and should never used as normal
names. So when using uppercase names for $a and $b (or
at least placing them in a special SORT:: namespace), any
danger of mistake could be avoided.
Greetings, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: Wed, 15 Nov 2006 03:40:31 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: compare two string and make some operation on it?
Message-Id: <x764dhyuf4.fsf@mail.sysarch.com>
>>>>> "FB" == Ferry Bolhar <bol@adv.magwien.gv.at> writes:
FB> Uri Guttman:
>> that is actually wrong. sort doesn't grab sequential pairs and sort
>> that. that would be a bubble sort which is very slow.
FB> Oh, sorry. In some ancient Perl versions (5.004 or similar), this
FB> algorithm was used, IIRC. I havn't checked this in newer versions.
FB> My apologies.
afiak, perl has never used a bubble sort. it had always used some N log
N sort supplied by libc or in the perl source.
FB> What I can't really understand is why not $A and $B were
FB> choosen instead of $a and $b. Anyone knows that uppercase
FB> names (ARGV, INC, ENV, SIG, STDERR, just to name few)
FB> have a special meanings and should never used as normal
FB> names. So when using uppercase names for $a and $b (or
FB> at least placing them in a special SORT:: namespace), any
FB> danger of mistake could be avoided.
dunno. good question to ask larry but i bet he won't know either.
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: Wed, 15 Nov 2006 12:49:13 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: compare two string and make some operation on it?
Message-Id: <bjvll21kq4i1nus0u24i2ouueno201mvmg@4ax.com>
On Wed, 15 Nov 2006 09:28:43 +0100, "Ferry Bolhar"
<bol@adv.magwien.gv.at> wrote:
>What I can't really understand is why not $A and $B were
>choosen instead of $a and $b. Anyone knows that uppercase
Well, probably because they didn't think of it back then. And typing
them is two shift keys away...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 14 Nov 2006 18:47:05 -0800
From: "Mark" <anon40629@hotmail.com>
Subject: Re: Confused about namespaces
Message-Id: <1163558818.877271@bubbleator.drizzle.com>
"Sherm Pendley" <spamtrap@dot-app.org> wrote:
>
> Also, you should add an expression at the end of the file that evaluates
> to a true value:
>
> # happy perl
> 1;
>
> Unless a module returns a true value, it'll produce an error when you try
> to "use" it.
Yes, I wondered what that is about. I saw that in some of the examples,
but there was no explanation for it.
I decided to put my package declaration in my main program file, since
it is specific to this particular project and having a simple file makes it
all simpler and less likely to get separated.
(Specifically, I wanted to subclass HTML::Parser so that my subclass
would contain a hash reference to collect specific data that my
event handlers were looking for. Otherwise I would need to use global
variables.)
Thanks again
-Mark
------------------------------
Date: 15 Nov 2006 03:10:57 -0800
From: "MoshiachNow" <lev.weissman@creo.com>
Subject: Get remote PC windows shares
Message-Id: <1163589056.652937.116440@k70g2000cwa.googlegroups.com>
HI,
I use Win32::Lanman for this goal fine on XP,however same perl script
finds no remote shares if run on W2K or W2003.
Is there any other method of getting the remote shares ?
Thanks
Code:
if( Win32::Lanman::NetShareEnum( $Machine, \@List ) ) {
foreach my $Share ( @List ) {
my $SHARE = $Share->{netname};
if ($SHARE !~ /.*\$/) {
push(@SHARES,$SHARE) if ($SHARE ne "");
}
}
------------------------------
Date: 14 Nov 2006 18:33:08 -0800
From: "Keith" <keithw99@gmail.com>
Subject: Net::SSH::Perl -- can I capture the command prompt?
Message-Id: <1163557988.456613.44170@f16g2000cwb.googlegroups.com>
I've been using Net::SSH::Perl to log in to Cisco routers and perform
tasks, but there's one thing I can't seem to do. Without opening an
actual interactive shell, I just want to capture (in a string) the
actual command prompt upon logging in. For example, when you log into
a Cisco router via a telnet or SSH shell, the prompt is normally
something like "Router>".
The reason I need to do this is to tell the level of access; i.e. the
prompt "Router>" tells you that you're in EXEC mode, the prompt
"Router#" tells you that you're in privileged mode, and
"Router(config)#" tells you that you're in configuration mode. This
isn't specific to Cisco either -- logging into another UNIX machine
obviously gives you a specific prompt that reveals the host, user, and
shell.
The method $ssh->cmd() works fine, but it just returns the output
resulting from a specific command. i.e., if you give the command:
my ($stdout, $stderr, $exit_status) = $ssh->cmd('show ip route');
The $stdout string will contain the output from the command (in this
case the routing table), but it won't give the contents of the actual
command prompt. I'd appreciate any advice if anyone has had to do this
before. Thanks!
------------------------------
Date: 14 Nov 2006 20:37:56 -0800
From: "Deepika" <deepika.mediratta@gmail.com>
Subject: Re: Net::SSH::Perl -- can I capture the command prompt?
Message-Id: <1163565476.098442.212040@m73g2000cwd.googlegroups.com>
Hi Keith,
Reading your post was such a relief(to know that NET::SSH works with
Cisco routers).
I have been trying to do the same task as you mentioned above. I am
writing a perl Script to log into a CLI Box which behaves just like a
cisco router having the same prompts "> # (config)" and has the same
commands, but for me after logging into the CLI none of my commands
actually give an output back. I will really really appreciate if you
can just look at my straightfoward script and kindly tell me what I am
doing wrong. I have my output capture as well, as you can see "stdout"
has no value.
If you don't have time to look at my code, can you share your script
with me.
I will research on your task as well to capture the command prompt on
logging in. I will let you know if I find anything.
Here is my script for your reference:
*********************************************
use Net::SSH::Perl;
my $test = "xx.xx.xx.xx";
%params = ("debug",true);
my $sshtest = Net::SSH::Perl->new($test,%params);
my ($stdout, $stderr, $exit) = $sshtest->login("username","password");
print "\n value of stdout = $stdout \n";
print "\n value of stderr = $stderr \n";
print "\n value of exitt = $exit \n";
($stdout, $stderr, $exit) = $sshtest->cmd("?");
print "\n value of stdout = $stdout \n";
print "value of stderr = $stderr \n";
print "value of exitt = $exit \n";
*******************************************
HERE IS DEBUG OUTPUT:
[root@deepika-linux rnc]# perl ss.pl
deepika-linux: Reading configuration data /root/.ssh/config
deepika-linux: Reading configuration data /etc/ssh_config
deepika-linux: Allocated local port 1023.
deepika-linux: Connecting to xx.xx.xx.xx, port 22.
deepika-linux: Remote version string: SSH-2.0-OpenSSH_3.5p1
deepika-linux: Remote protocol version 2.0, remote software version
OpenSSH_3.5p1
deepika-linux: Net::SSH::Perl Version 1.30, protocol version 2.0.
deepika-linux: No compat match: OpenSSH_3.5p1.
deepika-linux: Connection established.
deepika-linux: Sent key-exchange init (KEXINIT), wait response.
deepika-linux: Algorithms, c->s: 3des-cbc hmac-sha1 none
deepika-linux: Algorithms, s->c: 3des-cbc hmac-sha1 none
deepika-linux: Entering Diffie-Hellman Group 1 key exchange.
deepika-linux: Sent DH public key, waiting for reply.
deepika-linux: Received host key, type 'ssh-dss'.
deepika-linux: Host 'xx.xx.xx.xx' is known and matches the host key.
deepika-linux: Computing shared secret key.
deepika-linux: Verifying server signature.
deepika-linux: Waiting for NEWKEYS message.
deepika-linux: Enabling incoming encryption/MAC/compression.
deepika-linux: Send NEWKEYS, enable outgoing
encryption/MAC/compression.
deepika-linux: Sending request for user-authentication service.
deepika-linux: Service accepted: ssh-userauth.
deepika-linux: Trying empty user-authentication request.
deepika-linux: Authentication methods that can continue: password.
deepika-linux: Next method to try is password.
deepika-linux: Trying password authentication.
value of stdout = 1
value of stderr =
value of exitt =
deepika-linux: channel 0: new [client-session]
deepika-linux: Requesting channel_open for channel 0.
deepika-linux: Entering interactive session.
deepika-linux: Sending command: ?
deepika-linux: Requesting service exec on channel 0.
deepika-linux: channel 0: open confirm rwindow 0 rmax 32768
value of stdout =
value of stderr =
value of exitt =
[root@deepika-linux rnc]#
Keith wrote:
> I've been using Net::SSH::Perl to log in to Cisco routers and perform
> tasks, but there's one thing I can't seem to do. Without opening an
> actual interactive shell, I just want to capture (in a string) the
> actual command prompt upon logging in. For example, when you log into
> a Cisco router via a telnet or SSH shell, the prompt is normally
> something like "Router>".
>
> The reason I need to do this is to tell the level of access; i.e. the
> prompt "Router>" tells you that you're in EXEC mode, the prompt
> "Router#" tells you that you're in privileged mode, and
> "Router(config)#" tells you that you're in configuration mode. This
> isn't specific to Cisco either -- logging into another UNIX machine
> obviously gives you a specific prompt that reveals the host, user, and
> shell.
>
> The method $ssh->cmd() works fine, but it just returns the output
> resulting from a specific command. i.e., if you give the command:
>
> my ($stdout, $stderr, $exit_status) = $ssh->cmd('show ip route');
>
> The $stdout string will contain the output from the command (in this
> case the routing table), but it won't give the contents of the actual
> command prompt. I'd appreciate any advice if anyone has had to do this
> before. Thanks!
------------------------------
Date: 14 Nov 2006 20:49:26 -0800
From: koneruarjun@gmail.com
Subject: Re: Net::SSH::Perl -- can I capture the command prompt?
Message-Id: <1163566166.328167.113310@h48g2000cwc.googlegroups.com>
In case of bourne/bash shell (and maybe most other shells) , You could
check $PS1 to access the contents of the prompt.
Not sure if such an environment variable is defined in your case - Also
If you just want to get the privileges of the user ..may be theres is
another method to obtain that as well.(something like `whoami` in most
*nix flavors)
HTH
-Arjun
Keith wrote:
> I've been using Net::SSH::Perl to log in to Cisco routers and perform
> tasks, but there's one thing I can't seem to do. Without opening an
> actual interactive shell, I just want to capture (in a string) the
> actual command prompt upon logging in. For example, when you log into
> a Cisco router via a telnet or SSH shell, the prompt is normally
> something like "Router>".
>
> The reason I need to do this is to tell the level of access; i.e. the
> prompt "Router>" tells you that you're in EXEC mode, the prompt
> "Router#" tells you that you're in privileged mode, and
> "Router(config)#" tells you that you're in configuration mode. This
> isn't specific to Cisco either -- logging into another UNIX machine
> obviously gives you a specific prompt that reveals the host, user, and
> shell.
>
> The method $ssh->cmd() works fine, but it just returns the output
> resulting from a specific command. i.e., if you give the command:
>
> my ($stdout, $stderr, $exit_status) = $ssh->cmd('show ip route');
>
> The $stdout string will contain the output from the command (in this
> case the routing table), but it won't give the contents of the actual
> command prompt. I'd appreciate any advice if anyone has had to do this
> before. Thanks!
------------------------------
Date: 15 Nov 2006 08:11:30 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Net::SSH::Perl -- can I capture the command prompt?
Message-Id: <4s00diFsjo4uU1@mid.dfncis.de>
Keith <keithw99@gmail.com> wrote in comp.lang.perl.misc:
> I've been using Net::SSH::Perl to log in to Cisco routers and perform
> tasks, but there's one thing I can't seem to do. Without opening an
> actual interactive shell, I just want to capture (in a string) the
> actual command prompt upon logging in. For example, when you log into
> a Cisco router via a telnet or SSH shell, the prompt is normally
> something like "Router>".
>
> The reason I need to do this is to tell the level of access; i.e. the
> prompt "Router>" tells you that you're in EXEC mode, the prompt
> "Router#" tells you that you're in privileged mode, and
> "Router(config)#" tells you that you're in configuration mode. This
> isn't specific to Cisco either -- logging into another UNIX machine
> obviously gives you a specific prompt that reveals the host, user, and
> shell.
The connection between the prompt and properties of the process is
tenuous at best. It is shell-dependent and user configurable, so it's
nothing to rely on.
Find how the prompt is set to its various forms (study the startup
script(s) for the shell) and use the methods that are used there.
Anno
------------------------------
Date: Wed, 15 Nov 2006 05:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Nov 15 2006
Message-Id: <J8rBuB.1AwE@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.
Bot-BasicBot-Pluggable-Module-CoreList-0.01
http://search.cpan.org/~book/Bot-BasicBot-Pluggable-Module-CoreList-0.01/
IRC frontend to Regexp::CoreList
----
Bundle-Parrot-0.4.7_01
http://search.cpan.org/~particle/Bundle-Parrot-0.4.7_01/
Bundle of modules required for developing and testing Parrot
----
Business-OnlinePayment-AuthorizeNet-3.16
http://search.cpan.org/~ivan/Business-OnlinePayment-AuthorizeNet-3.16/
AuthorizeNet backend for Business::OnlinePayment
----
CGI-Auth-Auto-1.06
http://search.cpan.org/~leocharre/CGI-Auth-Auto-1.06/
Automatic authentication maintenance for cgi scrips.
----
Convert-AcrossLite-0.09
http://search.cpan.org/~dsparling/Convert-AcrossLite-0.09/
Convert binary AcrossLite puzzle files to text.
----
Convert-AcrossLite-0.10
http://search.cpan.org/~dsparling/Convert-AcrossLite-0.10/
Convert binary AcrossLite puzzle files to text.
----
Data-UUID-0.146
http://search.cpan.org/~rjbs/Data-UUID-0.146/
Perl extension for generating Globally/Universally Unique Identifiers (GUIDs/UUIDs).
----
Games-Goban-1.100
http://search.cpan.org/~rjbs/Games-Goban-1.100/
Board for playing go, renju, othello, etc.
----
Games-Nintendo-Mario-0.201
http://search.cpan.org/~rjbs/Games-Nintendo-Mario-0.201/
a class for jumping Italian plumbers
----
Graphics-ColorUtils-0.03
http://search.cpan.org/~janert/Graphics-ColorUtils-0.03/
Easy-to-use color space conversions and more.
----
HTML-Form-ForceValue-0.006
http://search.cpan.org/~rjbs/HTML-Form-ForceValue-0.006/
who cares what values are legal, anyway?
----
HTML2XHTML-0.03
http://search.cpan.org/~oembry/HTML2XHTML-0.03/
Wrapper to command-line program that converts from HTML 3.x/4.x to XHTML 1.0
----
HTML2XHTML-0.03a
http://search.cpan.org/~oembry/HTML2XHTML-0.03a/
Wrapper to command-line program that converts from HTML 3.x/4.x to XHTML 1.0
----
HTTP-Daemon-App-v0.0.4
http://search.cpan.org/~dmuey/HTTP-Daemon-App-v0.0.4/
Create 2 or 3 line, fully functional (SSL) HTTP server(s)
----
HTTP-Daemon-App-v0.0.5
http://search.cpan.org/~dmuey/HTTP-Daemon-App-v0.0.5/
Create 2 or 3 line, fully functional (SSL) HTTP server(s)
----
HTTP-Daemon-App-v0.0.6
http://search.cpan.org/~dmuey/HTTP-Daemon-App-v0.0.6/
Create 2 or 3 line, fully functional (SSL) HTTP server(s)
----
Lexical-Persistence-0.95
http://search.cpan.org/~rcaputo/Lexical-Persistence-0.95/
Persistent lexical variable values for arbitrary calls.
----
List-MapList-1.121
http://search.cpan.org/~rjbs/List-MapList-1.121/
map lists through a list of subs, not just one
----
Log-Dispatch-TextTable-0.031
http://search.cpan.org/~rjbs/Log-Dispatch-TextTable-0.031/
log events to a textual table
----
Lucene-0.03
http://search.cpan.org/~tbusch/Lucene-0.03/
API to the C++ port of the Lucene search engine
----
Module-Starter-Plugin-SimpleStore-0.141
http://search.cpan.org/~rjbs/Module-Starter-Plugin-SimpleStore-0.141/
----
Module-Starter-Plugin-TT2-0.122
http://search.cpan.org/~rjbs/Module-Starter-Plugin-TT2-0.122/
TT2 templates for Module::Starter::Template
----
MogileFS-Utils-1.50
http://search.cpan.org/~bradfitz/MogileFS-Utils-1.50/
----
Moose-0.16
http://search.cpan.org/~stevan/Moose-0.16/
A complete modern object system for Perl 5
----
Moose-0.17
http://search.cpan.org/~stevan/Moose-0.17/
A complete modern object system for Perl 5
----
Net-Appliance-Phrasebook-0.07
http://search.cpan.org/~oliver/Net-Appliance-Phrasebook-0.07/
Network appliance command-line phrasebook
----
Net-Appliance-Session-0.09
http://search.cpan.org/~oliver/Net-Appliance-Session-0.09/
Run command-line sessions to network appliances
----
Object-InsideOut-2.22
http://search.cpan.org/~jdhedden/Object-InsideOut-2.22/
Comprehensive inside-out object support module
----
Object-InsideOut-2.23
http://search.cpan.org/~jdhedden/Object-InsideOut-2.23/
Comprehensive inside-out object support module
----
Parallel-Mpich-MPD-0.2.0
http://search.cpan.org/~alexmass/Parallel-Mpich-MPD-0.2.0/
Mpich MPD wrapper
----
Querylet-0.321
http://search.cpan.org/~rjbs/Querylet-0.321/
simplified queries for the non-programmer
----
Querylet-CGI-0.141
http://search.cpan.org/~rjbs/Querylet-CGI-0.141/
turn a querylet into a web application
----
Querylet-Output-Excel-OLE-0.141
http://search.cpan.org/~rjbs/Querylet-Output-Excel-OLE-0.141/
output query results to Excel via OLE
----
Querylet-Output-Excel-XLS-0.131
http://search.cpan.org/~rjbs/Querylet-Output-Excel-XLS-0.131/
output querylet results to an Excel file
----
Querylet-Output-Text-0.111
http://search.cpan.org/~rjbs/Querylet-Output-Text-0.111/
output querylet results to text tables
----
Remedy-ARSTools-1
http://search.cpan.org/~ahicox/Remedy-ARSTools-1/
a perl wrapper to the ARSperl project, providing a simplified object interface with field definition caching.
----
Return-Value-1.302
http://search.cpan.org/~rjbs/Return-Value-1.302/
Polymorphic Return Values
----
SNMP-BridgeQuery-0.61
http://search.cpan.org/~jshearer/SNMP-BridgeQuery-0.61/
Perl extension for retrieving bridge tables.
----
Sledge-Plugin-Inflate-0.03
http://search.cpan.org/~tokuhirom/Sledge-Plugin-Inflate-0.03/
inflate object from request or session.
----
Text-DHCPparse-0.09
http://search.cpan.org/~jshearer/Text-DHCPparse-0.09/
Perl extension for parsing dhcpd lease files
----
Tk-DiffText-0.11
http://search.cpan.org/~mjcarman/Tk-DiffText-0.11/
Perl/Tk composite widget for colorized diffs.
----
WWW-Translate-interNOSTRUM-0.05
http://search.cpan.org/~enell/WWW-Translate-interNOSTRUM-0.05/
Catalan < > Spanish machine translation
----
WebSphere-MQTT-Client-0.03
http://search.cpan.org/~njh/WebSphere-MQTT-Client-0.03/
WebSphere MQ Telemetry Transport Client
----
XML-API-WIX2-0.01
http://search.cpan.org/~rbdavison/XML-API-WIX2-0.01/
WIX source file generation through an object API
----
XML-API-WIX2-0.02
http://search.cpan.org/~rbdavison/XML-API-WIX2-0.02/
WIX source file generation through an object API
----
asterisk-perl-0.09
http://search.cpan.org/~jamesgol/asterisk-perl-0.09/
----
parrot-0.4.7
http://search.cpan.org/~chips/parrot-0.4.7/
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: Wed, 15 Nov 2006 02:02:47 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Newbie with simple File handling problem
Message-Id: <nmpkl2dd3ukqudkp85jbj8cqdb259o9dl5@4ax.com>
On 14 Nov 2006 09:52:49 -0800, "JasonGilbertUK"
<jasongilbertuk@hotmail.com> wrote:
>I'm working through "Learn Perl in a weekend" and have hit issues in
>the file handling section. The code below is taken from the book and is
>a simple demo of opening / reading / closing a file.
Incidentally:
| And: Every book which has a title that promises you to learn something in
| x weeks, day or even hours is lying.
| - Tore Aursand in clpmisc, "Re: wow...jackpot."
(Now one of my .sig's)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 15 Nov 2006 04:55:59 -0800
From: mathieu.lory@gmail.com
Subject: Re: Perl Packager, pp, compilation
Message-Id: <1163595359.080268.161930@k70g2000cwa.googlegroups.com>
Ben Morrow a =E9crit :
> You don't use -A for dependant libraries, you use -l, e.g.
> pp -o mozembed -l gtkembedmoz mozembed.pl
Thanks for your help Ben, It's work now. But I've another strange error
: my application crash at startup, with only 2 warnings :
*** This build of Glib was compiled with glib 2.9.5, but is currently
running with 2.8.3, which is too old. We'll continue, but expect
problems!
*** This build of Gtk2 was compiled with gtk+ 2.8.16, but is currently
running with 2.8.6, which is too old. We'll continue, but expect
problems!
So, I don't understand the problem, because As I know, all the libs are
included to the package, so it can't be a problem of version ! no ?
then, for Gtk2 : "was compiled with gtk+ 2.8.16, but is currently
running with 2.8.6, which is too old" =3D> 2.8.16 is older than 2.8.6 ?
really ?
------------------------------
Date: Tue, 14 Nov 2006 05:31:02 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: reverse chomp()
Message-Id: <slrnelja7m.cgv.tadmc@tadmc30.august.net>
EZP <peretz.eyal@gmail.com> wrote:
> How can i make " max" into "max"?
By reading the Perl FAQ.
perldoc -q space
How do I strip blank space from the beginning/end of a string?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9969
***************************************
