[13542] in Perl-Users-Digest
Perl-Users Digest, Issue: 952 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 30 13:07:29 1999
Date: Thu, 30 Sep 1999 10:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <938711115-v9-i952@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 30 Sep 1999 Volume: 9 Number: 952
Today's topics:
Re: #exec cgi <lukh@ecf.utoronto.ca>
Re: #exec cgi kcyu@psu.edu
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <AgitatorsBand@yahoo.com>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca (Mathew A. Hennessy)
Calling Gunzip (Gzip) from Perl brad@quicomm.com
Re: form to mail script for NT jlburnham@my-deja.com
Hashes w/multiple values per key (Perl Cookbook) <REPOS <deb@teradyneDOT.com>
Re: HELP! Clueless know-nothing asks a question <gellyfish@gellyfish.com>
Re: HELP! Clueless know-nothing asks a question (Mathew A. Hennessy)
Re: How can I tell if something is already installed (Mathew A. Hennessy)
Re: How to print to a printer? <gellyfish@gellyfish.com>
Re: How to print to a printer? c_j_marshall@my-deja.com
Re: How to print to a printer? (Gyepi SAM)
Indent around perl "print <<EOF" constructs? <iis4@my-deja.com>
Re: Indent around perl "print <<EOF" constructs? (Mark A. Hershberger)
Re: kill extra white space in a variable <aqumsieh@matrox.com>
Re: LWP::UserAgent and timeout problem <jbc@shell2.la.best.com>
maybe... <spam-me-sydneyfong@yahoo.com>
Re: newbie help: sorting multidimensional arrays (Larry Rosler)
Newbie Question : Calling C from Perl <simonp@parksoft.co.uk>
Re: Newbie question: Installing XEmacs packages under w <vroonhof@frege.math.ethz.ch>
Re: Please help re cgi script on FreeBSD running Apache (Gyepi SAM)
Re: Please Help: install module on Red Hat (Mark A. Hershberger)
Pre-release Perl Beta-Testers <examtesting@recruitsource.com>
Re: Proble with chopped filenames from script (Larry Rosler)
Re: Proble with chopped filenames from script (Mathew A. Hennessy)
Re: Q: Syntax to open a file in PERL on an NT server (Larry Rosler)
Runtime exception driving me crazy <dstiff@symantec.com>
Server dies: pyammine@my-deja.com
Re: setuid script <pbyrne@ie.oracle.com>
Re: Using multiple query strings <webmaster@roleplayinggames.net>
Using SS Numbers as DBM Index: Best Way to Encrypt Them <george.kuetemeyer@mail.tju.edu>
Re: using tr? <amonotod@netscape.net>
Re: using tr? (Mathew A. Hennessy)
Re: why use references - in laymans terms? (Mathew A. Hennessy)
Re: You should be admired, or What does this have to do <uri@sysarch.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 30 Sep 1999 15:39:51 GMT
From: Henry Luk <lukh@ecf.utoronto.ca>
To: Test <test@hhhd.com>
Subject: Re: #exec cgi
Message-Id: <Pine.SGI.3.96.990930113906.4174439D-100000@skule.ecf>
If this doesn't work, maybe your ISP doesn't support server side include.
On Wed, 29 Sep 1999, Test wrote:
> Abigail, that's very mean of you.. if you do not know the answer, don't
> answer !!
> Try this directive.
>
> <!--#include virtual="/yourfile.cgi?whatever=abc" -->
>
> Thanks
>
>
> Abigail <abigail@delanet.com> wrote in message
> news:slrn7u9edr.2ml.abigail@alexandra.delanet.com...
> > Magnus Hult (hult.holmstrom@swipnet.se) wrote on MMCCX September MCMXCIII
> > in <URL:news:rC2F3.4067$yU2.8061@nntpserver.swip.net>:
> > ''
> > '' First of all, I know this is way off-topic, but I really need to get
> this to
> > '' work (and quite soon too).
> >
> > So, you think that posting an off-topic posting gets you a fast answer?
> > How foolish.
> >
> > '' I'm trying to include a cgi program from an shtml page. My problem is,
> I
> > '' need to send a query string too. But
> > '' <!--#exec cgi="script.cgi?query"-->
> > '' isn't working, I get an "[an error occured while processing this
> directive]"
> > '' error.
> >
> > That means you have a bug.
> >
> >
> >
> > Abigail
> > --
> >
> perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47
> ]
> >
> .qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W
> ]
> >
> .qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^
> V
> > %$^U;$^V/=$^U}while$^V!=$^W'
> >
> >
> > -----------== Posted via Newsfeeds.Com, Uncensored Usenet News
> ==----------
> > http://www.newsfeeds.com The Largest Usenet Servers in the World!
> > ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers
> ==-----
>
>
>
>
------------------------------
Date: Thu, 30 Sep 1999 15:52:44 GMT
From: kcyu@psu.edu
Subject: Re: #exec cgi
Message-Id: <7t0105$64m$1@nnrp1.deja.com>
Hi,
I've tried to pass parameters to SSI's cgi.
For Example - http://mydomain/myshtml.shtml?querystring,
in Apache, it will pass to <!--#exec cgi="script.cgi"--> which in
myshtml.shtml
but in IIS 4.0, it seems it doesn't pass paramenters the cgi!?
Does anybody know how to enable IIS 4.0 to pass the argument?
Or it is impossible in IIS.
Thanks in advance.
Justin Yu
In article <jP5F3.19879$N77.1576655@typ11.nn.bcandid.com>,
"CCC_Ltd" <news@cccltd.com> wrote:
> >
>
> To use a query string on the ssi you have to include the
> query string in the URL when you call the .shtml file.
>
> example: http://mydomain/myshtml.shtml?querystring
>
> Also... get rid of the ?query in the ssi statement.
>
> one other note... it should be <!--#exec cgi="script.cgi"-->
> not <!--#exec cmd....
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Sep 1999 15:54:18 GMT
From: Scratchie <AgitatorsBand@yahoo.com>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <KILI3.62$QB2.9304@news.shore.net>
David Cassell <cassell@mail.cor.epa.gov> wrote:
:> Since when does Tom deserve decency?
: Since people like you have been driving him nuts, ignoring
: the thousands and thousands of person-hours of work he has
: put into the FAQ and the docs and the free scripts and the
: free modules and the Perl code and the Perl advocacy and
: everything else he has contributed to this NG and to Perl
: over the years.
Cry me a river. I appreciate the work Tom has put into documenting Perl,
but he's rarely been less than a pompous ass in this newsgroup. If he's
upset by the fact that ignorant people are, well, ignorant, that's his
problem, and it doesn't exempt him from the standard rules of civilized
discourse.
: But I don't expect you to see my point. Just visualize his
: situation. How would *you* feel if you worked for years
: on something you felt was important enough that you poured
: your life's blood into it, getting no remuneration for the
: aforementioned work, and then had your work ignored,
: day in and day out, by thousands of people who not only
: can't be bothered to look up the advice and code you wrote,
: but when firmly pointed in the right direction respond
: by saying, "WELL FUCK YOU TOO ASSHOLE WHY DONT YOU JUST
: TELL ME WHAT I WANT TO KNOW YOU FUCK!!!"
Maybe if he made the slightest effort not to come off as condescending and
superior in his replies, he'd get fewer "Fuck you"s in return. In any
case, his being upset that some people are assholes does not give him
license to be an asshole.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Thu, 30 Sep 1999 16:22:07 GMT
From: hennessy@cloud9.net (Mathew A. Hennessy)
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <rv73hf8j3i524@corp.supernews.com>
In article <KILI3.62$QB2.9304@news.shore.net>,
Scratchie <AgitatorsBand@yahoo.com> wrote:
>Maybe if he made the slightest effort not to come off as condescending and
>superior in his replies, he'd get fewer "Fuck you"s in return. In any
>case, his being upset that some people are assholes does not give him
>license to be an asshole.
This is USENET. You don't _need_ a license.
--
If it sounds too good to be true, it's probably Linux.
"Fool! There is nothing Perl cannot do! NOTHING!" -Bastich
"You can never entirely stop being what you once were. That's why it's important
to be the right person today, and not put it off till tomorrow." - Larry Wall
------------------------------
Date: Thu, 30 Sep 1999 16:19:15 GMT
From: brad@quicomm.com
Subject: Calling Gunzip (Gzip) from Perl
Message-Id: <7t02hk$7fo$1@nnrp1.deja.com>
Has anyone successfully been able to use gzip in a Perl script called
from a browser? If so, details are much appreciated.
We have run into a seemingly weird problem in calling gzip (compression
app) from Perl. The problem is that the script runs fine when called
from a command line. The script also runs partially when called from a
browser. It is just the call to the gzip app does not return anything
when called from the browser (at this stage, we are just trying to
return the gunzip licensing message, -L option).
When we replace gzip with zip (another compression app), the script
works fine in both command line and browser calls, returning the full
Licensing statements.
All permissions, owners, and group assignments are the same for both
gzip and zip. They reside in the same directory, e.g.:
-rwxr-xr-x 3 root bin 125188 Mar 19 1998 /usr/contrib/bin/
gzip
-rwxr-xr-x 1 root bin 45056 Jan 21 1997 /usr/contrib/bin/
zip
The only apparent differences that we can determine are the different
environments under which a command line and a browser session run.
Any ideas/comments appreciated.
regards,
--- Brad
----------------------------------------------------
#!/usr/local/bin/perl
#gzip_test.cgi
#
# your path to these apps may vary...
# uncomment the one which is to be tested
#$ZipPath = "/usr/contrib/bin/zip";
$ZipPath = "/usr/contrib/bin/gzip";
print("Content-Type: text/plain\n\n");
print "Testing for GZIP (ZIP) Application\n\n";
$zip_ls = `ls -l $ZipPath`;
$zip_result = `$ZipPath -L`;
print "$zip_ls\n";
print "$zip_result\n";
print "done";
exit 0;
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Sep 1999 16:38:28 GMT
From: jlburnham@my-deja.com
Subject: Re: form to mail script for NT
Message-Id: <7t03m2$8ej$1@nnrp1.deja.com>
In article
<37F22C93.A17626EB@videosoftwareltd.com>,
James Bodajlo <james@videosoftwareltd.com>
wrote:
> I am in need of a perl script which will take
the info from an HTML form
> and send it via e-mail. I have one that works
on UNIX, but I need it to
> work on an NT server. Please help me.
>
> James
>
>
Use the Net::SMTP module. Here's a link that
explains it:
http://www.activestate.com/ActivePerl/docs/Perl-
Win32/perlwin32faq4.html
See link that says "How do I send email from Perl
for Win32?"
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Sep 1999 09:35:21 -0700
From: Deb <deb@teradyneDOT.com>
Subject: Hashes w/multiple values per key (Perl Cookbook) <REPOST>
Message-Id: <37F39149.53E0845C@teradyneDOT.com>
I found this example in the Perl Cookbook (section 5.7), and thought,
"Wow! Just what I'm looking for." Well, it seems like it still, but
I have struggled to get it to work, but no luck.
I'm trying to apply this example
%ttys = ();
open (WHO, "who|") or die "can't open who: $!";
while (<WHO> ) {
($user, $tty) = split;
push (@{$ttys{$user}}, $tty);
}
foreach $user (sort keys %ttys) {
print "$user: @{$ttys{$user}}\n";
}
to a file. The file has lines meeting this regexp /^-*C/ & would be the
key for the following lines (or values), until, but not including the
next
/^-*C/ line, which would be the next key. What would I need to do to
get
this to work? I thought of splitting on the /^--*C/, but I'd loose the
header line, then. <sigh> What I really need is to have it be the key,
for the values which would be the subsequent lines. Is this possible?
Any ideas would be welcome.
The reason this approach is so attractive, is that the log file would
change
from time to time, where there would be new projects or old ones being
deleted, so I don't want to define static $vars everytime a new project
is compiling.
Once I can get hold of the chunks, it's just a matter of finding the
one(s)
that match on /: error/ (for example), reporting those, and throwing out
the rest.
I've been reading Learning Perl, Perl Cookbook, FAQs an Programming
Perl, and
I'm wondering if what I'm trying to do is even possible with this
approach.
How?
Here's a short sample of the text:
--------------------Configuration: OStore_Util - Win32
Debug--------------------
Compiling...
Cursor.cpp
Transaction.cpp
Linking...
Creating library Debug/OStore_Util.lib and object
Debug/OStore_Util.exp
Copying DLL, PDB, & LIB Files
1 file(s) copied.
1 file(s) copied.
1 file(s) copied.
--------------------Configuration: OStore - Win32
Debug--------------------
Performing Custom Build Step on .\osdump.ldb
1 file(s) copied.
Performing Custom Build Step on .\Debug\afalocdb.exe
1 file(s) copied.
--------------------Configuration: support - Win32
Debug--------------------
Compiling resources...
VwCamPerf.cpp
VwListEx.cpp
VwPerfList.cpp
Generating Code...
Linking...
Creating library Debug/AoiPro.lib and object Debug/AoiPro.exp
VwPerfList.obj : error LNK2001: unresolved external symbol "public:
__thiscall
DlgPerfWorkSheet::DlgPerfWorkSheet(class TCViewPerfList *,class
PerfWorkSheetData *)"
(??0DlgPerfWorkSheet@@QAE@PAVTCViewPerfList@@PAVPerfWorkSheetData@@@Z)
Debug/AoiPro.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
AoiPro.exe - 2 error(s), 1 warning(s)
-------------------------------
Oops. Your mouse has moved. Shall I restart Windoze,
or would you like me to CRASH NOW?
Deb (Please post reply, or use email addr below,)
deb@teradyne.com (don't try to respond to this post via email - it will
bounce.)
------------------------------
Date: 30 Sep 1999 16:52:10 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: HELP! Clueless know-nothing asks a question
Message-Id: <37f3872a_2@newsread3.dircon.co.uk>
Chris Koharik <koharik@primenet.com> wrote:
>> Date: Thu, 30 Sep 1999 14:33:46 GMT
>> From: Jenda Krynicky <Jenda@Krynicky.cz>
>>
>> On Thu, 30 Sep 1999 03:53:50 GMT, "James E." <jre@idirect.com> wrote:
>> > Dear CGI gods and/or goddessess -
>> >
>> > I'm trying to get info from a file (wwwboard.out) to an HTML file
>> > (index.html). In the index.html, I have <!--#exec cgi="getforum.pl"-->, and
>> > the file I'm executing is below:
>> >
>> > #!/usr/local/bin/perl
>> >
>> > open(FORUM,"wwwboard.out");
>>
>> You should always check the result of open() !!!
>>
>> unless (open(FORUM,"wwwboard.out")) {
>> print "[ERROR: Could not open wwwboard.out : $!]\n";
>> exit;
>> }
>
> Isn't this a bit of a kludge when you have the "or die" option available
> to you?
>
> open(FORUM,"wwwboard.out") or die "Could not open file: $!";
>
Er, perhaps - but what does it do if it is a CGI program ..
/J\
--
"Childbirth is god's way of telling you that heterosexuality isn't
natural. It's got to be easier to get a penis up your arse than a baby
out of your vagina" - Graham Norton
------------------------------
Date: Thu, 30 Sep 1999 16:27:50 GMT
From: hennessy@cloud9.net (Mathew A. Hennessy)
Subject: Re: HELP! Clueless know-nothing asks a question
Message-Id: <rv73s6ek3i585@corp.supernews.com>
In article <i9BI3.16108$fp1.182268@quark.idirect.com>,
James E. <jre@idirect.com> wrote:
>=====
>When I open the index.html file, there's nothing! wwwboard.out has
>something in it, so it should load. The server supports SSI, and everything
>is CHMOD'd properly. So my question - what's wrong!?
Try using 'use strict', '-w', and put a return code handler on
open(), like 'open(FOO, "$file")||die "$0: can't read $file\n"' . Then
check your error_log output if the script fails to run. In the future,
put 'use strict' and '-w' in all of your scripts.
>Please email me, as this isn't one of my usual usenet haunts. :)
I know many posters do this, but my philosophy is if you aren't
going to read the followups to your posts, don't post.
--
If it sounds too good to be true, it's probably Linux.
"Fool! There is nothing Perl cannot do! NOTHING!" -Bastich
"You can never entirely stop being what you once were. That's why it's important
to be the right person today, and not put it off till tomorrow." - Larry Wall
------------------------------
Date: Thu, 30 Sep 1999 16:34:03 GMT
From: hennessy@cloud9.net (Mathew A. Hennessy)
Subject: Re: How can I tell if something is already installed
Message-Id: <rv747rom3i536@corp.supernews.com>
In article <%ACI3.1535$zM1.813622@news1.rdc1.on.wave.home.com>,
Rhys Ronald Boswarva <rhys@ottawa.com> wrote:
>How can I tell if something is already installed on RedHat Linux. i.e.
>mod_perl
What, pray tell, does this have to do with Perl? AFAIK there's no
perl module that reports this specific case. Even if there were an
RPM::Query module, it _still_ wouldn't get this because it's an apache
config issue. (and yes, the module could be supplied separately as a DSO
in an RPM, but it's _still_ not particularly relevant to Perl)
The answer (if compiled statically) is to grep for it in the
output of httpd -l. If compiled loadable, you probably have to grep the
configfile for LoadModule or AddModule, but then again my apache DSO is
quite rusty..
--
If it sounds too good to be true, it's probably Linux.
"Fool! There is nothing Perl cannot do! NOTHING!" -Bastich
"You can never entirely stop being what you once were. That's why it's important
to be the right person today, and not put it off till tomorrow." - Larry Wall
------------------------------
Date: 30 Sep 1999 16:12:14 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How to print to a printer?
Message-Id: <37f37dce_1@newsread3.dircon.co.uk>
M.E. <eldridgem@ihorizons.net> wrote:
> I'm somewhat knowledgeable in Perl but not an expert by any means.
> I need to be able to print a file from a linux box to a printer.
> Is this possible?
> I'd appreciate any help or links to help that anyone can give me.
> I know NOTHING about using modules, so if the answer involves a module,
> please be detailed in the steps I'd have to do.
> Thank you in advance.
>
>
open a pipe to the command you would use for printing:
open(PRINTER,"|lpr -Pblah") || die "Cant fork - $!\n";
then print to it as usual ...
alternatiovely you can just open the device the printer is on and then
print to that.
/J\
--
"Tony Blair is reported to be detained indefinitely under plans unveiled
by the Home Secretary" - Corrupt Teletext Page
------------------------------
Date: Thu, 30 Sep 1999 15:16:11 GMT
From: c_j_marshall@my-deja.com
Subject: Re: How to print to a printer?
Message-Id: <7svur8$4f3$1@nnrp1.deja.com>
In article <37F36DF4.FF59CCA3@ihorizons.net>,
"M.E." <eldridgem@ihorizons.net> wrote:
> I'm somewhat knowledgeable in Perl but not an expert by any means.
> I need to be able to print a file from a linux box to a printer.
> Is this possible?
> I'd appreciate any help or links to help that anyone can give me.
> I know NOTHING about using modules, so if the answer involves a
module,
> please be detailed in the steps I'd have to do.
> Thank you in advance.
>
>
If this is on a line-by-line basis then when you open your out-bound
file handle make it
"| /usr/lp -d printername"
instead of the more usual
"> /home/you/file.txt"
or whatever.
If your data is already in the file then just use backticks to send that
file to the printer like you would do from the shell itself.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Sep 1999 11:35:43 -0400
From: gyepi@magnetic.praxis-sw.com (Gyepi SAM)
Subject: Re: How to print to a printer?
Message-Id: <slrn7v70pr.tv4.gyepi@magnetic.praxis-sw.com>
[Posted and Mailed]
On Thu, 30 Sep 1999 10:04:36 -0400, M.E. <eldridgem@ihorizons.net> wrote:
>I'm somewhat knowledgeable in Perl but not an expert by any means.
>I need to be able to print a file from a linux box to a printer.
>Is this possible?
system("lpr file");
For other thematic variations try:
perldoc -f open
perldoc perlop #for I/O operators and filehandles
perldoc perlvar #for $/ and $\ variables
perldoc perlsyn? #for local
perldoc -f print
perldoc -f close
--
Gyepi Sam --+-- Designer/Programmer --+-- Network/System Administrator
gyepi@praxis-sw.com --+-- http://www.praxis-sw.com/gyepi
One Bell System - it sometimes works.
------------------------------
Date: Thu, 30 Sep 1999 15:30:28 GMT
From: Alex Ramos <iis4@my-deja.com>
Subject: Indent around perl "print <<EOF" constructs?
Message-Id: <7svvlm$543$1@nnrp1.deja.com>
I have a ton of Perl code full of "print <<EOF" constructs (each
of course followed by several lines of non-Perl code terminated by
an EOF in a line by itself). Is there a way to cause emacs indent
to treat these blocks as comments or something (i.e. they should not
be indented and should not change the indentation of subsequent Perl
code).
Heck, I'd even be willing to use a string other than "EOF" as the
delimiter. Anyone familiar with how /* block comments */ are handled
in c-mode? Can we borrow some elisp from there?
thanks
AR
Please reply to the newsgroup; I don't read e-mail very often.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 30 Sep 1999 11:27:48 -0500
From: mah@everybody.org (Mark A. Hershberger)
Subject: Re: Indent around perl "print <<EOF" constructs?
Message-Id: <49aeq4pdob.fsf@playpen.baileylink.net>
This is an emacs question, followups trimmed.
Alex Ramos <iis4@my-deja.com> writes:
> I have a ton of Perl code full of "print <<EOF" constructs (each
> of course followed by several lines of non-Perl code terminated by
> an EOF in a line by itself). Is there a way to cause emacs indent
> to treat these blocks as comments or something (i.e. they should not
> be indented and should not change the indentation of subsequent Perl
> code).
"M-x cperl-mode" will do the job if you have a sufficiently recent
copy of emacs. Otherwise, go get cperl-mode from
http://www.cpan.com/misc/emacs/cperl-mode/.
Hope that helps,
Mark Hershberger
--
------------------------------
Date: Thu, 30 Sep 1999 10:55:51 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: kill extra white space in a variable
Message-Id: <x3y7ll8v47c.fsf@tigre.matrox.com>
"Casey R. Tweten" <crt@kiski.net> writes:
> On 29 Sep 1999, Abigail wrote:
> :Casey R. Tweten (crt@kiski.net) wrote on MMCCXX September MCMXCIII in
> :<URL:news:Pine.OSF.4.10.9909291102480.4735-100000@home.kiski.net>:
> :--
> :-- You don't need two lines. Can we add this to the FAQ?
> :--
> :-- $_ = ' space space ';
> :-- s/(^\s*|\s*$)//g;
> :
> :No, as that's less efficient and less clear than the 2 liner.
> :
> :But we might want to add to the FAQ why this isn't a good idea...
>
> Great idea!
>
> It is, at 1_000_000 iterations, close to 2.5 times slower that the one
> liner, the above being around 38 secs, and the two liner at 15. That is
> discusting.
Actually, it might be improved. As I mentioned in another post, you
don't need the brackets which makes your matching a bit slower. This
is of course discussed in perlre:
Once perl sees that you need one of $&, $` or $' anywhere in
the program, it has to provide them on each and every
pattern match. This can slow your program down. The same
mechanism that handles these provides for the use of $1, $2,
etc., so you pay the same price for each regexp that
contains capturing parentheses. But if you never use $&,
etc., in your script, then regexps without capturing
parentheses won't be penalized.
So, if you repeat your benchmark, you will find that the two-line
regexp is a bit less than twice as fast as the one-liner.
HTH,
--Ala
------------------------------
Date: 30 Sep 1999 15:42:05 GMT
From: John Callender <jbc@shell2.la.best.com>
Subject: Re: LWP::UserAgent and timeout problem
Message-Id: <37f384cd$0$223@nntp1.ba.best.com>
Bill Moseley <moseley@best.com> wrote:
> John Callender (jbc@shell2.la.best.com) seems to say...
>> Steve Linberg <slinberg@crocker.com> wrote:
>> > I'm having trouble getting the timeout method for LWP::UserAgent to act
>> > like it seems to me that it should.
>>
>> I had the same experience over the weekend in trying to write a
>> link-checking script that would complete its run in a reasonable amount
>> of time when doing HEAD requests on a large collection of links.
> What are you running on? I'm doing this on solaris and the timeouts
> work fine. I give 30 seconds for a HEAD reqest, then on failed HEAD
> requests I do a GET request with a 30 second timeout. I time the entire
> process for each URL I check, and the ones that fail (almost 1000)
> always have a total time of just a minute.
RedHat Linux 6.0, kernel 2.2.12, Perl 5.005_03, LWP 5.45.
I notice that Steve's (the original poster's) system was also RH Linux,
which makes me wonder if it might be something specific to the RH DNS
configuration.
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: Thu, 30 Sep 1999 23:14:13 +0800
From: "eX-HTML" <spam-me-sydneyfong@yahoo.com>
Subject: maybe...
Message-Id: <7svugd$ks0$1@lobster.vol.net>
ASCII?
------------------------------
Date: Thu, 30 Sep 1999 08:09:25 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: newbie help: sorting multidimensional arrays
Message-Id: <MPG.125d1cf18bbb969d98a004@nntp.hpl.hp.com>
In article <37F32251.685A33DE@ife.ee.ethz.ch> on Thu, 30 Sep 1999
10:41:53 +0200, Alex Rhomberg <rhomberg@ife.ee.ethz.ch> says...
...
> > + @sortedarray = map {@{delete $th{$_}||[]}}
> > + sort
> > + map {push @{$th{$$_[0]}}, $_; $$_[0]} @a;
...
> Oh, and I didn't read the last line therefore
> s/sort/sort{<=>}/;
s/sort/sort { \$a <=> \$b }/;
But you knew that...
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 30 Sep 1999 16:45:23 +0100
From: Simon Parker <simonp@parksoft.co.uk>
Subject: Newbie Question : Calling C from Perl
Message-Id: <37F38593.F04CB465@parksoft.co.uk>
I have successfully created a C extension which is callable from Perl.
The C function returns a pointer to a C struct.
When I print the returned pointer in a perl script I get
'__PersonPtr=SCALAR(0xe9334)'
How can I access the contents of the returned pointer from Perl?
regards
simon
------------------------------
Date: 30 Sep 1999 18:07:01 +0200
From: Jan Vroonhof <vroonhof@frege.math.ethz.ch>
Subject: Re: Newbie question: Installing XEmacs packages under windows NT
Message-Id: <byln9obcyi.fsf@bolzano.math.ethz.ch>
firass@pop.mpls.uswest.net writes:
> other manual method and get the archives myself. Once again,
> I had hard times trying to locate the proper perl package.
cperl-mode.el is in the prog-modes package.
Jan
------------------------------
Date: Thu, 30 Sep 1999 11:03:00 -0400
From: gyepi@magnetic.praxis-sw.com (Gyepi SAM)
Subject: Re: Please help re cgi script on FreeBSD running Apache
Message-Id: <slrn7v6usg.tv4.gyepi@magnetic.praxis-sw.com>
On Wed, 29 Sep 1999 17:53:01 -0700, Paul Croghan <pcroghan@pacbell.net> wrote:
>I'm running a password file script which sticks at: "System Error,
>Could not open web data file +<../webauth/web.data."
>$webfile = "+<../webauth/web.data";
^^
Note these two symbols.
>
>%input_values = &break_input;
>$number = &normalize_query($input_values{"number"});
>$email = &normalize_query($input_values{"email"});
>if(length($number) != 7) {
> &system_error("Sorry, but $number is not a valid number\n");
> exit;
>}
>unless(open(WEB,"+<$webfile")) {
^^
Eek, those two symbols again.
C(<open>) actually sees this "+<+<../webauth/web.data" as the filename.
The first set of "+<" is interpreted correctly, the second set is taken to be
part of the file name but I'm willing to bet you don't have a file named
"+<../webauth/web.data" in your cwd.
> &system_error("Could not open web data file $webfile.\n");
You might consider adding the value of $! to this message.
Let the system help you.
> exit;
--
Gyepi Sam --+-- Designer/Programmer --+-- Network/System Administrator
gyepi@praxis-sw.com --+-- http://www.praxis-sw.com/gyepi
There is much Obi-Wan did not tell you. -- Darth Vader
------------------------------
Date: 30 Sep 1999 11:21:43 -0500
From: mah@everybody.org (Mark A. Hershberger)
Subject: Re: Please Help: install module on Red Hat
Message-Id: <49d7v0pdyg.fsf@playpen.baileylink.net>
This is a RedHat question, not a Perl question.
Pete <pete@onm1.demon.co.uk> writes:
> 1. Why does it install in /var/tmp/usr/lib/perl5 ?
Because that is what Redhat told it to do if you aren't root.
> 2. Shouldn't it be installing it in /usr/lib/perl5
Unless you want to "use lib", yes.
> 3. How do I UNinstall data dumper (or any other module?)
> so that I can reinstall it properly ?
> (ie. to get it to stop skipping the important reinstall
> bits)
rm -rf /var/tmp/usr
> 4. Is there a clean way to uninstall modules so that I
> can correct any half-installed modules ?
See above.
> 5. Is there a good book on this stuff, for future reference
> ?
The CPAN module is good if you run it as root for installations.
Mark.
------------------------------
Date: Thu, 30 Sep 1999 12:12:16 -0400
From: "RecruitSource" <examtesting@recruitsource.com>
Subject: Pre-release Perl Beta-Testers
Message-Id: <rv72ltv43i595@corp.supernews.com>
Our company, http://www.recruitsource.com, is looking for people to
beta-test an online technical testing system, which will soon be released to
the public. Specifically, we need people of various skill levels to take
one or more timed, multiple-choice exams (including a Perl exam), and to
comment on/criticize the exam as a whole, as well as on individual
questions.
If you would like to partake, please reply with your First and Last name,
and we will set you up with an account.
There are currently over 50 exams in the RecruitSource database - if there
are any other skills that you would like to try against our exam system,
please let us know.
Thanks for your help,
RecruitSource Tech Team
------------------------------
Date: Thu, 30 Sep 1999 08:37:00 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Proble with chopped filenames from script
Message-Id: <MPG.125d23754184ebe398a005@nntp.hpl.hp.com>
In article <7svl9a$3tk8$1@pike.uhc.com> on Thu, 30 Sep 1999 08:33:09 -
0400, Peter Icaza <picaza@chsi.com> says...
>
> > which works fine until the line it reads has a + or - or _ in it.
> > if ( m/(\w+)/ ) {
>
> \w+ will match 1 or more word characters, [+-_] are not word characters
> [a-zA-Z0-9], depending on locale.
'_' is a 'word' character.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 30 Sep 1999 16:41:01 GMT
From: hennessy@cloud9.net (Mathew A. Hennessy)
Subject: Re: Proble with chopped filenames from script
Message-Id: <rv74kt133i521@corp.supernews.com>
In article <37F3079D.CBD5A1B6@ozland.com.au>,
Malcolm Garbutt <mgarbutt@ozland.com.au> wrote:
> if ( m/(\w+)/ ) {
maybe (\S+) instead, to match non-whitespace?
According to perldoc perlre (you _did_ check perldoc perlre,
right?), \w matches a word character, and that is defined by "alphanumeric
plus _".
In future, please do a perldoc perl to find the section of the
perl documentation which contains references to your question's topic,
then perldoc that documentation. Saves everyone a lot of hassle, and
it'll make you a better coder (I've learned almost everything I know from
the perldocs, after getting my appetite whetted by the Llama book. I
still love my Camel, though, if only because it's easier for me to turn to
a bookmark-tabbed page on a topic I check all the time than it is for me
to man the topic and space-bar all the way down ;)
--
If it sounds too good to be true, it's probably Linux.
"Fool! There is nothing Perl cannot do! NOTHING!" -Bastich
"You can never entirely stop being what you once were. That's why it's important
to be the right person today, and not put it off till tomorrow." - Larry Wall
------------------------------
Date: Thu, 30 Sep 1999 09:07:29 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Q: Syntax to open a file in PERL on an NT server
Message-Id: <MPG.125d2aa0ebfae5dd98a006@nntp.hpl.hp.com>
In article <37F37778.78E63C2D@ife.ee.ethz.ch> on Thu, 30 Sep 1999
16:45:12 +0200, Alex Rhomberg <rhomberg@ife.ee.ethz.ch> says...
...
> an absolute path looks like
> '/usr/local/httpd/data/subdir/here'
> or on MS products, it should be something like
> C:\Micros~1\window~1\webser~1\datadi~1
On M$ products Windows 95, 98, 2000 or NT, it could/should be something
like
'C:/Microsoft/windows/webserver/data.html'
> to find the absolute path, go into the correct directory and run the NT
> equivalent of 'pwd'
Hardly. Do the same thing as on Unix:
use Cwd;
my $cwd = cwd;
> and don't forget to check the result of your open
Indeed!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 30 Sep 1999 12:11:09 -0400
From: "David Stiff" <dstiff@symantec.com>
Subject: Runtime exception driving me crazy
Message-Id: <7t020s$t8v$1@news2.symantec.com>
Hi,
I am migrating a Perl process from one machine to another. The new machine
is a very high end dual Pentium system with 512 MB of RAM (clone machine).
The Perl code has not changed but I am receiving a Runtime exception when
comparing two arrays.
The code looks like this:
sub listSubtraction {
local($refListA, $refListB) = @_;
local(@listDiff) = ();
local($a);
local($b);
foreach $a (@$refListA)
$exist = 0;
foreach $b (@$refListB)
if (uc($b) eq uc($a))
$exist = 1;
}
}
if (!$exist)
push( @listDiff,$a);
}
}
return @listDiff;
}
The process runs for several minutes comparing the arrays before stopping.
Any ideas?
Thanks,
Dave Stiff
------------------------------
Date: Thu, 30 Sep 1999 16:53:00 GMT
From: pyammine@my-deja.com
Subject: Server dies:
Message-Id: <7t04h3$93t$1@nnrp1.deja.com>
Hello,
I am working with IIS 4. connecting to a SQL Server 7 db with Perl
(dist 5.005_03).
I am conducting some performance tests and things seem to work well but
after a couple of days the IIS server dies on me. I am not very
familiar with memory issues (i.e. memory leaks). I checked the code and
i do close the db connection (I use DBI:ODBC) and I do exit the scipt.
When I look at the perl log it says "OUT of Memory".
Does anybody know of any memory issues with the combinations I am using?
Thanks,
Pascal
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Sep 1999 17:11:22 +0100
From: Pascal Byrne <pbyrne@ie.oracle.com>
Subject: Re: setuid script
Message-Id: <37F38BAA.37496F7B@ie.oracle.com>
--------------11AB21461A1AFE2D4BB05EA9
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Thanks to all who replied.
As it turned out the 'Insecure $ENV{PATH} while running setuid' error was
caused by trying to run a command in backticks from a directory that was not
in the PATH. So while:
$user=`/usr/ucb/whoami`;
is illegal
$ENV{PATH}='/usr/ucb';
$user=`/usr/ucb/whoami`;
is allowed.
This of course begs the question as to why this is the case?
-pascal
Jonathan Stowe wrote:
> Pascal Byrne <pbyrne@ie.oracle.com> wrote:
> > Hi,
> >
> > I am trying to run a UNIX setuid script with an include path and get the
> > following:
> > No -I while running setuid.
> > If I remove the -I then the following error is given:
> > Insecure $ENV{PATH} while running setuid
> >
> > I read the docs and tried using the -U switch but that hasn't helped.
> > Any ideas?
> >
>
> $ENV{PATH} = '';
>
> /J\
> --
> "The Tory Party is like a wonky shopping trolley - it pulls to the
> left, it pulls to the right, but you just can't get it to go forward"
> - John Prescott
--------------11AB21461A1AFE2D4BB05EA9
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Thanks to all who replied.
<p>As it turned out the '<tt>Insecure $ENV{PATH} while running setuid'</tt>
error was caused by trying to run a command in backticks from a directory
that was not in the PATH. So while:
<br><b><tt> $user=`/usr/ucb/whoami`;</tt></b>
<br>is illegal
<br><b><tt> $ENV{PATH}='/usr/ucb';</tt></b>
<br><b><tt> $user=`/usr/ucb/whoami`;</tt></b>
<br>is allowed.
<p>This of course begs the question as to why this is the case?
<p>-pascal
<p>Jonathan Stowe wrote:
<blockquote TYPE=CITE>Pascal Byrne <pbyrne@ie.oracle.com> wrote:
<br>> Hi,
<br>>
<br>> I am trying to run a UNIX setuid script with an include path and
get the
<br>> following:
<br>> No -I while running setuid.
<br>> If I remove the -I then the following error is given:
<br>> Insecure $ENV{PATH} while running setuid
<br>>
<br>> I read the docs and tried using the -U switch but that hasn't helped.
<br>> Any ideas?
<br>>
<p>$ENV{PATH} = '';
<p>/J\
<br>--
<br>"The Tory Party is like a wonky shopping trolley - it pulls to the
<br>left, it pulls to the right, but you just can't get it to go forward"
<br>- John Prescott</blockquote>
</html>
--------------11AB21461A1AFE2D4BB05EA9--
------------------------------
Date: Thu, 30 Sep 1999 12:36:38 -0400
From: "Donboy" <webmaster@roleplayinggames.net>
Subject: Re: Using multiple query strings
Message-Id: <wtMI3.1127$CL1.9703882@news-read1.qis.net>
> In article <EXyI3.5566$xJ4.272031@newscontent-01.sprint.ca>,
> "Vox" <v0xman@yahoo.com> writes:
> > I've also been programming cgi with perl for about a couple of months
now
> > with no book but the tutorials on the net and pieces of other code put
> > together. I had this same problem not too long ago.
> >
> > you don't need 'read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});' for query
> > strings. Also $buffer = "$buffer\&$ENV{'QUERY_STRING'}"; really is
> > unnessary
> -Vox
Hey Vox! Glad to see I'm not alone in the world!!! I've been scabbing
scripts together for about a year now. I've never had any formal classes,
but I would love to take a few. Maybe we can exchange notes sometime!
Thanks for the tips!!! Those should really help me. However, I'm going to
try the CGI.pm module, since everyone has had such good things to say about
it. Honestly, I've never tried using modules before, so up to this point,
I've been pretty skeptical. Mainly because I felt like I would need to
relearn many of the procedures that I've been using for so long. For
example, I've been using the "Parse Form" subroutine that I was talking
about before and for form variables, I would reference them in the script by
saying something like $FORM{'whatever'} and this practice has served me
pretty well. But now I'm finding out that when using this module, I've got
to define my variables like $whatever = param(whatever) or something to
that effect. (I don't have the 'Cookbook' handy, so I can't remember
exactly what it says to do. But you get the idea.) So anyway, when using
CGI.pm, I think I'm going to have to change my ways completely because the
module will expect me to do things differently than I have in the past.
> Gawddd no. Not again. Is some one breeding these idiots just to annoy us?
I'm not sure what to make of this. Ian, I really appreciate the help, but
do you think it's necessary (or productive) to be so condescending? I
realize that you're on the other end of a phone line and I'm sure you've got
dozens of online friends, but that doesn't mean you can't make a few more.
Try being nice to people sometime and I think you will benefit from it.
Continue saying things like this, and you'll probably be hit by a hacker
someday who doesn't appreciate the insults. I mean, what's the deal??? Is
this newsgroup a "geniuses only club" or something? Surely this newsgroup
has had its share of beginners in the past. Do you always greet them with
this kind of remark?
> (BTW Vox was right about that first & though).
Right. *nods* I see that now. Actually I'm using it to process form
information, since the script will also accept POST information as well as
query strings. But I didn't realize that it wasn't needed. Thanks for the
tip!
------------------------------
Date: Thu, 30 Sep 1999 12:14:20 -0400
From: George Kuetemeyer <george.kuetemeyer@mail.tju.edu>
Subject: Using SS Numbers as DBM Index: Best Way to Encrypt Them
Message-Id: <37F38C5C.B0D60F72@mail.tju.edu>
I need to create several DBM files based on feeds from various campus
systems. I want to use social security numbers as indices, but would
like to encrypt them for the sake of privacy. Since I want to use the
values as unique keys, the encryption method needs to return a unique
string for each ssn. I tried the crypt function (my $encrypted =
crypt($ssn, $salt) but it appears to disregard the 9th digit in the ssn,
thereby returning the same value for ssn's where the first 8 digits are
the same. I don't care about decryption, since there's no need to
retrieve an ssn from the encrypted value. That's why I looked at crypt
as a solution.
Thanks in advance.
------------------------------
Date: Thu, 30 Sep 1999 16:03:20 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: using tr?
Message-Id: <7t01ju$6k3$1@nnrp1.deja.com>
In article <37F3769B.5A0638C7@texas.net>,
Tom Briles <sariq@texas.net> wrote:
> James Stevenson wrote:
> >
> > Hi
> >
> > could somebody please send me an example of useing
> > tr in perl
>
> #!/usr/bin/perl -w
>
> use strict;
>
> print 'tr';
>
> If you look closely, you'll see that I managed to use 'tr' more than
> once!
>
> > thanks
>
> You're welcome.
>
> HTH. HAND.
>
> - Tom
>
Tom,
You rock! That was even better than an Abagail reply!
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 30 Sep 1999 16:43:08 GMT
From: hennessy@cloud9.net (Mathew A. Hennessy)
Subject: Re: using tr?
Message-Id: <rv74osqn3i558@corp.supernews.com>
In article <slrn7v6mho.et6.James@linux.home>,
James Stevenson <mistral@stevenson.zetnet.co.uk> wrote:
>Hi
>
>could somebody please send me an example of useing
>tr in perl
Sure!
$ perldoc perlre
>thanks
> James
No problemo!
--
If it sounds too good to be true, it's probably Linux.
"Fool! There is nothing Perl cannot do! NOTHING!" -Bastich
"You can never entirely stop being what you once were. That's why it's important
to be the right person today, and not put it off till tomorrow." - Larry Wall
------------------------------
Date: Thu, 30 Sep 1999 16:42:19 GMT
From: hennessy@cloud9.net (Mathew A. Hennessy)
Subject: Re: why use references - in laymans terms?
Message-Id: <rv74nbsr3i580@corp.supernews.com>
In article <7sv9ov$bam$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>Uri Guttman <uri@sysarch.com> wrote in comp.lang.perl.misc:
>
>>if you don't want to use references, go back to using perl4. (but only
>>if you like flogging a flea bitten dead camel carcass)
>
>Call me a pedant, but fleas don't bite dead animals. How about
>moth-eaten?
It's not dead! It's resting!
--
If it sounds too good to be true, it's probably Linux.
"Fool! There is nothing Perl cannot do! NOTHING!" -Bastich
"You can never entirely stop being what you once were. That's why it's important
to be the right person today, and not put it off till tomorrow." - Larry Wall
------------------------------
Date: 30 Sep 1999 11:56:12 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: You should be admired, or What does this have to do with Perl?
Message-Id: <x7yadov1er.fsf@home.sysarch.com>
>>>>> "MF" == Martin Fitzpatrick <poohsticks@bonbon.net> writes:
MF> This problem which has taken me 5 hours to fix, turns out to be
MF> that I mispelt 'usr' 'user' in the path thing at the top of the
MF> script. Oh well, at least I figured it out myself, ahh, the joy
MF> of learning lessons...
a good one to learn. you should always try to run your cgi scripts
offline tomake sure that tey compile and run minimally (even maximally
if you can). debugging behind a web server is painful and for those who
don't know better. you are using CGI.pm which allows for offline
debugging, aren't you?
MF> (btw. I'm not a complete idiot, I can actually program in other
MF> languages!! Perl just has a knack of turning me into an imbesile
^^^^^^^^
and into a bad speller. :-) and you should remember that unix has spelling
problems of its own (see above).
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 952
*************************************
