[28660] in Perl-Users-Digest
Perl-Users Digest, Issue: 10024 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 1 00:06:04 2006
Date: Thu, 30 Nov 2006 21:05:06 -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 Thu, 30 Nov 2006 Volume: 10 Number: 10024
Today's topics:
Re: CGI parsing <benmorrow@tiscali.co.uk>
Compiling perl? perl?? <Mark.Seger@hp.com>
Re: Compiling perl? perl?? <john@castleamber.com>
Re: Compiling perl? perl?? <tbmoore9@verizon.net>
Re: Compiling perl? perl?? <benmorrow@tiscali.co.uk>
CPAN modules in commercial programs <shirazk@gmail.com>
exec dynamic script, capture output, but see vars of ca <stan@invalid.blz/hmrprint/com.com>
Re: How do I get rid of this warning? <benmorrow@tiscali.co.uk>
how to do this with RE? <arthur0421@gmail.com>
Re: how to do this with RE? <tadmc@augustmail.com>
Re: how to do this with RE? <1usa@llenroc.ude.invalid>
Re: how to do this with RE? <john@castleamber.com>
Re: how to do this with RE? <arthur0421@gmail.com>
Re: how to do this with RE? <arthur0421@gmail.com>
Re: how to do this with RE? <arthur0421@gmail.com>
Re: I need to read web pages without LWP <john@castleamber.com>
Re: it just wouldn't compile <benmorrow@tiscali.co.uk>
Re: Masking/Hiding a password in Perl Source <emschwar@pobox.com>
Re: Regex failed to replace utf8 character <mccownf@yahoo.com>
Re: sort array usenet@DavidFilmer.com
Re: sort array <shirazk@gmail.com>
Re: What is a glob variable? <merrile@telus.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 1 Dec 2006 02:19:40 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: CGI parsing
Message-Id: <s2g444-kr9.ln1@osiris.mauzo.dyndns.org>
Quoth Gunnar Hjalmarsson <noreply@gunnar.cc>:
> Ben Morrow wrote:
> > If you can do it *correctly* more efficiently than CGI.pm can,
>
> Of course I can; just did.
> http://groups.google.com/group/comp.lang.perl.misc/msg/827b6bb5568885f3
>
> I.e. it does *correctly* what it's supposed to do. (It's not supposed to
> handle e.g. multivalue fields or file uploads.)
I'm not really competent to judge whether it's correct, not having read
the CGI spec recently; as for 'more efficient', did you benchmark it?
Can we see the results?
> > then by all means please release your code as CGI::VeryEfficient or
> > something, and then the rest of us can get the benefit as well.
>
> Since there already are alternative CGI parsing modules, there is no
> need to release another one.
Then might I respectfully suggest that you point people at one of those,
instead of encouraging them to cargo-cult CGI-parsing code that a lot of
the time is either incorrect or not properly understood? It's hard
enough to get beginning programmers to understand the value of
modularity and code reuse as it is, without a whole lot of (almost
certainly spurious) argument about the efficiency or otherwise of
CGI.pm.
> If one of them was included in the standard Perl distro, people might
> be more inclined to use it. I know I would.
With pure-perl module such as we are talking it really doesn't matter if
it's in the perl core or not. It's trivial to install the module by hand
and point perl at it in even the most restricted of hosting
environments. XS modules are another matter, of course.
Ben
--
I must not fear. Fear is the mind-killer. I will face my fear and
I will let it pass through me. When the fear is gone there will be
nothing. Only I will remain.
benmorrow@tiscali.co.uk Frank Herbert, 'Dune'
------------------------------
Date: Thu, 30 Nov 2006 13:37:40 -0500
From: Mark Seger <Mark.Seger@hp.com>
Subject: Compiling perl? perl??
Message-Id: <456f24f5$1@usenet01.boi.hp.com>
I suspect this has been discussed in the past before, and so I searched
around the web and virtually everything I found out there says perlcc is
buggy and not to use it, especially in production, so my question is are
there any reliable alternatives? Or is there some magic incantation to
get perlcc to build without segment faulting as that's what it's doing
to me?
The problem I'm interesting is solving is getting something to run on a
system that doesn't have perl installed. I know there are also those
who want to compile as a way of hiding source, but I don't care about that.
-mark
------------------------------
Date: 1 Dec 2006 02:28:12 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Compiling perl? perl??
Message-Id: <Xns988BD03AD9F1Ccastleamber@130.133.1.4>
Mark Seger <Mark.Seger@hp.com> wrote:
> The problem I'm interesting is solving is getting something to run on
> a system that doesn't have perl installed. I know there are also
> those who want to compile as a way of hiding source, but I don't care
> about that.
Check out PAR, which puts the perl interpreter, your script, modules etc.
in one executable.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 01 Dec 2006 03:03:00 GMT
From: boyd <tbmoore9@verizon.net>
Subject: Re: Compiling perl? perl??
Message-Id: <tbmoore9-781241.22030030112006@news.verizon.net>
In article <456f24f5$1@usenet01.boi.hp.com>,
Mark Seger <Mark.Seger@hp.com> wrote:
> I suspect this has been discussed in the past before, and so I searched
> around the web and virtually everything I found out there says perlcc is
> buggy and not to use it, especially in production, so my question is are
> there any reliable alternatives? Or is there some magic incantation to
> get perlcc to build without segment faulting as that's what it's doing
> to me?
>
> The problem I'm interesting is solving is getting something to run on a
> system that doesn't have perl installed. I know there are also those
> who want to compile as a way of hiding source, but I don't care about that.
>
> -mark
The module PAR does this for you, so I understand. This article by
simon cozens http://simon-cozens.org/programmer/articles/webgui.pod
does more than you are requesting, but it points the way.
Boyd
------------------------------
Date: Fri, 1 Dec 2006 02:25:01 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Compiling perl? perl??
Message-Id: <tcg444-kr9.ln1@osiris.mauzo.dyndns.org>
Quoth Mark Seger <Mark.Seger@hp.com>:
> I suspect this has been discussed in the past before, and so I searched
> around the web and virtually everything I found out there says perlcc is
> buggy and not to use it, especially in production, so my question is are
> there any reliable alternatives? Or is there some magic incantation to
> get perlcc to build without segment faulting as that's what it's doing
> to me?
>
> The problem I'm interesting is solving is getting something to run on a
> system that doesn't have perl installed. I know there are also those
> who want to compile as a way of hiding source, but I don't care about that.
See PAR.pm. This packages up the perl binary and your program into a
single executable.
Ben
--
Like all men in Babylon I have been a proconsul; like all, a slave ... During
one lunar year, I have been declared invisible; I shrieked and was not heard,
I stole my bread and was not decapitated.
~ benmorrow@tiscali.co.uk ~ Jorge Luis Borges, 'The Babylon Lottery'
------------------------------
Date: 30 Nov 2006 19:25:48 -0800
From: "Shiraz" <shirazk@gmail.com>
Subject: CPAN modules in commercial programs
Message-Id: <1164943548.707433.52060@j44g2000cwa.googlegroups.com>
can anyone point me to a resource or explain the requirements or
conditions that exists if one wants to use a module from CPAN in a
commercial software that i am going to sell.
------------------------------
Date: Thu, 30 Nov 2006 20:06:57 -0800
From: "Stan R." <stan@invalid.blz/hmrprint/com.com>
Subject: exec dynamic script, capture output, but see vars of caller?
Message-Id: <eko9p701vtj@news4.newsguy.com>
Hello, I've been tasked with writing a Perl program that generates
another Perl script on the fly (by parsing a file, whose name is passed
to the base script, that is basically a Perl program interweaved in a
document, where the Perl code it inside special tokens (sorta kinda like
how php looks like sitting among html markup.))
I can very easily parse the page using a couple of s/// statements and
such (god I love Perl's native RegEx :-) ) as needed and either execute
with an eval() or dump the code into a file and execute it that.
Now an additional requirement has been tasked on me. The parsed code
needs to be able to 'see' global variables defined in the base script
(most of which comes from a use'ed package lib.)
I thought maybe I have solved this by simply dumping the parsed code
into a file and using it with require, which /does/ work until there's
an error in the code.
I can check the syntax with `perl -c generatedscript.pl` but that's on
compile time. I need to be able to catch runtime errors and warning as
well, in addition to catching it's output, and if there are and errors
or warning, they are to be output in sort of a notice instead of the
output, alerting the end user to a problem in code in the processed
file.
So, I pretty much have all the internals worked out, just this
requirement kinda changes things one me and I've been searching for ours
for a viable (and portable) solution.
Thanks for any advise on this.
--
Stan
------------------------------
Date: Fri, 1 Dec 2006 02:10:02 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: How do I get rid of this warning?
Message-Id: <qgf444-kr9.ln1@osiris.mauzo.dyndns.org>
Quoth "Ronny" <ro.naldfi.scher@gmail.com>:
> Patterned after the solution suggested in the perlmodlib man page, I
> wrote the following code:
>
> ==================== This is file b.pm
> #!/usr/local/bin/perl -w
> use strict;
> package b;
> sub f { print "BBBBBBBB @_\n"; }
> eval join('', <main::DATA>) || die $@ unless caller();
> 1
> __END__
> package main;
> b::f(@ARGV);
> =================================
If you use __DATA__ instead of __END__, it will honour the current
package, and doesn't produce 'used once' warnings. So, for example, with
>>> Data.pm
#!/usr/bin/perl
package Data;
use strict;
use warnings;
sub foo {
return "foo";
}
unless (caller) {
print for <DATA>;
}
1;
__DATA__
bar
baz
<<< Data.pm
>>> data
#!/usr/bin/perl -l
use strict;
use warnings;
use Data;
print Data::foo;
__END__
<<< data
you get
~% ./Data.pm
bar
baz
~% ./data
foo
~%
Ben
--
Like all men in Babylon I have been a proconsul; like all, a slave ... During
one lunar year, I have been declared invisible; I shrieked and was not heard,
I stole my bread and was not decapitated.
~ benmorrow@tiscali.co.uk ~ Jorge Luis Borges, 'The Babylon Lottery'
------------------------------
Date: Fri, 01 Dec 2006 09:23:36 +0800
From: Arthur <arthur0421@gmail.com>
Subject: how to do this with RE?
Message-Id: <eko2f6$bpr$1@news.cn99.com>
Hi,
$foo is a string with leading spaces of variable number, like
" Willy"
What I want is to replace the leading spaces with of the same
number as in $foo, so that
" Willy"
becomes
" Willy"
(Don't know if I make myself understood?) How can I do this?
Thanks,
Arthur
------------------------------
Date: Thu, 30 Nov 2006 20:17:54 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: how to do this with RE?
Message-Id: <slrnemv46i.frp.tadmc@tadmc30.august.net>
Arthur <arthur0421@gmail.com> wrote:
> $foo is a string with leading spaces of variable number, like
>
> " Willy"
That is a pretty long-winded way of saying:
$foo = " Willy";
Have you seen the Posting Guidelines that are posted here frequently?
> What I want is to replace the leading spaces with of the same
> number as in $foo, so that
>
> " Willy"
>
> becomes
>
> " Willy"
$foo =~ s/^(\s+)/ ' ' x length $1/e;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 01 Dec 2006 02:24:39 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: how to do this with RE?
Message-Id: <Xns988BD9F221B93asu1cornelledu@127.0.0.1>
Arthur <arthur0421@gmail.com> wrote in news:eko2f6$bpr$1@news.cn99.com:
> Hi,
>
> $foo is a string with leading spaces of variable number, like
>
> " Willy"
...
>
> becomes
>
> " Willy"
>
#!/usr/bin/perl
use strict;
use warnings;
my $x = ' Willy';
$x =~ s/^( +)/(' ') x length($1)/e;
print "$x\n";
__END__
C:\Home\asu1\src> t
Willy
perldoc perlop
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 1 Dec 2006 02:30:21 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: how to do this with RE?
Message-Id: <Xns988BD09851EA0castleamber@130.133.1.4>
Arthur <arthur0421@gmail.com> wrote:
> Hi,
>
> $foo is a string with leading spaces of variable number, like
>
> " Willy"
>
> What I want is to replace the leading spaces with of the same
> number as in $foo, so that
>
> " Willy"
>
> becomes
>
> " Willy"
>
> (Don't know if I make myself understood?) How can I do this?
I guess your problem has nothing to do with Perl but with a lack of
understanding of HTML / CSS. Normally if you want to move Willy to the
right you use a margin on the container element.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 01 Dec 2006 10:32:11 +0800
From: Arthur <arthur0421@gmail.com>
Subject: Re: how to do this with RE?
Message-Id: <eko6fa$e11$1@news.cn99.com>
Tad McClellan Wrote:
> Arthur <arthur0421@gmail.com> wrote:
>
>> $foo is a string with leading spaces of variable number, like
>> " Willy"
> That is a pretty long-winded way of saying:
>
> $foo = " Willy";
>
> Have you seen the Posting Guidelines that are posted here frequently?
>
>> What I want is to replace the leading spaces with of the same
>> number as in $foo, so that
>> " Willy"
>> becomes
>>
>> " Willy"
>
> $foo =~ s/^(\s+)/ ' ' x length $1/e;
>
Thanks, and apologies for my wordiness :p
Arthur
------------------------------
Date: Fri, 01 Dec 2006 10:39:06 +0800
From: Arthur <arthur0421@gmail.com>
Subject: Re: how to do this with RE?
Message-Id: <eko6sq$ecs$1@news.cn99.com>
John Bokma дµÀ:
> Arthur <arthur0421@gmail.com> wrote:
>
>> Hi,
>>
>> $foo is a string with leading spaces of variable number, like
>>
>> " Willy"
>>
>> What I want is to replace the leading spaces with of the same
>> number as in $foo, so that
>>
>> " Willy"
>>
>> becomes
>>
>> " Willy"
>>
>> (Don't know if I make myself understood?) How can I do this?
>
> I guess your problem has nothing to do with Perl but with a lack of
> understanding of HTML / CSS. Normally if you want to move Willy to the
> right you use a margin on the container element.
>
In fact I wasn't trying to move Willy to the right. Some of the postings
on my web forum are written as poems, with some lines like that, so I
just want to display the lines as intended. (Trailing spaces cause
problems if replaced with because very long lines don't wrap
properly.)
------------------------------
Date: Fri, 01 Dec 2006 12:27:33 +0800
From: Arthur <arthur0421@gmail.com>
Subject: Re: how to do this with RE?
Message-Id: <ekod7l$iof$1@news.cn99.com>
Andrew DeFaria дµÀ:
> Arthur wrote:
>> In fact I wasn't trying to move Willy to the right. Some of the
>> postings on my web forum are written as poems, with some lines like
>> that, so I just want to display the lines as intended. (Trailing
>> spaces cause problems if replaced with because very long lines
>> don't wrap properly.)
> <pre>
>
> --
>
> Andrew DeFaria <http://defaria.com>
> All women are idiots... and I married their queen.
I considered <pre>, but PREed paragraphs don't seem to wrap?
------------------------------
Date: 30 Nov 2006 23:38:35 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: I need to read web pages without LWP
Message-Id: <Xns988BB378C2228castleamber@130.133.1.4>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> Keith Keller wrote:
>> On 2006-11-30, Mark Healey <dont@like.spammers> wrote:
>>>I bought a hosting account.
>>>
>>>The problem is that they only have the modules that came with Apache
>>>installed.
>>>
>>>The modules I used are CGI, LWP::UserAgent, HTTP::Request,
>>>HTTP::Response, URI::Escape.
>>
>> You should read perldoc -q library, then maintain your own library
>> directory, rather than try to rewrite all that functionality
>> yourself.
>
> That's one way. But even better, IMO, would be to have your web host
> install those modules. Or, if they refuse to do so, leave them and get
> a hosting account with a decent Perl installation available.
Yup, can't agree more. I am sure that even the sites I have hosted for one
buck a month come with at least a decent Perl install. If not, me asking
is often sufficient :-)
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 1 Dec 2006 02:23:30 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: it just wouldn't compile
Message-Id: <2ag444-kr9.ln1@osiris.mauzo.dyndns.org>
Quoth "Paul Lalli" <mritty@gmail.com>:
> tamiry wrote:
> > I had some code in a module that won't compile. i narrowed down the
> > code to the miimu that won't compile. It looks like the division sign
> > confuses the switch statement. I'll be happy if someone could point the
> > problem(s).
>
> Switch.pm is probably the buggiest standard module out there. It uses
> Source Filtering to rearrange your code, and it pretty frequently
> doesn't get it right. I've encountered similar problems to yours in
> the past. I have no advice to offer you other than "get rid of Switch,
> and write the if/elsif's yourself".
Or perhaps 'wait for 5.10, and use given/when'...
Ben
--
Although few may originate a policy, we are all able to judge it.
Pericles of Athens, c.430 B.C.
benmorrow@tiscali.co.uk
------------------------------
Date: 30 Nov 2006 13:06:48 -0700
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Masking/Hiding a password in Perl Source
Message-Id: <87bqmo8zs7.fsf@aragorn.emschwar>
INVALID_SEE_SIG@example.com.invalid (J.D. Baldwin) writes:
> ... with the understanding, stated several times over, that this is
> nothing more than security-through-obscurity, which is in fact no real
> security at all, the point is not to keep access to the password from
> authorized persons, the point is to keep it from being casually or
> "accidentally" viewed.
I know, I'm just saying that if you set the right permissions, ACLs,
what-have-you, it can't be casually or "accidentally" viewed anyway,
so adding obscurity on top of it gives you zero benefit. That's all I
was responding to-- your first obscurity, setting file permissions, is
sufficient. Adding any sort of encryption on top of that is
pointless, because the only people who can read it are exactly the
people you *want* to have the password anyway.
-=Eric
------------------------------
Date: 30 Nov 2006 16:31:18 -0800
From: "Frank" <mccownf@yahoo.com>
Subject: Re: Regex failed to replace utf8 character
Message-Id: <1164933078.631966.165010@80g2000cwy.googlegroups.com>
Dr.Ruud wrote:
> Frank schreef:
>
> > 3) This still ran in an infinite loop:
> >
> > my $special =3D utf8::encode("=C2");
> > print "sub\n" while ($html =3D~ s/$special / /g);
> >
> > but when I corrected it to the following, the substitution worked
> > fine:
> >
> > my $special =3D "\xa0";
> > print "sub\n" while ($html =3D~ s/$special/ /g);
>
> Do you have anything special like "use utf8;" in your source?
>
No, that's not in there. I think the use of utf8::encode("=C2") is
doing something flaky, and since I've gotten it to work, I'm not that
concerned about the problem.
Thanks,
Frank
------------------------------
Date: 30 Nov 2006 15:07:38 -0800
From: usenet@DavidFilmer.com
Subject: Re: sort array
Message-Id: <1164928058.428432.38910@f1g2000cwa.googlegroups.com>
Shiraz wrote:
> eg: $data = 'e1;e2;e3'; and the new order is 3,1,2 then the new line
> need to be 'e3;e1;e2'.
my $data = 'q;a;b;c;d;e;f;g;h;i';
my @NewOrder = (9,2,5,1,6,3,4,7,8,0);
print(join ';', (split(/;/, $data))[@NewOrder] );
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 30 Nov 2006 17:00:22 -0800
From: "Shiraz" <shirazk@gmail.com>
Subject: Re: sort array
Message-Id: <1164934822.095961.259590@80g2000cwy.googlegroups.com>
thanks all.
On Nov 30, 5:07 pm, use...@DavidFilmer.com wrote:
> Shiraz wrote:
> > eg: $data = 'e1;e2;e3'; and the new order is 3,1,2 then the new line
> > need to be 'e3;e1;e2'. my $data = 'q;a;b;c;d;e;f;g;h;i';
> my @NewOrder = (9,2,5,1,6,3,4,7,8,0);
> print(join ';', (split(/;/, $data))[@NewOrder] );
>
> --
> The best way to get a good answer is to ask a good question.
> David Filmer (http://DavidFilmer.com)
------------------------------
Date: Fri, 01 Dec 2006 03:39:02 GMT
From: Merrilee Larson <merrile@telus.net>
Subject: Re: What is a glob variable?
Message-Id: <qtNbh.14501$rv4.8631@edtnps90>
On 2006-11-30, brian d foy <brian.d.foy@gmail.com> wrote:
> In article <slrnemr2qk.ons.perlster@phenix.rootshell.be>, perlster
><perlster@phenix.rootshell.be> wrote:
>
>>
>> sub my_sub(*some_var);
>>
>> Where in perldoc would I find documentation
>> on this *some_var? TIA....
>
> There's a chapter in Advanced Perl Programming (First Edition) that
> explains typeglobs, and I've recreated most of that for _Mastering
> Perl_:
>
> http://www252.pair.com/comdog/mastering_perl/Chapters/08.symbol_tables.h
> tml
>
Thank you! Good reading!
--
duke
------------------------------
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 V10 Issue 10024
****************************************
