[29462] in Perl-Users-Digest
Perl-Users Digest, Issue: 706 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 1 09:09:44 2007
Date: Wed, 1 Aug 2007 06:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 1 Aug 2007 Volume: 11 Number: 706
Today's topics:
Re: @arts <v_r@spamless.and.happy>
Re: @arts anno4000@radom.zrz.tu-berlin.de
Re: @arts <bik.mido@tiscalinet.it>
Re: @arts <bik.mido@tiscalinet.it>
Re: @arts <bik.mido@tiscalinet.it>
Re: define an array in perl <matteo_vitturi@virgilio.it>
eval of Data::Dumper output not same as original data s himanshu.garg@gmail.com
Re: eval of Data::Dumper output not same as original da <nobull67@gmail.com>
Re: eval of Data::Dumper output not same as original da <mark.clementsREMOVETHIS@wanadoo.fr>
Re: How do you continue in a for loop? <xmltwig@gmail.com>
new CPAN modules on Wed Aug 1 2007 (Randal Schwartz)
Object creation failure in perl ramesh.thangamani@gmail.com
Re: Object creation failure in perl anno4000@radom.zrz.tu-berlin.de
Re: Perl threads ivakras1@gmail.com
simple response not implemented <nospam@home.com>
Re: threads and logfile rotation <zentara@highstream.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 1 Aug 2007 00:35:41 -0700
From: "V.Ronans" <v_r@spamless.and.happy>
Subject: Re: @arts
Message-Id: <Y8KdnTsx7e1Jqi3bnZ2dnUVZ_vGinZ2d@wavecable.com>
Tad McClellan wrote:
> Ether J <ether@invalid.email.net> wrote:
>> Tad McClellan <tadmc@seesig.invalid> wrote in
>> news:slrnfajjh8.p85.tadmc@tadmc30.sbcglobal.net:
>>
>>> Mike Hartsough <michaellhartsough@sbcglobal.net> wrote:
>>>> Tad McClellan wrote:
>>>>> Mike Hartsough <michaellhartsough@sbcglobal.net> wrote:
>>>>>
>>>>>
>>>>>> I saw no proof offered by Michele Dondi nor Tad McClellan, who
>>>>>> decided to join in rather than point out the Posting Guidelines,
>>>>>
>>>>>
>>>>> Specifically because the Jsut troll deserves no better.
>>>>>
>>>>> (ie. this poster has a history here)
>>>>
>>>> So you're saying you have the right to accuse anyone of being this
>>>> "Jsut troll" without any evidence to prove it?
>>>
>>>
>>> No.
>>>
>>> And that did not happen in this thread as it slipped up yet again
>>> and revealed itself.
>>
>> How do you get that?
>
>
> Message-ID: 5gm6v5F3f95neU1@mid.dfncis.de
How the hell could you call this proof? There is also no proof in that
message either, just the same 2nd-grade claim you made in this thread,
so either provide actual proof or just admit you have none.
>> When it comes down to it, sometimes it seems like you "regulars"
>> purposely set "lesser" people up. I recently came across this
>> example:
>
>
> From 2002?
>
> Probably because I've been so nice over the last 5 years...
Actually it looks like a pretty good example of how you refuse to fess
up to your mistakes.
>> Message-ID: <Xns926A87C42CA4Edragnetinternalysisc@206.172.150.13>
>> (snippet of Marc Bissonnette's reply to Tad McCellan)
>>
>> "tadmc@augustmail.com (Tad McClellan) wrote in
>> "news:slrnalktlj.am6.tadmc@magna.augustmail.com:
>> "
>> "> Marc Bissonnette <dragnet@internalysis.com> wrote:
>> [...]
>> "> Do you have warnings enabled?
>> "
>> "No, though I shall endeavour to do so in the future. I do check my
>> code "locally with perl -c scriptname.cgi as well as using
>> "use CGI::Carp qw(fatalsToBrowser);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[...snip]
>> "> No,
>> "
>> "
>> "Then I am through helping you.
>> "
>> "Good luck.
>> "
>> "(you should have "use strict;" turned on too)
>>
>>
>> I'd like to know what you call this?
>
>
> I'd call it Marc saying that he would use warnings and then
> not using warnings.
Err, then you can't read. Above, in the previous quote, it clearly
reads, "No, though I shall endeavour to do so in the future." How on
this green earth are you getting that he will not use them? I think this
perfectly illustrates your complete inability to admit when you are
wrong.
>> Can you tell me this is anything
>> but a deliberate omission?
>
>
> It was a deliberate omission.
Not surprising. So now it's ok to snip needed context to change the
meaning of someone's statement? Isn't there something about that in the
posting guidelines? Oh wait, rules don't apply to you.
Or rather I would of though maintaining context of what you quote was
just plain posting common sense? Silly me.
>> Yes, Marc Bissonnette's second reply to Tad was over the top, I don't
>> deny that. He clearly went too far and could of handled it much
>> better.
>
>
> From: Marc Bissonnette <dragnet@internalysis.com>
> Date: Tue, 13 Jan 2004 20:03:21 GMT
> Message-ID: <Xns946F992D8FD64dragnetinternalysisc@207.35.177.135>
>
> Tad McClellan <tadmc@magna.augustmail.com> wrote in
> news:slrnc08fsc.30m.tadmc@magna.augustmail.com:
> > Marc Bissonnette <dragnet@internalysis.com> wrote:
> >
> >
> >> As an aside and a belated thanks, a couple of years ago, you
> and Tad >> McClellan took the time to explain why my demo code was
> severely >> lacking when not using 'use strict' and 'use warnings'
> - While I was >> a little thick-headed at the time,
> >
> > Enough so that I killfiled you at that time.
> >
> > Message-ID:
> <Xns926A95D5F2F8dragnetinternalysisc@206.172.150.13>
>
> Yeah, I know - that was stupid of me - no excuses. Given that I
> *had* been lurking for years before, I should have known better -
> All I can offer is an ambarrassed apology.
>
> >> the lesson eventually sunk in and did indeed
> >> save me a *ton* of debugging time - much belated thanks!
> >
> > Golly, that's almost enough for me to reconsider...
>
> Well, my pride ended up costing me in terms of inefficient code
> and much time wasted. The irony is that now that the code I'm
> writing has to do a lot more than just display some text on a web
> site and do some actual work, I've discovered - the hard way -
> that the rules and guidelines that you folks keep hammering into
> the newbs really *do* make life easier.
>
> FWIW, thanks for the time you (and all the grizzled veterans in
> clpm) put into supporting the community - newbs and old-hands
> alike. Some of us do eventually learn the lessons :)
>
>
> Kinda validates that my methods work.
Yes that seems all good and fine, but in the end, it doesn't excuse
purposely snipping one's words to make it look like they said something
else, when in fact the part that was snipped changes the meaning
altogether, and surely you know that. And even if that method happened
to have a positive out come in this case, it doesn't make it the "right"
way of doing things. There is never an excuse for abuse, especially when
you your self incite it in the first place.
I do NOT deny your and other regular's contributions - you and others
have done a lot for the community - but no matter how much you've done
doesn't give you the right to miss treat and take advantage of
vulnerable people.
------------------------------
Date: 1 Aug 2007 08:52:58 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: @arts
Message-Id: <5havvaF1aml1uU1@mid.dfncis.de>
V.Ronans <v_r@spamless.and.happy> wrote in comp.lang.perl.misc:
> anno4000@radom.zrz.tu-berlin.de wrote:
>
> > Anno -- sigless since 1989
>
> Is this not essentially a sig? I mean the "Anno" part, as you have it at
> the end of all (most?) of your posts (so it's reoccuring), would that
> not qualify as a sig, even if not a UseNet style "-- \n$sig" sig? :)
It's a signature in the everyday sense of the word, manually added
unless I forget (or put it twice). It doesn't come from a .signature
file and, as you observed, it lacks the "-- " and thus isn't a Usenet
signature in the specialized sense of the word.
Anno
------------------------------
Date: Wed, 01 Aug 2007 14:10:31 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: @arts
Message-Id: <48n0b3552jmvvetkm9pkf3ktl118aik32o@4ax.com>
On 31 Jul 2007 21:14:26 GMT, Ether J <ether@invalid.email.net> wrote:
>When it comes down to it, sometimes it seems like you "regulars"
>purposely set "lesser" people up. I recently came across this example:
Well, *some* regulars do so. But certainly not in first instance. Do
you want me to admit that Tad is occasionally too harsh? Well, I'll
do. But given that he offers perfectly helpful help to people who
behave correctly when asked to do so, I gather that he has his good
reasons.
>">> Do you have warnings enabled?
>">
>"> No,
>"
>"
>"Then I am through helping you.
>"
>"Good luck.
>"
>"(you should have "use strict;" turned on too)
>
>
>I'd like to know what you call this? Can you tell me this is anything
>but a deliberate omission? And if it wasn't it, why couldn't Tad at
>least apologize for missing that?
[I snipped much of that. I hope this won't get into the "include tons
of hardly readable (sarcasm mode on) attributions" rant/madness.]
The point you're making is that the OP had written "No, but..."
precisely:
: No, though I shall endeavour to do so in the future. I do check my code
: locally with perl -c scriptname.cgi as well as using
: use CGI::Carp qw(fatalsToBrowser);
And that Tad, when quoting this snipped the "but..." part. And yes it
was, in your own words, a DELIBERATE OMISSION. The point is that he
may have had a good reason to do so. In fact the whole situation
sounds much like the following to me:
* I'm banging my head with a cudgel, but it hurts and bleeds.
* Are your wearing a helmet?
* No, though I shall endeavour to do so in the future. I do wear a
pair reinforced shoes as well as using a condom.
(And before you or some smart guy points it out: yes, this is
DELIBERATELY EXAGGERATED.)
>And to add insult to injury, one of his supports jumps in with this:
>
>
>Message-ID: <Pine.LNX.4.40.0208142102300.26688-100000@lxplus076.cern.ch>
>(Alan J. Flavell reply to Marc Bissonnette reply to the previous post
>above)
Well, I'm almost certain in advance that this won't convince you in
any way, but if you only knew what a wonderful person Alan J. Flavell
was and how many messages were posted to the groups he was a regular
in after his death, with people thanking and missing him for all the
precious help he's given all over the years... then you would know
that whatever he wrote he must have had a good reason to. I'm not
saying that one who is *generally* right will *always* be: in fact
EVERYBODY can fail, but in some cases the chances are so
astronomically low that one can reasonably assume the latter.
>So is Alan saying that it's perfectly ok for Tad, or any other
>"respected contributor" to act anyway they want with complete impunity?
Do you propose prosecution? ANYBODY here can act anyway they want with
complete impunity. I suppose you can't injure anyone by means of a
usenet post. Well, except by suggesting as a solution to a given
problem, well to e.g. take that red cable, peel it off, take that
green cable, peel it off, and then join them together. But if such a
solution is given it probably means that the question was OT here in
clpmisc.
>That Tad is automatically right and therefore doesn't even have to
>check?? I don't know if I've ever seen a human head so far below sea
>level.
You don't know AJF the very least. Nor Tad, FWIW. Both were not
*automatically* right. (Very) x 5 likely to be.
>Yes, Marc Bissonnette's second reply to Tad was over the top, I don't
>deny that. He clearly went too far and could of handled it much better.
>But it was also clearly not without reason. This is what happens when
>you push at people and snip contextual information that completely
>changes what was said... I would think experts of Perl would appreciate
>the need for proper context.
Not necessarily:
my $answer=(qw/no but/, @additional, @blabber)[0];
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: Wed, 01 Aug 2007 14:24:05 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: @arts
Message-Id: <jfu0b355u7759lhn7u72kk8nf09gm82tc9@4ax.com>
On Wed, 1 Aug 2007 00:35:41 -0700, "V.Ronans" <v_r@spamless.and.happy>
wrote:
>I do NOT deny your and other regular's contributions - you and others
>have done a lot for the community - but no matter how much you've done
>doesn't give you the right to miss treat and take advantage of
^^^^^^^^^^^^^^
^^^^^^^^^^^^^^
>vulnerable people.
^^^^^^^^^^
^^^^^^^^^^
Very funny: I imagine already becoming very rich and famous out of
people ending up in psychiatric ward for having been told that "my
script doesn't work, what can I do?" is not a valid description of
their problem!
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: Wed, 01 Aug 2007 14:26:09 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: @arts
Message-Id: <nsu0b3l2394un2bahr27su1d7te34i5ckk@4ax.com>
On 1 Aug 2007 08:52:58 GMT, anno4000@radom.zrz.tu-berlin.de wrote:
>> > Anno -- sigless since 1989
[snip]
>It's a signature in the everyday sense of the word, manually added
>unless I forget (or put it twice). It doesn't come from a .signature
>file and, as you observed, it lacks the "-- " and thus isn't a Usenet
>signature in the specialized sense of the word.
And what is the one directly above "-- \n" in (most of) my posts? Am I
*sigful*?
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: Wed, 01 Aug 2007 00:51:17 -0700
From: mattsteel <matteo_vitturi@virgilio.it>
Subject: Re: define an array in perl
Message-Id: <1185954677.612780.136620@w3g2000hsg.googlegroups.com>
> Hi
> I am a newbie in perl. I have an array block_list :
>
> push ( @block_list ,$word); # this word is read from a file.
> $list_name = $block_list[$#block_list]; # i extract the last element
> ie $word in this case
> now i want to define an array with the name $list_name
>
>
> like ,
> my @"$list_name";
>
> But this is giving me errors...
> sorry for the stupid question,,,please help me out ,,,,
This is an eval task: instead of
my @"$list_name";
I'd use
eval "my \@$list_name";
M.
------------------------------
Date: Wed, 01 Aug 2007 07:05:41 -0000
From: himanshu.garg@gmail.com
Subject: eval of Data::Dumper output not same as original data structure
Message-Id: <1185951941.322887.272290@j4g2000prf.googlegroups.com>
Why aren't the outputs of the two print statements same. I want
to reconstruct %hash1 into %hash2.
========================================
use strict;
use Data::Dumper;
my %hash1 = (key1 => 'value1', 'key2' => 'value2');
my %hash2 = eval Dumper(%hash1);
print Dumper(%hash1);
print Dumper(%hash2);
========================================
I am trying to save the Dumper output to the database and later trying
to get the same data structure.
Thank You,
HG
------------------------------
Date: Wed, 01 Aug 2007 08:44:35 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: eval of Data::Dumper output not same as original data structure
Message-Id: <1185957875.552967.165240@19g2000hsx.googlegroups.com>
On Aug 1, 8:05 am, himanshu.g...@gmail.com wrote:
> Why aren't the outputs of the two print statements same. I want
> to reconstruct %hash1 into %hash2.
>
> ========================================
> use strict;
> use Data::Dumper;
>
> my %hash1 = (key1 => 'value1', 'key2' => 'value2');
>
> my %hash2 = eval Dumper(%hash1);
>
> print Dumper(%hash1);
>
> print Dumper(%hash2);
> ========================================
>
> I am trying to save the Dumper output to the database and later trying
> to get the same data structure.
You need to think of Dumper() as taking a single scalar argument
my $hash1 = { key1 => 'value1', 'key2' => 'value2' };
my $hash2 = do { no strict 'vars'; eval Dumper($hash1) };
Note, this has the side effect of creating a package variable $VAR1.
To serialise Perl hashes or arrays into human-readable database large
(text) objects I use.
sub linear_dump {
unless ($dumper) {
$dumper = Data::Dumper->new([]);
$dumper->Indent(0);
}
$dumper->Reset->Values([shift]);
my $dumped = $dumper->Dump;
$dumped =~ s/\A\$VAR1 = [\[{](.*)[\]}];\Z/$1/s or die;
$dumped;
}
sub linear_undump {
no warnings 'uninitialized';
my @data = eval join ' , ' => 'undef' , @_;
die "Error in cached info @_: $@" if $@;
shift @data;
return +{ @data } unless wantarray;
@data;
}
If readability is not an issue consider also using BLOBs and Storable.
Usual caveats about eval(STRING) apply: anyone who can write to the
database can place arbitrary executable code in it. Use this technique
only if you are satisfied that write access to the database is
restricted to people who could edit your scripts anyhow.
------------------------------
Date: Wed, 01 Aug 2007 12:34:54 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: eval of Data::Dumper output not same as original data structure
Message-Id: <46b061ce$0$25938$ba4acef3@news.orange.fr>
Brian McCauley wrote:
> To serialise Perl hashes or arrays into human-readable database large
> (text) objects I use.
<snip Data::Dumper solution>
>
> If readability is not an issue consider also using BLOBs and Storable.
For human-readable I'd also suggest one of the YAML implementations.
eg
http://search.cpan.org/~ingy/YAML-0.65/lib/YAML.pm
http://search.cpan.org/~audreyt/YAML-Syck-0.94/lib/YAML/Syck.pod
Mark
------------------------------
Date: Wed, 01 Aug 2007 12:44:00 -0000
From: mirod <xmltwig@gmail.com>
Subject: Re: How do you continue in a for loop?
Message-Id: <1185972240.786038.12560@o61g2000hsh.googlegroups.com>
On Jul 31, 6:27 pm, RedGrittyBrick <RedGrittyBr...@SpamWeary.foo>
wrote:
> perl -e "$\=qq(\n); for (1..10) { next if $_==7; print }"
>
> TIMTOWTDI
Well, if you're going that route, the -l option is worth having a look
at:
perl -l -e 'for (1..10) { next if $_==7; print }'
--
mirod
------------------------------
Date: Wed, 1 Aug 2007 04:42:13 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Aug 1 2007
Message-Id: <JM2vqD.15y8@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.
Bio-Grep-v0.8.1
http://search.cpan.org/~limaone/Bio-Grep-v0.8.1/
Perl extension for searching in Fasta files
----
Bio-Grep-v0.8.2
http://search.cpan.org/~limaone/Bio-Grep-v0.8.2/
Perl extension for searching in Fasta files
----
Bundle-InterchangeKitchenSink-1.05
http://search.cpan.org/~mikeh/Bundle-InterchangeKitchenSink-1.05/
A bundle of most all the modules nice to have for Interchange. A lot of stuff.
----
CPAN-Reporter-0.99_01
http://search.cpan.org/~dagolden/CPAN-Reporter-0.99_01/
Provides Test::Reporter support for CPAN.pm
----
Class-C3-Componentised-1
http://search.cpan.org/~ash/Class-C3-Componentised-1/
----
Data-HexDump-XXD-0.0.1
http://search.cpan.org/~polettix/Data-HexDump-XXD-0.0.1/
format hexadecimal dump like xxd
----
Data-HexDump-XXD-0.0.2
http://search.cpan.org/~polettix/Data-HexDump-XXD-0.0.2/
format hexadecimal dumps and reverse like xxd
----
File-Find-Object-0.0.8
http://search.cpan.org/~shlomif/File-Find-Object-0.0.8/
An object oriented File::Find replacement
----
File-Path-2.00_08
http://search.cpan.org/~dland/File-Path-2.00_08/
Create or remove directory trees
----
GRID-Machine-0.073
http://search.cpan.org/~casiano/GRID-Machine-0.073/
Remote Procedure Calls over a SSH link
----
Games-NES-Emulator-0.01
http://search.cpan.org/~bricas/Games-NES-Emulator-0.01/
An object-oriented NES (6502) emulator
----
Geo-Coordinates-RDNAP-0.11
http://search.cpan.org/~pijll/Geo-Coordinates-RDNAP-0.11/
convert to/from Dutch RDNAP coordinate system
----
Grid-Transform-0.03
http://search.cpan.org/~gray/Grid-Transform-0.03/
fast grid transformations
----
HTML-Menu-TreeView-0.7.0
http://search.cpan.org/~lze/HTML-Menu-TreeView-0.7.0/
----
HTML-Widget-Constraint-ComplexPassword-0.01
http://search.cpan.org/~jkutej/HTML-Widget-Constraint-ComplexPassword-0.01/
HTML::Widget form constraint that checks if the field is a complex password.
----
HTTP-ProxySelector-Persistent-0.01
http://search.cpan.org/~mtrowbri/HTTP-ProxySelector-Persistent-0.01/
Locally cache and use a list of proxy servers for high volume, proxied LWP::UserAgent transactions
----
Lemonldap-NG-Handler-0.84
http://search.cpan.org/~guimard/Lemonldap-NG-Handler-0.84/
The Apache protection module part of Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Portal-0.77
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.77/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
Mail-Karmasphere-Client-2.11
http://search.cpan.org/~shevek/Mail-Karmasphere-Client-2.11/
Client for Karmasphere Reputation Server
----
Math-BigInt-GMP-1.24
http://search.cpan.org/~tels/Math-BigInt-GMP-1.24/
Use the GMP library for Math::BigInt routines
----
MooseX-Method-0.39
http://search.cpan.org/~berle/MooseX-Method-0.39/
Method declaration with type checking
----
Slay-Makefile-0.05
http://search.cpan.org/~nodine/Slay-Makefile-0.05/
Wrapper to Slay::Maker that reads the rules from a file
----
Template-Plugin-Num2Word-0.0.1
http://search.cpan.org/~gugod/Template-Plugin-Num2Word-0.0.1/
[One line description of module's purpose here]
----
Template-Plugin-Text-Greeking-0.0.1
http://search.cpan.org/~gugod/Template-Plugin-Text-Greeking-0.0.1/
Text::Greeking interface in Template
----
Template-Plugin-Text-Greeking-0.0.2
http://search.cpan.org/~gugod/Template-Plugin-Text-Greeking-0.0.2/
Text::Greeking interface in Template
----
Text-Statistics-Latin-0.06
http://search.cpan.org/~fernandes/Text-Statistics-Latin-0.06/
Performs statistical analysis of corpora
----
URI-Template-0.08_02
http://search.cpan.org/~bricas/URI-Template-0.08_02/
Object for handling URI templates
----
Verilog-Perl-3.011
http://search.cpan.org/~wsnyder/Verilog-Perl-3.011/
----
WWW-Mixi-Scraper-0.05
http://search.cpan.org/~ishigaki/WWW-Mixi-Scraper-0.05/
yet another mixi scraper
----
Weed-0.01_016
http://search.cpan.org/~hooo/Weed-0.01_016/
Don't use it. It's in development. For test purposes only!
----
libwww-perl-5.807
http://search.cpan.org/~gaas/libwww-perl-5.807/
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, 01 Aug 2007 01:48:11 -0700
From: ramesh.thangamani@gmail.com
Subject: Object creation failure in perl
Message-Id: <1185958091.219576.94490@j4g2000prf.googlegroups.com>
I have written a code like this in my module:
my $obj = MyModule->new() or die "Failed to create object of type
MyModule $!" in my code. Strangely enough sometimes the object
creation is failing and I am not sure what could really be the issue.
This script is running on Modperl and the platform is linux.
Appreciate any help on this
Thanks,
Ramesh
------------------------------
Date: 1 Aug 2007 09:05:50 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Object creation failure in perl
Message-Id: <5hb0neF1aml1uU2@mid.dfncis.de>
<ramesh.thangamani@gmail.com> wrote in comp.lang.perl.misc:
> I have written a code like this in my module:
^
"Code" in the sense of "computer instructions" is a mass noun and
doesn't take an indefinite article.
> my $obj = MyModule->new() or die "Failed to create object of type
> MyModule $!" in my code.
Presumably this code is part of the script that *uses* your module,
not part of the module itself.
> Strangely enough sometimes the object
> creation is failing and I am not sure what could really be the issue.
> This script is running on Modperl and the platform is linux.
> Appreciate any help on this
You need to give us a little more than that if you want help. What
does your ->new do? We can't debug code we don't see, show it.
Anno
------------------------------
Date: Wed, 01 Aug 2007 10:30:34 -0000
From: ivakras1@gmail.com
Subject: Re: Perl threads
Message-Id: <1185964234.326314.19950@19g2000hsx.googlegroups.com>
OMG...
I would rethink all... I need a help on my idea in part of scenario..
perlmonks may help me.
Tnx a lot all for help here! If anybody can help with ideas-please
email me!
------------------------------
Date: Wed, 01 Aug 2007 11:08:32 GMT
From: "Nospam" <nospam@home.com>
Subject: simple response not implemented
Message-Id: <QQZri.4298$vi3.1006@newsfe2-gui.ntli.net>
I am getting this error trying to use a proxy with lwp::debug
LWP::UserAgent::request: Simple response: Not Implemented
What does this mean? How can it be fixed?
------------------------------
Date: Wed, 01 Aug 2007 07:04:03 -0400
From: zentara <zentara@highstream.net>
Subject: Re: threads and logfile rotation
Message-Id: <e7p0b35hh3agecst3atmg481k9vpkli8jt@4ax.com>
On Tue, 31 Jul 2007 17:24:48 +0200, Thomas Kratz
<ThomasKratz@REMOVEwebCAPS.de> wrote:
>zentara wrote:
>> I don't know how this will work on win32, but the preffered way
>> of having threads share a filehandle, is by passing in the fileno;
>> usually through a shared variable, but this passes it in directly.
>
>Yes, that is the easy part :-)
>(works under Win32 as well, I am using this for sockets already)
>
>But the problem remains how to get the filehandle closed again to be
>able to rename it.
>Signaling all the threads to close the filehandle and waiting for all of
>them to signal back 'done' is more than ugly.
>Back to the drawing board!
>Thanks,
>Thomas
I wouldn't give up too quickly on letting the threads close and
rename the file.
First, all threads share the same filehandles thru the filenos.
So, you can probably work out an elegant loop where you write
to the fileno, unless a shared flag is set. If that flag is set, you
last out of the write loop, back into the outer loop where you take care
of acquiring the new fileno, then renter the writing loop when the flag
is clear.
The main thread would be responsible for setting the flag, locking any
shared vars if needed, closing the file, opening the new file, and
placing the new fileno into the shared var, then unsetting the flag
to let the threads start writing.
Anyways, there probably is a neat solution to this.
Sometimes, it takes awhile for it to appear in your mind, but you may
be watching tv some Sunday night, and suddenly...... Eureka! You have
to scribble down a nested loop structure. :-)
zentara
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
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 706
**************************************
