[29812] in Perl-Users-Digest
Perl-Users Digest, Issue: 1055 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 23 16:09:42 2007
Date: Fri, 23 Nov 2007 13:09:07 -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 Fri, 23 Nov 2007 Volume: 11 Number: 1055
Today's topics:
Re: float -> RGB <bugbear@trim_papermule.co.uk_trim>
Re: float -> RGB <uri@stemsystems.com>
Re: How to clean up this ugly code? <bugbear@trim_papermule.co.uk_trim>
Re: How to get the string Cartesian Products of 2 list xueweizhong@gmail.com
Re: How to get the string Cartesian Products of 2 list <bik.mido@tiscalinet.it>
Re: How to get the string Cartesian Products of 2 list <ben@morrow.me.uk>
Re: How to get the string Cartesian Products of 2 list <njus@larshaugseth.com>
Re: How to get the string Cartesian Products of 2 list xhoster@gmail.com
Re: is there any command for catch in tcl in perl <glennj@ncf.ca>
location of mylib.pm <pawlaczus@yahoo.com>
Re: location of mylib.pm <rkb@i.frys.com>
Re: location of mylib.pm <ben@morrow.me.uk>
Re: location of mylib.pm <spamtrap@dot-app.org>
Re: minicpan, CPAN/CPANPLUS and autobundles on linux <brian.d.foy@gmail.com>
Re: Perl wont install <leonard_plummer@hotmail.co.uk>
Re: POSIX signal handling: inputs needed xhoster@gmail.com
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Re: Script to disconnect Linksys WRT54G wireless router <ben@morrow.me.uk>
Re: Script to disconnect Linksys WRT54G wireless router <davewilson69@sbcglobal.net>
Re: SvUOK always fails on 64bit platform <ben@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Nov 2007 16:40:04 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: float -> RGB
Message-Id: <13ke0j4tp2uv07a@corp.supernews.com>
alexxx.magni@gmail.com wrote:
> Greetings,
> I know this isnt a perlish problem,
> but I need to transform a float $x=0..1 in RGB values ($R,$G,$B)
> according to whichever palette you want...
> but I'm not expert at all in graphics problems, so it's not clear to
> me how to do it - hope somebody can drop down a couple of lines!
If you're asking how to use as float as an index
into a (normal) pallette of 256 different RGB triples,
you just need to multiple the float up total size of your palette,
and round.
roughly, and without checking boundary conditions:
my $triple = $palette[int(256 * $f)];
BugBear
------------------------------
Date: Fri, 23 Nov 2007 17:58:56 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: float -> RGB
Message-Id: <x71wagq1wg.fsf@mail.sysarch.com>
>>>>> "b" == bugbear <bugbear@trim_papermule.co.uk_trim> writes:
b> my $triple = $palette[int(256 * $f)];
no need for the int() call as array indexing will do an implied int()
for you.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 23 Nov 2007 16:36:21 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: How to clean up this ugly code?
Message-Id: <13ke0c6agvr3479@corp.supernews.com>
Ben Morrow wrote:
> However, the first question is why you have
> these methods at all. It would be much better to have one method
> ->DisplayPage that took the page number as a parameter.
Good Question, and unanswered as yet.
All the other "direct" answers to OP's original
post are interesting pieces of Perl, but
don't address the largest flaw in the
overall implementation.
BugBear
------------------------------
Date: Fri, 23 Nov 2007 08:13:15 -0800 (PST)
From: xueweizhong@gmail.com
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <4cb7c15c-5b9b-47b2-ae9e-9d3862654707@s6g2000prc.googlegroups.com>
Hi brian,
> Although you've already said that you don't want non-core modules,
> Set::CrossProduct can help here. ...
Really cool. I'll study it.
BTW, bash is more common than non-standard perl module, right? :-)
-Todd
------------------------------
Date: Fri, 23 Nov 2007 20:15:29 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <7j9ek39ddc810f5dmn60qsi3k2j2eqrdrm@4ax.com>
On Fri, 23 Nov 2007 08:13:15 -0800 (PST), xueweizhong@gmail.com wrote:
>> Although you've already said that you don't want non-core modules,
>> Set::CrossProduct can help here. ...
>
>Really cool. I'll study it.
>
>BTW, bash is more common than non-standard perl module, right? :-)
It depends... what if you want your program to run under Windows as
well? Of course Win32 ports of bash do exist. But would you expect
people to install one for a single line in your script?
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: Fri, 23 Nov 2007 19:29:48 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <camj15-k592.ln1@osiris.mauzo.dyndns.org>
Quoth xueweizhong@gmail.com:
> > Although you've already said that you don't want non-core modules,
> > Set::CrossProduct can help here. ...
>
> Really cool. I'll study it.
>
> BTW, bash is more common than non-standard perl module, right? :-)
Depending on your frame of reference, maybe. However, if you package up
your Perl program properly (see perlnewmod), you can get perl to install
modules for you automatically, which is rather harder to arrange for
bash. :)
Ben
------------------------------
Date: 23 Nov 2007 20:52:21 +0100
From: Lars Haugseth <njus@larshaugseth.com>
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <m18x4od9je.fsf@vader.eiendomsnett.no>
* xueweizhong@gmail.com wrote:
>
> > > perl glob in perl5.8 is not power enough than the bash3.0 glob, it
> > > doesn't support .. operator which is fatal to this issue:
> >
> > Why? In practice, the lists being globbed are likely to be variables,
> > not hard coded inside the glob call.
> >
> > {
> > local $" = ','; # List separator
> >
> > my @letters = 'a'..'c';
> > my @numbers = 1..3;
> >
> > my @globbed = glob "{@letters}{@numbers}";
> >
> > print "@globbed\n";
> >
> > }
> I do think these lines are worse than using loop BLOCK. What I want is
> an single expression, not statements with so many nosiy lines.
Err, what do you mean? The only "extra" statement here is the setting
of $" to make the glob and print more readable. The rest is assignments
and output, just there to make the example complete. How would you have
done this using loops with less expressions?
--
Lars Haugseth
"If anyone disagrees with anything I say, I am quite prepared not only to
retract it, but also to deny under oath that I ever said it." -Tom Lehrer
------------------------------
Date: 23 Nov 2007 20:14:20 GMT
From: xhoster@gmail.com
Subject: Re: How to get the string Cartesian Products of 2 list
Message-Id: <20071123151422.993$G5@newsreader.com>
xueweizhong@gmail.com wrote:
> Hi brian,
>
> > Although you've already said that you don't want non-core modules,
> > Set::CrossProduct can help here. ...
>
> Really cool. I'll study it.
>
> BTW, bash is more common than non-standard perl module, right? :-)
Apparently "bash3.0" isn't common enough. All the machines I've looked
at, many fairly new, don't have it. And on those versions, ".."
is just literal.
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: 23 Nov 2007 16:19:50 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: is there any command for catch in tcl in perl
Message-Id: <slrnfkdvd7.o24.glennj@smeagol.ncf.ca>
At 2007-11-23 01:39AM, "vikram.varshney@gmail.com" wrote:
> actully i need to search something from a big database. So , if
> someone gives a wrong code then the output is blank (no space). I
> needed "NULL" for that purpose. I tried "length($var ==0)" but its
> very unstable and gives shaky results everytime.
You'd probably want to count the number of rows returned instead. Are
you using DBI?
I hope you don't actually have "length($var ==0)" -- that will probably
always return true. Do you "use warnings"?
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Fri, 23 Nov 2007 09:23:17 -0800 (PST)
From: Konrad Blaszczyk <pawlaczus@yahoo.com>
Subject: location of mylib.pm
Message-Id: <24b1dbef-5c28-4e60-b664-b93eadde4672@a39g2000pre.googlegroups.com>
Hello
My script and my library are contained in the same directory. My
script uses my library:
use mylib;
I cannot execute my script from outside the directory it is located
since it cannot locate the mylib.pm.
How can I force my script to search the my library in the directory it
is located.
thank You for help
------------------------------
Date: Fri, 23 Nov 2007 09:43:01 -0800 (PST)
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: location of mylib.pm
Message-Id: <c63a9bd2-4e52-433d-9982-cbbf9a1b6073@e25g2000prg.googlegroups.com>
On Nov 23, 9:23 am, Konrad Blaszczyk <pawlac...@yahoo.com> wrote:
> Hello
>
> My script and my library are contained in the same directory. My
> script uses my library:
> use mylib;
>
> I cannot execute my script from outside the directory it is located
> since it cannot locate the mylib.pm.
> How can I force my script to search the my library in the directory it
> is located.
>
> thank You for help
use lib 'path/to/your/library_dir';
use Mylib;
------------------------------
Date: Fri, 23 Nov 2007 17:36:39 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: location of mylib.pm
Message-Id: <7mfj15-n2o.ln1@osiris.mauzo.dyndns.org>
Quoth Konrad Blaszczyk <pawlaczus@yahoo.com>:
> My script and my library are contained in the same directory. My
> script uses my library:
> use mylib;
>
> I cannot execute my script from outside the directory it is located
> since it cannot locate the mylib.pm.
> How can I force my script to search the my library in the directory it
> is located.
perldoc lib
perldoc FindBin
Ben
------------------------------
Date: Fri, 23 Nov 2007 13:50:26 -0500
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: location of mylib.pm
Message-Id: <m1abp4pzil.fsf@dot-app.org>
Konrad Blaszczyk <pawlaczus@yahoo.com> writes:
> How can I force my script to search the my library in the directory it
> is located.
perldoc lib
sherm--
--
WV News, Blogging, and Discussion: http://wv-www.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Fri, 23 Nov 2007 10:04:38 -0600
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: minicpan, CPAN/CPANPLUS and autobundles on linux
Message-Id: <231120071004382977%brian.d.foy@gmail.com>
In article <6uidk3db21l9q3ogd7a0s2so1p4dhegfod@4ax.com>, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
> Since it didn't receive any answers, I replicated your question with
> proper attributions at
Well, I took a break for an American holiday so I didn't have a chance
to answer this one until today.
Haven't we gone through this before? I certainly think reposting
content without permission, even with attribution, is wrong. Several
other people have told you the same thing.
------------------------------
Date: Fri, 23 Nov 2007 09:55:43 -0800 (PST)
From: Frieza <leonard_plummer@hotmail.co.uk>
Subject: Re: Perl wont install
Message-Id: <983e0303-df24-45f5-84fe-df8ba6c172ce@d61g2000hsa.googlegroups.com>
On Nov 22, 10:26 pm, Joost Diepenmaat <jo...@zeekat.nl> wrote:
> On Thu, 22 Nov 2007 13:05:15 -0800, Frieza wrote:
> > Hi can anyone help I have a vista operating system i downloaded perl msi
> > package but when I install I get a message sayin unable to set or remove
> > path please do so manually can anyone come up with a solution.
>
> Which msi package is that? I'm assuming you mean the activestate.com one.
>
> If everything else in the install process went right, it just means you
> can't execute perl from the command prompt without giving it's full path,
> i.e. you'd have to do:
>
> c:\some\path\to\perl -e 'print "OK\n"'
>
> instead of the easier
>
> perl -e 'print "OK\n"'
>
> you can fix that by setting/modifying the PATH environment variable to
> include the directory that the perl.exe was installed in.
>
> On windows it should contain a ";" separated list of directories.
>
> See also:http://banagale.com/changing-your-system-path-in-windows-
> vista.htm
>
> andhttp://www.computerhope.com/issues/ch000549.htm
>
> Joost.
done what you said found the path and then put it where it should be
thank you.
------------------------------
Date: 23 Nov 2007 20:24:54 GMT
From: xhoster@gmail.com
Subject: Re: POSIX signal handling: inputs needed
Message-Id: <20071123152456.166$HL@newsreader.com>
monk <rsarpi@gmail.com> wrote:
> Hi all,
>
> Is it safe/sane/common practice to have a program react to every
> single POSIX signal there is out there available in the OS?
Sounds strange to me. If you don't know what the signal is, why you are
getting it, or what to do with it, then why not just let the default
behavior prevail? I'm only going to override the default behavior
(presumably crafted by people who know far more about such system things
than I do) if I have specific knowledge about how my program should
interact with that part of their system.
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, 23 Nov 2007 16:46:32 GMT
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <ItD1j.73939$Um6.19052@newssvr12.news.prodigy.net>
On Fri, 23 Nov 2007 04:23:59 -0000, tramp wrote:
> You're in way over your head
agreed. That's why I'm asking here.
> nobody here owes it to you to
agreed.
I'm asking anyone with a Linksys WRT54G router to just run the script once
and report back if they see the same issue.
> your biggest difficulty is lack of Perl experience
agreed.
However an experienced programmer wrote the original script & it failed to
reboot the router.
> People will be more likely to help if they can be sure this is
> purely a Perl-programming problem.
It is and is not a perl-programming problem. If Perl can't do it (which I
seriously suspect), then it's not a perl programming problem, I agree. We
can't really ask perl to do what it just can not do.
> If you haven't done so already, get the original reboot script working
The original perl script never worked for anyone, not even the original
programmer. He did his best. So did I. Both failed.
> That will verify that Perl and its libraries are properly installed
I agree - we need to verify this somehow. What would be a good way to
verify that an https web page can be accessed via a perl script and a
button on that https web page pressed?
> nothing in Windows networking (or maybe a local firewall?)
I've turned off the software firewall for the testing
> that the router is reachable by Perl,
Another good one. What is the basic test of that?
> that the username/password pair is working
Yet another good one. How would we test this?
> that Perl can successfully issue commands to the router.
Ah. This is the big kehuna. Can perl issue commands to a router or not?
> Then if your script doesn't work, you know that the problem lies
> somewhere in your modifications to the reboot script.
The reboot script never worked even for the original programmer. He said it
was the best he could do in perl.
------------------------------
Date: Fri, 23 Nov 2007 16:50:35 GMT
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <vxD1j.73941$Um6.73799@newssvr12.news.prodigy.net>
On Fri, 23 Nov 2007 02:40:00 +0000, Ben Morrow wrote:
> Have you tried using http://www.research.att.com/sw/tools/wsp/? If the
> web page served by the router is being too clever (and they *always*
> seem to be) then this may help.
Hi Ben,
You were the only one, it seems, who actually offered real help that pushed
this project forward. I appreciate that.
I'm still trying some avenues but have lost most of my trust in perl as
there are no working scripts I can find to test it on my router. If I could
only find a working script for a Linksys router that did anything - it
would give me confidence in that approach.
I have a couple more ideas going that I am trying and if perl continues to
fail me, I will use the method you denoted and as always, post the results
so everyone benefits from the exchange of information.
Thank you Ben for helping me and by doing so, helping the next person with
the same request!
------------------------------
Date: Fri, 23 Nov 2007 19:09:09 GMT
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <pzF1j.19309$4V6.6133@newssvr14.news.prodigy.net>
On Fri, 23 Nov 2007 10:47:50 -0500, Sherman Pendley wrote:
> When someone who admits to not having any Perl knowledge, and to not being a
> programmer at all, claims to know what Perl is capable of, I have serious
> doubts about that claim. Someone who's at that level simply doesn't have the
> experience or background to reasonably assess Perl's capabilities.
Hi Sherman,
I understand your argument, however, one (or all) of us is missing the main
point (maybe I didn't make it well enough so I'll try again).
I don't know if it will push this project forward to continue to "discuss"
without actually progressing - but - my main point was there is no evidence
in the literature that it has ever been done with a Linksys WRT54G router.
... no evidence in the literature that perl works for this purpose ...
That's a pretty strong statement given how prevalent the Linksys WRT54G
router is and how common Perl programming seems to be.
... there is no working script on the Internet that anyone has posted ...
At least nobody has ever posted a solution for logging into https Linksys
WRT54G (other than me and my script didn't work) - so my main point is that
there is absolutely no evidence that perl can do these two steps:
a) Log into the Linksys WRT54G as https
b) Press a button
I'm not asking anyone to "program" for me but if they already have a script
that does this - please just post it and we all would benefit from the
proof.
Either that, or just run my posted script and let us know if you get the
SAME errors I posted.
It's all just talk which gets us nowhere forward unless someone posts a
script that works or tries the script that didn't work.
Wilson
------------------------------
Date: Fri, 23 Nov 2007 19:27:26 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <u5mj15-k592.ln1@osiris.mauzo.dyndns.org>
Quoth Wilson <davewilson69@sbcglobal.net>:
>
> At least nobody has ever posted a solution for logging into https Linksys
> WRT54G (other than me and my script didn't work) - so my main point is that
> there is absolutely no evidence that perl can do these two steps:
> a) Log into the Linksys WRT54G as https
> b) Press a button
Don't be ridiculous: it almost certainly can, you just don't know how,
and we don't have the router in question or don't care enough to find
out.
About the only case where it's non-trivial to fake a browser's request
with Perl is when the page includes JavaScript that changes what is
about to be submitted in a non-trivial way. This would require that you
write a piece of Perl that has the same effect as the given piece of JS:
if you can't see that that is always possible, then you shouldn't be
attempting to write a program at all.
> I'm not asking anyone to "program" for me but if they already have a script
> that does this - please just post it and we all would benefit from the
> proof.
Download and install WSP that I pointed you to previously, set it as
your proxy, do whatever it is you are trying to do with your browser,
and WSP will write you a Perl program that does the same thing. That's
what it's for :).
> It's all just talk which gets us nowhere forward unless someone posts a
> script that works or tries the script that didn't work.
s/unless.*/until you stop making unfounded assertions about things you
don't understand and start trying to find out what requests the router
will actually respond to./s;
Ben
------------------------------
Date: Fri, 23 Nov 2007 20:49:10 GMT
From: Wilson <davewilson69@sbcglobal.net>
Subject: Re: Script to disconnect Linksys WRT54G wireless router on Windows
Message-Id: <a1H1j.24259$JD.16976@newssvr21.news.prodigy.net>
On Fri, 23 Nov 2007 19:27:26 +0000, Ben Morrow wrote:
>> At least nobody has ever posted a solution for logging into https Linksys
>> WRT54G (other than me and my script didn't work)
> About the only case where it's non-trivial to fake a browser's request
> with Perl is when the page includes JavaScript that changes what is
> about to be submitted in a non-trivial way.
Hi Ben,
As before, you seem to be on to something here as the one posting the most
wisdom. I turned off javascript and java in my browser and guess what? I
could log into my Linksys WRT54G router but I could NOT access any of the
buttons. The web page was "garbled" (for lack of a better description)
without Javascript and/or Java.
Hmmmm... does this mean that Perl can "impersonate" java somehow?
Wilson
------------------------------
Date: Fri, 23 Nov 2007 17:20:50 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: SvUOK always fails on 64bit platform
Message-Id: <ioej15-hqu1.ln1@osiris.mauzo.dyndns.org>
Quoth cyl <u8526505@gmail.com>:
> I have a dll exporting a function for perl which accepts an unsigned
> interger parameter. In the exported function I use SvUOK to check what
> the returned values will be by supplying different values from perl
> script. Here are what I get
>
> 32bit
> (in perl) (SvUOK return value)
> 0 - 0x7fffffff false
> 0x80000000 - 0xffffffff true
0x7fffffff here is the largest value that fits into a 32bit IV.
> 64bit
> (in perl) (SvUOK return value)
> 0-0xffffffff false
0xffffffff easily fits into a 64bit IV, so that's what perl uses. If you
try numbers like 1<<63 that fit into an UV but not an IV, you'll find
they start becoming SvUOK again, so:
64bit value SvUOK
0 .. (1<<63 - 1) false
(1<<63) .. (1<<64 - 1) true
exactly equivalent to the 32bit table.
Ben
------------------------------
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 1055
***************************************
