[23915] in Perl-Users-Digest
Perl-Users Digest, Issue: 6117 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 11 18:05:48 2004
Date: Wed, 11 Feb 2004 15:05:13 -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 Wed, 11 Feb 2004 Volume: 10 Number: 6117
Today's topics:
compile Perl as a STATIC library <tmohr@s.netic.de>
encrypt.pm <todd@asgweb.net>
formating pipe delimited file <webstuff@fluidic.com>
Re: Help with https request <gnari@simnet.is>
if for... <robw@sofw.org>
Re: if for... <uri@stemsystems.com>
Re: if for... <robw@sofw.org>
Re: if for... <uri@stemsystems.com>
Re: if for... <tore@aursand.no>
Re: if for... <bik.mido@tiscalinet.it>
Re: if for... <bik.mido@tiscalinet.it>
Re: if for... <usenet@morrow.me.uk>
Re: Include data in a perl program? <me@privacy.net>
Re: Just curious: perl + C + asm, any? <nospam-abuse@ilyaz.org>
PERL : Cant find string terminator .. <pin@purdue.edu>
Perl : Cant Find String Terminator <pin@purdue.edu>
Re: Perl : Cant Find String Terminator <ddunham@redwood.taos.com>
Re: Perl usage these days? <brian.getridofthis.bygland@boeingDELETEthis.com>
Re: perl/korn scirpt for appending first variable to en <me@privacy.net>
Re: perl/korn scirpt for appending first variable to en <beardy@beardy.net>
Re: perl/korn scirpt for appending first variable to en <beardy@beardy.net>
Re: perl/korn scirpt for appending first variable to en <usenet@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 11 Feb 2004 23:17:40 +0100
From: Torsten Mohr <tmohr@s.netic.de>
Subject: compile Perl as a STATIC library
Message-Id: <c0e9m4$545$1@schleim.qwe.de>
Hi,
i downloaded, compiled and installed Perl successfully on Win32.
I can now write programs that use the Perl interpreter to execute
some scripts. That's just fine.
But if i want to distribute this code to some other PCs, i need
to install Perl there completely, not just the perl58.dll, but
also the modules.
Is there some way to compile Perl as a STATIC library that already
includes all modules that come with a normal Perl installation?
I looked into the Makefile, the Readme's, but didn't yet find
any hint for this.
I hope it is clear what i want, i want to compile a static Perl
library and link it with my own programs so i can distribute them
as standalone programs and i can execute Perl scripts in these
programs.
Thanks for any hints,
Torsten.
------------------------------
Date: Wed, 11 Feb 2004 15:46:33 -0700
From: Todd Anderson <todd@asgweb.net>
Subject: encrypt.pm
Message-Id: <402AB081.5DBF08F8@asgweb.net>
I once saw a pm that un encrypted a script before compiling to keep
hackers from stealing your code. Anybody know what it is and advice on
how to use it is appreciated.
Thanks in advance.
------------------------------
Date: Wed, 11 Feb 2004 23:03:40 GMT
From: J <webstuff@fluidic.com>
Subject: formating pipe delimited file
Message-Id: <0001HW.BC501EFC0000A26BF02845B0@news-server.tampabay.rr.com>
I have a file with 40000 lines. Each line is a row of data, and the fields
are seperated by pipes ( | ). I would like to align all pipes so that the
fields will line up.
example:
field1 | 100 | 1 | | |
field2islong| | example | | 3 |
would become
field1 | 100 | 1 | | |
field2islong| | example | | 3 |
anyone have any ideas.
J
------------------------------
Date: Wed, 11 Feb 2004 20:21:17 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Help with https request
Message-Id: <c0e2q4$nno$1@news.simnet.is>
"Michael Tully" <michael@dntenterprises.com> wrote in message
news:395feb14.0402110823.5b9e34c1@posting.google.com...
> "gnari" <gnari@simnet.is> wrote in message
news:<c0cq7s$j97$1@news.simnet.is>...
[suggestions]
>
> Well, it was a good thought, but still no dice. I have gone to several
> other web sites and have been able to get the option tags. I have even
> gone to other pages on the same site and have been able to get the
> option tags. For some reason, this page will just not display those
> tags and it is stumping me. ARRRRGGGGGGGHHHHHHH!
I do not think this is a LWP problem. maybe the page is dynamic,
and the output depends on user-agent or something.
gnari
------------------------------
Date: Wed, 11 Feb 2004 16:28:39 -0500
From: Robert Wallace <robw@sofw.org>
Subject: if for...
Message-Id: <402A9E87.E75B18E2@sofw.org>
I can:
print "hello" if (m/world/);
I can:
$x = 300 if ($ == 10);
why can't I:
foreach (@arr) if (m/str/) {
...}
or
foreach (@arr) {
...
} if (m/str/)
????????
------------------------------
Date: Wed, 11 Feb 2004 21:35:32 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: if for...
Message-Id: <x7d68l710b.fsf@mail.sysarch.com>
>>>>> "RW" == Robert Wallace <robw@sofw.org> writes:
RW> I can:
RW> print "hello" if (m/world/);
RW> I can:
RW> $x = 300 if ($ == 10);
RW> why can't I:
RW> foreach (@arr) if (m/str/) {
RW> ...}
RW> or
RW> foreach (@arr) {
RW> ...
RW> } if (m/str/)
RW> ????????
because you can't. statement modifiers work only on plain statements,
not blocks.
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: Wed, 11 Feb 2004 16:41:33 -0500
From: Robert Wallace <robw@sofw.org>
Subject: Re: if for...
Message-Id: <402AA18D.68090064@sofw.org>
Uri Guttman wrote:
>
> >>>>> "RW" == Robert Wallace <robw@sofw.org> writes:
>
...
> RW> why can't I:
> RW> foreach (@arr) if (m/str/) {
> RW> ...}
>
> RW> or
>
> RW> foreach (@arr) {
> RW> ...
> RW> } if (m/str/)
> RW> ????????
>
> because you can't. statement modifiers work only on plain statements,
> not blocks.
>
well, I like to pretty up lines like:
if ($a == $b) {
foreach (@arr1) {
if (m/item/) {
...
...
elsif ...
}
}
or should I leave these such lines alone?
------------------------------
Date: Wed, 11 Feb 2004 21:51:34 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: if for...
Message-Id: <x765ed709l.fsf@mail.sysarch.com>
>>>>> "RW" == Robert Wallace <robw@sofw.org> writes:
RW> well, I like to pretty up lines like:
RW> if ($a == $b) {
RW> foreach (@arr1) {
RW> if (m/item/) {
RW> ...
RW> ...
RW> elsif ...
RW> }
RW> }
RW> or should I leave these such lines alone?
pretty up what? i see nothing there that looks clumsy or needs to be
changed. putting an if modifier at the end of that for block would be
very hard to read.
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: Wed, 11 Feb 2004 22:53:41 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: if for...
Message-Id: <pan.2004.02.11.21.53.22.556360@aursand.no>
On Wed, 11 Feb 2004 16:28:39 -0500, Robert Wallace wrote:
> why can't I:
> foreach (@arr) if (m/str/) {
> ...}
>
> or
>
> foreach (@arr) {
> ...
> } if (m/str/)
> ????????
Because it's a pain in the ass to read? :) This is easier to read, thus
easier to maintain;
if ( m/str/ ) {
foreach ( @arr ) {
}
}
--
Tore Aursand <tore@aursand.no>
"Omit needless words. Vigorous writing is concise. A sentence should
contain no unnecessary words, a paragraph no unnecessary sentences,
for the same reason that a drawing should have no unnecessary lines
and a machine no unnecessary parts." -- William Strunk Jr.
------------------------------
Date: Wed, 11 Feb 2004 22:59:49 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: if for...
Message-Id: <vc9l20hg6vcf8qegbuabfbl9vmh5mnksbj@4ax.com>
On Wed, 11 Feb 2004 16:41:33 -0500, Robert Wallace <robw@sofw.org>
wrote:
>well, I like to pretty up lines like:
>
>if ($a == $b) {
> foreach (@arr1) {
> if (m/item/) {
> ...
> ...
> elsif ...
> }
>}
>
>or should I leave these such lines alone?
There are probably many "better" ways to do it. What about reading
something about next, last, et similia?
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Wed, 11 Feb 2004 23:00:22 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: if for...
Message-Id: <ne9l201t23rkg0ma8t21j887nlsjghokm9@4ax.com>
On Wed, 11 Feb 2004 16:28:39 -0500, Robert Wallace <robw@sofw.org>
wrote:
>I can:
>print "hello" if (m/world/);
OK
>I can:
>$x = 300 if ($ == 10);
Well, this perfectly valid, but I bet you were not thinking of $= =
10, were you?
>why can't I:
>foreach (@arr) if (m/str/) {
for (@arr) {
whatever() if /str/;
}
/str/ and whatever() for @arr;
etc.
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Wed, 11 Feb 2004 22:18:30 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: if for...
Message-Id: <c0e9nm$9nq$4@wisteria.csv.warwick.ac.uk>
Michele Dondi <bik.mido@tiscalinet.it> wrote:
> On Wed, 11 Feb 2004 16:28:39 -0500, Robert Wallace <robw@sofw.org>
> wrote:
>
> >why can't I:
> >foreach (@arr) if (m/str/) {
>
> for (@arr) {
> whatever() if /str/;
> }
>
> /str/ and whatever() for @arr;
Nonononono. You want to test the condition outside the loop, not loop
over every elt in the list only to do nothing.
Ben
--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
/Alcestis/) [ flame, and falls out of sight. ] ben@morrow.me.uk
------------------------------
Date: Wed, 11 Feb 2004 11:12:13 -0800
From: "davido@codethought.nospamforme.com" <me@privacy.net>
Subject: Re: Include data in a perl program?
Message-Id: <vjvk20hdfvqtq0bu671hkk2irn6q3c9rn2@4ax.com>
On Wed, 11 Feb 2004 17:20:18 +0100, Thomas Kratz
<ThomasKratz@REMOVEwebCAPS.de> wrote:
>What about using Data::Dumper to dump a complete Win32::TieRegistry tree
>to text and store that below the __DATA__ token? Later you can eval the
>text data back to a hash and feed it again to Win32::TieRegistry.
I'll look into that. Thanks for the suggestion.
------------------------------
Date: Wed, 11 Feb 2004 20:59:46 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Just curious: perl + C + asm, any?
Message-Id: <c0e542$2b36$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Michele Dondi
<bik.mido@tiscalinet.it>], who wrote in article <9s3n205furb165kosic3blkk7crejmde1o@4ax.com>:
> As of the subject, I was wondering if anyone has ever written a binary
> module for perl that in turn had some routines written in assembler,
> for efficiency reasons.
Why not? Take a module which uses an externally available C code
which uses ASM (such as Math::Pari). This is a beast to compile,
though, since Perl's Config.pm does not know how to run assembler...
Or, less strict, take any Perl module which links with a library which
is compiled from assembler code (such as Math::GMP).
Hope this helps,
Ilya
------------------------------
Date: Wed, 11 Feb 2004 17:33:41 -0500
From: TP <pin@purdue.edu>
To: pin@purdue.edu
Subject: PERL : Cant find string terminator ..
Message-Id: <402AADC5.2080201@purdue.edu>
hi all
i get the message Cand find String Terminator "HTML_RESPONSE" anywhere
before line .... everytime i try to compile the script
can anyone tell me what is wrong with it ?
#!/usr/bin/perl
use CGI;
my($query);
$query = new CGI;
##Configuration section
$dbpath = 'db.txt';
$searchwhat = $query->param("searchwhat");
$searchkey = $query->param ("searchkey");
##end of configuration
#Begin search section
open (DB, "<$dbpath") or die ("$!\n");
while (<DB>){
if ($searchwhat eq "all"){
if (/$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mtype"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mtype =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mname"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mname =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mactor"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mactor =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mactress"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mactress =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mdes"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mdes =~ /$searchkey/i){
push @matches, $_
};
}
close(DB);
#end of search section
#start of response page
$nummatches = @matches;
$searchkey = $query->param("searchkey");
print<<HTML_RESPOSE
Content-type: text/html
<HTML>
<BODY>
<h2>Your search for $searchkey return $nummatches matches.</h2>
foreach $matchedEntry (@matches){
print "$matchedEntry\n";
}
</BODY>
</HTML>
HTML_RESPONSE
------------------------------
Date: Wed, 11 Feb 2004 17:21:31 -0500
From: TP <pin@purdue.edu>
Subject: Perl : Cant Find String Terminator
Message-Id: <402AAAEB.1080900@purdue.edu>
i get the message Cant Find String Terminator anywhere before EOF
everytime i try to compile my script..
i hope someone will help
thanks
here is the code
#!/usr/bin/perl
use CGI;
my($query);
$query = new CGI;
##Configuration section
$dbpath = 'db.txt';
$searchwhat = $query->param("searchwhat");
$searchkey = $query->param ("searchkey");
##end of configuration
#Begin search section
open (DB, "<$dbpath") or die ("$!\n");
while (<DB>){
if ($searchwhat eq "all"){
if (/$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mtype"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mtype =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mname"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mname =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mactor"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mactor =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mactress"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mactress =~ /$searchkey/i){
push @matches, $_
};
}
elsif ($searchwhat eq "mdes"){
($mtype, $mname, $mactor, $mactress, $mdes) = split (/\|/);
if ($mdes =~ /$searchkey/i){
push @matches, $_
};
}
close(DB);
#end of search section
#start of response page
$nummatches = @matches;
print<<HTML_RESPOSE
Content-type: text/html
<HTML>
<BODY>
<h2>Your search for $searchkey return $nummatches matches.</h2>
foreach $matchedEntry (@matches){
print "$matchedEntry\n";
}
</BODY>
</HTML>
HTML_RESPONSE
------------------------------
Date: Wed, 11 Feb 2004 22:49:07 GMT
From: Darren Dunham <ddunham@redwood.taos.com>
Subject: Re: Perl : Cant Find String Terminator
Message-Id: <DjyWb.23897$nv7.21446@newssvr25.news.prodigy.com>
TP <pin@purdue.edu> wrote:
> i get the message Cant Find String Terminator anywhere before EOF
> everytime i try to compile my script..
[snip]
> print<<HTML_RESPOSE
> HTML_RESPONSE
--
Darren Dunham ddunham@taos.com
Senior Technical Consultant TAOS http://www.taos.com/
Got some Dr Pepper? San Francisco, CA bay area
< This line left intentionally blank to confuse you. >
------------------------------
Date: Wed, 11 Feb 2004 18:57:01 GMT
From: Brian <brian.getridofthis.bygland@boeingDELETEthis.com>
Subject: Re: Perl usage these days?
Message-Id: <402A7AFD.BECB2F59@boeingDELETEthis.com>
Sites listing the popularity of Perl and other languages:
http://www.faqs.org/docs/artu/ch14s05.html
http://www.tiobe.com/tpci.htm
http://www.thebobo.com/language_popularity.php
Pope Bob wrote:
>
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote:
> >
> >Perl isn't declining. It's the most-used language in the world, and its
> >market share increases daily.
>
> What do you base your statement upon?
>
> All such generalizations are wrong, including this one....
>
> -Bob
------------------------------
Date: Thu, 12 Feb 2004 08:02:58 +1300
From: "Tintin" <me@privacy.net>
Subject: Re: perl/korn scirpt for appending first variable to end of line.
Message-Id: <c0duho$15eoo9$1@ID-172104.news.uni-berlin.de>
"NNTP" <news8080@yahoo.com> wrote in message
news:110fc16.0402110632.3a4203b0@posting.google.com...
> I am writting a script that does some analysis of a log file and here
> is what I need.
>
> I need to take the first variable of the line, cut it and paste it to
> the end of the line.
>
> example:
> input : accept blah blah blahc blah data data data
> output : blah blah blahc blah data data data accept
>
> no. of variables very and thats why I can't use a simple script like
> the following.
>
> cat file | awk '{print $2,$3,$4,$5,$6,$7,$8,$1}'
>
#!/bin/sh
a=$1
shift
echo "$* $1"
------------------------------
Date: Wed, 11 Feb 2004 20:30:56 +0000
From: Beardy <beardy@beardy.net>
Subject: Re: perl/korn scirpt for appending first variable to end of line.
Message-Id: <pkwWb.2744$Y%6.406637@wards.force9.net>
Barry Margolin wrote:
> In article <pwsWb.2647$Y%6.388456@wards.force9.net>,
> Beardy <beardy@beardy.net> wrote:
>
>
>>Tony Walton wrote:
>>
>>>I'm on commission from the manufacturers of "<", "(" and ")".
>>
>>No doubt that in Rich Teer's "Next Keyboard and Mouse" survey, you
>>requested an extra line of three keys with *just* these symbols, to
>>avoid the use of nasty things like shift keys ;-) Maybe even three extra
>>buttons on the mouse :-)
>
>
> Lisp Machine keyboards had additional, unshifted parenthesis keys for
> this reason. I think they were where to the right of P, where standard
> keyboards have [ and ].
>
LISP - Lots of Irritating Single Parentheses
COBOL - Completely Over and Beyond Obvious Logic
BASIC - Beginners are Sadistically Inclined towards C*********
(Netiqutte precludes the final component) - and I know that BASITC would
look crap, but it was about 1983 when I came up with the above.
------------------------------
Date: Wed, 11 Feb 2004 20:38:10 +0000
From: Beardy <beardy@beardy.net>
Subject: Re: perl/korn scirpt for appending first variable to end of line.
Message-Id: <brwWb.2746$Y%6.407220@wards.force9.net>
Tintin wrote:
> "NNTP" <news8080@yahoo.com> wrote in message
> news:110fc16.0402110632.3a4203b0@posting.google.com...
>
>>I am writting a script that does some analysis of a log file and here
>>is what I need.
>>
>>I need to take the first variable of the line, cut it and paste it to
>>the end of the line.
>>
>>example:
>>input : accept blah blah blahc blah data data data
>>output : blah blah blahc blah data data data accept
>>
>>no. of variables very and thats why I can't use a simple script like
>>the following.
>>
>>cat file | awk '{print $2,$3,$4,$5,$6,$7,$8,$1}'
>>
>
>
> #!/bin/sh
> a=$1
> shift
> echo "$* $1"
>
>
That is sooooo far away from what the OP needs: it simply tries to
rearrange the command line arguments passed to the script.
Check the other replies for more accurate solutions ;-)
------------------------------
Date: Wed, 11 Feb 2004 22:10:00 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: perl/korn scirpt for appending first variable to end of line.
Message-Id: <c0e97o$9nq$2@wisteria.csv.warwick.ac.uk>
Beardy <beardy@beardy.net> wrote:
> LISP - Lots of Irritating Single Parentheses
Lots of Irrelevant Silly Parentheses
Ben
--
I've seen things you people wouldn't believe: attack ships on fire off the
shoulder of Orion; I've watched C-beams glitter in the darkness near the
Tannhauser Gate. All these moments will be lost, in time, like tears in rain.
Time to die. |-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-| ben@morrow.me.uk
------------------------------
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 6117
***************************************
