[13492] in Perl-Users-Digest
Perl-Users Digest, Issue: 902 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 24 17:17:26 1999
Date: Fri, 24 Sep 1999 14:10:15 -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: <938207415-v9-i902@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 24 Sep 1999 Volume: 9 Number: 902
Today's topics:
Re: Perl - CGI -MySQL <cassell@mail.cor.epa.gov>
Re: PROBLEM with PERL script in NT platform <gellyfish@gellyfish.com>
Re: Question from a newbie <gellyfish@gellyfish.com>
remove the html tag in the file <turboman34@hotmail.com>
Re: remove the html tag in the file (Eric Bohlman)
Re: remove the html tag in the file <gellyfish@gellyfish.com>
Re: Round off an array? <aqumsieh@matrox.com>
Re: Strict? <sariq@texas.net>
Re: Strict? <aqumsieh@matrox.com>
Re: Strict? <cassell@mail.cor.epa.gov>
Re: Strict? (Andrew Johnson)
Re: Using Perl to send mail in Windows <mark@markwild.com>
Re: using System function to run other programs <cassell@mail.cor.epa.gov>
Validating forms in javascript before cgi script runs sortltd@my-deja.com
Re: Validating forms in javascript before cgi script ru <cLive@direct2u.co.uk>
Re: Validating forms in javascript before cgi script ru <gellyfish@gellyfish.com>
WebTV and Perl CGI <fbagncy@voyager.net>
Re: Win32::ODBC.pm hangs CGI.pm under Apache <cassell@mail.cor.epa.gov>
Windows NT 4.0 Scripting dpekkarinen@latinschool.org
Re: You should be admired, or What does this have to do <cassell@mail.cor.epa.gov>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 24 Sep 1999 13:08:25 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Perl - CGI -MySQL
Message-Id: <37EBDA39.244C0336@mail.cor.epa.gov>
KernelKlink@webtv.net wrote:
>
> Michael Stevens wrote:
> ==================
> So, how come here is suddenly the right place, purely because you
> couldn't find the proper place for such a question?
> ==================
>
> Gee Mike, do I have to spell it out for you?
Ummm, do you know the phrase 'rhetorical question'?
[Hint: This is one also.]
> After I was unable to find
> a MySQL newsgroup I was hoping that a Perl expert like yourself might
> have run across the same problem. (Being that I am probably not the only
> person in this group to use Perl to communicate with a MySQL server.)
But there are better resources than this newsgroup, so a
person with a MySQL question would be better off learning
of other resources. Don't you think so? [Like the MySQL
mailing list(s) you can subscribe to at the MySQL website.]
> P.S. If you ever have a question that is not 100% Perl related, don't be
> afraid to post it here, I'll be the first one to help you out, or at
> least point you in the right direction. You'll never have to worry that
> I will degrade you or insult your intelligence in a public forum.
Questions here do *not* have to be "100% Perl". But they should
be "100% Perl related" - if that phrase has any meaning. Take a
look at the CGI questions which get help, and those which get
abuse. You should see the difference. People who ask questions
irrelevant to the programming language used [e.g. "How do I send
mail from my CGI form?"] are treated less well than people who
ask Perl questions about the same topic [e.g. "How do I send mail
form my CGI form? I used CGI.pm but I got this error message
with this snippet of code..."]
I am not insulting you or your intellectual abilities. But
the netizens here have a charter, and they adhere to it. You
may not know of it, or you may not have grokked the pilpul
that goes on here. That's okay. But we do expect you to
learn. That's really the only qualification. People who
can learn, and who are willing to learn [whether by their
mistakes or by others'] will get better reactions than those
who insist on ignoring the newsgroup's charter, who insist
that they do not need to learn anything new, or who claim
that they cannot be bothered to read any documentation [no
matter how expansive or enlightening]. People who come here
and say "I read X but didn't understand it, can you explain?"
may be asked "what part didn't you understand" but they can
get help. The docs are intended to *help* people, so if
people can't read them or can't understand them, we want to
know, and we want to patch the docs so they're better.
Hey, am I off-topic enough yet? :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 24 Sep 1999 21:05:29 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: PROBLEM with PERL script in NT platform
Message-Id: <7sgp2p$ac7$1@gellyfish.btinternet.com>
On Thu, 23 Sep 1999 10:22:37 -1000 CyberMart wrote:
> Hi
>
> Can anyone tell me how to solve the below problem.
> I getting an error message Http 403 Forbidden - Execute script error.
> It say- the CGI has no permission for access right.
>
This is a question about server configuration. You will find that
the answer is in the Activestate Win32 FAQ. If you cant find the
answer there then you will want to ask in the right group.
[followups set]
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 24 Sep 1999 20:10:40 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Question from a newbie
Message-Id: <7sgls1$aa7$1@gellyfish.btinternet.com>
On Fri, 24 Sep 1999 19:22:36 +0200 Wimpie wrote:
> Hello everybody,
>
> How can i put the variables from a html form into my perl script??
>
use CGI qw(:standard);
please read the CGI manpage:
perldoc CGI
CGI.pm is a Perl module that will take care of all of the parameter parseing
that you need.
Also please read the CGI FAQ at :
<http://www.webthing.com/tutorials/cgifaq.html>
And the CGI specification at:
<http://hoohoo.ncsa.uiuc.edu/cgi>
If after that and you have some CGI secific questions then you should ask in:
comp.infosystems.www.authoring.cgi
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Fri, 24 Sep 1999 14:23:43 -0400
From: "turboman" <turboman34@hotmail.com>
Subject: remove the html tag in the file
Message-Id: <7sgfib$t84$1@winter.news.rcn.net>
Hi:
Is anyone know how can I use perl to remove all the HTML TAGs in the
html file. Thanks.
------------------------------
Date: 24 Sep 1999 19:35:41 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: remove the html tag in the file
Message-Id: <7sgjqd$pbq@dfw-ixnews21.ix.netcom.com>
turboman (turboman34@hotmail.com) wrote:
: Is anyone know how can I use perl to remove all the HTML TAGs in the
: html file. Thanks.
There's an at-length discussion of this in perlfaq9.
------------------------------
Date: 24 Sep 1999 20:15:42 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: remove the html tag in the file
Message-Id: <7sgm5e$aaf$1@gellyfish.btinternet.com>
On Fri, 24 Sep 1999 14:23:43 -0400 turboman wrote:
> Hi:
> Is anyone know how can I use perl to remove all the HTML TAGs in the
> html file. Thanks.
>
You will find a variety of solutions in perlfaq9 in the section entitled:
How do I remove HTML from a string?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Fri, 24 Sep 1999 14:18:39 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Round off an array?
Message-Id: <x3ybtasw4u8.fsf@tigre.matrox.com>
"HPK" <hanz@chello.nl> writes:
> Can someone tell me how I can round off an array ($) to two numbers after
> the comma?
perlfaq4:
Does perl have a round function?
What about ceil() and floor()?
--Ala
------------------------------
Date: Fri, 24 Sep 1999 13:04:27 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Strict?
Message-Id: <37EBBD2B.6431A802@texas.net>
amerar@ci.chi.il.us wrote:
>
> Hello,
>
> I have the following program:
>
> #!/usr/local/bin/perl
> use strict;
>
> my $yesterday = time - 24 * 60 * 60;
> print +(localtime $yesterday)[6], "\n";
> print substr(localtime $yesterday, 0, 3), "\n";
>
> I am really not sure what this 'use strict' does.
There's a wealth of information at your fingertips.
Start with:
perldoc perl
perldoc perldoc
perldoc perltoc
Then try:
perldoc strict
> #!/usr/local/bin/perl
> use strict;
>
> my $yesterday = time - 24 * 60 * 60;
> print +(localtime $yesterday)[6], "\n";
> $tmp = +(localtime $yesterday)[6];
> print "HI: $tmp\n";
> print substr(localtime $yesterday, 0, 3), "\n";
>
> I get this error:
>
> Global symbol "tmp" requires explicit package name at ./test line 8.
> Execution of ./test aborted due to compilation errors.
>
> I do not understand. Can someone help?
perldoc perldiag
- Tom
------------------------------
Date: Fri, 24 Sep 1999 14:17:50 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Strict?
Message-Id: <x3yd7v8w4vm.fsf@tigre.matrox.com>
"Rasmus Rimestad" <rasmusr@online.no> writes:
> When you are using strict, you will have to declare all variables
> using my or local.
Juse a minor clarification. When using strict, you *have* to declare
all your variables as lexical using my(). The only variables you are
allowed to local()ize are Perl's special global variables. But you
don't have to declare those to use them.
--Ala
------------------------------
Date: Fri, 24 Sep 1999 13:52:11 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Strict?
Message-Id: <37EBE47B.F8C9D612@mail.cor.epa.gov>
Rasmus Rimestad wrote:
>
> When you are using strict, you will have to declare all variables using my
> or local.
[snip]
I'll disagree with your first sentence. I strongly recommend
that beginners not use local() until they understand what it
does and why it is different from my() . local() is needed
whenever one wants to locally scope a global which is not a
scalar, a complete array, or a complete hash [for example,
the input record separator $/ ]. But using local() on a
variable like $tmp is *not* enough to avoid getting an error
[unless the variable has already been declared or imported].
Also, all variables do not have to be declared using my().
Saying
use strict;
or
use strict 'vars';
means that a compile-time error will be generated if you access
a variable which wasn't:
[1] declared via my()
[2] fully qualified
[3] or imported.
So there are other things which can be done. You could instead
say:
use vars '$tmp';
or fully qualify it:
$MyModule::$tmp = 1; # if it lives in MyModule
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 24 Sep 1999 21:04:39 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: Strict?
Message-Id: <HHRG3.4627$2k1.199067@news1.rdc2.on.home.com>
In article <x3yd7v8w4vm.fsf@tigre.matrox.com>,
Ala Qumsieh <aqumsieh@matrox.com> wrote:
!
! Juse a minor clarification. When using strict, you *have* to declare
! all your variables as lexical using my(). The only variables you are
! allowed to local()ize are Perl's special global variables. But you
! don't have to declare those to use them.
! Juse a minor clarification. When using strict, you *have* to declare
! all your variables as lexical using my(). The only variables you are
! allowed to local()ize are Perl's special global variables. But you
! don't have to declare those to use them.
Your clarification is in need of some clarification:
strict does not mean you have to declare all your variables using
my(). You may create lexical variables using my(), or use package
variables either by using the fully::qualified::package::name or by
declaring them with 'use vars'. Package variables may be local()ized.
#!/usr/bin/perl -w
use strict;
use vars qw/$var/;
$var = 'I am a package global';
show_me();
{
local($var) = 'I am localized';
show_me();
}
show_me();
sub show_me {
print "$var\n";
}
__END__
all that said, one is likely better off using lexical variables
unless one has a reason to use package variables.
regards
andrew
------------------------------
Date: Thu, 23 Sep 1999 22:19:36 -0700
From: "Mark Wild" <mark@markwild.com>
Subject: Re: Using Perl to send mail in Windows
Message-Id: <bNEG3.1930$5c2.73924@typhoon-sf.snfc21.pbi.net>
Was looking for this same solution yesterday. Sybex Mastering Perl books
recommends a small module called Sender, which you can find here:
http://jenda.krynicky.cz/#Mail::Sender
Should be simpler than MailTools. Let us know.
--Mark
David Cassell <cassell@mail.cor.epa.gov> wrote in message
news:37EAC2DD.51A3E5B6@mail.cor.epa.gov...
> ldh7@my-deja.com wrote:
> >
> > I am currently working on a project where I am
> > trying to send email from a server running on
> > Windows 98 and/or Windows NT. I would like to
> > use Perl 5.0 to send the mail; however, I am
> > having a bit of difficulty in creating the proper
> > program. I tried using "Blat" but I could not
> > get my code to work properly. However, I would
> > prefer just to use the "sendmail" feature of
> > Windows with Perl script rather than an external
> > product such as "Blat".
>
> You can't 'use the sendmail feature of Windows' unless your
> system has sendmail on it, can you? Most Win32 systems don't.
>
> But you can use Mail::Mailer on a win32 system, just
> as you can on a unix box. It's part of the MailTools
> module. And it needs the libnet bundle in order to
> run, since it uses Net::SMTP .
>
> HTH,
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
------------------------------
Date: Fri, 24 Sep 1999 13:35:06 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: using System function to run other programs
Message-Id: <37EBE07A.F7EDA417@mail.cor.epa.gov>
Yaron Cohen wrote:
>
> im using the System function to run visual basic from perl.
ooh. You have my sympathies.
> the arguments i pass to function are: "c:\program files\devstudio\vb\vb.exe"
> "c:\temp\myproject.vbp" /make
> for some reason NT has problems with having 2 arguments in quotes-(on 95 and
> 98 it works fine).
Interesting. Usually the complaints go in the other direction.
But Perl should be handling those double quotes, not NT's
shell. So I don't see that as the problem.
Can you show the exact code you use, along with the error
message you get back from your error-checking? I mean, you
are using error-checking here, aren't you?
Well, just in case you didn't, you ought to have something
like:
system("whatever" "goes" "here") && die "system failed: $?\n";
or
system("whatever" "goes" "here") == 0 or die "system failed: $?\n";
I prefer the first form, the notorious "Rosler Idiom". :-)
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 24 Sep 1999 18:35:17 GMT
From: sortltd@my-deja.com
Subject: Validating forms in javascript before cgi script runs
Message-Id: <7sgg93$gc9$1@nnrp1.deja.com>
When I run the code below, the perl program runs even though the
javascript validation shows that the drop down is not selected properly.
What am I doing wrong ?
<script language="JavaScript">
<!--
wait = 0;
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function validate() {
returntype = false;
// check for null values
if (document.ff00.source
[document.ff00.source.selectedIndex].value == "wait") {
document.ff00.source.focus();
return alert ("Please let us know how your heard about
us.");
return false;
}
if (document.ff00.sort_service_type
[document.ff00.sort_service_type.selectedIndex].value == "wait") {
document.ff00.sort_service_type.focus();
return alert ("Please confirm which Financial Decision
Service you wish to purchase.");
return false;
}
if (!wait) {
alert("You are now ready to complete your Fact Find.");
wait = 1;
var test = "no";
return true;
} else {
return false;
}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<FORM name="ff00" action="http://cgi.www.demon.net/cgi-
bin/www.sort.co.uk/factfind.pl" onSubmit="validate()" form
method="post">
Thanks for your help
Paul@Sort
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 24 Sep 1999 13:26:45 -0700
From: cLive hoLLoway <cLive@direct2u.co.uk>
To: sortltd@my-deja.com
Subject: Re: Validating forms in javascript before cgi script runs
Message-Id: <37EBDE85.B3256665@direct2u.co.uk>
This is not Perl. I suggest you try comp.lang.javascript
sortltd@my-deja.com wrote:
> <FORM name="ff00" action="http://cgi.www.demon.net/cgi-
> bin/www.sort.co.uk/factfind.pl" onSubmit="validate()" form
> method="post">
or change your onSubmit to onSubmit="return validate()", and remember to
try the javascript newsgroup next time...
cLive ;-)
------------------------------
Date: 24 Sep 1999 20:22:47 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Validating forms in javascript before cgi script runs
Message-Id: <7sgmin$aai$1@gellyfish.btinternet.com>
[Added comp.lang.javascript - followups set]
In comp.lang.perl.misc sortltd@my-deja.com wrote:
> When I run the code below, the perl program runs even though the
> javascript validation shows that the drop down is not selected properly.
>
> What am I doing wrong ?
>
Asking this question in a Perl newsgroup was the first problem.
> <script language="JavaScript">
> <!--
>
> wait = 0;
>
> function MM_openBrWindow(theURL,winName,features) { //v2.0
> window.open(theURL,winName,features);
> }
>
> function validate() {
>
> returntype = false;
>
> // check for null values
> if (document.ff00.source
> [document.ff00.source.selectedIndex].value == "wait") {
> document.ff00.source.focus();
> return alert ("Please let us know how your heard about
> us.");
> return false;
> }
> if (document.ff00.sort_service_type
> [document.ff00.sort_service_type.selectedIndex].value == "wait") {
> document.ff00.sort_service_type.focus();
> return alert ("Please confirm which Financial Decision
> Service you wish to purchase.");
> return false;
> }
>
> if (!wait) {
> alert("You are now ready to complete your Fact Find.");
> wait = 1;
> var test = "no";
> return true;
> } else {
> return false;
> }
> }
>
> //-->
> </script>
> </head>
>
> <body bgcolor="#FFFFFF">
>
> <FORM name="ff00" action="http://cgi.www.demon.net/cgi-
> bin/www.sort.co.uk/factfind.pl" onSubmit="validate()" form
> method="post">
There is no Perl question here - you should have asked in the correct
newsgroup in the first place.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 24 Sep 1999 18:03:55 GMT
From: "developer" <fbagncy@voyager.net>
Subject: WebTV and Perl CGI
Message-Id: <37ebbd0b$0$10179@news.voyager.net>
I am using several cgi scripts to present a form, preview the form and send
the contents of the form to the proper party.
The preview cgi, formats the body of the email (including newlines) to a
variable and includes that as part of a POST method call.
The send cgi is then available to receive a number of different formats and
just deal with the send and error handling.
It works great....in IE or Netscape, but in WebTV all the newlines are
missing and the body appears as a single run-on string when the email is
received.
My Question: Is WebTV handling the variable space for the POST differently
(e.g. like stripping newlines)? Or am i on the wrong track here.
------------------------------
Date: Fri, 24 Sep 1999 13:21:44 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Win32::ODBC.pm hangs CGI.pm under Apache
Message-Id: <37EBDD58.F6A34146@mail.cor.epa.gov>
p.scott@shu.ac.uk wrote:
>
> I think I've sorted this out. ODBC isn't -w safe and it puts out
> an error message per database row. If there enough rows the CGI
> script hangs forever.
As I understand it, there is an uninitialized variable in the
subroutine GetData. You can either open up the module and
patch it yourself [I think you only need to give $num an initial
default value of zero], or you can do this dirty trick:
$^W=0; # turn off -w
...
calls to GetData go here
...
$^W=1; # turn warnings back on
Pretty ugly, huh?
> Is this documented? Where should it be documented?
I only found out about it while reading the mailing lists
for ActiveState Perl. So I guess it is not adequately
documented.
But it ought to be covered at Dave Roth's website. You
could check there.
http://www.roth.net/
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 24 Sep 1999 18:29:19 GMT
From: dpekkarinen@latinschool.org
Subject: Windows NT 4.0 Scripting
Message-Id: <7sgftd$g5n$1@nnrp1.deja.com>
I want to create a script which will edit permissions on a multitude of
directories (each directory with a unique set of permissons). Has anybody
tried this before?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 24 Sep 1999 12:55:13 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: You should be admired, or What does this have to do with Perl?
Message-Id: <37EBD721.B4F0888E@mail.cor.epa.gov>
Elaine -HFB- Ashton wrote:
>
> David Cassell wrote:
> > But after you try to be nice to a few confused posters and get nasty
> > "YOU SUCK YOU ARROGANT ASSHOLE" e-mails for your efforts, you may
> > feel a little differently.
>
> Damn, isn't that the truth? I cruise the crusty old Unix admin groups
> for warm fuzzies anymore.
It's odd. I get more thanks.. but now and then I give what I
think is a helpful answer, and get flamed. For what, I'm not
quite sure. Perhaps not spoon-feeding sufficiently.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
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 902
*************************************
