[31059] in Perl-Users-Digest
Perl-Users Digest, Issue: 2304 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 30 14:10:27 2009
Date: Mon, 30 Mar 2009 11:09:47 -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 Mon, 30 Mar 2009 Volume: 11 Number: 2304
Today's topics:
authcookieurl changing name of cookie <jcharth@gmail.com>
Re: authcookieurl changing name of cookie <noreply@gunnar.cc>
Re: Ban Xah Lee <xahlee@gmail.com>
Re: Ban Xah Lee <dcest61@hotmail.com>
bareword question <DaLoveRhino@hotmail.com>
Being more restrictive when using blessed hash ref for <Alexander.Farber@gmail.com>
Re: Being more restrictive when using blessed hash ref <peter@makholm.net>
Re: Being more restrictive when using blessed hash ref <Alexander.Farber@gmail.com>
Calling SQL Server Stored Procedures: no results from bellahsk@gmail.com
Re: Calling SQL Server Stored Procedures: no results fr bellahsk@gmail.com
Re: Can't locate object method error <pakalk@gmail.com>
Chart::Gnuplot error messages (Vicky Conlan)
Re: CURL problem and System call in Paralles PBA <hjp-usenet2@hjp.at>
Re: FAQ 3.10 Is there an IDE or Windows Perl Editor? genomart@gmail.com
Re: first sentence regexp? <bugbear@trim_papermule.co.uk_trim>
godaddy & perl grouchy.oldgit@googlemail.com
Re: godaddy & perl <noreply@gunnar.cc>
Re: godaddy & perl <tadmc@seesig.invalid>
Re: godaddy & perl <vilain@NOspamcop.net>
Re: godaddy & perl <jay-1941-@hotmail.com>
Re: godaddy & perl <jurgenex@hotmail.com>
Re: godaddy & perl <smallpond@juno.com>
Re: godaddy & perl <brian.d.foy@gmail.com>
Re: godaddy & perl <liarafan@xs4all.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 30 Mar 2009 07:53:23 -0700 (PDT)
From: joe <jcharth@gmail.com>
Subject: authcookieurl changing name of cookie
Message-Id: <0ddabd1d-578e-4172-a22a-2822e4add301@e2g2000vbe.googlegroups.com>
Hello I downloaded and installed authcookieurl. Works nicely but i was
not able to change the name of the cookie it keeps coming as
Sample::AuthCookieHandler_WhatEver. Any easy way to do this? thanks.
------------------------------
Date: Mon, 30 Mar 2009 17:53:39 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: authcookieurl changing name of cookie
Message-Id: <73c889FucndnU1@mid.individual.net>
joe wrote:
> Hello I downloaded and installed authcookieurl.
From where did you download it? In CPAN there is no module with that name.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 27 Mar 2009 21:37:04 -0700 (PDT)
From: Xah Lee <xahlee@gmail.com>
Subject: Re: Ban Xah Lee
Message-Id: <6b854432-7cb9-4eb3-8cf5-3619df2e5ae0@a5g2000pre.googlegroups.com>
over the past 15 years, every few months i got emails from authors for
permission request of materials on my website.
today, while searching for my name on google, i found a result in
books.google.com . Out of curiosity, i searched my name in
books.google.com, and here's a hilarious result:
Machine Learning and Data Mining in Pattern Recognition: 5th
International Conference, MLDM 2007, Leipzig, Germany, July 18-20,
2007, Proceedings (Lecture ... / Lecture Notes in Artificial
Intelligence) (Paperback)
by Petra Perner (Editor)
http://books.google.com/books?id=3DCE1QzecoVf4C&pg=3DPA401&dq=3Dxah+lee#PPA=
401,M1
Hilarious! (^o^)
He says: =E2=80=9C... Barely considering du, he is easily to be neglected=
=E2=80=9D.
What the hell does that mean!!? :)
Xah
=E2=88=91 http://xahlee.org/
=E2=98=84
------------------------------
Date: Sat, 28 Mar 2009 13:00:24 GMT
From: Arved Sandstrom <dcest61@hotmail.com>
Subject: Re: Ban Xah Lee
Message-Id: <Ibpzl.18928$Db2.16843@edtnps83>
Xah Lee wrote:
> over the past 15 years, every few months i got emails from authors for
> permission request of materials on my website.
>
> today, while searching for my name on google, i found a result in
> books.google.com . Out of curiosity, i searched my name in
> books.google.com, and here's a hilarious result:
>
> Machine Learning and Data Mining in Pattern Recognition: 5th
> International Conference, MLDM 2007, Leipzig, Germany, July 18-20,
> 2007, Proceedings (Lecture ... / Lecture Notes in Artificial
> Intelligence) (Paperback)
> by Petra Perner (Editor)
>
> http://books.google.com/books?id=CE1QzecoVf4C&pg=PA401&dq=xah+lee#PPA401,M1
>
> Hilarious! (^o^)
>
> He says: “... Barely considering du, he is easily to be neglected”.
> What the hell does that mean!!? :)
>
> Xah
> ∑ http://xahlee.org/
>
> ☄
I think it means that she considers your datapoint to be an outlier, and
that the actual number of posts to CLPM was not really a consideration
in reaching that conclusion.
AHS
------------------------------
Date: Mon, 30 Mar 2009 09:39:25 -0700 (PDT)
From: DaLoverhino <DaLoveRhino@hotmail.com>
Subject: bareword question
Message-Id: <6ab32b1a-9f42-451c-aacd-850d7711f026@f19g2000vbf.googlegroups.com>
Hello.
I have a function that takes an array of quoted words:
use strict;
use warnings;
my_function( "hello", "world!");
I can do this:
my_function qq(hello world!);
is there anyway to tell perl, that any barewords after my_function
(and my_function alone) should be treated as quoted words? So that I
can just simply do this:
my_function(hello world!);
------------------------------
Date: Mon, 30 Mar 2009 05:55:50 -0700 (PDT)
From: "A. Farber" <Alexander.Farber@gmail.com>
Subject: Being more restrictive when using blessed hash ref for OOP
Message-Id: <e52b1078-58ae-401a-9fce-1cb304258eb7@f19g2000yqo.googlegroups.com>
Hello,
I define and use several classes in my Perl application,
and I use blessed hash refs to store the data members.
Often I wonder, if there is a possibility for being
more restrictive - for example I'd prefer to get
a warning, when I reference or vivificate a
$href->{PLAYER} instead of $href->{PLAYERS} by mistake
Any suggestions please? Example of my code below...
Regards
Alex
package Game;
use strict;
our (%Games, $Num, $Sth_create_topic, $Sth_create_reply);
sub new {
my $pkg = shift;
my @chars = ('a'..'z', 'A'..'Z');
my $game = {
GID => ++$Num,
PHASE => CHATTING,
PLAYERS => [ ],
KIBITZERS => [ ],
INFO => undef,
DECK => [ 0 .. 31 ],
TABLE => undef,
NTABLE => undef,
START => undef,
TURN => undef,
NPASSED => undef,
HOLDER => undef,
WHISTER1 => undef,
WHISTER2 => undef,
ACTIVE => undef,
PASSIVE => undef,
SHOW => undef,
LATER => undef,
BEFORE => undef,
TRUMP => undef,
SUIT1 => undef,
TOPIC => undef,
WINNER => undef,
ROUND => 0,
BBCODE => '',
SUBJ => '',
BODY => '',
};
# generate 8 random characters used for posts in phpBB
$game->{BBCODE} .= $chars[rand @chars] while length $game->
{BBCODE} < 8;
$Games{$Num} = $game;
bless($game, $pkg);
}
# +500 more lines
------------------------------
Date: Mon, 30 Mar 2009 15:29:16 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: Being more restrictive when using blessed hash ref for OOP
Message-Id: <87wsa7w34j.fsf@vps1.hacking.dk>
"A. Farber" <Alexander.Farber@gmail.com> writes:
> Often I wonder, if there is a possibility for being
> more restrictive - for example I'd prefer to get
> a warning, when I reference or vivificate a
> $href->{PLAYER} instead of $href->{PLAYERS} by mistake
One solution could be to use the lock_keys functionality from
Hash::Util.
Even better would be to make methods for accessing you
attributes. Then you don't have to access the hash directly except for
a few well defined places. There are modules which makes these
accessor methods for youeasily, for example Class::Accessor.
And even better could be to use a full blown object system like
Moose.
//Makholm
------------------------------
Date: Mon, 30 Mar 2009 07:36:11 -0700 (PDT)
From: "A. Farber" <Alexander.Farber@gmail.com>
Subject: Re: Being more restrictive when using blessed hash ref for OOP
Message-Id: <26b53342-dd7c-461c-b399-e924ea4f5f83@c9g2000yqm.googlegroups.com>
Thanks.
I'd wished Class::Struct would use
Hash::Util::lock_keys - that would
be exactly what I need: define which
data memebers (and of what type)
are there in the constructor
and then don't allow anything else.
Sometimes I think of rewriting
my app in C++ because its compiler
would provide me that
Regards
Alex
------------------------------
Date: Mon, 30 Mar 2009 02:11:45 -0700 (PDT)
From: bellahsk@gmail.com
Subject: Calling SQL Server Stored Procedures: no results from SELECT following INSERT
Message-Id: <09af6d94-8c7f-4350-94e1-0eb87f0797dd@z9g2000yqi.googlegroups.com>
A Perl script using DBI calls a Stored Procedure on a SQL Server
database (connect, prepare, execute, fetchrow_arrayref, finish, etc).
The SP needs to:
- INSERT a record using arguments it got
- return result codes using a SELECT statement
If the SP SELECTs anything, even a constant value (e.g. SELECT "OK")
BEFORE the INSERT,
the calling Perl script gets the result.
If the SP SELECTs anything AFTER the INSERT,
no result comes back.
I do see in the DB that the INSERT succeeded though.
Any clue why INSERT might have such side effect?
------------------------------
Date: Mon, 30 Mar 2009 03:52:16 -0700 (PDT)
From: bellahsk@gmail.com
Subject: Re: Calling SQL Server Stored Procedures: no results from SELECT following INSERT
Message-Id: <747e58ec-b740-4744-9d91-e8839af213f5@e18g2000yqo.googlegroups.com>
The question is - why nothing can be received by the caller from
SELECTS that follow INSERT?
Is it possible that only one dataset may come back from SP, and that
INSERT results in an
empty dataset, in that way blocking results from following SELECTs?
------------------------------
Date: Mon, 30 Mar 2009 00:21:24 -0700 (PDT)
From: pakalk <pakalk@gmail.com>
Subject: Re: Can't locate object method error
Message-Id: <2661a4ad-cf8c-4b1d-a5cd-c18007801f84@b16g2000yqb.googlegroups.com>
Thanks for all responses.
I will try to use them :)
------------------------------
Date: Mon, 30 Mar 2009 12:24:48 +0000 (UTC)
From: comps@riffraff.plig.net (Vicky Conlan)
Subject: Chart::Gnuplot error messages
Message-Id: <gqqdmg$2not$1@magenta.plig.net>
Is it just me, or has anyone else noticed that the Chart::Gnuplot error
messages are a little "less than helpful" at times?
I just spent a lot longer trying to debug a bit of code which was coming
up with:
convert: missing an image filename `/tmp/3cno0xDCzC/plot.tmp.png'.
"/tmp/x2avATBeww/plot", line 6: undefined variable: title
Which then sent me down various wrong paths before realising that I'd
actually forgotten to pass the DataSet my ydata variable.
Obviously this should be a good prod to me to put more error checking
around my code, but am I missing something obvious which would provide
better error messages?
--
------------------------------
Date: Sat, 28 Mar 2009 20:49:34 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: CURL problem and System call in Paralles PBA
Message-Id: <slrngssvqf.gvh.hjp-usenet2@hrunkner.hjp.at>
On 2009-03-27 11:30, pakalk <pakalk@gmail.com> wrote:
> I mean... is http://search.cpan.org/~gaas/libwww-perl-5.825/lib/LWP.pm
> ok?
Yes.
hp
------------------------------
Date: Mon, 30 Mar 2009 03:57:44 -0700 (PDT)
From: genomart@gmail.com
Subject: Re: FAQ 3.10 Is there an IDE or Windows Perl Editor?
Message-Id: <963d28be-99ba-44b3-ac99-203b64d6dea2@e21g2000yqb.googlegroups.com>
That is another page to resume Edi that can be use to write
Perl script : http://perl.developpez.com/outils/
------------------------------
Date: Mon, 30 Mar 2009 10:01:38 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: first sentence regexp?
Message-Id: <TYadnYKWqfDvF03UnZ2dnUVZ8q2dnZ2d@posted.plusnet>
Ted Zlatanov wrote:
> On Thu, 26 Mar 2009 15:32:32 +0000 bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
>
> b> I would like to pick out the first sentence of some
> b> text, so that it can be manipulated (displayed, indexed)
> b> differently from the rest of the text.
>
> b> The text is HTML (which doesn't help), so there may be tags
> b> mixed in. And I'm struggling to avoid getting spurious "ends"
> b> from things like the decimal point in numbers, and abbreviations
> b> e.g. "e.g."
>
> b> Anyone done this before, and got a decent answer?
>
> b> I'm aware that any regexp will only be an approximate solution,
> b> but I'm hoping it will be "good enough"
>
> Though you don't state it, can we assume it's English text?
Yes - sorry for not being explicit.
>
> Do a Google search for "perl nlp" and read up...
>
> http://www.perlmonks.org/?node_id=41281
My application doesn't warrant THAT much effort :-)
>
> Finally, this may be obvious, but have you considered
> Lingua::EN::Sentence?
>
> http://search.cpan.org/~shlomoy/Lingua-EN-Sentence-0.25/lib/Lingua/EN/Sentence.pm
Heh. It's only obvious in hindsight. Thank you for the link.
BugBear
------------------------------
Date: Sat, 28 Mar 2009 17:34:21 -0700 (PDT)
From: grouchy.oldgit@googlemail.com
Subject: godaddy & perl
Message-Id: <bb3240ac-5ced-449b-a7d1-3f40f5b2db84@v15g2000yqn.googlegroups.com>
I've just started learning perl and am trying to run the script below
entitled p1.pl on godaddy in folder /cgi
#!/usr/bin/perl
print "hello world";
It keeps returning 500 Internal Sever Error
Is there some problem in my program? Or am I not using godaddy's perl
implementation correctly?
------------------------------
Date: Sun, 29 Mar 2009 01:52:27 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: godaddy & perl
Message-Id: <737v2eFtfq3sU1@mid.individual.net>
grouchy.oldgit@googlemail.com wrote:
> I've just started learning perl and am trying to run the script below
> entitled p1.pl on godaddy in folder /cgi
>
> #!/usr/bin/perl
> print "hello world";
>
> It keeps returning 500 Internal Sever Error
>
> Is there some problem in my program? Or am I not using godaddy's perl
> implementation correctly?
Have you consulted the Go Daddy documentation about whether they offer
CGI support and, if they do, what their requirement are to make it work?
Or did you ask the Go Daddy support?
Think that's the proper way to start.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sat, 28 Mar 2009 19:58:00 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: godaddy & perl
Message-Id: <slrngsthso.kea.tadmc@tadmc30.sbcglobal.net>
grouchy.oldgit@googlemail.com <grouchy.oldgit@googlemail.com> wrote:
> I've just started learning perl and am trying to run the script below
> entitled p1.pl on godaddy in folder /cgi
>
> #!/usr/bin/perl
> print "hello world";
>
> It keeps returning 500 Internal Sever Error
>
> Is there some problem in my program?
No, it looks fine. (assuming that is the correct location for perl)
> Or am I not using godaddy's perl
> implementation correctly?
You need to find out *what* internal error it is.
You will probably find that in the web server's error log.
Ask your hosting provider how you can access the server error log.
Also, try it without Perl, perhaps by using a shell instead:
#!/bin/bash
echo "hello world"
If that also fails, then it is clear that your problem is not
related to Perl, as it fails in the same way even when not
using any Perl.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sat, 28 Mar 2009 18:04:35 -0700
From: Michael Vilain <vilain@NOspamcop.net>
Subject: Re: godaddy & perl
Message-Id: <vilain-CEADD1.18043428032009@feeder.motzarella.org>
In article
<bb3240ac-5ced-449b-a7d1-3f40f5b2db84@v15g2000yqn.googlegroups.com>,
grouchy.oldgit@googlemail.com wrote:
> I've just started learning perl and am trying to run the script below
> entitled p1.pl on godaddy in folder /cgi
>
> #!/usr/bin/perl
> print "hello world";
>
> It keeps returning 500 Internal Sever Error
>
> Is there some problem in my program? Or am I not using godaddy's perl
> implementation correctly?
CGI isn't the same as shell programming. The above will only output
"hello world" when executed from the web page. CGI requires the output
type be defined before it's processed by the remote browser (these are
called headers). You sent an invalid header.
Try this instead:
#!/usr/bin/perl
print "content-type: text/plain;\n\n";
print "hello world\n";
exit;
--
DeeDee, don't press that button! DeeDee! NO! Dee...
[I filter all Goggle Groups posts, so any reply may be automatically by ignored]
------------------------------
Date: Sat, 28 Mar 2009 22:22:23 -0400
From: Jay Somerset <jay-1941-@hotmail.com>
Subject: Re: godaddy & perl
Message-Id: <qnmts41h2cv1s5cfthi4b4uvq2ahkgt9qh@4ax.com>
On Sat, 28 Mar 2009 17:34:21 -0700 (PDT),
grouchy.oldgit@googlemail.com wrote:
>I've just started learning perl and am trying to run the script below
>entitled p1.pl on godaddy in folder /cgi
>
> #!/usr/bin/perl
> print "hello world";
>
>It keeps returning 500 Internal Sever Error
>
>Is there some problem in my program? Or am I not using godaddy's perl
>implementation correctly?
Sounds to me as though you do not execute permission on your p1.pl
file in the go-daddy website /cgi directory.
Easiest way to set this is to use the chmod command from within FTP.
--
Jay (remove dashes for legal email address)
------------------------------
Date: Sun, 29 Mar 2009 02:02:26 -0700
From: Jrgen Exner <jurgenex@hotmail.com>
Subject: Re: godaddy & perl
Message-Id: <npdus4t7nneh0oh61lmvpbcrqvsjckt2tq@4ax.com>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
[I don't see see the OP, therefore replying to your post]
>grouchy.oldgit@googlemail.com wrote:
>> I've just started learning perl and am trying to run the script below
>> entitled p1.pl on godaddy in folder /cgi
>>
>> #!/usr/bin/perl
>> print "hello world";
>>
>> It keeps returning 500 Internal Sever Error
See 'perldoc -q 500':
My CGI script runs from the command line but not the browser.
(500 Server Error)
>> Is there some problem in my program?
Aside of not using
use warnings;
use strict;
which is strongly recommended, no, the script as such looks ok. Did you
run it from the command line? What was the result? I bet it printed
"hello world" which is a strong indication that your problem is not
Perl-related.
However it appears you are running the Perl script in a CGI environment
and your script is not producing the required CGI headers. I don't know
what godaddy is and if this observation is relevant for godaddy or if
godaddy provides those headers or whatever.
>>Or am I not using godaddy's perl
>> implementation correctly?
>
>Have you consulted the Go Daddy documentation about whether they offer
>CGI support and, if they do, what their requirement are to make it work?
A very sound advice.
jue
------------------------------
Date: Sun, 29 Mar 2009 10:09:29 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: godaddy & perl
Message-Id: <e9965ed1-ad7a-4877-9658-0444899ab354@e38g2000yqa.googlegroups.com>
On Mar 28, 8:34=A0pm, grouchy.old...@googlemail.com wrote:
> I've just started learning perl and am trying to run the script below
> entitled p1.pl on godaddy in folder /cgi
>
> =A0 =A0#!/usr/bin/perl
> =A0 =A0print "hello world";
>
> It keeps returning 500 Internal Sever Error
>
> Is there some problem in my program? Or am I not using godaddy's perl
> implementation correctly?
http://www.godaddy.com/gdshop/hosting/shared.asp?isc=3Dgoaz2001aa&ci=3D8971=
#tabs
perl cgi is not offered on the basic plan. upgrade.
------------------------------
Date: Mon, 30 Mar 2009 02:56:07 -0400
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: godaddy & perl
Message-Id: <300320090256078470%brian.d.foy@gmail.com>
In article
<bb3240ac-5ced-449b-a7d1-3f40f5b2db84@v15g2000yqn.googlegroups.com>,
<grouchy.oldgit@googlemail.com> wrote:
> It keeps returning 500 Internal Sever Error
Try my guide to troubleshooting CGI programs. Just follow the steps:
http://www.perlmonks.org/?node_id=380424
------------------------------
Date: Mon, 30 Mar 2009 18:29:14 +0200
From: "Mark" <liarafan@xs4all.nl>
Subject: Re: godaddy & perl
Message-Id: <d-CdnTSgWtTBbk3UnZ2dnUVZ8tqWnZ2d@giganews.com>
<grouchy.oldgit@googlemail.com> wrote in message
news:bb3240ac-5ced-449b-a7d1-3f40f5b2db84@v15g2000yqn.googlegroups.com...
> I've just started learning perl and am trying to run the script below
> entitled p1.pl on godaddy in folder /cgi
>
> #!/usr/bin/perl
> print "hello world";
>
> It keeps returning 500 Internal Sever Error
Why does that surprise you? Even if you have the permissions set properly
(likely chmod 755), your output will throw a 500 error, regardless (in
your eror log you should see something about a 'malformed header'). Try
this:
#!/usr/bin/perl
print "Content-Type: text/html; charset=ISO-8859-1\n\n";
print "hello world";
Naturally, this isn't per se the recommended way to deal with CGI. You're
better off just using the CGI module ("Use CGI;"). Or even better, first
familiarize yourself some more with http headers and such and CGI
programming in general.
------------------------------
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 2304
***************************************
