[17687] in Perl-Users-Digest
Perl-Users Digest, Issue: 5107 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 14 03:05:40 2000
Date: Thu, 14 Dec 2000 00:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <976781111-v9-i5107@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 14 Dec 2000 Volume: 9 Number: 5107
Today's topics:
3 questions <bchapman@best.com>
Re: 3 questions (Chris Fedde)
Re: =~ operator (Chris Fedde)
Re: ??newbie: s/// and \r <NoSpamOg@bad.example.cave-home.org.invalid>
A valuable resource! Thanks <jhartin@mint.net>
Re: ActivePerl from Server <mischief@velma.motion.net>
Re: ActivePerl from Server (Homer Simpson)
Re: Does comp.lang.perl exist? Yes! (BUCK NAKED1)
Re: Does comp.lang.perl exist? Yes! (Randal L. Schwartz)
Re: Eliminating unneeded whitespace... <mischief@velma.motion.net>
Re: Eliminating unneeded whitespace... <jeffp@crusoe.net>
Re: Hopefully not to difficult a question. Please Help <chahn@peregrine.com>
Re: How to make LWP::UserAgent "frame enabled" <carlywu@yahoo.com>
Re: http_referer Problem!? (Randal L. Schwartz)
Re: input to interactive programs <bwalton@rochester.rr.com>
Re: Is there an overhead using long variable names? <bwalton@rochester.rr.com>
Re: Is there an overhead using long variable names? (Philip Lees)
Re: Modifying a string if an expression is false (David Efflandt)
ndbm/gdbm problem with Perl 5.6 <"al<NoSpam>sorrell"@yahoo.com>
Re: Newbie: Uploading File (David Efflandt)
Re: NEws Script (Chris Fedde)
Re: Perl type regular expression wanted <bwalton@rochester.rr.com>
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (Tad McClellan)
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (Tad McClellan)
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (Chris Fedde)
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (Chris Fedde)
Re: Posting Guidelines for comp.lang.perl.misc ($Revisi (Rafael Garcia-Suarez)
secure cookie problem <ng@fnmail.com>
Re: Tutorial for DBI module and MySQL <bwalton@rochester.rr.com>
Re: Tutorial for DBI module and MySQL <mark-lists@webstylists.com>
Re: Tutorial for DBI module and MySQL <mlahr@my-deja.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 13 Dec 2000 21:43:17 -0800
From: Bill Chapman <bchapman@best.com>
To: bchapman@lsscorp.com
Subject: 3 questions
Message-Id: <3A385DF4.43499BF2@best.com>
--------------6DF512BDAC75E7451F2230FD
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I'm trying to convert some .csh files to perl. I have 3 questions. Please reply:
- in the csh script, I used redirection of I/O, for example
% myprog >myfile.txt
is there a way to do this in perl?
- related to the last: I took input from the script
% myprog <<EOF
this is a line of text
this is another line of text
EOF
is there a way to do this in a perl script?
- To pass a line of csh code to the operating system, I can use the
'system' routine, but I have to break the line up into a list first. Is
there a way to just pass the whole line without having to break it
up?
Thanks,
Bill Chapman
--------------6DF512BDAC75E7451F2230FD
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
I'm trying to convert some .csh files to perl. I have 3 questions.
Please reply:
<p>- in the csh script, I used redirection of I/O, for example
<p> <tt>% myprog >myfile.txt</tt>
<p> is there a way to do this in perl?
<br>
<p>- related to the last: I took input from the script
<p> <tt>% myprog <<EOF</tt>
<br> this is a line of text
<br> this is another line of text
<br> <tt>EOF</tt>
<p> is there a way to do this in a perl script?
<br>
<p>- To pass a line of csh code to the operating system, I can use the
<br> 'system' routine, but I have to break the line up into a list
first. Is
<br> there a way to just pass the whole line without having to break
it
<br> up?
<p>Thanks,
<br>Bill Chapman</html>
--------------6DF512BDAC75E7451F2230FD--
------------------------------
Date: Thu, 14 Dec 2000 06:03:04 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: 3 questions
Message-Id: <soZZ5.231$B9.188798464@news.frii.net>
In article <3A385DF4.43499BF2@best.com>,
Bill Chapman <bchapman@best.com> wrote:
>-=-=-=-=-=-
>
>I'm trying to convert some .csh files to perl. I have 3 questions.
>Please reply:
>
>- in the csh script, I used redirection of I/O, for example
>
> % myprog >myfile.txt
>
> is there a way to do this in perl?
>
There are something that the shell is just better at...
In perl you might do something like this:
open(F, ">myfile.txt") or die "$0: can't open myfile.txt: $!";
open(G, "myprog |") or die "$0: can't start myprog: $!";
while (<G>) {
print F;
}
Though there are thousands of other choices too. this and other questions
are documented in the many fine books and resources available on the
internet and in your local book store. Try looking at http://use.perl.org/
for some pointers.
--
This space intentionally left blank
------------------------------
Date: Thu, 14 Dec 2000 05:36:15 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: =~ operator
Message-Id: <j%YZ5.229$B9.188798464@news.frii.net>
In article <3a380f28@cs.colorado.edu>,
Tom Christiansen <tchrist@perl.com> wrote:
>
>From the Camel:
>
> =head1 Binding Operators
>
> =for index
> binding;operators
> @equal=&eq; (equal sign) ;@equaltilde=&eq;~ (binding) operator
> binary;binding (&eq;~) operator
>
> Binary C<=~> binds a string expression to a pattern match,
I presume this is from the source of the Camel book that includes you as
author? I'm curious; Why does it sometimes uses entities and other
times uses pod?
chris
--
This space intentionally left blank
------------------------------
Date: Thu, 14 Dec 2000 02:09:29 GMT
From: Caveman Og <NoSpamOg@bad.example.cave-home.org.invalid>
Subject: Re: ??newbie: s/// and \r
Message-Id: <NoSpamOg-600105.18091113122000@news.bremtn1.wa.home.com>
In article <3a30f4d0.99663338@news.itn.is>, helgi@NOSPAMdecode.is
wrote:
> It has been asked and answered on this news
> group no less than 115,764,321,876,012,345,23
> times since its inception. This was without a
> doubt the first question that Og the caveman asked
> Ug the caveman a millisecond after he invented
> speech. It is the question that was answered
> by '42' in the Hitchhikers Guide and will no doubt
> be uttered in the last dying breath of the last
> living organism in the universe just before
> the final entropic cooldown.
Og here, kiboizing...
Helgi's answer is as strange as Doug's, if one presumes that what is
meant by the original poster is that the string *ends* in a newline,
which is \n in perl BUT NOT explicitly \13 and NOT explicitly \10.
\n is indeed \10 on most sensible systems.
Not all systems are sensible.
Therefore:
under Windows \n is \13\10
under MacOS \n is \13
There's nothing wrong with chomp().
--Og (Who in ancient times used to have time to READ comp.lang.perl.misc)
------------------------------
Date: Wed, 13 Dec 2000 21:30:23 -0500
From: "Chris" <jhartin@mint.net>
Subject: A valuable resource! Thanks
Message-Id: <919blp$lt$1@ruby.mint.net>
I just wanted to thank all the Perl programmers who regularly take the time
to assist
those in need of a little Perl guidance here in clpmisc. I have been
(programming|scripting) in
Perl for 2 short months and have found the posts in this group to be an
indispensable
resource in my studies. I have never actually posted a question, however I
have spent
hours and hours reading posts and applying that which I had learned in doing
so to
my scripts. Perhaps someday I'll have a question for which I will be unable
to find the answer but Perl is so damn well documented it doesn't seem
likely. Thanks Again for providing such a valuable resource to the Perl
programming community.
------------------------------
Date: Thu, 14 Dec 2000 02:07:45 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: ActivePerl from Server
Message-Id: <t3garhaui0mse3@corp.supernews.com>
[ adjusted OP's line breaks ]
fudokai@my-deja.com wrote:
> I'm new to ActivePerl and I'm somewhat confused over
> the installation under windows (95/98). I want to
> put the Perl interpretter on a server (in this case
> Novell) and run it from workstations. I've installed
> it on a Novell server from my PC Ok but how do I
> handle getting the other PCs to work with the network
> installation - there's a bundle of registry settings
> configured for Perl on my PC - how do I get this lot
> on another workstation? I suppose I could put Perl on
> each PC but a 30Mb installation for most users who
> will only want to run a single Perl script on the odd
> occasion seems a bit much. I've tried the old RTFM,
> but either I'm going blind in my old age or there's
> no info in this.
Despite the fact that your application is a Perl
interpreter, this really is a Netware issue.
Novell does have a tool called Snapshot that makes a
list of the installed files and the registry settings
on a PC before and after installing a piece of software,
then lets you 'snap install' the application from the
Novell client. This requires installing the application on
at least one more PC. I believe it also requires ZenWorks,
but I'm not sure. If you've got a NetWare license and no
ZenWorks license, I'm lead to believe you're inexperienced
with NetWare or just plain silly. ;)
This is not the absolute most reliable way to install
software, but the Illinois Department of Human Services
uses it for 95% of applications installed on their 25,000+
user NetWare network.
This really is a NetWare issue (could be considered also
a Windows issue). Please take it to a more appropriate
group. I would set followups, but there are many many
NetWare groups, and I'm not sure which one I should
recommend.
Chris
--
Chris Stith - mischief@motion.net
> TIA - Alan
> Sent via Deja.com
> http://www.deja.com/
------------------------------
Date: 14 Dec 2000 06:07:17 GMT
From: homer.simpson@springfield.nul (Homer Simpson)
Subject: Re: ActivePerl from Server
Message-Id: <919o2l$udo$0@216.39.130.199>
In article <918ba8$sh6$1@nnrp1.deja.com>, fudokai@my-deja.com wrote:
>I'm new to ActivePerl and I'm somewhat confused over the installation under
>windows (95/98). I want to put the Perl interpretter on a server (in this
>case Novell) and run it from workstations. I've installed it on a Novell
>server from my PC Ok but how do I handle getting the other PCs to work with
>the network installation - there's a bundle of registry settings configured
>for Perl on my PC - how do I get this lot on another workstation? I suppose I
>could put Perl on each PC but a 30Mb installation for most users who will
>only want to run a single Perl script on the odd occasion seems a bit much.
>I've tried the old RTFM, but either I'm going blind in my old age or there's
>no info in this.
The simplest way?
Buy the Perl complier from Active State, compile your scripts.
Put them in the \public directory
done
------------------------------
Date: Wed, 13 Dec 2000 21:52:27 -0600 (CST)
From: dennis100@webtv.net (BUCK NAKED1)
Subject: Re: Does comp.lang.perl exist? Yes!
Message-Id: <22207-3A3843FB-106@storefull-248.iap.bryant.webtv.net>
Randall was wrong. Yes, comp.lang.perl does exist. Here's proof of its
existence.
Group: comp.lang.perl Date: Tue, Dec 12, 2000, 11:53am (CST+6) From:
abigail@foad.org (Abigail)
On Tue, 12 Dec 2000 10:13:42 -0000, Michelle Reddan
(mreddan@broadgate.ie) wrote in comp.lang.perl.misc <URL:
news:<5YmZ5.5206$Er5.3085@news.indigo.ie>>: ++ I am writing a perl
script and I need java on the page but the perl script
++ does not seem to recognise the java code
Perl doesn't recognize Java, and you find that _surprising_?
++ Can anyone suggest a solution
Perhaps you need to find out what Perl and Java are.
Abigail
------------------------------
Date: 13 Dec 2000 20:57:45 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Does comp.lang.perl exist? Yes!
Message-Id: <m18zpjwqeu.fsf@halfdome.holdit.com>
>>>>> "BUCK" == BUCK NAKED1 <dennis100@webtv.net> writes:
BUCK> Randall was wrong. Yes, comp.lang.perl does exist. Here's proof of its
BUCK> existence.
It *authoritatively* does not exist, by decree from the group of
people who have managed Usenet since its beginning in 1979. That does
not keep people from posting articles that have *NON-EXISTING*
newsgroups in their headers.
It does not exist. There is no comp.lang.perl newsgroup as of 1995
mid-year.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 14 Dec 2000 02:52:52 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Eliminating unneeded whitespace...
Message-Id: <t3gdg4t56i5h04@corp.supernews.com>
Jeff Pinyan <jeffp@crusoe.net> wrote:
> [posted & mailed]
> On Dec 13, Chris Stith said:
>>The below results show that, properly implemented,
>>the substitutions are faster.
> Except that your benchmark is not properly implemented.
True. The b1 and b2 are broken, and leave sme trailing space.
The timing info is still representative, or at least it falls
in line with the timing info for my new code and new output.
Yes, I have new code and new output. ;)
###################
### new code
###
#!/usr/bin/perl
use Benchmark;
sub set_x() {
$x = ' This should throw away unneeded spaces. ';
}
sub set_y() {
$y = ' This should throw away unneeded spaces. ';
}
sub set_yy() {
$yy = ' This should throw away unneeded spaces. ';
}
sub set_z() {
$z = ' This should throw away unneeded spaces. ';
}
sub set_zz() {
$zz = ' This should throw away unneeded spaces. ';
}
timethese 1000000, {
a => q!&set_x; $x = join ' ', split ' ', $x;!,
b1 => q!&set_y; $y =~ s/\s+/ /g; $y =~ s/(?:^\s|\s$)//g;!,
b2 => q!&set_yy; $yy =~ s/(?:^\s+|\s+$)//g; $yy =~ s/\s+/ /g;!,
c1 => q!&set_z; $z =~ s/\s+/ /g; $z =~ s/^\s//; $z =~ s/\s$//;!,
c2 => q!&set_zz; $zz =~ s/^\s+//; $zz =~ s/\s+$//; $zz =~ s/\s+/ /g;!
};
print "a : '$x'\n";
print "b1: '$y'\n";
print "b2: '$yy'\n";
print "c1: '$z'\n";
print "c2: '$zz'\n";
###################
### new output
Benchmark: timing 1000000 iterations of a, b1, b2, c1, c2...
a: 34 wallclock secs (34.04 usr + 0.00 sys = 34.04 CPU)
b1: 75 wallclock secs (73.07 usr + 0.00 sys = 73.07 CPU)
b2: 87 wallclock secs (85.89 usr + 0.00 sys = 85.89 CPU)
c1: 33 wallclock secs (33.16 usr + 0.00 sys = 33.16 CPU)
c2: 34 wallclock secs (35.26 usr + 0.00 sys = 35.26 CPU)
a : 'This should throw away unneeded spaces.'
b1: 'This should throw away unneeded spaces.'
b2: 'This should throw away unneeded spaces.'
c1: 'This should throw away unneeded spaces.'
c2: 'This should throw away unneeded spaces.'
The split/join performs more favorably in this example than
previously. I once, at a time when the machine was a little
less busy, saw case 'a' come out a bit ahead of the cases
'c1' and 'c2', even with 1_000_000 repititions.
>>timethese 1000000, {
>> a => q!$x = join ' ', split ' ', $x;!,
>> b1 => q!$yy =~ s/\s+/ /g; $yy =~ s/(?:^\s|\s$)//;!,
>> b2 => q!$y =~ s/(?:^\s+|\s+$)//; $y =~ s/\s+/ /g;!,
>> c1 => q!$z =~ s/\s+/ /g; $z =~ s/^\s//; $z =~ s/\s$//;!,
>> c2 => q!$zz =~ s/^\s+//; $zz =~ s/\s+$//; $zz =~ s/\s+/ /g;!
>>};
> Your b1 and b2 should have /g modifiers on the ^\s|\s$ part. They
> don't. But your code still "works" -- this is because your tests are
> tainted -- you use the SAME strings each time. Which means that the work
> doesn't need to be done anymore. After 'a' is run ONCE, $x is no longer
> the string it used to be. Now it's the properly spaced string.
I corrected the /g, and I also set the variable in each iteration,
so it should more accurately deal with the data.
> I ran a better benchmark, and used code blocks instead of strings to be
> eval()ed -- I find I get better results this way.
This may be the case. I haven't used Benchmark much. I've used
it recently because I see it in the group a lot, and it is more
accurate than my old way of using the system-supplied execution
timing program.
[ snipped Jeff's code for post brevity]
> Benchmark: running join_split, regex_A_1, regex_A_2, regex_B_1, regex_B_2,
> each for at least 10 CPU seconds...
> join_split: 7112.80/s (n=74471)
> regex_A_1: 3177.52/s (n=32506)
> regex_A_2: 2984.96/s (n=30566)
> regex_B_1: 5044.14/s (n=51198)
> regex_B_2: 4991.71/s (n=50566)
> So in 10 seconds, join_split() got in the most iterations. The regex_A
> approach was slower than the regex_B approach.
This doesn't reflect exactly what mine does, even with the new code.
Am I still misunderstanding something with Benchmark, did I overlook
something in the code again (which I don't think is extremely likely
considering the scrutiny I put it through this time - running each one
as a one-liner and everything before benchmarking, but I am open to
improvement at the cost of humiliation), or is there maybe a great
difference in the optimizations applied by differing versions?
Chris
--
Christopher E. Stith - mischief@velma.motion.net
------------------------------
Date: Wed, 13 Dec 2000 22:31:25 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Eliminating unneeded whitespace...
Message-Id: <Pine.GSO.4.21.0012132226030.4213-100000@crusoe.crusoe.net>
On Dec 14, Chris Stith said:
>timethese 1000000, {
> a => q!&set_x; $x = join ' ', split ' ', $x;!,
> b1 => q!&set_y; $y =~ s/\s+/ /g; $y =~ s/(?:^\s|\s$)//g;!,
> b2 => q!&set_yy; $yy =~ s/(?:^\s+|\s+$)//g; $yy =~ s/\s+/ /g;!,
> c1 => q!&set_z; $z =~ s/\s+/ /g; $z =~ s/^\s//; $z =~ s/\s$//;!,
> c2 => q!&set_zz; $zz =~ s/^\s+//; $zz =~ s/\s+$//; $zz =~ s/\s+/ /g;!
>};
It might be better time the functions for a given number of seconds,
rather than for a give number of iterations. It's something to try.
And I've seen cases where using strings to be evaluated, instead of
functions, produced some rather dubious results.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
PerlMonks - An Online Perl Community http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
------------------------------
Date: Wed, 13 Dec 2000 23:30:17 -0800
From: "Christopher Hahn" <chahn@peregrine.com>
Subject: Re: Hopefully not to difficult a question. Please Help
Message-Id: <919sv1$dl9$1@dfw-ixnews3.ix.netcom.com>
I think that you will have to define "modify".
What are you needing to do to the password field?
<msalerno@my-deja.com> wrote in message news:918obk$96t$1@nnrp1.deja.com...
> I need to modify the password field of the passwd file. Is there any
> way that I can modify the file ? I don't want to have to rewrite the
> passwd file. I don't want to have to make any system calls to sed or
> some other utility. Please let me know how I can do this, or let me
> know where I could get some sample script that I could pick apart. Any
> info will be considered helpful.
>
> Thanks,
> Matt
>
>
> I was looking at the perl faq's and I came accross this.
>
> Those are operations of a text editor. Perl is not a text editor. Perl
> is a programming language.
>
> The general solution is to create a temporary copy of the text file with
> the changes you want, then copy that over the original
>
>
> Sent via Deja.com
> http://www.deja.com/
------------------------------
Date: Thu, 14 Dec 2000 16:27:26 +1100
From: "Carl Wu" <carlywu@yahoo.com>
Subject: Re: How to make LWP::UserAgent "frame enabled"
Message-Id: <3a38596f$0$15828$7f31c96c@news01.syd.optusnet.com.au>
Hi Tony,
Yes the document I got back has been processed by the server locally, it
return a page tell me how to upgrade my browser with links to Microsfot and
Netscape.
I did try to call $ua->agent("Mozilla 5.0") and various agent ID(s) but it
didn't help.
Is it possible that the server didn't rely on the UserAgent Id but because
it detects the client is not capable of understanding frames during the
conversation between the server and the client?
Many thanks,
Carl Wu
Tony Curtis wrote in message <878zpjzv36.fsf@limey.hpcc.uh.edu>...
>>> On Thu, 14 Dec 2000 00:43:25 GMT,
>>> mjd@plover.com (Mark-Jason Dominus) said:
>
>> In article <3a38123d$0$19441$7f31c96c@news01.syd.optusnet.com.au>,
>> Carl Wu <carlywu@yahoo.com> wrote:
>>> When I use a LWP::UserAgent to send a request for a web page, I got
>>> a response that I need a frame enabled browser, how can I get
>>> around with that?
>
>> The result will also have <frame> tag swith the URLs for the
>> individual frames. Extract the URLs for the frames and request them
>> separately.
>
>...unless the document you get back from the server has been handled
>locally by something that purports to check the browsers's ID and
>refuses to serve anything it regards as non-frame-capable. If that's
>the case, you probably just want to tell the UserAgent instance to
>pretend it is Mozilla or IE. That's a silly check for the server to
>make IMHO, it smacks of an ironically Byzantine attempt at laziness
>(providing no <noframes> alternative).
>
>hth
>t
>--
>Eih bennek, eih blavek.
------------------------------
Date: 13 Dec 2000 18:49:16 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: http_referer Problem!?
Message-Id: <m1snnrwwcz.fsf@halfdome.holdit.com>
>>>>> "Jeffrey" == Jeffrey M Vinocur <jmv16@cornell.edu> writes:
Jeffrey> You can check it to prevent outside websites from guiding
Jeffrey> users into the midst of your website without their knowledge.
Jeffrey> For example, if you have a clipart collection online, and
Jeffrey> want to force people to copy the images to their own servers
Jeffrey> and not just link to yours, you could check Referrer.
I've got a solution to that which works better and doesn't count on
the referer. See
<http://www.stonehenge.com/merlyn/WebTechniques/col18.html>. Make
them come in through the front door via time-limited URLs.
Referer. It's not even SPELLED right! Just say no. :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 14 Dec 2000 04:18:58 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: input to interactive programs
Message-Id: <3A384ACB.55A4F928@rochester.rr.com>
Evanda Remington wrote:
>
> How would i go about sending input to interactive programs?
> Is there a handy "waitfor" type deal? What i'm aiming at is having
> something call passwd and give it the required info.
...
> Evanda Remington
> evanda@ater.org
> http://www.ater.org
Maybe what you want is the Expect module?
--
Bob Walton
------------------------------
Date: Thu, 14 Dec 2000 04:37:41 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Is there an overhead using long variable names?
Message-Id: <3A384F2E.82BD2B64@rochester.rr.com>
Philip Lees wrote:
>
> Is there any significant time overhead when using long variable names?
>
> e.g. $name_in_old_and_obsolete_database versus $old_name
>
> Obviously a script full of long names will take longer to load, but
> this shouldn't be significant unless the script is huge, right? What
> about compilation time? The FAQ doesn't seem to address this question.
...
> Philip Lees
...
Why don't you
use Benchmark;
and find out?
--
Bob Walton
------------------------------
Date: Thu, 14 Dec 2000 07:46:05 GMT
From: pjlees@ics.forthcomingevents.gr (Philip Lees)
Subject: Re: Is there an overhead using long variable names?
Message-Id: <3a387a44.56724695@news.grnet.gr>
On Thu, 14 Dec 2000 04:37:41 GMT, Bob Walton
<bwalton@rochester.rr.com> wrote:
>> Is there any significant time overhead when using long variable names?
>Why don't you
>
> use Benchmark;
>
>and find out?
Because Benchmark measures execution time, not compilation time.
From the docs: The Benchmark module encapsulates a number of routines
to help you figure out how long it takes to execute some code.
I wouldn't expect the length of variable names to make any difference
once compilation is complete. Would you?
Phil
--
Philip Lees
ICS-FORTH, Heraklion, Crete, Greece
Ignore coming events if you wish to send me e-mail
'The aim of high technology should be to simplify, not complicate' - Hans Christian von Baeyer
------------------------------
Date: Thu, 14 Dec 2000 04:00:59 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Modifying a string if an expression is false
Message-Id: <slrn93ghg1.54d.efflandt@efflandt.xnet.com>
On Tue, 12 Dec 2000 21:06:38 -0600, Jamie Sullivan <jsullivan@eosinc.com> wrote:
>Hello,
>
>I am attempting to create a script to modify the httpd.conf file to
>add a certain string if not already present in the file. I am having
>trouble trying to insert a check into the script to confirm that the
>string "www.$var1" does not already exist. The variable I am passing
>are the domain name and the folder name. Here is where I am so far,
>any assistance is greatly appreciated:
>
>#!/usr/bin/perl
>
>open(INFILE, "$ARGV[0]");
> $infile = <INFILE>;
You fail to test if your open() was successful or why not, and forgot to
chomp $infile; here (newline or other line ending).
> ($var1,$var2) = split(/\|/, $infile);
>close(INFILE);
Not quite sure what the rest did, but probably not what you want. The
following would check if $var1 exists in your httpd.conf, and would append
the it as a virtual host if not. You don't need to insert tham at any
particular place in the file, so that should work fine.
open(CONF, "+< /etc/httpd.conf") || die "Can't open config file: $!";
my @lines = <CONF>;
if (grep /\Q$var1\E/, @lines) {
close CONF;
print "host $var1 already exists\n";
exit;
}
seek CONF,0,2;
print <<EOF;
<VirtualHost www.$var1>
ServerName www.$var1
DocumentRoot /www/$var2/web
</VirtualHost>
EOF
close CONF;
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Thu, 14 Dec 2000 02:40:20 GMT
From: Al <"al<NoSpam>sorrell"@yahoo.com>
Subject: ndbm/gdbm problem with Perl 5.6
Message-Id: <3A38330F.5E90F948@yahoo.com>
Environment - Solaris 2.6 sparc, Perl 5.005.02 & Perl 5.6, gdbm-1.8.0
Initially, Perl 5.005.02 was built without gdbm support. We ran into a
problem with bucket 'overload' so I decided to go to gdbm which
supposedly doesn't have that problem. We have a number of files,
generated via hash 'tie' statements and using NDBM_File which have had
no problem in the past.
I downloaded SMCgdbm-1.8.0 and installed it (/usr/local/lib) with no
apparent problem. I then got the latest stable Perl version (5.6), and
installed it. The install found the gdbm libraries, although the build
initially failed until I added /usr/local/lib to LD_LIBRARY_PATH. After
that the SNMP build proceeded normally and all tests passed. After a
'make install', I found that existing programs using NDBM could no
longer open the file - no error was returned via $!, just couldn't open
it!
If I created a new file (still using the exact same programs using
NDBM), the programs worked as expected - just unable to open existing
files.
As a side-note, any Perl CGI executing from our (Apache) server would
bomb, claiming it could not load/find the gdbm library with the
following error:
ld.so.1: /usr/local/bin/perl: fatal: libgdbm.so.2: open failed: No such
file or directory
Of course, the file was really there, world readable, etc. Never was
able to resolve that problem!
Subsequently, I removed the gdbm package and rebuilt Perl. This time,
without the gdbm package being built, everything worked just fine!
I have since written a flat-file extractor for the data files so I don't
have to totally panic, but just wondering - what happened? I (think I)
would like to use gdbm to avoid my original problem, but would prefer
not rebuilding all the files that are current;y using NDBM...
Al
------------------------------
Date: Thu, 14 Dec 2000 04:26:16 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Newbie: Uploading File
Message-Id: <slrn93give.54d.efflandt@efflandt.xnet.com>
On Wed, 13 Dec 0 01:05:34 GMT, Scott Nesbitt <scott@sciteq.com.au> wrote:
>
>I have been struggling to understand the CGI module and have looked up
>several resources including the perldoc and numerous FAQ's. I have used
>CGI-101 (a very helpful book for newbies like me) to try and upload a file.
>The source (listed below) works a treat with only two problems.
>
>1) My server does not allow graphics to be shown from behind the cgi-bin and
>so even though the gif/jpeg uploads it will not display it. I have tried to
>go on via ftp to find the file that has been uploaded but it simply does not
>exist anywhere in my directory structure. Where has it gone and how can I
>save it as a "real" file in a directory outside the cgi-bin with the name
>that the original file had. (I understand that I will have to possibly
>change file names to exclude invalid characters but this is a problem for
>another day lol)
You are attempting to save it as /tmp/outfile. Have you checked that file
to see if it matches the size of the last uploaded file? You can test it
from CGI using the -s file test operator. Either save it in some other
path where your CGI has permission to write, or 'rename' it to such a
location. See: perldoc -f rename
>2) I have been told by a friend (as much a newbie as I am) that I have to
>taint check the file. What is this and why?
On a system with Perl type: perldoc perlsec
But you should not have to worry about that for image files as long as
you are not passing the image data in a commandline (since an image
itself does not execute).
Your problem might be one of (completely unrelated to Perl):
Your symlink to the file is in cgi-bin which is ONLY for CGI.
Symlinks outside of your webspace or DocumentRoot might be ignored.
Symlinks might be completely ignored since they can traverse file systems,
and you might not know what is mounted (a security feature of apache
suexec option).
Note that before you can tell what permissions you need, you have to know
who your CGI is running as. You could do that with (using backticks):
print `whoami`; # or full path possibly /usr/bin/whoami
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Thu, 14 Dec 2000 05:54:12 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: NEws Script
Message-Id: <8gZZ5.230$B9.171196416@news.frii.net>
In article <AaVZ5.38657$w35.6834654@news1.rdc1.nj.home.com>,
EnIgMaBoM <enigmabomb@home.gotohellspammers.ihopeyourotinghellyouspamminggarbage.com> wrote:
>Hi, My name is Josh, I am a webmaster of a faily successful site. I have
>been learning perl, I like it a lot. Ive started preparing to write a news
>script. What I want to do, is query a database of news files, so that
>anything older than a week is dumped into the archives. I cant think of a
>good way to store and query the news entries. I thought of a hash tied to a
>dbm, but that can only store 1024 characters, and using an html file to
sdbm may have that restriction but nether gdbm nor Berkeley DB have that
constraint. www.sleepycat.com claims values and keys up to 2**48 bytes for
Berkeley DB
>write....but.....I wouldnt be able to query it. I need some help here. ,
>any ideas?? Also, I am not asking for code, just a few pointers.
>
There are many more powerful data representation formats than HTML.
there is this one system called JDB
http://www.isi.edu/~johnh/SOFTWARE/JDB
That I've sometimes found useful.
Almost any book that has the words Perl and CGI near the title can
provide dozens of potential approches to solving this problem.
Some of the ideas might even be good!
chris
--
This space intentionally left blank
------------------------------
Date: Thu, 14 Dec 2000 04:35:21 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Perl type regular expression wanted
Message-Id: <3A384EA3.2324458D@rochester.rr.com>
shankar_krec@my-deja.com wrote:
>
> The problem:
> T-SQL (Microsoft SQL) strings are delimited by single quotes (') . If u
> need
> to include a single quote as a part of the string, u need to escape that
> by
> a single quote immediately preceding it (like we use a double backslash
> (\\)
> to include a backslash in a string in C). I need to write a regular
> expression to find all such strings.
> For example:
> 1. print ('''hello''') would print the string ('hello') (including
> quotes)
> 2. ''' ,' is the string (', ') (including quotes)
> 3. print ('hello') would print hello (no quotes)
>
> NOTE: dont expect whitespace on either side of the delimiters. This is
> the
> most important restriction, I feel
>
> Please Help if u know solution..
>
> My conclusion:
> I think its basically a problem of finding a string like this:
> if you encounter a single quote, count till you have an even number of
> single quotes and the last quote so counted is not followed by another
> single count.... SO u basically need a CFL, an RE wont work.. or maybe
> LEX-type state-variables... not sure of that....
>
> U'rs truly,
> shankar
...
Try:
while(<>){
chomp;
while(/'([^']|'')*'/g){
print "substring=$&\n";
}
}
That will find all substrings of a string of the form you describe from
whatever strings you type in. I think you were making it too hard.
HTH.
--
Bob Walton
------------------------------
Date: Wed, 13 Dec 2000 20:45:15 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <slrn93gd1r.18n.tadmc@maxim.metronet.com>
John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
>In article <slrn93g579.12u.tadmc@maxim.metronet.com>,
>Tad McClellan <tadmc@metronet.com> wrote:
>>>I'm interested to know why you think that posting THIS FAQ will have any
>>>more effect on the way people post than any other FAQ or any of the
>>>oft-repeated responses to people who post in ways you don't like.
>>
>>I'm interested to know how you know what I think.
>
>I assumed that you were taking your time to produce a document telling
>people how to post properly because you wanted them to follow the
>suggestions.
Correct.
>I'm asking why you think that they will follow your
>suggestions when they don't follow any others.
I do not think that they will follow my suggestions.
I only hope that they follow my suggestions.
>>I am, in fact, quite sure that it will fail to have any
>>significant impact. I don't recall claiming that it will
>>have any effect on the way people post.
>
>Then why are you spending the time doing this?
I don't have anything better to do.
I'm just sitting around in the hotel room.
>If it has no effect, then
I did not say that it has no effect.
I said that it has (will have, actually) no significant effect.
I'll settle for an insignificant effect (because that is
all I can reasonably expect).
>it is adding to the clutter.
>Is that your goal?
No.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 13 Dec 2000 20:48:13 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <slrn93gd7d.18n.tadmc@maxim.metronet.com>
John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
>In article <3a381054@cs.colorado.edu>,
>Tom Christiansen <tchrist@perl.com> wrote:
[ snip "posting POD is bad" ]
>>You might as well forbid posting of perl.
>
>This is a perl newsgroup. When the group changes name to
>comp.lang.pod.misc, then it will be correct to post pod. If you object
>to HTML and claim it should be prohibited, then you've tarred pod with
>the same brush. Both are markup languages.
But one of them is Perl and one of them isn't.
I suppose HTML posts in a WWW newsgroup would be fine, but
this is not such a newsgroup.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 14 Dec 2000 05:05:54 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <SyYZ5.226$B9.188721152@news.frii.net>
In article <976710321.22736@itz.pp.sci.fi>,
Ilmari Karonen <usenet11304@itz.pp.sci.fi> wrote:
>
> ... there are a number of measures that all of us can take to make
> the group as useful as possible for everyone.
>
... there are a number of measures that we all should take to keep the group
useful for everyone.
(I feel like I'm writing Gore's latest speech ;-)
--
This space intentionally left blank
------------------------------
Date: Thu, 14 Dec 2000 05:27:27 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <3TYZ5.228$B9.189617152@news.frii.net>
In article <slrn93c7bs.s1.tadmc@maxim.metronet.com>,
Tad McClellan <tadmc@metronet.com> wrote:
>
>Here is a start on some Posting Guidelines for our newsgroup.
>
>Please review it and _post_ your comments (no email).
>
Here is one that Nathan Torkington used to post frequently.
It attempts to answer the question "How can I help my self to good
information about perl?" It is in the rotation with the faq postings.
---------8<----------------8<-----------------8<---------------8<---------
Every post to the comp.lang.perl.misc newsgroup consumes the time and
effort of readers all over the world who pay for their Internet access
just as you do. That's OK, because mutual support is what USENET is
all about. But it only works if posters check out other resources
first!
Please make an effort to find the answer to your question on your own
before posting. The resources below will help you.
BEFORE you post to this newsgroup, look at the following checklist:
1. The latest stable release of Perl is 5.6.0. The latest maintenance
release of the 5.004 track is 5.004_05, for the 5.005 track is
5.005_03. You can download them from
http://www.cpan.org/src/
(look in ftp://ftp.perl.com/perl/ for a list of FTP-based mirrors)
2. comp.lang.perl.misc is for questions on the Perl language. Try
comp.infosystems.www.authoring.cgi for questions on the CGI part of
CGI scripts. The two leading blocks of reusable code for CGI purposes
are CGI.pm, at
http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
and cgi-lib.pl, at
http://cgi-lib.berkeley.edu
You might also want to check out libwww-perl at
http://www.linpro.no/lwp/
If you are having problems with a CGI script, look through
http://language.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
3. Are you using the following?
#!/usr/bin/perl -w
use diagnostics;
use strict;
"-w" turns on all sorts of warnings about probable errors (see the
perldiag manpage), "use diagnostics" causes the "-w" warnings to be
explained in greater detail (with the explanations from the perldiag
manpage), and "use strict" generates compile and run-time errors for
certain unsafe variable, reference and subroutine constructs (see the
strict manpage)
4. Are you checking the return values from the functions built in to
perl? Most of the file and system functions set $! and have return
values that you can test thus:
open(PASSWD, "</etc/passwd") or
die "error opening /etc/passwd: $!\n";
$! will contain an error message that will give you more information
on where your program is going wrong. The perlfunc man page will give
you more information on the return values from functions.
5. Have you read the Perl FAQ? Many questions on sockets programming,
an important and common problem with Solaris, text manipulation and
the jargon of perl are answered in the FAQ. As well as being posted
regularly to comp.lang.perl.misc, the FAQ is on the web at:
http://language.perl.com/faq/
6. Have you read the man pages? Here are some subjects and the man
pages to look in:
Objects perltoot, perlref, perlmod, perlobj, perltie
Data Structures perlref, perllol, perldsc
Modules perlmod, perlsub
Regexps perlre, perlfunc, perlop
http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html
(not a man-page but still useful)
Moving to perl5 perltrap, perl
Linking w/C perlxstut, perlxs, perlcall, perlguts, perlembed
The man page for "perltoc" provides a crude table of contents for the
perl man page set.
7. Have you looked at http://www.perl.com ? This is a great
online reference, with documentation, pointers to modules in the
Comprehensive Perl Archive Network (CPAN), articles on the inner
workings of many bits of Perl, and more.
7.5. Have you checked to see if a Perl module satisfies your needs?
Many reusable modules are available for immediate download and use.
See http://www.perl.com/CPAN/modules/00modlist.long.html for details.
8. Have you tried archives of Usenet? http://www.dejanews.com/
maintains an archive of postings to Usenet dating from March, 1995.
Be sure to include "Perl" in your search.
9. The latest version of the "Camel Book" ("Programming Perl"),
updated for version 5.6.0, is available from your bookstore or from
http://www.ora.com/
10. Remember, USENET newsgroups are based on the idea of mutual aid.
USENET only works if we put as much into it as we get out of it. Good
luck with your Perl work.
-Nathan Torkington, Perl mini-FAQ maintainer
--
This space intentionally left blank
------------------------------
Date: Thu, 14 Dec 2000 07:46:26 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
Message-Id: <slrn93guoj.b0j.rgarciasuarez@rafael.kazibao.net>
Tad McClellan wrote in comp.lang.perl.misc:
>
> I suppose HTML posts in a WWW newsgroup would be fine, but
> this is not such a newsgroup.
Participating in an HTML discussion newsgroup does not imply to use an
HTML-capable newsreader. People post there HTML *source*, not
HTML-formatted messages. The same is true here for POD: when some POD is
posted, that's either for discussing the POD odds and ends, or for
reviewing the source of a document (e.g. I remember that Randal posted
perlboot.pod some months ago). I've never seen MIME messages with a
content-type of text/pod.
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Wed, 13 Dec 2000 23:36:40 -0600
From: "Enrico Ng" <ng@fnmail.com>
Subject: secure cookie problem
Message-Id: <919m9c$nrr$1@info1.fnal.gov>
I have a script that generates a webpage.
there I can click on a button that will set a cookie, then reload the page.
the script will then change the page based on the value of the cookie.
The problem is that my server has special security, where user in the domain
can use it regularly, but people outside the domain need to access the
script via secure connection.
how should I store the cookie so it doesnt matter if the script is run from
a secure connection or a nonsecure connection?
I use javascript document.cookie to set the cookie
and I get the cookie from the ENV via the script
--
Enrico Ng <ng@fnmail.com>
------------------------------
Date: Thu, 14 Dec 2000 04:43:15 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Tutorial for DBI module and MySQL
Message-Id: <3A38507B.C38449E4@rochester.rr.com>
Mark Thompson wrote:
...
> I found the documentatino for using DBI with MySQL but I was wondering
> if there was a good tutorial available on using MySQL with Perl.
...
> Mark
Check out:
http://www.perl.com/reference/query.cgi?tutorials
There are a couple of items that might be of help.
--
Bob Walton
------------------------------
Date: Wed, 13 Dec 2000 23:00:02 -0800
From: Mark Thompson <mark-lists@webstylists.com>
Subject: Re: Tutorial for DBI module and MySQL
Message-Id: <4urg3tsce8sibqmvo9u6l7h5bld8l09bqc@4ax.com>
Hi Bob,
Thanks, I had looked there but the 3 items that looked good on there
were either bad links or in some foreign language.
Would you know of any other resources that might have something?
Basically I'm going to use PHP for reporting purposes, but the scripts
that write the data to the database are going to be in Perl because
I'm extending already existing Perl scripts.
Thanks again,
Mark
At 12/13/2000 08:45 PM, you wrote:
>Mark Thompson wrote:
...
>> I found the documentatino for using DBI with MySQL but I was wondering
>> if there was a good tutorial available on using MySQL with Perl.
...
>> Mark
>Check out:
>
>http://www.perl.com/reference/query.cgi?tutorials
>
>There are a couple of items that might be of help.
>--
>Bob Walton
------------------------------
Date: Thu, 14 Dec 2000 07:53:39 GMT
From: Michael Lahr <mlahr@my-deja.com>
Subject: Re: Tutorial for DBI module and MySQL
Message-Id: <919ua2$7av$1@nnrp1.deja.com>
In article <gc6e3tor3um3gr0kgcr6t16lc25rmctp26@4ax.com>,
Mark Thompson <mark-lists@webstylists.com> wrote:
> Hi,
>
> I found the documentatino for using DBI with MySQL but I was wondering
> if there was a good tutorial available on using MySQL with Perl.
>
There is a "Short guide to DBI" somewhere on perl.com. Hope this helps.
Sent via Deja.com
http://www.deja.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 5107
**************************************
