[30798] in Perl-Users-Digest
Perl-Users Digest, Issue: 2043 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 9 03:09:53 2008
Date: Tue, 9 Dec 2008 00:09:16 -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 Tue, 9 Dec 2008 Volume: 11 Number: 2043
Today's topics:
Accessing an array inside of a package <ryan.mccoskrie@gmail.com>
Re: Accessing an array inside of a package <jimsgibson@gmail.com>
Re: Accessing an array inside of a package <ryan.mccoskrie@gmail.com>
Re: Accessing an array inside of a package <tadmc@seesig.invalid>
executing unix command on a diff domain <slick.users@gmail.com>
Re: executing unix command on a diff domain <matteo.corti@gmail.com>
Re: how detect english subject and predicate in a sente <jack_posemsky@yahoo.com>
Re: is perl obsolete? <jurgenex@hotmail.com>
Re: Linux disk errors - any early indications <james.harris.1@googlemail.com>
Re: Mathematica 7 compares to other languages <xahlee@gmail.com>
Re: Mathematica 7 compares to other languages <jon@ffconsultancy.com>
Re: Mathematica 7 compares to other languages <wmacintosh91834@live.ca>
Re: Mathematica 7 compares to other languages <kkylheku@gmail.com>
new CPAN modules on Tue Dec 9 2008 (Randal Schwartz)
Re: Trouble with Net::Ping <No_4@dsl.pipex.com>
Re: Trouble with Net::Ping <nospam@somewhere.com>
Re: Trouble with Net::Ping <r.ted.byers@gmail.com>
Re: Trouble with Net::Ping <r.ted.byers@gmail.com>
Re: wget/sftp- style progress bar <user42@zip.downwithspam.com.au>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 09 Dec 2008 13:51:38 +1300
From: Ryan McCoskrie <ryan.mccoskrie@gmail.com>
Subject: Accessing an array inside of a package
Message-Id: <ghkfec$odb$1@aioe.org>
I've been working on a little Polish notation
calculator / interpreter just to get some
idea of how to deal with these issues.
However my design pins on having a package
that describes a sum including all of the numbers
in it and the perl interpreter won't accept this:
@self->{num} = []; #my list of numbers
... #skip boring bit where the numbers are read in
#and check to be numbers
push @self->{num}, @input; #@input is the numbers
What I get is this:
Type of arg 1 to push must be array (not hash element) at
sum.pm line 16, near "@input;"
------------------------------------------------------------------------
Quote of the login:
I haven't lost my mind -- it's backed up on tape somewhere.
------------------------------
Date: Mon, 08 Dec 2008 16:59:33 -0800
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: Accessing an array inside of a package
Message-Id: <081220081659334579%jimsgibson@gmail.com>
In article <ghkfec$odb$1@aioe.org>, Ryan McCoskrie
<ryan.mccoskrie@gmail.com> wrote:
> I've been working on a little Polish notation
> calculator / interpreter just to get some
> idea of how to deal with these issues.
>
> However my design pins on having a package
> that describes a sum including all of the numbers
> in it and the perl interpreter won't accept this:
>
> @self->{num} = []; #my list of numbers
$self->{num} = []; # reference to an anonymous array
> ... #skip boring bit where the numbers are read in
> #and check to be numbers
> push @self->{num}, @input; #@input is the numbers
push( @{$self->{num}}, @input ); # add elements to that array
An anonymous array with a reference $ref to it is accessed as @{$ref}.
>
> What I get is this:
> Type of arg 1 to push must be array (not hash element) at
> sum.pm line 16, near "@input;"
--
Jim Gibson
------------------------------
Date: Tue, 09 Dec 2008 15:16:13 +1300
From: Ryan McCoskrie <ryan.mccoskrie@gmail.com>
Subject: Re: Accessing an array inside of a package
Message-Id: <ghkkct$9fb$1@aioe.org>
Ryan McCoskrie wrote:
First of sorry for not replying to the right message
(news reader issues).
Thanks for that, I was sure there would be an answer
like that. I just haven't worked with perl enough
to know that sort of thing.
------------------------------------------------------------------------
Quote of the login:
I haven't lost my mind -- it's backed up on tape somewhere.
------------------------------
Date: Mon, 8 Dec 2008 22:25:03 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Accessing an array inside of a package
Message-Id: <slrngjrsov.ihj.tadmc@tadmc30.sbcglobal.net>
Ryan McCoskrie <ryan.mccoskrie@gmail.com> wrote:
> the perl interpreter won't accept this:
>
> @self->{num} = []; #my list of numbers
> push @self->{num}, @input; #@input is the numbers
perldoc perlreftut
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 8 Dec 2008 22:34:56 -0800 (PST)
From: Slickuser <slick.users@gmail.com>
Subject: executing unix command on a diff domain
Message-Id: <35516587-2e03-46dc-ab78-597739c8912b@w24g2000prd.googlegroups.com>
$command = "ssh xx@domain.com";
system($command);
$command2 = "ls /user/serv2/";
system($command2);
How do I get command 2 to work. I can get $command to work fine. thx
------------------------------
Date: Mon, 8 Dec 2008 22:59:48 -0800 (PST)
From: Teo <matteo.corti@gmail.com>
Subject: Re: executing unix command on a diff domain
Message-Id: <1d44f707-cf61-4de1-a959-a7a87c462bee@i20g2000prf.googlegroups.com>
On Dec 9, 7:34=A0am, Slickuser <slick.us...@gmail.com> wrote:
> $command =3D "ssh x...@domain.com";
> system($command);
>
> $command2 =3D "ls /user/serv2/";
> system($command2);
>
> How do I get command 2 to work. I can get $command to work fine. thx
Hi,
if you want $command2 to be executed on the remote host you have to
send it as an argument of ssh:
my $command =3D 'ssh user@example.com "ls /usr/serv2/"';
system $command;
Matteo
------------------------------
Date: Mon, 8 Dec 2008 17:05:11 -0800 (PST)
From: Jack <jack_posemsky@yahoo.com>
Subject: Re: how detect english subject and predicate in a sentence
Message-Id: <7d1cc454-437c-4cf5-b6ef-9caab5b76a4c@r36g2000prf.googlegroups.com>
On Dec 6, 1:13=A0pm, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
> On 2008-12-04 22:10, Charlton Wilbur <cwil...@chromatico.net> wrote:
>
>
>
> >>>>>> "SB" =3D=3D Scott Bryce <sbr...@scottbryce.com> writes:
>
> > =A0 =A0SB> Jack wrote:
>
> > =A0 =A0 >> I want to know the topical NOUN of the sentence. =A0Not noun=
s that
> > =A0 =A0 >> happen to supplement elsewhere in the sentence. =A0In "fruit=
flies
> > =A0 =A0 >> like a banana" - the key or topical noun is 'fruit' NOT bana=
na
> > =A0 =A0 >> yet both are nouns...just 1 example.
>
> > =A0 =A0SB> This is an example which points out how difficult the task
> > =A0 =A0SB> is. "Fruit" is NOT the topic of the sentence. "flies"
> > =A0 =A0SB> is. "Fruit" tells us what type of flies like bananas.
>
> > Actually, the sentence can be read *correctly* in two incompatible ways=
.
> > You can read "Fruit flies" as thesubject, and "like a banana" as the
> > predicate, or "Fruit" as thesubject, and "flies like a banana" as the
> > predicate. =A0Both readings are correct.
>
> Only syntactically. I am not an expert in the aerodynamic properties of
> fruit, but I would imagine that a banana with its elongated, curved form
> flies rather differently than an apple or a coconut. So the
> generalization is false or at least questionable. And if it was intended
> as a generalization it would probably have been worded "*all* fruit
> flies like a banana." On the other hand, it is common knowledge that
> fruit flies do like bananas. So the interpretation ((fruit) (flies) (like
> a banana)) is rather unlikely (and I'm rather astonished that Jack made
> that mistake, especially given the context).
>
> > Structurally, it's identical to the former sentence in the statement:
> > "Time flies like an arrow." =A0But because there is no such thing as a
> > "time fly," there's only one reading that makes sense.
>
> Well, there could be. It doesn't even have to be an insect. Maybe
> there's a rock band "The Time Flies". And maybe they like Italian
> motorcycle parts ...
>
> > In other words, you can't determine what thesubjectof the sentence is
> > without knowledge of the semantic content. =A0
>
> Right. It's knowledge about the real world (including common figures of
> speech) which makes the ((fruit flies) (like) (a banana)) a much more
> likely interpretation than ((fruit) (flies) (like a banana)), and which
> makes ((time) (flies) (like an arrow)) much more likely than ((time
> flies) (like) (an arrow)).
>
> =A0 =A0 =A0 =A0 hp
Hi all,
sounds good and I believe we are focusing on a few exceptions / corner
cases. I would make an educated guess that for 80-90% of sentences it
should be possible to extract the subject and predicate...that being
said, is there a module that does this and if not what are the rules.
Are we still stuck in this semantic conundrum for the majority case?
Thanks,
Jack
------------------------------
Date: Mon, 08 Dec 2008 15:26:17 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: is perl obsolete?
Message-Id: <s1brj450qgsnc7gj3rj849a27fsc3gaa39@4ax.com>
gavino <gavcomedy@gmail.com> wrote:
>do people only use it for legacy?
>
>php ruby haskell erlang all seem to be beyond it
Gavino is a well-known drive-by poster: dump something remotely relevant
into a NG and then take off as fast as possible. Please see
http://groups.google.com/groups/search?hl=en&as_ugroup=comp.lang.perl.misc&as_uauthors=gavcomedy%40gmail.com
for details.
I suggest not to feed this troll
jue
------------------------------
Date: Mon, 8 Dec 2008 18:02:21 -0800 (PST)
From: James Harris <james.harris.1@googlemail.com>
Subject: Re: Linux disk errors - any early indications
Message-Id: <196c87ec-b68b-4ed5-9658-9bd572b3b3ec@g1g2000pra.googlegroups.com>
On 8 Dec, 20:48, Tim Greer <t...@burlyhost.com> wrote:
> James Harris wrote:
> > Any one of these would do, though the last is the best option as it
> > doesn't rely on disk storage. Doesn't seem much to expect one of these
> > but Linux has no such option (that I can find, anyway) to report a
> > filesystem problem.
>
> You needn't scan the drive for errors (that was a suggestion, of a few,
> of how you could check to health or the current drive(s)), and with
> normal usage it will report the error in the dmesg and messages log (if
> it can), assuming you have the proper error reporting/debugging
> enabled.
>
> You should use tools such as smartctl (for example) and other commands
> that will warn you both as errors happen and as it sees problems
> starting to happen, but the rest were just tools you could use to check
OK. I have installed the smartmontools and set it up. It looks good so
far though it must be said it is a disk-level tool rather than one
that identifies partitions or file systems that have errors. The early
indications in the log and the e-mail ability are helpful, though.
Am also running badblocks scans on some of the partitions.
> the state of the drive now (you can use the other tools now that aren't
> having to spend a long time scanning). It really depends on your
> system and what you can do, such as a hardware raid card, software
> raid, or just normal ide/scsi/sata drives. This should probably no
> longer be posted to the Perl group.
Agreed. Followups set accordingly.
James
------------------------------
Date: Mon, 8 Dec 2008 15:14:18 -0800 (PST)
From: Xah Lee <xahlee@gmail.com>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <9d5ecca4-3eb8-42ad-b4d8-951719ef874b@n33g2000pri.googlegroups.com>
Dear George Neuner,
Xah Lee wrote:
> >The phenomenon of creating code that are inefficient is proportional
> >to the highlevelness or power of the lang. In general, the higher
> >level of the lang, the less possible it is actually to produce a code
> >that is as efficient as a lower level lang.
George Neuner wrote:
> This depends on whether someone has taken the time to create a high
> quality optimizing compiler.
try to read the sentence. I quote:
=C2=ABThe phenomenon of creating code that are inefficient is proportional
to the highlevelness or power of the lang. In general, the higher
level of the lang, the less possible it is actually to produce a code
that is as efficient as a lower level lang.=C2=BB
Xah Lee wrote:
> >For example,
> >the level or power of lang can be roughly order as
> >this:
>
> >assembly langs
> >C, pascal
> >C++, java, c#
> >unix shells
> >perl, python, ruby, php
> >lisp
> >Mathematica
George wrote:
> According to what "power" estimation? Assembly, C/C++, C#, Pascal,
> Java, Python, Ruby and Lisp are all Turing Complete. I don't know
> offhand whether Mathematica is also TC, but if it is then it is at
> most equally powerful.
it's amazing that every tech geekers (aka idiots) want to quote
=E2=80=9CTuring Complete=E2=80=9D in every chance. Even a simple cellular a=
utomata,
such as Conway's game of life or rule 110, are complete.
http://en.wikipedia.org/wiki/Conway's_Game_of_Life
http://en.wikipedia.org/wiki/Rule_110
in fact, according to Stephen Wolfram's controversial thesis by the
name of =E2=80=9CPrinciple of computational equivalence=E2=80=9D, every god=
damn thing
in nature is just about turing complete. (just imagine, when you take
a piss, the stream of yellow fluid is actually doing turning complete
computations!)
for a change, it'd be far more interesting and effective knowledge
showoff to cite langs that are not so-called fuck of the turing
complete.
the rest of you message went on stupidly on the turing complete point
of view on language's power, mixed with lisp fanaticism, and personal
gribes about merits and applicability assembly vs higher level langs.
It's fine to go on with your gribes, but be careful in using me as a
stepping stone.
Xah
=E2=88=91 http://xahlee.org/
=E2=98=84
------------------------------
Date: Tue, 09 Dec 2008 00:56:28 +0000
From: Jon Harrop <jon@ffconsultancy.com>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <TdedndErcJo9XKDUnZ2dnUVZ8uudnZ2d@posted.plusnet>
Xah Lee wrote:
> A moron, wrote:
> > You failed the challenge that you were given.
>
> you didn't give me a challenge.
Thomas gave you the challenge:
"What I want in return is you to execute and time Dr. Harrop's original
code, posting the results to this thread... By Dr. Harrop's original code,
I specifically mean the code he posted to this thread. I've pasted it below
for clarity.".
Thomas even quoted my code verbatim to make his requirements totally
unambiguous. Note the parameters [9, 512, 4] in the last line that he and I
both gave:
AbsoluteTiming[Export["image.pgm", Graphics@Raster@Main[9, 512, 4]]]
You have not posted timings of that, let alone optimized it. So you failed.
> I gave you. I asked for $5 sincerity
> wage of mutal payment or money back guarantee, so that we can show
> real code instead of verbal fight. You didn't take it and do nothing
> but continue petty quarrel on words.
Then where did you post timings of that exact code as Thomas requested?
>
http://www.gossamer-threads.com/lists/python/python/698196?do=post_view_threaded#698196
> ā€¯ ) You refuse to acknowledge it, and continue babbling, emphasizing that
> my code should be some hundred times faster make valid argument.
That is not my code! Look at the last line where you define the scene:
Timing[Export["image.pgm",Graphics[at]Raster@Main[2,100,4.]]]
Those are not the parameters I gave you. Your program is running faster
because you changed the scene from over 80,000 spheres to only 5 spheres.
Look at your output image: it is completely wrong!
> As i said, now pay me $300, i will then make your Mathematica code in
> the same level of speed as your OCmal. If it does not, money back
> guaranteed.
Your money back guarantee is worthless if you cannot even tell when you have
failed.
> Show me your OCmal code that will compile on my machine (PPC Mac, OSX
> 10.4.x).
The code is still on our site:
http://www.ffconsultancy.com/languages/ray_tracer/
OCaml, C++ and Scheme all take ~4s to ray trace the same scene.
> I'll make your Mathematica code in the same speed level as
> your OCmal code. (you claimed Mathematica is roughly 700 thousand
> times slower to your OCmal code. I claim, i can make it, no more than
> 10 times slower than the given OCmal code.)
You have not even made it 10% faster, let alone 70,000x faster. Either
provide the goods or swallow the fact that you have been wrong all along.
--
Dr Jon D Harrop, Flying Frog Consultancy Ltd.
http://www.ffconsultancy.com/?u
------------------------------
Date: Mon, 08 Dec 2008 21:42:58 -0500
From: Wesley MacIntosh <wmacintosh91834@live.ca>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <ghkm01$8qc$4@news.motzarella.org>
A flamer wrote:
> A moron, wrote:
[snip]
> my machine (PPC Mac, OSX 10.4.x).
Well, that explains a great deal.
Actually, I suspect all these newsgroups are being trolled.
------------------------------
Date: Tue, 9 Dec 2008 04:36:28 +0000 (UTC)
From: Kaz Kylheku <kkylheku@gmail.com>
Subject: Re: Mathematica 7 compares to other languages
Message-Id: <20081224103256.892@gmail.com>
On 2008-12-08, Xah Lee <xahlee@gmail.com> wrote:
> So, pay me $300 as consulting fee. If the result does not comply to
> the above spec, money back guaranteed.
*LOL*
Did you just offer someone the exciting wager of ``your money back or nothing?
No matter what probability we assign to the outcomes, the /upper bound/
on the expected income from the bet is at most zero dollars. Now that's not so
bad. Casino games and lotteries have that property too; the net gain is
negative.
But your game has no variability to suck someone in; the /maximum/ income from
any trial is that you break even, which is considered winning.
If you ever decide to open a casino, I suggest you stop playing with
Mathematica for a while, and spend a little more time with Statistica,
Probabilica, and especially Street-Smartica.
:)
------------------------------
Date: Tue, 9 Dec 2008 05:42:24 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Dec 9 2008
Message-Id: <KBLH6o.7z8@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.
Algorithm-PageRank-XS-0.04
http://search.cpan.org/~axiak/Algorithm-PageRank-XS-0.04/
A Fast PageRank implementation
----
Bio-Graphics-1.8
http://search.cpan.org/~lds/Bio-Graphics-1.8/
Generate GD images of Bio::Seq objects
----
Catalyst-Controller-HTML-FormFu-0.03007
http://search.cpan.org/~cfranks/Catalyst-Controller-HTML-FormFu-0.03007/
----
Catalyst-Engine-HTTP-Prefork-0.50
http://search.cpan.org/~agrundma/Catalyst-Engine-HTTP-Prefork-0.50/
High-performance pre-forking Catalyst engine
----
Catalyst-View-Graphics-Primitive-0.03
http://search.cpan.org/~gphat/Catalyst-View-Graphics-Primitive-0.03/
A Catalyst View for Graphics::Primitive
----
CatalystX-CRUD-0.37
http://search.cpan.org/~karman/CatalystX-CRUD-0.37/
CRUD framework for Catalyst applications
----
Class-C3-0.20
http://search.cpan.org/~flora/Class-C3-0.20/
A pragma to use the C3 method resolution order algortihm
----
Class-MOP-0.72
http://search.cpan.org/~drolsky/Class-MOP-0.72/
A Meta Object Protocol for Perl 5
----
Config-Hierarchical-0.12.6
http://search.cpan.org/~nkh/Config-Hierarchical-0.12.6/
Hierarchical configuration container
----
Config-JSON-1.3.1
http://search.cpan.org/~rizen/Config-JSON-1.3.1/
A JSON based config file system.
----
Convert-IBM390-0.26
http://search.cpan.org/~grommel/Convert-IBM390-0.26/
functions for manipulating mainframe data
----
DBI-Executed-0.00001
http://search.cpan.org/~miki/DBI-Executed-0.00001/
----
DBIx-Class-DeleteAction-1.01
http://search.cpan.org/~maros/DBIx-Class-DeleteAction-1.01/
Define delete triggers
----
DBIx-Perlish-0.50
http://search.cpan.org/~gruber/DBIx-Perlish-0.50/
a perlish interface to SQL databases
----
Data-Util-0.41
http://search.cpan.org/~gfuji/Data-Util-0.41/
A selection of utilities for data and data types
----
DayDayUp-0.06
http://search.cpan.org/~fayland/DayDayUp-0.06/
good good study, day day up
----
Devel-StashHook-0.01_001
http://search.cpan.org/~konobi/Devel-StashHook-0.01_001/
Callbacks for changes to a packages symbol table
----
Devel-StashHook-0.01_002
http://search.cpan.org/~konobi/Devel-StashHook-0.01_002/
Callbacks for changes to a packages symbol table
----
EasyMail-2.5.2
http://search.cpan.org/~foolfish/EasyMail-2.5.2/
Perl Send Mail Interface
----
Exception-Base-0.21
http://search.cpan.org/~dexter/Exception-Base-0.21/
Lightweight exceptions
----
FLUTF-0.9
http://search.cpan.org/~maluku/FLUTF-0.9/
----
Fey-ORM-0.13
http://search.cpan.org/~drolsky/Fey-ORM-0.13/
A Fey-based ORM
----
Google-Chart-0.05011
http://search.cpan.org/~dmaki/Google-Chart-0.05011/
Interface to Google Charts API
----
Gtk2-Ex-WidgetCursor-7
http://search.cpan.org/~kryde/Gtk2-Ex-WidgetCursor-7/
mouse pointer cursor management for widgets
----
Gtk2-Ex-Xor-5
http://search.cpan.org/~kryde/Gtk2-Ex-Xor-5/
shared support for drawing with XOR
----
HTML-FormFu-0.03007
http://search.cpan.org/~cfranks/HTML-FormFu-0.03007/
HTML Form Creation, Rendering and Validation Framework
----
HTML-FormFu-Model-DBIC-0.03007
http://search.cpan.org/~cfranks/HTML-FormFu-Model-DBIC-0.03007/
Integrate HTML::FormFu with DBIx::Class
----
HTML-Template-Associate-2.00
http://search.cpan.org/~alexp/HTML-Template-Associate-2.00/
Associate relevant packages with HTML::Template
----
KiokuDB-Backend-BDB-0.05
http://search.cpan.org/~nuffin/KiokuDB-Backend-BDB-0.05/
----
LEOCHARRE-Dir-1.06
http://search.cpan.org/~leocharre/LEOCHARRE-Dir-1.06/
subs for dirs
----
Linux-DVB-DVBT-0.01
http://search.cpan.org/~sdprice/Linux-DVB-DVBT-0.01/
Perl extension for DVB terrestrial recording, epg, and scanning
----
Module-Used-v1.2.0
http://search.cpan.org/~elliotjs/Module-Used-v1.2.0/
Find modules loaded by Perl code without running it.
----
Module-Version-Compare-0.00001_00
http://search.cpan.org/~yamakura/Module-Version-Compare-0.00001_00/
acquired the version of installed perl Module by more than one host.
----
MojoX-Locale-Maketext-0.02
http://search.cpan.org/~vti/MojoX-Locale-Maketext-0.02/
Locale::Maketext implementation
----
Moose-0.63
http://search.cpan.org/~drolsky/Moose-0.63/
A postmodern object system for Perl 5
----
MooseX-Singleton-0.13
http://search.cpan.org/~drolsky/MooseX-Singleton-0.13/
turn your Moose class into a singleton
----
MooseX-Types-Structured-0.06
http://search.cpan.org/~jjnapiork/MooseX-Types-Structured-0.06/
Structured Type Constraints for Moose
----
Music-Chord-Note-0.0.3
http://search.cpan.org/~bayashi/Music-Chord-Note-0.0.3/
get Chord Tone List from Chord Name
----
Net-Domain-TLD-1.68
http://search.cpan.org/~alexp/Net-Domain-TLD-1.68/
Work with TLD names
----
Net-fonolo-1.0
http://search.cpan.org/~mpultz/Net-fonolo-1.0/
Perl interface to fonolo (http://fonolo.com/developer)
----
Net-sFlow-0.09
http://search.cpan.org/~elisa/Net-sFlow-0.09/
decode sFlow datagrams
----
Nginx-Simple-0.03
http://search.cpan.org/~mjflick/Nginx-Simple-0.03/
Easy to use interface for "--with-http_perl_module"
----
Nginx-Simple-0.04
http://search.cpan.org/~mjflick/Nginx-Simple-0.04/
Easy to use interface for "--with-http_perl_module"
----
Padre-Plugin-Alarm-0.02
http://search.cpan.org/~fayland/Padre-Plugin-Alarm-0.02/
Alarm Clock in Padre
----
Parse-Yapp-KeyValue-0.1
http://search.cpan.org/~diz/Parse-Yapp-KeyValue-0.1/
parser for simple key/value pairs
----
Perlwikipedia-1.5.0
http://search.cpan.org/~dcollins/Perlwikipedia-1.5.0/
a Wikipedia bot framework written in Perl
----
Pod-Advent-0.11
http://search.cpan.org/~davidrw/Pod-Advent-0.11/
POD Formatter for The Perl Advent Calendar
----
Proc-Safetynet-0.01
http://search.cpan.org/~dtady/Proc-Safetynet-0.01/
POE-based utility for supervising processes
----
RDF-Simple-0.402
http://search.cpan.org/~mthurn/RDF-Simple-0.402/
read and write RDF without complication
----
Rubyish-Perl-0.20
http://search.cpan.org/~gugod/Rubyish-Perl-0.20/
----
Rubyish-Perl-0.21
http://search.cpan.org/~gugod/Rubyish-Perl-0.21/
----
Rubyish-Perl-0.22
http://search.cpan.org/~gugod/Rubyish-Perl-0.22/
----
Schedule-Load-3.060
http://search.cpan.org/~wsnyder/Schedule-Load-3.060/
Load distribution and status across multiple host machines
----
Storable-AMF-0.24
http://search.cpan.org/~grian/Storable-AMF-0.24/
Perl extension for serialize/deserialize AMF0/AMF3 data
----
Test-Refcount-0.03
http://search.cpan.org/~pevans/Test-Refcount-0.03/
assert reference counts on objects
----
Test-UniqueTestNames-0.04.1
http://search.cpan.org/~heumann/Test-UniqueTestNames-0.04.1/
Make sure all of your tests have unique names
----
Test-Unit-Lite-0.1003
http://search.cpan.org/~dexter/Test-Unit-Lite-0.1003/
Unit testing without external dependencies
----
Text-CSV-Slurp-0.4
http://search.cpan.org/~robbiebow/Text-CSV-Slurp-0.4/
----
Text-Restructured-0.003040
http://search.cpan.org/~nodine/Text-Restructured-0.003040/
Perl implementation of reStructuredText parser
----
Tk-Airports-0.05
http://search.cpan.org/~reneeb/Tk-Airports-0.05/
A widget to select airports
----
Unix-Uptime-0.1
http://search.cpan.org/~pioto/Unix-Uptime-0.1/
Determine the current uptime, in seconds, across different *NIX architectures
----
WWW-Netflix-API-0.08
http://search.cpan.org/~davidrw/WWW-Netflix-API-0.08/
Interface for Netflix's API
----
WebService-Cath-FuncNet-0.05
http://search.cpan.org/~isillitoe/WebService-Cath-FuncNet-0.05/
Interface to the CATH FuncNet webservice
----
indirect-0.09_01
http://search.cpan.org/~vpit/indirect-0.09_01/
Lexically warn about using the indirect object syntax.
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: Tue, 09 Dec 2008 00:29:35 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Trouble with Net::Ping
Message-Id: <o92dnTevMo9yJqDUnZ2dnUVZ8rOdnZ2d@pipex.net>
Ted Byers wrote:
> Here is a little script assembled fromt he documentation for
> Net::Ping.
That same documentation will show that Net::Ping, by default, tries to
open a TCP socket to the destination.
> You may choose one of six different protocols to use for the ping. The
> "tcp" protocol is the default. Note that a live remote host may still
> fail to be pingable by one or more of these protocols. For example,
> www.microsoft.com is generally alive but not "icmp" pingable.
The ping command uses ICMP.
These are different Internet Protocols.
> Is there something in configuring Net::Ping that can make it useful
> for automating checking connectivity (in the context of handling
> situations where, say, and LWP agent fails to retieve data as expected
> - did we get no data because there was no data or because the
> connection was lost or some other reason)?
LWP itself will tell you that. As noted, the "ping" command itself uses
ICMP - a protocol which would be of little use for data transfer, and
certainly not used by LWP.
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Mon, 8 Dec 2008 19:34:10 -0500
From: "Thrill5" <nospam@somewhere.com>
Subject: Re: Trouble with Net::Ping
Message-Id: <ghkee5$s0g$1@nntp.motzarella.org>
"Ted Byers" <r.ted.byers@gmail.com> wrote in message
news:18195b92-3a9d-4fd2-aaa6-514ef6753fc0@k8g2000yqn.googlegroups.com...
> Here is a little script assembled fromt he documentation for
> Net::Ping.
>
>
> use Net::Ping;
>
> $p = Net::Ping->new();
> $p->hires();
> #$host = '192.168.2.1';
> $host = 'www.google.ca';
> print '$host: ',$host,"\n\n";
> ($ret, $duration, $ip) = $p->ping($host,50);
> print $ret,"\n";
> print $duration,"\n";
> print $ip,"\n\n";
> printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n",
> 1000 * $duration)
> if $ret;
> $p->close();
>
> And here is the output from three runs of a program using Net::Ping:
>
> C:/Perl/bin\perl.exe -w k:/Work/test.network.pl
> $host: 192.168.2.1
>
> 1
> 0.96875
> 192.168.2.1
>
> 192.168.2.1 [ip: 192.168.2.1] is alive (packet return time: 968.75 ms)
>
> Compilation finished at Mon Dec 08 16:26:54
> C:/Perl/bin\perl.exe -w k:/Work/test.network.pl
> $host: www.google.ca
>
> 0
> 5
> 72.14.205.99
>
>
> Compilation finished at Mon Dec 08 16:27:56
>
> C:/Perl/bin\perl.exe -w k:/Work/test.network.pl
> $host: www.google.ca
>
> 0
> 21.046875
> 72.14.205.99
>
>
> Compilation finished at Mon Dec 08 16:29:48
>
>
> The first is within my homeoffice LAN, 192.168.2.1 being the router.
> The first two sets of output are without specifying a timeout (i.e.
> using ($ret, $duration, $ip) = $p->ping($host)).
>
> And now here is what I get using ping manually:
>
> C:\>ping www.google.ca
>
> Pinging www.l.google.com [72.14.205.103] with 32 bytes of data:
>
> Reply from 72.14.205.103: bytes=32 time=17ms TTL=246
> Reply from 72.14.205.103: bytes=32 time=14ms TTL=246
> Reply from 72.14.205.103: bytes=32 time=14ms TTL=246
> Reply from 72.14.205.103: bytes=32 time=16ms TTL=246
>
> Ping statistics for 72.14.205.103:
> Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
> Approximate round trip times in milli-seconds:
> Minimum = 14ms, Maximum = 17ms, Average = 15ms
>
> C:\>ping www.google.ca
>
> Pinging www.l.google.com [72.14.205.99] with 32 bytes of data:
>
> Reply from 72.14.205.99: bytes=32 time=17ms TTL=246
> Reply from 72.14.205.99: bytes=32 time=17ms TTL=246
> Reply from 72.14.205.99: bytes=32 time=17ms TTL=246
> Reply from 72.14.205.99: bytes=32 time=17ms TTL=246
>
> Ping statistics for 72.14.205.99:
> Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
> Approximate round trip times in milli-seconds:
> Minimum = 17ms, Maximum = 17ms, Average = 17ms
>
> C:\>
>
> The manual execution of ping happened just before and just after my
> test scriptlet was executed.
>
> So, then, why would my router invariably be seen by Net::Ping as
> accessable while google would not be, even though google clearly IS
> accessable. Again, I tried other sites, such as Microsoft, and while
> they are clearly accessable when manually invoking ping, the script
> using Net::Ping can not see them even though they get the correct IP
> address for them (as can be determined by comparison with the manual
> Ping command output at the time the script is executed.
>
> Is there something in configuring Net::Ping that can make it useful
> for automating checking connectivity (in the context of handling
> situations where, say, and LWP agent fails to retieve data as expected
> - did we get no data because there was no data or because the
> connection was lost or some other reason)?
>
> Thanks
>
> Ted
I've had issues with Net::Ping being unreliable on Win32 systems as well.
Win32:PingICMP is alternative if you don't need cross-platform support.
------------------------------
Date: Mon, 8 Dec 2008 22:14:15 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Trouble with Net::Ping
Message-Id: <61d36a51-a49e-4ddd-8e21-b6e0eba7669e@s21g2000vbp.googlegroups.com>
On Dec 8, 7:29=A0pm, Big and Blue <N...@dsl.pipex.com> wrote:
> Ted Byers wrote:
> > Here is a little script assembled fromt he documentation for
> > Net::Ping.
>
> That same documentation will show that Net::Ping, by default, tries to
> open a TCP socket to the destination.
>
Yes, I noticed that. I also noticed that the documentation said it
was the slowest because it is a higher level protocol than the others,
doing checks the others don't. My recollection is a bit fuzzy, but
IIRC TCP lives on top of UDP (and thus it makes sense that UDP would
be faster) and http lives on top of TCP. Since I would expect a web
client like a browser based on LWP would be using http exchanges, it
makes sense that if there is trouble with a given http exchange, one
should check the foundation it is built on, from the top down.
> > =A0 =A0 =A0 =A0You may choose one of six different protocols to use for=
the ping. The
> > =A0 =A0 =A0 =A0"tcp" protocol is the default. Note that a live remote h=
ost may still
> > =A0 =A0 =A0 =A0fail to be pingable by one or more of these protocols. F=
or example,
> > =A0 =A0 =A0 =A0www.microsoft.comis generally alive but not "icmp" pinga=
ble.
>
> The ping command uses ICMP.
>
> These are different Internet Protocols.
>
Yes, I know they're different protocols. But, as you note and I had
already observed, the documentation says tcp is the default protocol,
and that www.microsoft.com is generally alive but not icmp pingable.
That is why I tried the default TCP first.
But there is a problem, here, with what you've written. You say the
ping command uses ICMP, but you say www.microsoft.com is not ICMP
pingable. I used the ping command provided by MS with WXP. Why would
that use ICMP if www.microsoft.com is not ICMP pingable.
> > Is there something in configuring Net::Ping that can make it useful
> > for automating checking connectivity (in the context of handling
> > situations where, say, and LWP agent fails to retieve data as expected
> > - did we get no data because there was no data or because the
> > connection was lost or some other reason)?
>
> LWP itself will tell you that. =A0As noted, the "ping" command itself use=
s
> ICMP - a protocol which would be of little use for data transfer, and
> certainly not used by LWP.
>
I don't understand why you're on about ICMP when the documentation
says it is only one of three protocols, and the default protocol is
TCP.
In any event, LWP gives only a mention that a given transfer timed out
(and it happens only when trying to transfer a multimegabyte file),
but not why. I DID use the LWP::DebugFile package for this, but the
data doesn't seem very detailed.
I was, in fact, advised in this forum to check connectivity between
the machines in the transaction using ping and traceroute. I was
trying to learn how to use Net::Ping in order to automatically check
connectivity between the machines involved in the dialog, and log the
results to a log file as well as email a report to myself should a
problem be detected.
I have yet to figure out how to get Net::Traceroute to install on my
machine, but CPAN would not install it or related packages on any of
the Windows machines I use. I guessed, from the error messages CPAN
provided that the reason it wouldn't install was that some of the
programs usually found on the various flavours of Unix don't exist on
WXP. I found a POE component (I don't recall the name of it off
hand), but the documentation for POE is daunting, making it seem that
that package is overkill. If I can't this to work reliably quickly, I
may just resort to using system to use the OS's pinging and route
tracing commands, such as they are, dumping what they write to stdout
to a file, and then just parse the file. There's more than one way to
skin a cat, as it were.
Thanks
Ted
------------------------------
Date: Mon, 8 Dec 2008 22:17:35 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Trouble with Net::Ping
Message-Id: <26e50642-2b9f-4710-bd2b-02fef4b15a5e@41g2000yqf.googlegroups.com>
On Dec 8, 7:34=A0pm, "Thrill5" <nos...@somewhere.com> wrote:
> "Ted Byers" <r.ted.by...@gmail.com> wrote in message
>
> news:18195b92-3a9d-4fd2-aaa6-514ef6753fc0@k8g2000yqn.googlegroups.com...
>
>
>
>
>
> > Here is a little script assembled fromt he documentation for
> > Net::Ping.
>
> > use Net::Ping;
>
> > $p =3D Net::Ping->new();
> > $p->hires();
> > #$host =3D '192.168.2.1';
> > $host =3D 'www.google.ca';
> > print '$host: ',$host,"\n\n";
> > ($ret, $duration, $ip) =3D $p->ping($host,50);
> > print $ret,"\n";
> > print $duration,"\n";
> > print $ip,"\n\n";
> > printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n",
> > 1000 * $duration)
> > =A0 =A0 =A0if $ret;
> > $p->close();
>
> > And here is the output from three runs of a program using Net::Ping:
>
> > C:/Perl/bin\perl.exe -w k:/Work/test.network.pl
> > $host: 192.168.2.1
>
> > 1
> > 0.96875
> > 192.168.2.1
>
> > 192.168.2.1 [ip: 192.168.2.1] is alive (packet return time: 968.75 ms)
>
> > Compilation finished at Mon Dec 08 16:26:54
> > C:/Perl/bin\perl.exe -w k:/Work/test.network.pl
> > $host:www.google.ca
>
> > 0
> > 5
> > 72.14.205.99
>
> > Compilation finished at Mon Dec 08 16:27:56
>
> > C:/Perl/bin\perl.exe -w k:/Work/test.network.pl
> > $host:www.google.ca
>
> > 0
> > 21.046875
> > 72.14.205.99
>
> > Compilation finished at Mon Dec 08 16:29:48
>
> > The first is within my homeoffice LAN, 192.168.2.1 being the router.
> > The first two sets of output are without specifying a timeout (i.e.
> > using ($ret, $duration, $ip) =3D $p->ping($host)).
>
> > And now here is what I get using ping manually:
>
> > C:\>pingwww.google.ca
>
> > Pingingwww.l.google.com[72.14.205.103] with 32 bytes of data:
>
> > Reply from 72.14.205.103: bytes=3D32 time=3D17ms TTL=3D246
> > Reply from 72.14.205.103: bytes=3D32 time=3D14ms TTL=3D246
> > Reply from 72.14.205.103: bytes=3D32 time=3D14ms TTL=3D246
> > Reply from 72.14.205.103: bytes=3D32 time=3D16ms TTL=3D246
>
> > Ping statistics for 72.14.205.103:
> > =A0 =A0Packets: Sent =3D 4, Received =3D 4, Lost =3D 0 (0% loss),
> > Approximate round trip times in milli-seconds:
> > =A0 =A0Minimum =3D 14ms, Maximum =3D 17ms, Average =3D 15ms
>
> > C:\>pingwww.google.ca
>
> > Pingingwww.l.google.com[72.14.205.99] with 32 bytes of data:
>
> > Reply from 72.14.205.99: bytes=3D32 time=3D17ms TTL=3D246
> > Reply from 72.14.205.99: bytes=3D32 time=3D17ms TTL=3D246
> > Reply from 72.14.205.99: bytes=3D32 time=3D17ms TTL=3D246
> > Reply from 72.14.205.99: bytes=3D32 time=3D17ms TTL=3D246
>
> > Ping statistics for 72.14.205.99:
> > =A0 =A0Packets: Sent =3D 4, Received =3D 4, Lost =3D 0 (0% loss),
> > Approximate round trip times in milli-seconds:
> > =A0 =A0Minimum =3D 17ms, Maximum =3D 17ms, Average =3D 17ms
>
> > C:\>
>
> > The manual execution of ping happened just before and just after my
> > test scriptlet was executed.
>
> > So, then, why would my router invariably be seen by Net::Ping as
> > accessable while google would not be, even though google clearly IS
> > accessable. =A0Again, I tried other sites, such as Microsoft, and while
> > they are clearly accessable when manually invoking ping, the script
> > using Net::Ping can not see them even though they get the correct IP
> > address for them (as can be determined by comparison with the manual
> > Ping command output at the time the script is executed.
>
> > Is there something in configuring Net::Ping that can make it useful
> > for automating checking connectivity (in the context of handling
> > situations where, say, and LWP agent fails to retieve data as expected
> > - did we get no data because there was no data or because the
> > connection was lost or some other reason)?
>
> > Thanks
>
> > Ted
>
> I've had issues with Net::Ping being unreliable on Win32 systems as well.
> Win32:PingICMP is alternative if you don't need cross-platform support.- =
Hide quoted text -
>
> - Show quoted text -
Thanks. My scripts will be running on Windows, but the one server is
running Linux. I wouldn't think that would be a problem as long as
the machine is pingable. I have some familiarity with UDP and TCP.
Can you tell me how ICMP fits into the mix, and its relevance for http
exchanges?
Thanks
Ted
------------------------------
Date: Tue, 09 Dec 2008 11:17:50 +1100
From: Kevin Ryde <user42@zip.downwithspam.com.au>
Subject: Re: wget/sftp- style progress bar
Message-Id: <87fxkyw6a9.fsf@blah.blah>
Harry <simonsharry@gmail.com> writes:
>
> ... fields, field lengths, left/right
> justified field value, truncate field value (vs extend field length if
> value is longer), etc.
ProgressMonitor is field oriented and oop-ish. There's other modules in
other or simpler styles that I imagine do the trick too.
------------------------------
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 2043
***************************************
