[7356] in Perl-Users-Digest
Perl-Users Digest, Issue: 981 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 5 12:17:40 1997
Date: Fri, 5 Sep 97 09:00:23 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 5 Sep 1997 Volume: 8 Number: 981
Today's topics:
Re: CGI Will not recognise if or unless statements. (brian d foy)
Re: complex pattern?!? it shouldn't be, i think :) <rootbeer@teleport.com>
Re: complex pattern?!? it shouldn't be, i think :) <merlyn@stonehenge.com>
Re: form <rootbeer@teleport.com>
Free Perl Docs (was: Re: (no subject) ) <rootbeer@teleport.com>
Re: HELP: How can I clear <STDIN> ? <rootbeer@teleport.com>
Re: How does split find its argument? <rootbeer@teleport.com>
Re: Learning perl <jeff@webdesigns1.com>
Re: Learning perl (Ronald L. Parker)
Re: Looking for PERL pattern to match nested braces. <rootbeer@teleport.com>
MIME and perl <weav@plover.havant.ibm.com>
Re: newbie: how do I break a WHILE loop? (William Wue(2xP)elma(2xN))
oraperl on perl 5? (Michael Ward)
Re: Patternmatching with arrays (William Wue(2xP)elma(2xN))
Re: Perl on win32 book (Scott McMahan)
Re: Perl's support on Win NT (Erik Y. Adams)
Re: Perl's support on Win NT (Ronald L. Parker)
Re: perl/msql <scott_spam_stinks_@saskatoon.com>
Re: run two action <rootbeer@teleport.com>
Re: Setting the TZ time variable within Perl (Will Morse)
Re: Simple Perl for Win 32 Question (not in FAQ) (Ronald L. Parker)
SUID Problems forster@na-cp.rnp.br
Win32 Perl, MSWorks and OLE. <aph@mail.roxby.net.au>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 05 Sep 1997 11:25:47 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: CGI Will not recognise if or unless statements.
Message-Id: <comdog-ya02408000R0509971125470001@news.panix.com>
In article <34101EB5.615BCEF8@acay.com.au>, Dexter Plameras <dexterp@acay.com.au> wrote:
>I am having Trouble composing a cgi script in perl with if or unless
>statements.
>This is the code excert of the code that is causeing the problem.
>
> if(!defined($Username)
> {
> &err("$Param1","$ETC1","ETC2"); # &err Prints a cgi form
> }
>
>When running the Code on the command line it runs fine it produces html
>formatted documents.
that runs fine? are you sure? looks like you are missing a closing
")" for the if. did you enable warnings and check syntax?
start your CGI scripts like so:
#!/usr/bin/perl -wT
# w enables warnings
# T enables taint checking
use strict; # catch our errors!
and your life will be much easier :)
>
>But when running the form on the web it returns
>
> 500 Server error
what does the error log say? what did you find out when you used
the Perl CGI troubleshooting guide [1]?
good luck :)
[1] notice to the new URL:
<URL:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
--
brian d foy <comdog@computerdog.com>
------------------------------
Date: Fri, 5 Sep 1997 07:30:54 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Markus Moll <markus.moll@off1.siemens.de>
Subject: Re: complex pattern?!? it shouldn't be, i think :)
Message-Id: <Pine.GSO.3.96.970905072521.15349M-100000@julie.teleport.com>
On Fri, 5 Sep 1997, Markus Moll wrote:
> So all you have to do is to first substitute all comments like this :
>
> $Scalar =~ s/(<!--)(.*?)(-->)//g;
The syntax for comments isn't that simple. (Not that every browser
author understands this stuff! :-)
<!-- This is a valid HTML comment > --
-- still a comment ---->
STILL part of the comment! --
>
Unless, of course, I've misunderstood the RFC. :-) Keep trying!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 05 Sep 1997 08:10:59 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: markus.moll@off1.siemens.de
Subject: Re: complex pattern?!? it shouldn't be, i think :)
Message-Id: <8cvi0fvlrw.fsf@gadget.cscaper.com>
>>>>> "Markus" == Markus Moll <markus.moll@off1.siemens.de> writes:
Markus> Eli the Bearded wrote:
>> Have some more valid HTML comments to play with (each is single
>> line for readibility, do not assume it will be so in a web page):
>>
>> <!-- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -->
>> <!-- <<<<<<<<<<<<<<<!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -->
>> <!-- <<< -- -- >>!!>> ---- <<<<<<<<<<<<<<<<<<<<<<<<<! -->
>> <!-- <"< -- -- ">">"> ---- <<<""<<<<<<!<<<<<<----<<<< -->
>> <!-- <-> -- -- <----< ---- >----> ---- <----< ---- >> -->
>>
Markus> Why that's cheating !What's that last line doing there? D'you
Markus> know how Netscape Navigator 4.01 prints this ? It showed me :
Markus> ---- <----< ---- >> -->
Markus> in the browser window. So why should a small program/script
Markus> treat this right if big Netscape can't ! The only answer I can
Markus> imagine is that this tag is NOT a valid HTML-tag !!!!!!!!!!
That last line is *certainly* a valid single HTML comment. If your
precious Netscape cannot parse it, I suspect you have a bug report to
submit to Netscape Corp.
I've occasionally been tempted to put into my home page:
<!-- -- -->
If you see this, you have a buggy browser. Perhaps you should
<A HREF="http://lynx.browser.org/">upgrade to Lynx</A>?
<!-- -- -->
But I think that would just upset the 80% of the visitors to my site
that thought they had a good browser. :-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 361 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Fri, 5 Sep 1997 07:06:59 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: dianne <dianne@jot.nb.ca>
Subject: Re: form
Message-Id: <Pine.GSO.3.96.970905070448.15349J-100000@julie.teleport.com>
On 4 Sep 1997, dianne wrote:
> Subject: form
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I'm doing an on-line registration form,
> is perl the best way to go
Almost always.
> or is there another route?
Almost always. :-)
> If so, can anyone point me to a quick-n-dirty reference or a good
> manual? As usual, I needed it for yesterday.
Then you should have learned Perl yesterday. :-) But go buy the new Llama
and Camel books at your favorite bookstore, and start reading the Llama.
Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 5 Sep 1997 07:12:38 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Erich Kreiselmaier <erich@flm.mw.tu-muenchen.de>
Subject: Free Perl Docs (was: Re: (no subject) )
Message-Id: <Pine.GSO.3.96.970905070918.15349K-100000@julie.teleport.com>
On Fri, 5 Sep 1997, Erich Kreiselmaier wrote:
> I am new to perl programming. Does anyone have a recommendation for
> free available documentation.
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq2/
Where_can_I_get_information_on_P.html
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 5 Sep 1997 07:01:42 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Weihan Chang <han@dataprompt.com>
Subject: Re: HELP: How can I clear <STDIN> ?
Message-Id: <Pine.GSO.3.96.970905065827.15349G-100000@julie.teleport.com>
On Fri, 5 Sep 1997, Weihan Chang wrote:
> My perl script will read 'y' or 'n' from key board in the middle of
> execution by doing:
>
> $answer = <STDIN>;
You may find something helpful in these two answers from the FAQ.
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq5/
How_can_I_read_a_single_characte.html
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq5/
How_can_I_tel_if_there_s_a_char.html
> Before the script reach this statement, operator might accedentally
> touch the Enter key or space bar and thus make $answer contain
> ' y\n' or just a '\n'. Neither case would $answer equals to 'y'.
Maybe you want a regular expression to identify what the user typed in?
But if you're really that worried about what happens if the user types a
mistake, use something more than one keypress to decide what to do. Hope
this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 5 Sep 1997 07:23:52 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Jahwan Kim <jahwan@supernova.math.lsa.umich.edu>
Subject: Re: How does split find its argument?
Message-Id: <Pine.GSO.3.96.970905071506.15349L-100000@julie.teleport.com>
On 5 Sep 1997, Jahwan Kim wrote, concerning spliting on a listref instead
of a pattern:
> Question again: How does perl treat this anonymous array reference in
> this case? Convert it to string? What happens, I think, is undocumented
> (and doesn't need to be documented).
I think it's converting it to a string, but I'd have to do some pretty
tricky stuff to be sure.
> One more question, if I may:
>
> % perl -wne 'print split a if /^alias/' <<TEXT
> alias this1that
> TEXT
> Unquoted string "a" may clash with future reserved word at -e line 1.
> lis this1tht
>
> Good! I get warning!
Yes; in this case you could have meant to split on the output of the
(nonexistant) 'a' built-in function, or the output of &a, or the string
'a'. That's pretty ambiguous!
> % perl -wne 'print split s1 if /^alias/' <<TEXT
> alias this1that
> TEXT
> alias thithat
>
> No warning? Is there a promise that no new perl functions will contain
> numbers in it, or is there some explanation why there's no warning?
I don't think there's an explicit promise, but I think that Perl figures
that if you wanted &s1, you would have defined it, and that if you wanted
a builtin called s1, you would have run a version of Perl which included
that builtin. :-) The warning about 'future reserved words' just looks
for things which "look like" current reserved words. (But 'use strict
qw(subs)' will make it a fatal compile-time error to call a misspelled sub
name, which s1 would be deemed in this case.)
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 5 Sep 1997 09:49:29 -0500
From: "Jeff Oien" <jeff@webdesigns1.com>
Subject: Re: Learning perl
Message-Id: <5up5uk$fvp@newsops.execpc.com>
I have a site called Perl Primer which may help you get started:
http://www.webdesigns1.com/perl/
--
Jeff Oien, WebDesigns
http://www.webdesigns1.com/
jeff@webdesigns1.com
Erich Kreiselmaier wrote in article <340FA7C7.4A37@flm.mw.tu-muenchen.de>...
>
>I am new to perl programming. Does anyone have a recommendation for
>free available documentation or a good book.
>
>Thanks
>
>Erich
>--
>===========================================================================
===
> ------- | | |\ /| Erich Kreiselmaier
> | | | | \/ | TU Muenchen
> | | | | | Lehrstuhl fuer Fluidmechanik
> | | | | | 85747 Muenchen
> | \___/ | |
>
> Tel: (49) 89 289 16125
> Fax: (49) 89 289 16151
> e-mail: erich@flm.mw.tu-muenchen.de
> WWW: http://www.flm.mw.tu-muenchen.de/~erich
>===========================================================================
===
------------------------------
Date: Fri, 05 Sep 1997 14:51:39 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: Learning perl
Message-Id: <34121b97.7520047@news.supernews.com>
On Fri, 05 Sep 1997 08:33:43 +0200, Erich Kreiselmaier
<erich@flm.mw.tu-muenchen.de> wrote:
>
>I am new to perl programming. Does anyone have a recommendation for
>free available documentation or a good book.
For free documentation, grab the 5.004 Perl and start reading the tons
of free documentation that is included. If you prefer PDF to man
pages, go get all the 5.004 documentation in one big PDF file from:
ftp://ftp.digital.com/pub/plan/perl/CPAN/authors/id/BMIDD/perlbook-5.004_01.tar.gz
If you prefer dead trees, look no further than the subject line of
your post. Learning Perl, affectionately known as the Llama book for
the picture on the cover, is your best bet. It's written by Randal
Schwartz and published by O'Reilly and Associates, and is available at
any good bookstore (carrying O'Reilly books is the definition of a
good bookstore) See http://www.ora.com for more.
--
Ron Parker
Software Engineer
Farm Works Software Come see us at http://www.farmworks.com
For PGP public key see http://www.farmworks.com/Ron_Parker_PGP_key.txt
------------------------------
Date: Fri, 5 Sep 1997 07:41:11 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: David Corbin <david@csol.com>
Subject: Re: Looking for PERL pattern to match nested braces.
Message-Id: <Pine.GSO.3.96.970905074029.15349P-100000@julie.teleport.com>
On Fri, 5 Sep 1997, David Corbin wrote:
> I would like to be able to match nested open-close brace pairs, and
> anything in between.
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq6/
Can_I_use_Perl_regular_expresio.html
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 05 Sep 1997 15:25:26 +0100
From: Nick Weavers <weav@plover.havant.ibm.com>
Subject: MIME and perl
Message-Id: <34101656.73E7F29B@plover.havant.ibm.com>
<HTML>
Is there some way of coding a MIME record into a perl script so that
<BR>it can be matched with a browser helper without using either the .pl
<BR>file extension or placing it in a cgi-bin directory?
<PRE>--
Nick Weavers, IBM SSD, Havant, PO9 1SA, UK. e-mail: weav@hursley.ibm.com
Tel: 011-44-(0)1705-486363 ext 5121 Fax: 011-44-(0)1705-499278</PRE>
</HTML>
------------------------------
Date: Fri, 05 Sep 1997 15:16:31 GMT
From: williamw@rooster.igs.deleteTheRooster.net (William Wue(2xP)elma(2xN))
Subject: Re: newbie: how do I break a WHILE loop?
Message-Id: <341020e9.7854610@news.igs.net>
On 4 Sep 1997 18:57:31 GMT, Bob Shair (courtesy)
<rmshair@delphi.beckman.uiuc.edu> wrote:
>
>Kenneth Vogt <KenVogt@rkymtnhi.com> wrote:
> Here's my code:
>
> open (CATEGORIES, "$category_file") || &file_open_error('File',
> "$category_file", 'product_header', __FILE__, __LINE__);
>CATS: while (<CATEGORIES>) #<========
...
> last CATS; #<========
> }
> }
> close (CATEGORIES);
If you're going to use a label, you might as well use a goto.
-------------------------
William Wue(2xP)elma(2xN)
Reply-To: williamw (at) igs (dot) net
--------------------------------------------------------------
It is pitch black. You are likely to receive spam from a grue.
------------------------------
Date: Fri, 05 Sep 1997 06:51:58 -0700
From: mward@veelos.com (Michael Ward)
Subject: oraperl on perl 5?
Message-Id: <mward-ya023580000509970651580001@SanFrancisco01.news.Internex.Net>
Has anyone been able to use oraperl with perl 5? I'm getting errors caused
by the lack of .o files that don't exist in this version.
--
Michael Ward
wilson@veelos.com
------------------------------
Date: Fri, 05 Sep 1997 15:16:30 GMT
From: williamw@rooster.igs.deleteTheRooster.net (William Wue(2xP)elma(2xN))
Subject: Re: Patternmatching with arrays
Message-Id: <34101baf.6515997@news.igs.net>
On Wed, 03 Sep 1997 15:20:37 GMT, colte@hem.passagen.se (Robert)
wrote:
>open (OLD, "$REAL") || die ("couldnt open file for reading");
>@search_array = <OLD>;
> while (<OLD>) {
> if ($search_array =~ "/<!-- $TIME $ROOM --!>/\n") {
if you change these two lines to
foreach (@search_array) {
if(m/$TIME $ROOM/) {
it should work (assuming you're looking for any line with the string
"$TIME $ROOM" in it. Otherwise, you'll need to be more specific in
your match criteria).
-------------------------
William Wue(2xP)elma(2xN)
Reply-To: williamw (at) igs (dot) net
--------------------------------------------------------------
It is pitch black. You are likely to receive spam from a grue.
------------------------------
Date: 5 Sep 1997 14:09:06 GMT
From: scott@lighthouse.softbase.com (Scott McMahan)
Subject: Re: Perl on win32 book
Message-Id: <5up3q2$3pa$2@mainsrv.main.nc.us>
Jonathan Tracey (jont@uunet.pipex.com) wrote:
: There is now a perl for win32 book available form O`reilly its a rewrite of
: the learning perl (llama) book and is very good for NT perl people
I don't think it is available yet. It's been preannounced.
Scott
------------------------------
Date: Fri, 05 Sep 1997 06:53:15 -0800
From: erik@earthlink.net (Erik Y. Adams)
Subject: Re: Perl's support on Win NT
Message-Id: <erik-ya023180000509970653150001@news.earthlink.net>
In article <5uorru$23l$2@mainsrv.main.nc.us>, scott@lighthouse.softbase.com
(Scott McMahan) wrote:
<snip>
> www.perl.hip.com
Actually, its www.activeware.com now (but I think www.perl.hip.com still works)
>
> While Perl is available, Perl + CGI + NT is a total loss and will
> frustrate you to no end. There's no documentation on it that
> I've ever seen, and it works poorly.
>
This is misleading and untrue. I have been doing CGI under NT, and
wouldn't want to use any of the alternatives (like VBScript).
ActiveWare has made some IIS-specific Perl tools. First, there is PerlIS,
which runs as a DLL under IIS, and provides better performance than with
the standard EXE. There's also PerlScript, a product for writing ASPs in
Perl.
There are also NT ports of several very useful Perl modules, such as the GD
library and an ODBC module that I think is faster than MS's much-beloved
ADO.
It's true that there's no documentation for PerlIS, and running CGI under
it is a little different than running straight Perl. There's also little
or no documentation for PerlScript. However, there are lots of web pages
that discuss these issues.
It's also true that NT isn't Unix, and many of the tricks you can rely on
in Perl-on-Unix won't work in Perl-on-NT. Backticks are notoriously weird,
shell commands are generally not available or don't work the same way, the
whole binary / text file thing, and so on.
Finally, some (many?) modules on CPAN don't work under NT out of the box,
though now that the standard distribution will compile under NT, even
that's less true.
Anyway, check out ActiveWare's site, read the FAQ, poke around the
Internet, and try it out. I think you'll find that Perl is definately
better than any of the other options available for NT.
Erik
------------------------------
Date: Fri, 05 Sep 1997 14:47:10 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: Perl's support on Win NT
Message-Id: <3411179b.6499050@news.supernews.com>
On 5 Sep 1997 11:53:34 GMT, scott@lighthouse.softbase.com (Scott
McMahan) wrote:
>Larry Nguyen (Larry_P_Nguyen@qmail2.sp.trw.com) wrote:
>: I'm in the process of selecting a computer language/tool to write CGI
>: programs. Could some one please let me know what are the best choices
>: now? How is Perl supported on the Win NT platform? How do I get/purchase
>: the software?
>
>www.perl.hip.com
>
>While Perl is available, Perl + CGI + NT is a total loss and will
>frustrate you to no end. There's no documentation on it that
>I've ever seen, and it works poorly.
Wrong, wrong, wrong. Perl works as well on NT as it does on Unix,
modulo a couple little things that Unix does that NT doesn't (forks
and signals.) Perhaps the "total loss" part of what you mentioned is
your web server. I've had nothing but happiness from O'Reilly WebSite
and the ActiveWare port of Perl. I've had even more happiness with
Gurusamy Sarathy's build of the Perl5-porters port of Perl 5.004_02.
I can even take the scripts I run under WebSite and move them
_unmodified_ to our production Unix/Apache server. Try that with
Active Server Pages or whatever crap Microsoft is shoveling these
days.
Oh, and let's not forget that Perl is free, and it comes with tons of
free documentation. The ActiveWare Perl comes with all the info
you'll ever need on using it with IIS or even with a real server.
Sarathy's buid comes with every module you'll ever need, prebuilt and
ready to use, with complete documentation, including the elusive GD to
create GIF images on the fly. With CGI.pm (included with Perl 5.004)
Perl even does most of the hard CGI work for you.
And, as if all that weren't enough, Perl isn't even a "web" language.
I started using Perl to do CGI scripts, but I liked it so much that I
now use it for nearly everything I need a quick little program for.
--
Ron Parker
Software Engineer
Farm Works Software Come see us at http://www.farmworks.com
For PGP public key see http://www.farmworks.com/Ron_Parker_PGP_key.txt
------------------------------
Date: Fri, 05 Sep 1997 08:48:47 -0600
From: Scott Walde <scott_spam_stinks_@saskatoon.com>
Subject: Re: perl/msql
Message-Id: <34101BCF.12B3A0FB@saskatoon.com>
Nigel Reed wrote:
> use Msql;
>
> $hdr = Msql->connect; #if it's on the local host
> $hdr -> selectdb ("dbname"); #put the database name in here
> $qry = $hdr->query("select * from table where column='value'");
> $numrows = $qry->numrows; #see how many rows we have
> if ($numrows > 0) {
> for ($cnt = 1; $cnt < $numrows; $cnt++) { #I love for loops!
> @row = $qry->fetchrow; #put the row into a scaler
> print $row[0], " ", $row[3],"\n"; #print some data!
> }
> }
> There ya go, That'll work. I would guess you have a type where the
> variable $hdr or $qry is as I've fallen foul of that before.
That'll work, but you can make the loop simpler yet like this:
while(@row = $qry->fetchrow)
{
print $row[0], " ", $row[3],"\n";
}
This saves you a couple variables and several lines of code.
ttfn
srw
p.s. remove the spam stinks bit from my email if you wish to email me,
unless you're a spammer, of course.
------------------------------
Date: Fri, 5 Sep 1997 07:04:16 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Sue Chen <sue_chen@ix.netcom.com>
Subject: Re: run two action
Message-Id: <Pine.GSO.3.96.970905070249.15349I-100000@julie.teleport.com>
On Thu, 4 Sep 1997, Sue Chen wrote:
> Does anybody know how to call two actions in the form submit?
If it's possible (and I'm not saying whether it is or not) it depends upon
things other than Perl, since the "actions" may have nothing to do with
Perl. Maybe you can get a better and more complete answer to this question
if you ask it in a web- or CGI-related newsgroup, especially if you check
that newsgroup's associated docs and FAQs before posting. Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 5 Sep 1997 10:39:13 -0500
From: will@Starbase.NeoSoft.COM (Will Morse)
Subject: Re: Setting the TZ time variable within Perl
Message-Id: <5up931$qbf$1@Starbase.NeoSoft.COM>
$ENV{TZ} = "CST-9:30CDT";
Will
In article <0214259b$7520ee40$c8855c8f@ninofior>,
Nino Fioretti <ninofior@adel.tafe.sa.edu.au> wrote:
>My web server is located in a different time zone to me and when my various
>CGI scripts send email I get the local Web Server time. Can someone tell me
>how I can set a different time setting to the one in the server. The server
>has an environment variable TZ=EST5EDT, whilst my local time has a setting
>TZ=CST-9:30CDT.
>How can I make this setting from within a CGI script?
>Any ideas?
>
>
>Regards,
>
>Nino
>
>
--
# Copyright 1997 Will Morse. Internet repost/archive freely permitted.
# Hardcopy newspaper, magazine, etc. quoting requires permission.
#
# Gravity, # Will Morse
# not just a good idea, # Houston, Texas
# it's the law. # will@starbase.neosoft.com
#
# These are my views and do not necessarly reflect anyone else/
=========================================================================
By US Code Title 47, Sec.227(a)(2)(B), a computer/modem/printer
meets the definition of a telephone fax machine. By Sec.227(b)
(1)(C), it is unlawful to send any unsolicited advertisement to
such equipment, punishable by action to recover actual monetary
loss, or $500, whichever is greater, for EACH violation.
=========================================================================
------------------------------
Date: Fri, 05 Sep 1997 14:19:30 GMT
From: ron@farmworks.com (Ronald L. Parker)
Subject: Re: Simple Perl for Win 32 Question (not in FAQ)
Message-Id: <34101479.5697072@news.supernews.com>
>>>>>$filename =~ /^(.+\\)(.*)$/; # <-- extracts path and filename into $1
>>>>> # and $2
>>>>>
>>>>>$fpath = $1;
>>>>>$fname = $2;
>>>>
>>>>Doesn't work for $filename eq '\\autoexec.bat'
>>>>
>>>Oops. You're right. Take out the ^ anchor.
>>
>>Actually, you need the ^ anchor. Change the + to a *.
>>
>
>Why do I need the anchor at the beginning? The '.' matches anything,
>so it will start matching at the beginning, and continue until the
>backslash is reached (again, assuming there will be a backslash).
That makes two of us who were horribly confused. I guess you don't
need the anchor, but I have heard somewhere that it makes things
happen faster, though I also heard that Perl puts it there if it isn't
there already in such cases.
--
Ron Parker
Software Engineer
Farm Works Software Come see us at http://www.farmworks.com
For PGP public key see http://www.farmworks.com/Ron_Parker_PGP_key.txt
------------------------------
Date: Fri, 05 Sep 1997 10:02:04 -0600
From: forster@na-cp.rnp.br
To: forster@na-cp.rnp.br
Subject: SUID Problems
Message-Id: <873471139.20147@dejanews.com>
Hello All!
I have a problem and would like if anyone could help me.
I made a script that should be run via mail alias, and it works ok, but
when I turn on the SUID, I receive a mail from mailer-daemon full of error
messages.
I checked the script and I got this:
unix# perl -c dispsol.pl
Value of <HANDLE> construct can be "0"; test with defined() at dispsol.pl
line 4.
dispsol.pl syntax OK
unix# chmod 6755 dispsol.pl
unix# perl -c dispsol.pl
Args must match #! line at dispsol.pl line 1.
unix#
Does anyone here have any tips for me?
TIA
Antonio Forster
PS: please reply via mail. I dont have full access to newsgroup.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 4 Sep 97 11:37:48 GMT
From: "Chris Lyons" <aph@mail.roxby.net.au>
Subject: Win32 Perl, MSWorks and OLE.
Message-Id: <01bcb927$c2a53000$426938cb@shaka.roxby.net.au>
I have a client that sends me a spreadsheet on a regular basis. I'd like
to process the data in the spreadsheet so it more suited to my means, and
I've built a perl script to do so. The problem is that the spreadsheet is
in Excel format, a format that doesn't seem to be documented in the
resources available to me, and hence I can't run the perl script without
first saving the data in a text format. I'd like to avoid this step, and
thought using the OLE extension to ActiveWare's perl would allow me to
control MSWorks4.0 enough to open the file and export it as text. While I
can start MSWorks using OLE in perl, I can't figure out how to control it.
This is the extent of my perl/OLE script at this point:
use OLE;
$application = CreateObject OLE 'MSWorks.Application.4' || die $!;
Anybody know how I can find out what the names of the functions that are
available in MSWorks?
Any help appreciated.
Thanks,
Chris.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 981
*************************************
