[30792] in Perl-Users-Digest
Perl-Users Digest, Issue: 2037 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 6 03:09:46 2008
Date: Sat, 6 Dec 2008 00:09:11 -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 Sat, 6 Dec 2008 Volume: 11 Number: 2037
Today's topics:
Re: a homework need help <rvtol+news@isolution.nl>
Array initialization and @ARGV <vt@vt.com>
Re: Array initialization and @ARGV <ced@blv-sam-01.ca.boeing.com>
Re: Array initialization and @ARGV <someone@example.com>
Re: Array initialization and @ARGV <jurgenex@hotmail.com>
Re: Endless loop instead of die... <smallpond@juno.com>
Re: Endless loop instead of die... xhoster@gmail.com
Re: Endless loop instead of die... delfin_soft@homoludens.elte.hu
Re: Endless loop instead of die... <No_4@dsl.pipex.com>
Re: Endless loop instead of die... <nospam-abuse@ilyaz.org>
Re: Endless loop instead of die... xhoster@gmail.com
Re: how detect english subject and predicate in a sente <tim@burlyhost.com>
Re: Invalid Argument while Opening file <smallpond@juno.com>
new CPAN modules on Sat Dec 6 2008 (Randal Schwartz)
Re: Why would it appear to my scripts that a server the <r.ted.byers@gmail.com>
Re: Why would it appear to my scripts that a server the <ced@blv-sam-01.ca.boeing.com>
Re: Why would it appear to my scripts that a server the <tim@burlyhost.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 6 Dec 2008 04:14:58 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: a homework need help
Message-Id: <ghcuag.dk.1@news.isolution.nl>
Camel schreef:
> Three digits "1,2,3", how many 3-digit numbers can be made? print all
> the numbers
>
> I know how to calculate the total numbers and using loop to print all
> the numbers. The problem is how to write a generic program that takes
> any number of digits. For example, if given "1,2,3,4,5" digits, you
> still can use your program to print all the combinations of 5-digit
> numbers without modifing it.
$ echo 123 |perl -anlF// -e'$"=",";print for glob "{@F}"x@F'
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Fri, 05 Dec 2008 23:07:59 -0600
From: vt <vt@vt.com>
Subject: Array initialization and @ARGV
Message-Id: <Xns9B6BEB467E9BAvtvtcom@127.0.0.1>
Hello...
Got a quick question regarding @ARGV.
Is it possible to initialize an array with numeric values specified as
command line parameters that utilize the range operator?
For example, let's say I want to execute a script called test_script.pl
similar to the following (ActivePerl example):
C:\perl test_script.pl 1..5,30
with test_script.pl containing
#!c:\perl\bin\perl
@array1 = split ',', $ARGV[0];
exit;
The resulting values for @array1 are ("1..5", 30) instead of the desired
values of (1,2,3,4,5,30).
Can anyone shed some light on this, please?
Thanks in advance...
vt.
------------------------------
Date: Fri, 5 Dec 2008 22:26:28 -0800 (PST)
From: "C.DeRykus" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Array initialization and @ARGV
Message-Id: <fc8059af-fb5b-4b53-85bc-e73f1a581997@v5g2000prm.googlegroups.com>
On Dec 5, 9:07 pm, vt <v...@vt.com> wrote:
> Hello...
>
> Got a quick question regarding @ARGV.
>
> Is it possible to initialize an array with numeric values specified as
> command line parameters that utilize the range operator?
>
> For example, let's say I want to execute a script called test_script.pl
> similar to the following (ActivePerl example):
>
> C:\perl test_script.pl 1..5,30
>
> with test_script.pl containing
>
> #!c:\perl\bin\perl
>
> @array1 = split ',', $ARGV[0];
>
> exit;
>
> The resulting values for @array1 are ("1..5", 30) instead of the desired
> values of (1,2,3,4,5,30).
>
Command line arg's are just strings and remain so until they're parsed
by Perl so you'll need eval, eg,
eval " \@array1 = (@ARGV) ";
die $@ if $@;
...
perldoc -f eval for details.
--
Charles DeRykus
------------------------------
Date: Fri, 05 Dec 2008 23:00:13 -0800
From: "John W. Krahn" <someone@example.com>
Subject: Re: Array initialization and @ARGV
Message-Id: <0qp_k.57830$5L3.33440@newsfe09.iad>
vt wrote:
>
> Got a quick question regarding @ARGV.
>
> Is it possible to initialize an array with numeric values specified as
> command line parameters that utilize the range operator?
>
> For example, let's say I want to execute a script called test_script.pl
> similar to the following (ActivePerl example):
>
> C:\perl test_script.pl 1..5,30
>
> with test_script.pl containing
>
> #!c:\perl\bin\perl
>
> @array1 = split ',', $ARGV[0];
>
> exit;
>
> The resulting values for @array1 are ("1..5", 30) instead of the desired
> values of (1,2,3,4,5,30).
$ perl -le'
@fields = map split( /,/ ), @ARGV;
@range = map /(\d+)\.\.(\d+)/ ? $1 .. $2 : $_, @fields;
print for @range;
' 1..5,30
1
2
3
4
5
30
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
------------------------------
Date: Fri, 05 Dec 2008 23:14:14 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Array initialization and @ARGV
Message-Id: <849kj4h1cfqr1gbrnt2v51oji7dnifk0gq@4ax.com>
vt <vt@vt.com> wrote:
>Is it possible to initialize an array with numeric values specified as
>command line parameters that utilize the range operator?
>
>For example, let's say I want to execute a script called test_script.pl
>similar to the following (ActivePerl example):
>
> C:\perl test_script.pl 1..5,30
>
>with test_script.pl containing
>
> #!c:\perl\bin\perl
>
> @array1 = split ',', $ARGV[0];
>
> exit;
>
>The resulting values for @array1 are ("1..5", 30) instead of the desired
>values of (1,2,3,4,5,30).
>
>Can anyone shed some light on this, please?
You are confusing code and data.
Command line parameters are data. 1..5 is a piece of Perl code.
If you were to write a while loop or a function call as command line
parameter like
myprog.pl "sort {$a <=> $b} @files"
then you wouldn't expect that code to be executed either, would you?
If you want to execute data as code then have a look at eval(). However
be warned, you should very carefully examine what you are going to eval
because if someone passes something like "system('rm -rf /')" as
argument then you could be in very big trouble
jue
------------------------------
Date: Fri, 5 Dec 2008 11:32:12 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Endless loop instead of die...
Message-Id: <9a142f3e-8429-4755-a2d7-c6447b3391dd@c1g2000yqg.googlegroups.com>
On Dec 5, 1:48 pm, delfin_s...@homoludens.elte.hu wrote:
> Hi all!
>
> My problem is: Why the following code does not die and remains in an endless
> loop . But if I remove one of the lines, the endless loop disappears.
> On 'This is perl, v5.8.8 built for i486-linux-gnu-thread-multi'
> or on 'This is perl, v5.8.4 built for i386-linux-thread-multi'
>
> But for example it does die normally on
> 'This is perl, v5.6.1 built for VMS_AXP'
>
> #---code
> #!/usr/bin/perl
> use warnings;
> our @ISA=('loop');
> $SIG{__WARN__}=sub {eval 'no warnings';};
> eval("(bless {},'main')->loop");
> print "loop died: $@\n";
> #---end_of_code
>
> Thanks a lot,
> Bye delfin...
# $SIG{__WARN__}=sub {eval 'no warnings';};
Can't locate package loop for @main::ISA at (eval 1) line 1.
Can't locate package loop for @main::ISA at (eval 1) line 1.
Can't locate package loop for @main::ISA at foo line 6.
Can't locate package loop for @main::ISA at foo line 6.
loop died: Can't locate object method "loop" via package "main" at
(eval 1) line 1.
Let me ask you something. If the rule you followed brought you to
this,
of what use was the rule?
------------------------------
Date: 05 Dec 2008 20:20:25 GMT
From: xhoster@gmail.com
Subject: Re: Endless loop instead of die...
Message-Id: <20081205151923.630$Bu@newsreader.com>
delfin_soft@homoludens.elte.hu wrote:
> Hi all!
>
> My problem is: Why the following code does not die and remains in an
> endless loop . But if I remove one of the lines, the endless loop
> disappears. On 'This is perl, v5.8.8 built for
> i486-linux-gnu-thread-multi' or on 'This is perl, v5.8.4 built for
> i386-linux-thread-multi'
>
> But for example it does die normally on
> 'This is perl, v5.6.1 built for VMS_AXP'
One the one hand, it does look like a bug in perl. On the other hand,
it seems like you have to do something rather insane in order to for this
bug to be invoked.
I'm speculating that it arises when the anonymous blessed variable goes out
of scope (if an anonymous unreferenced variable can be said to have a
scope) and gets destroyed, but the garbage collector can't find class
"loop" in order to find DESTROY, so gives a warning. When the
$SIG{__WARN__} completes, it resumes the seek for DESTROY, and somehow
forgets that already looked for "loop" and so looks for it again, again
triggering the error. And so on.
Xho
> #---code
> #!/usr/bin/perl
> use warnings;
> our @ISA=('loop');
> $SIG{__WARN__}=sub {eval 'no warnings';};
> eval("(bless {},'main')->loop");
> print "loop died: $@\n";
> #---end_of_code
>
> Thanks a lot,
> Bye delfin...
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: 5 Dec 2008 23:36:03 +0100
From: delfin_soft@homoludens.elte.hu
Subject: Re: Endless loop instead of die...
Message-Id: <QfFOLwh1js8a@ludens>
In article <20081205151923.630$Bu@newsreader.com>, xhoster@gmail.com writes:
> delfin_soft@homoludens.elte.hu wrote:
>> Hi all!
>>
>> My problem is: Why the following code does not die and remains in an
>> endless loop . But if I remove one of the lines, the endless loop
>> disappears. On 'This is perl, v5.8.8 built for
>> i486-linux-gnu-thread-multi' or on 'This is perl, v5.8.4 built for
>> i386-linux-thread-multi'
>>
>> But for example it does die normally on
>> 'This is perl, v5.6.1 built for VMS_AXP'
Some said Active-perl die also normally...
>
> One the one hand, it does look like a bug in perl.
It was my first idea also.
> On the other hand,
> it seems like you have to do something rather insane in order to for this
> bug to be invoked.
The original context was about 8-10 involved module, unit tests, running
environment, and a typo that caused a broken @ISA.
The symptom was that the warnings came infinitely.
There is no bug if
- no use warnings (but we use)
- no broken @ISA (we found of course)
- no $SIG{__WARN__} (we use it for logging warnings)
the most bizarre:
- no eval('use Term::ANSIColor') or any eval('use...') inside $SIG{__WARN__}
(but we used it to highlight the warnings on the screen, while unit tests)
what's wrong with eval('use ...') inside $SIG{__WARN__}?
- no method calls of an object with a broken @ISA
I think DESTROY is not involved in this problem, the problem was the same with
referenced, (not anonymous) object variables
die within $SIG{__WARN__} could not be catch after external eval statement.
the full perl environment died.
Bye delfin...
>
> I'm speculating that it arises when the anonymous blessed variable goes out
> of scope (if an anonymous unreferenced variable can be said to have a
> scope) and gets destroyed, but the garbage collector can't find class
> "loop" in order to find DESTROY, so gives a warning. When the
> $SIG{__WARN__} completes, it resumes the seek for DESTROY, and somehow
> forgets that already looked for "loop" and so looks for it again, again
> triggering the error. And so on.
>
> Xho
>
>> #---code
>> #!/usr/bin/perl
>> use warnings;
>> our @ISA=('loop');
>> $SIG{__WARN__}=sub {eval 'no warnings';};
>> eval("(bless {},'main')->loop");
>> print "loop died: $@\n";
>> #---end_of_code
>>
>> Thanks a lot,
>> Bye delfin...
>
> --
> -------------------- http://NewsReader.Com/ --------------------
> The costs of publication of this article were defrayed in part by the
> payment of page charges. This article must therefore be hereby marked
> advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
> this fact.
------------------------------
Date: Fri, 05 Dec 2008 23:57:12 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Endless loop instead of die...
Message-Id: <VqednRGc3pVFIqTUnZ2dnUVZ8oCdnZ2d@pipex.net>
delfin_soft@homoludens.elte.hu wrote:
> Hi all!
>
> My problem is: Why the following code does not die and remains in an endless
> loop . But if I remove one of the lines, the endless loop disappears.
> On 'This is perl, v5.8.8 built for i486-linux-gnu-thread-multi'
> or on 'This is perl, v5.8.4 built for i386-linux-thread-multi'
5.10.0 looks OK (I also get the infinite loop on 5.8.8).
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Sat, 6 Dec 2008 00:39:39 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Endless loop instead of die...
Message-Id: <ghchkb$3rs$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
<delfin_soft@homoludens.elte.hu>], who wrote in article <XHWjhhFZNFQE@ludens>:
> #---code
> #!/usr/bin/perl
> use warnings;
> our @ISA=('loop');
> $SIG{__WARN__}=sub {eval 'no warnings';};
> eval("(bless {},'main')->loop");
> print "loop died: $@\n";
> #---end_of_code
[The last line is customary to write as __END__; then your post is
directly executable with perl -x.]
Thanks, it is a beautiful bug. I rewrite it as
#!/usr/bin/perl
use warnings;
our @ISA=('foo');
$SIG{__WARN__}=sub {
eval 'no warnings';
} unless $ENV{WW};
eval("(bless {},'main')->bar");
print "result: $@\n";
__END__
then
env WW=1 perl a
prints
Can't locate package foo for @main::ISA at (eval 1) line 1.
Can't locate package foo for @main::ISA at (eval 1) line 1.
Can't locate package foo for @main::ISA at a line 8.
Can't locate package foo for @main::ISA at a line 8.
result: Can't locate object method "bar" via package "main" at (eval 1) line 1.
Putting breakpoint on line 5, you see that infinite loop happens with
Can\'t locate package foo for @main::ISA at a line 8
(Do not know, the first or the second one.) I do not know why `locate
package' warnings are doubled, but your code should look for two
methods: 'bar' and 'DESTROY', one inside eval, the other outside eval.
So it looks like the looping message is one for DESTROY.
I would think that it might be somehow related with @ISA iterator:
when looking through @ISA, the iterator "where am I" is stored
somewhere; I suspect that evaling `no warnings' somehow resets this
iterator.
What is very suspicious is that when inside `eval', this bug is not
triggered. So it may be that it is due to some uninitialized C
variable; so the report of it working with 5.10.0 does not mean
anything - the uninitialized variable may just have a more convenient
value there.
Hope this helps,
Ilya
P.S. All this without looking into C code of Perl, of course. So
take it with a grain of salt...
------------------------------
Date: 06 Dec 2008 00:50:56 GMT
From: xhoster@gmail.com
Subject: Re: Endless loop instead of die...
Message-Id: <20081205194953.969$Ey@newsreader.com>
delfin_soft@homoludens.elte.hu wrote:
>
> I think DESTROY is not involved in this problem, the problem was the same
> with referenced, (not anonymous) object variables
From my testing, it is still a problem with non-anonymous variables
but only if they go out of scope at the end of the eval. This shows
the infinite loop:
eval {
my $x = (bless {},'main');
$x->loop;
};
While this does not:
my $x;
eval {
$x = (bless {},'main');
$x->loop;
};
While this does again:
{ my $x;
eval {
$x = (bless {},'main');
$x->loop;
};
};
I think it is related to DESTROY being invoked.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Fri, 05 Dec 2008 13:52:23 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: how detect english subject and predicate in a sentence
Message-Id: <toh_k.8827$yB4.7391@newsfe07.iad>
RedGrittyBrick wrote:
>
> Tim Greer wrote:
>> Randal L. Schwartz wrote:
>>
>>> (2) Fruit has aerodynamics that are similar to bananas.
>>
>> I actually read it like that, genuinely. "Fruit" flies like a
>> banana. I'd have thought differently if it was phrased: "Fruit flies"
>> like bananas.
>
> I'd find that odd. Since fruit is a well-known adjective for the noun
> flies, I'd wonder if the quote marks were intended to convey irony. I
> think it may only be the previous sentence that conditioned you to
> interpret the second sentence in that particular way. It is often
> presented as a garden path sentence -- in that it deliberately
> misleads.
>
I read it that way originally, because I assumed it was an example meant
to show that if it was oddly worded, it would be that much more
difficult to determine the subject. Intentional or not, the proof is
there. :-)
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Fri, 5 Dec 2008 12:36:38 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Invalid Argument while Opening file
Message-Id: <0e7c4aa6-1187-4816-9fe6-398932d39ac3@z1g2000yqn.googlegroups.com>
On Dec 5, 6:23 am, Pradeep <bubunia2000s...@gmail.com> wrote:
> Hi all,
> When I was writing a code which will check some syntax of the files
> inside a directory. The first_pass proc gathers all the related
> variables and second_pass proc process those lines inside the file.
> When I ran the program it gave an error:
> Couldn't open input file "a.tcl":
^^^^^
Now I realize what your program is for. You are using perl
to check syntax of tcl files. That's like using a Ferrari to
tow your Corvair. Just convert all your code to perl and you
won't have to do this code at all.
To check the syntax of perl code:
perl -c myperlcode
------------------------------
Date: Sat, 6 Dec 2008 05:42:24 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Dec 6 2008
Message-Id: <KBFx6o.8v8@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.
Apache2-ASP-2.06
http://search.cpan.org/~johnd/Apache2-ASP-2.06/
ASP for Perl, reloaded.
----
Apache2-Mojo-0.002
http://search.cpan.org/~uvoelker/Apache2-Mojo-0.002/
mod_perl2 handler for Mojo
----
Beanstalk-Client-1.02
http://search.cpan.org/~gbarr/Beanstalk-Client-1.02/
Client class to talk to beanstalkd server
----
BerkeleyDB-Manager-0.09
http://search.cpan.org/~nuffin/BerkeleyDB-Manager-0.09/
General purpose BerkeleyDB wrapper
----
Business-ISBN-Data-20081208
http://search.cpan.org/~bdfoy/Business-ISBN-Data-20081208/
data pack for Business::ISBN
----
Catalyst-Engine-Mojo-0.001_02
http://search.cpan.org/~uvoelker/Catalyst-Engine-Mojo-0.001_02/
Mojo for Catalyst (ALPHA!)
----
Catalyst-Runtime-5.8000_04
http://search.cpan.org/~mramberg/Catalyst-Runtime-5.8000_04/
The Catalyst Framework Runtime
----
CharsetDetector-2.0.2
http://search.cpan.org/~foolfish/CharsetDetector-2.0.2/
A Charset Detector, optimized for EastAsia charset and website content
----
Class-C3-Adopt-NEXT-0.03
http://search.cpan.org/~flora/Class-C3-Adopt-NEXT-0.03/
----
Class-MOP-0.71_02
http://search.cpan.org/~drolsky/Class-MOP-0.71_02/
A Meta Object Protocol for Perl 5
----
ClearPress-288
http://search.cpan.org/~rpettett/ClearPress-288/
Simple, fresh & fruity MVC framework
----
DBIx-Class-ResultSet-HashRef-1.001
http://search.cpan.org/~plu/DBIx-Class-ResultSet-HashRef-1.001/
Adds syntactic sugar to skip the fancy objects
----
DayDayUp-0.05
http://search.cpan.org/~fayland/DayDayUp-0.05/
good good study, day day up
----
Deliantra-Client-2.0
http://search.cpan.org/~mlehmann/Deliantra-Client-2.0/
----
Encode-Detect-CJK-2.0.2
http://search.cpan.org/~foolfish/Encode-Detect-CJK-2.0.2/
A Charset Detector, optimized for EastAsia charset and website content
----
Exception-Base-0.20
http://search.cpan.org/~dexter/Exception-Base-0.20/
Lightweight exceptions
----
Exception-Died-0.04
http://search.cpan.org/~dexter/Exception-Died-0.04/
Convert simple die into real exception object
----
Exception-System-0.11
http://search.cpan.org/~dexter/Exception-System-0.11/
The exception class for system or library calls
----
Exception-Warning-0.03
http://search.cpan.org/~dexter/Exception-Warning-0.03/
Convert simple warn into real exception object
----
Gtk2-Ex-TickerView-10
http://search.cpan.org/~kryde/Gtk2-Ex-TickerView-10/
scrolling ticker display widget
----
Kamaitachi-0.02001
http://search.cpan.org/~typester/Kamaitachi-0.02001/
perl flash media server
----
Kamaitachi-0.02002
http://search.cpan.org/~typester/Kamaitachi-0.02002/
perl flash media server
----
KiokuDB-0.08
http://search.cpan.org/~nuffin/KiokuDB-0.08/
Object Graph storage engine
----
KiokuDB-Backend-BDB-0.04
http://search.cpan.org/~nuffin/KiokuDB-Backend-BDB-0.04/
----
LCFG-Build-Skeleton-0.0.9
http://search.cpan.org/~sjquinney/LCFG-Build-Skeleton-0.0.9/
LCFG software package generator
----
LCFG-Build-Tools-0.0.49
http://search.cpan.org/~sjquinney/LCFG-Build-Tools-0.0.49/
LCFG software release tools
----
LCFG-Build-Tools-0.0.50
http://search.cpan.org/~sjquinney/LCFG-Build-Tools-0.0.50/
LCFG software release tools
----
LWP-Curl-0.03.1
http://search.cpan.org/~lorn/LWP-Curl-0.03.1/
LWP methods implementation with Curl engine
----
LWP-Curl-0.04
http://search.cpan.org/~lorn/LWP-Curl-0.04/
LWP methods implementation with Curl engine
----
LWP-UserAgent-WithCache-0.09
http://search.cpan.org/~sekimura/LWP-UserAgent-WithCache-0.09/
LWP::UserAgent extension with local cache
----
LWP-UserAgent-WithCache-0.10
http://search.cpan.org/~sekimura/LWP-UserAgent-WithCache-0.10/
LWP::UserAgent extension with local cache
----
Mail-Log-Trace-1.0003
http://search.cpan.org/~dstaal/Mail-Log-Trace-1.0003/
Trace an email through the mailsystem logs.
----
Math-GSL-0.15_05
http://search.cpan.org/~leto/Math-GSL-0.15_05/
Perl interface to the GNU Scientific Library (GSL)
----
Moose-0.62_02
http://search.cpan.org/~drolsky/Moose-0.62_02/
A postmodern object system for Perl 5
----
MooseX-Role-Cmd-0.04
http://search.cpan.org/~isillitoe/MooseX-Role-Cmd-0.04/
Wrap system command binaries the Moose way
----
Net-BitTorrent-0.042
http://search.cpan.org/~sanko/Net-BitTorrent-0.042/
BitTorrent peer-to-peer protocol class
----
Nginx-Simple-0.02
http://search.cpan.org/~mjflick/Nginx-Simple-0.02/
Easy to use interface for "--with-http_perl_module"
----
PDL-Graphics-PLplot-0.43
http://search.cpan.org/~dhunt/PDL-Graphics-PLplot-0.43/
Object-oriented interface from perl/PDL to the PLPLOT plotting library
----
PDL-Graphics-PLplot-0.44
http://search.cpan.org/~dhunt/PDL-Graphics-PLplot-0.44/
Object-oriented interface from perl/PDL to the PLPLOT plotting library
----
POE-Component-CPANPLUS-YACSmoke-1.54
http://search.cpan.org/~bingos/POE-Component-CPANPLUS-YACSmoke-1.54/
Bringing the power of POE to CPAN smoke testing.
----
POE-Component-SmokeBox-0.04
http://search.cpan.org/~bingos/POE-Component-SmokeBox-0.04/
POE enabled CPAN smoke testing with added value.
----
Parse-Gnaw-0.36
http://search.cpan.org/~gslondon/Parse-Gnaw-0.36/
An extensible parser. Define grammars using subroutine calls. Define your own grammar extensions by defining new subroutines. Parse text in memory or from/to files or other streams.
----
Parse-Marpa-0.220000
http://search.cpan.org/~jkegl/Parse-Marpa-0.220000/
Generate Parsers from any BNF grammar
----
SQL-Translator-0.09002
http://search.cpan.org/~jrobinson/SQL-Translator-0.09002/
manipulate structured data definitions (SQL and more)
----
Storable-AMF-0.22
http://search.cpan.org/~grian/Storable-AMF-0.22/
Perl extension for serialize/deserialize AMF0/AMF3 data
----
Test-Assert-0.02
http://search.cpan.org/~dexter/Test-Assert-0.02/
Assertion methods for those who like JUnit.
----
Text-Hyphen-0.1
http://search.cpan.org/~kappa/Text-Hyphen-0.1/
determine positions for hyphens inside words
----
Util-Any-0.03
http://search.cpan.org/~ktat/Util-Any-0.03/
Export any utilities and To create your own Util::Any
----
all-0.5101
http://search.cpan.org/~dexter/all-0.5101/
Load all packages under a namespace
----
indirect-0.09
http://search.cpan.org/~vpit/indirect-0.09/
Lexically warn about using the indirect object syntax.
----
libwww-perl-5.822
http://search.cpan.org/~gaas/libwww-perl-5.822/
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: Fri, 5 Dec 2008 14:47:17 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Why would it appear to my scripts that a server they're connecting to has gone away (using Net::FTP and LWP)
Message-Id: <ccffc92d-8cca-4b4c-81a8-33cfcc80bd93@f13g2000yqj.googlegroups.com>
On Dec 5, 5:20=A0pm, Tim Greer <t...@burlyhost.com> wrote:
> Ted Byers wrote:
> > Thanks Tim,
>
> > So far I have tested only with my script.=A0=A0This=A0is=A0a=A0new=A0pr=
oblem
> > domain for me, as I have not written code to automate ftp before a
> > week ago.=A0=A0I=A0am=A0therefore=A0groping=A0in=A0the=A0dark,=A0as=A0i=
t=A0were.=A0=A0Getting
> > the basic stuff to work isn't so much a problem as making it reliable.
>
> > I don't have remote access to the error log on the remote site (but I
> > have directed my colleague in the office to scrutinize that.
>
> > What tools would you recommend to check connectivity between sites
> > (both are actually remote for me, one 100 KM away and the other much
> > further), and both live behind a firewall so outside access is
> > severely restricted, so what I'll have to do is run whatever tool s
> > available from the remote desktop, if that matters.
>
> I'd recommend running some ping/traceroutes to begin with, when the
> issue transpires, as well as trying a normal FTP program first and see
> if it fails at all, or how often. =A0The FTP service could be having
> issues, it could have too many connections from the source IP or any
> number of things. =A0Ask the host for support to check their logs to see
> what issues are reported on their end. =A0If you determine it's the
> script somehow, post the relevant portions of the code, once you've
> ruled out network/connectivity or service issues.
> --
> Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
> Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
> and Custom Hosting. =A024/7 support, 30 day guarantee, secure servers.
> Industry's most experienced staff! -- Web Hosting With Muscle!- Hide quot=
ed text -
>
> - Show quoted text -
Thanks Tim. I appreciate this. As I am working on this with a
colleague who has physical access to the nearest machine, we'll be
able to check the logs Monday when he's back in the office. Like I
said, these machines are behind strict firewalls, so there is limited
connectivity to the outside world. For example, the ftp server is
configured to accept connections only from with the LAN behind the
firewall and from the machine running my script. Otherwise, this
machine has no contact to the outside world at all. I wonder if the
firewall or router may be an issue?
Thanks again
Ted
------------------------------
Date: Fri, 5 Dec 2008 15:13:32 -0800 (PST)
From: "C.DeRykus" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Why would it appear to my scripts that a server they're connecting to has gone away (using Net::FTP and LWP)
Message-Id: <2a445503-876d-4aa8-bc4e-799236881f45@35g2000pry.googlegroups.com>
On Dec 4, 10:23 pm, Ted Byers <r.ted.by...@gmail.com> wrote:
> ....
> Net::FTP=GLOB(0x3e18a04): Timeout at C:/Perl/site/lib/Net/FTP/
> dataconn.pm line 7
> 4
> Status: 1
>
> ....
> Questions:
>
> 1) How do I get more information from LWP::DebugFile? Or is there any
> more information to be had?
> ...
> Net::FTP=GLOB(0x3e18a04): Timeout at
C:/Perl/site/lib/Net/FTP/
> dataconn.pm line 7
> ....
In case you haven't tried, you might set the configurable timeout:
Timeout - Set a timeout value (defaults to 120)
--
Charles DeRykus
------------------------------
Date: Fri, 05 Dec 2008 14:20:30 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Why would it appear to my scripts that a server they're connecting to has gone away (using Net::FTP and LWP)
Message-Id: <OOh_k.2654$uS1.2469@newsfe19.iad>
Ted Byers wrote:
> Thanks Tim,
>
> So far I have tested only with my script.  This is a new problem
> domain for me, as I have not written code to automate ftp before a
> week ago.  I am therefore groping in the dark, as it were.  Getting
> the basic stuff to work isn't so much a problem as making it reliable.
>
> I don't have remote access to the error log on the remote site (but I
> have directed my colleague in the office to scrutinize that.
>
> What tools would you recommend to check connectivity between sites
> (both are actually remote for me, one 100 KM away and the other much
> further), and both live behind a firewall so outside access is
> severely restricted, so what I'll have to do is run whatever tool s
> available from the remote desktop, if that matters.
I'd recommend running some ping/traceroutes to begin with, when the
issue transpires, as well as trying a normal FTP program first and see
if it fails at all, or how often. The FTP service could be having
issues, it could have too many connections from the source IP or any
number of things. Ask the host for support to check their logs to see
what issues are reported on their end. If you determine it's the
script somehow, post the relevant portions of the code, once you've
ruled out network/connectivity or service issues.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
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 2037
***************************************
