[8917] in Perl-Users-Digest
Perl-Users Digest, Issue: 2534 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 7 18:07:53 1998
Date: Thu, 7 May 98 15:01:50 -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 Thu, 7 May 1998 Volume: 8 Number: 2534
Today's topics:
Re: How to Schedule Program Execution <jhoglund@mirage.skypoint.net>
Re: Looking for Perl parser for 'C' language input file <donham@linex.com>
Re: Padding a string to be a fixed length <jhoglund@mirage.skypoint.net>
Passing long command line to shell, best way? (Chris Sherman)
Perl in background <muinhos@iname.com>
Re: Perl in background <rootbeer@teleport.com>
Re: perl scripts dealing with /etc/passwd <alpaca@iname.com>
Re: Perl Win NT <andy@interactive.net>
Perl, SSI, and Cookies <a.r.mccoy@larc.nasa.gov>
Re: pop/push,shift/unshift ????? <rootbeer@teleport.com>
Re: pop/push,shift/unshift ????? (Brian DeRosa)
Re: pop/push,shift/unshift ????? (Gabor)
Re: pop/push,shift/unshift ????? (Craig Berry)
Re: Problem with taint on perl 5.004_04 Solaris 2.6 <Elan_Kaplan@globalcenter.net>
Symbolic References <aqumsieh@matrox.com>
Re: Symbolic References <aqumsieh@matrox.com>
Re: Unable to use CPAN.pm through firewall (Nathan V. Patwardhan)
Where can I download Perl interpreter? <phengl@ir-optima.com>
WIN32 tee command <dennis.kowalski@daytonoh.ncr.com>
win32, cgi run from dos David@iqtexas.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 May 1998 20:48:31 GMT
From: Jamie Hoglund <jhoglund@mirage.skypoint.net>
Subject: Re: How to Schedule Program Execution
Message-Id: <6it6mv$ie7$1@shadow.skypoint.net>
Tom Phoenix <rootbeer@teleport.com> wrote:
: In sum, the only real solution is to find a system administrator who lets
: you run cron, or the equivalent. Hope this helps!
I agree in philosophy, but in reality, systems that allow access to cron
are kind of hard to come by these days. When I was looking for someone to
host a web page, thats one of the questions I asked. The answer was always
"no" or "We'd have to set it up for you." ISP's that were really good in
other areas, so I had to settle on one.
I can't really imagine why a sysadmin wouldn't allow it, (or at least
controllled access to it, say maybe requiring it to run at an extremely
low priority as it should anyway since cron jobs tend to be cpu bound.)
Cron is a good thing. Maybe to prevent *everyone* from scheduling
something to run at say "midnight"? (hmm.. here's a project, some sort of
cron that looks for an available time slot that other jobs aren't being
run at and assigns it, I wonder if ISP's would allow cron if such a thing
existed? (does such a thing exist, and is this why so few ISP's allow
cron?)
The reality is that very few ISP's allow access to cron. Anyone have a
haunch as to why this is?
Jamie.
------------------------------
Date: 07 May 1998 14:29:07 -0700
From: Jake Donham <donham@linex.com>
Subject: Re: Looking for Perl parser for 'C' language input files
Message-Id: <m33eel4voc.fsf@hesperus.np.dnai.com>
"James" == James O Payne, <jpayne@us.oracle.com> says:
James> Hello. I have a requirement to write a utility to do some
James> not-so-simple search, modify, and replace type work on a
James> large base of 'C' code.
James> I wish to avoid lex and yacc due to the additional
James> complexities that writing this utility in 'C' will add to
James> my task. I know that I can call 'C' routines from Perl but
James> I am looking at that as an unattractive scenario also.
You can write yacc parsers in Perl, and you should be able to find a
yacc grammar for C on the net (I see them mentioned on comp.compilers
sometimes). See
http://www.perl.com/CPAN/authors/id/JAKE/perl5-byacc-patches-0.6.tar.gz
Jake
------------------------------
Date: 7 May 1998 21:40:57 GMT
From: Jamie Hoglund <jhoglund@mirage.skypoint.net>
Subject: Re: Padding a string to be a fixed length
Message-Id: <6it9p9$ie7$5@shadow.skypoint.net>
Mad Max <needcrew@tiac.net> wrote:
: I am new to perl and am trying to figure out how to pad a string with spaces
: to be a fixed length. I.E.
: $data = "My test String";
: $leftOver = length($data) - $maxLength
: I then want to add $leftOver number of spaces to the string.
I usually use something like:
$string = pack('A5',$string);
The catch is that you can't seem to do it dynamically,
pack("A $len",$string) doesn't appear to work, but:
$packstring = 'A' . $len;
$string = pack($packstring,$string);
Seems to work OK.
Jamie
------------------------------
Date: Thu, 7 May 1998 20:41:52 GMT
From: sherman@unx.sas.com (Chris Sherman)
Subject: Passing long command line to shell, best way?
Message-Id: <EsLtHs.J0p@unx.sas.com>
There are actually two parts to this programming style question.
Part I...
Suppose I want to pass a 500 character command to the command line.
Typically in regular shell, you can do something like:
cmd blah blah blah \
more blah blah \
even more blah
and this is mostly nice and pretty.
What is the best way of doing this in perl?
Of course, the following doesn't work:
@output = `cmd blah blah\
more blah blah\
even more blah`;
or how about:
$cmd = "cmd blah blah " .
"more blah blah " .
"even more blah ";
@output = `$cmd`;
Ugly, but I guess it works. Is there a better way?
Part II...
Suppose I have 50 separate non-repeative commands to run at the shell
(/bin/sh), and I want to feed them to the shell at all once, but without
using a temporary file to hold the commands (that is, write the commands to
a file and just run /bin/sh on that file):
If I do something like this:
$cmd = <<EndOfCmd;
cmd1
cmd2
cmd3
EndOfCmd
@output = `$cmd`;
This doesn't work right. All the commands appear on one line with '^J's
separating them when you list the processes with `ps` (in Unix).
I suppose I could open /bin/sh and pipe the commands to it, but how do I
format the commands to be feed into the pipe? Is there a best way for
doing this that is easy to read and not that messy?
Again, this a good-programming style question... I can actually do all these
things, but my resulting code has tended to be very, well, messy.
Thanx for any help.
--
____/ / / __ / _ _/ ____/
/ / / / / / / Chris Sherman
/ ___ / _/ / /
_____/ __/ __/ __/ _\ _____/ _____/ sherman@unx.sas.com
------------------------------
Date: Thu, 7 May 1998 21:49:02 +0200
From: "Manuel" <muinhos@iname.com>
Subject: Perl in background
Message-Id: <6it380$ifd$1@talia.mad.ibernet.es>
I have a problem in Perl for UNIX. From a cgi written in Perl I want to send
another program written in Perl in background and back the control without
hop that the program in background finishes. I probe
system ("program &")
but it does not return the control to me until it finishes. Nevertheless if
I do it from a normal shell of UNIX it works perfectly.
Some suggestion?
---------------------------------------------------
Tengo un problema en Perl para UNIX. Desde un cgi escrito en Perl quiero
enviar otro programa escrito en Perl en modo background de tal forma que
me devuelva el control al browser sin esperar a que termine el programa
en background. Lo he hecho con
system ("programa &")
pero no me devuelve el control hasta que termina. Sin embargo si lo hago
desde una shell normal de UNIX funciona perfectamente.
Alguna sugerencia?
___________________________________________________________________________
Manuel Muiqos Pan
mailto:muinhos@iname.com http://personal.redestb.es/muinhos/
___________________________________________________________________________
------------------------------
Date: Thu, 07 May 1998 20:13:06 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Manuel <muinhos@iname.com>
Subject: Re: Perl in background
Message-Id: <Pine.GSO.3.96.980507131040.18886E-100000@user2.teleport.com>
On Thu, 7 May 1998, Manuel wrote:
> From a cgi written in Perl I want to send another program written in
> Perl in background and back the control without hop that the program in
> background finishes. I probe
>
> system ("program &")
>
> but it does not return the control to me until it finishes.
That sounds as if your server is waiting until the three standard
filehandles are closed before it goes on. Try closing them, at least in
the child process. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 7 May 1998 21:06:16 GMT
From: "Allan M. Due" <alpaca@iname.com>
Subject: Re: perl scripts dealing with /etc/passwd
Message-Id: <6it7o8$6c1$0@206.165.146.147>
Tom Phoenix wrote in message ...
...Snip...
>> if ($ENV{'REQUEST_METHOD'} eq "POST"){
>>
>> # Get the input
>> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>
>Yes, this is the same broken code we've seen dozens of times.
Sorry to be slow, but what is wrong with the above code? I have been
working on learning Perl over the past few weeks and I have seen code that
looks like the above all over the place (including an O'Reilly publication
which shall remain nameless). Could someone fill me in on why this code is
broken? Edification is greatly appreciated.
AmD
Sorry about the lame newsreader, still working on it. <grin>
------------------------------
Date: 7 May 1998 16:50:42 +0400
From: Andy Murren <andy@interactive.net>
Subject: Re: Perl Win NT
Message-Id: <35521ea2.0@208.192.224.3>
In comp.lang.perl.misc Zoran Kovacevic <zoran@geof.ruu.nl> wrote:
> I'm using Perl on NT (with IIS) and I'm trying to use packages (with the
> use clause).
> When I'm executing my perl script directly on the machine it works but
> when I am executing the SAME perl (cgi) script form the browser, the
> following error occurs:
> Can't locate packagename.pm in @INC
> So when I'm executing directly, perl can locate the package, but when
> I'm executing from
> a browser perl cannot locate the package.
> Does anyone know what's wrong?
> (Lars Nap l.nap@thekitchen.nl)
I had the same problem and found the answer in this group. Here is
what worked.
------------------------------------------------------------
Microsoft changed from having the script mappings in the registry to
the a configuration in the service manager. Now script mappings are
changed in the default website properties.
Go to the default website, right mouse click on the properties for that site....
then click on "Home Directory" tab
Go to the "Applications Settings" toward the bottom of the window...find
the "Configuration" button...the click on it. A new window called script
mappings exists..you need to either create a new script mappings or edit the old one.
It should look like this
.cgi c:\perl\bin\perl.exe %s %s
.pl c:\perl\bin\perl.exe %s %s
I had those set before in the registry...as you may have too...and MS IIS 4.0
pulled the values out and capitalized the %S %S...that wont work..it looked like this
*** MICROSOFT PUT THIS THERE...IT WILL NOT WORK ***
.pl C:\PERL\BIN\PERL.EXE %S %S
*** YOU MUST CHANGE MAPPING TO LOOK LIKE THIS***
.cgi c:\perl\bin\perl.exe %s %s
.pl c:\perl\bin\perl.exe %s %s
good luck
--
Andy Murren IBS Interactive
Chief Programming Officer http://www.interactive.net
973-285-2600 ext 204 andy@interactive.net
------------------------------
Date: Thu, 7 May 1998 16:08:10 -0400
From: "Alan McCoy" <a.r.mccoy@larc.nasa.gov>
Subject: Perl, SSI, and Cookies
Message-Id: <6it4bm$stn$1@reznor.larc.nasa.gov>
I have a Perl script that uses extracted cookie data to create a web page.
The script runs fine when called by itself in a browser, however, when it is
run as a virtual include on another page, the script doesn't extract the
cookie data.
Here's the script:
------------------begin script "retrieve.pl" -------------------------
#!/usr/local/bin/perl
use LWP::Simple;
use HTML::Parse;
use HTML::Element;
use URI::URL;
use CGI;
$id = new CGI;
%cookieLookup = $id->cookie(-name=>'preferences');
$query = $cookieLookup{'query'};
$page =
"http://www.search.hotbot.com/hResult.html?MT=$query&SM=MC&DV=7&RG=NA&DC=50&
DE=2&OPs=MDRTP&_v=2&DU=days&SW=web&search.x=21&search.y=10";
$html = get $page;
$parsed_html = HTML::Parse::parse_html($html);
print "Content-type: text/html\n\n";
@wanted=('a');
for (@{$parsed_html->extract_links(@wanted) }) {
$link =$_->[0];
$description = $_->[1];
do {
$description = $description->content->[0];
} until (! ref $description);
# if there isn't plain text between the anchor tags, use empty string.
if (! defined $description) { $description='' };
$url = new URI::URL $link;
$full_url = $url->abs($page);
print "<A HREF=\"$full_url\">$description</A><br>\n\n";
}
---------------------------end script-----------------------
and here's how it's included on the web page:
<!--#include virtual="/cgi-bin/retrieve.pl"-->
Any help with this would be greatly appreciated.
Alan McCoy
a.r.mccoy@larc.nasa.gov
------------------------------
Date: Thu, 07 May 1998 19:54:49 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: fantha <fantha@berlin1.netsurf.de>
Subject: Re: pop/push,shift/unshift ?????
Message-Id: <Pine.GSO.3.96.980507125013.18886B-100000@user2.teleport.com>
On Thu, 7 May 1998, fantha wrote:
> The author of my perl book writes about the functions pop/push,
> shift/unshift. But he doesn't explain these functions. Really bad. He
> shows an example, but I dont know what he means by that. Here they are:
>
> >> @ary = ("aa", "bb", "cc");
> >> push (@ary, "hi"); # @ary = (..)
> >> unshift (@ary, "ho"); # @ary = (..)
> >> $popped = pop(@ary); # @ary = (..), $popped = ..
> >> $shifted = shift @ary; # @ary = (..), $shifted = ..
>
> What the hell does this mean ?
It means that you should buy a better book. Send that bad old book,
packed generously in dead fish, back to its author.
When you want to understand a Perl function, read the perlfunc manpage.
If you've still got questions about Perl after reading the docs, please
ask here. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 7 May 1998 20:09:28 GMT
From: derosbr@cig.mot.com (Brian DeRosa)
To: fantha <fantha@berlin1.netsurf.de>
Subject: Re: pop/push,shift/unshift ?????
Message-Id: <6it4do$ffi$1@trotsky.cig.mot.com>
In article <98050721192100.05043@FPC>, fantha <fantha@berlin1.netsurf.de> writes:
> Hi there!
>
> It's me again. First I'd like to thank everyone who
> helped me with my simple problem ("chomp").
>
> Now I've got a second question. The author of my
> perl book writes about the functions pop/push,shift/unshift.
> But he doesn't explain these functions. Really bad.
> He shows an example, but I dont know what he means by that.
> Here they are:
>
> >> @ary = ("aa", "bb", "cc");
> >> push (@ary, "hi"); # @ary = (..)
> >> unshift (@ary, "ho"); # @ary = (..)
> >> $popped = pop(@ary); # @ary = (..), $popped = ..
> >> $shifted = shift @ary; # @ary = (..), $shifted = ..
>
> What the hell does this mean ?
>
> Please try to explain it to me.
>
> Jens
>
> email: fantha@berlin1.netsurf.de
>
Luckily, this is a very easy question to answer. ;)
Basically, it goes something like this:
push/pop will add/remove (respectively) elements to the end of the array,
unshift/shift will add/remove (respectively) elements to the front of the array.
So, to use the above example from your text, the following is what the array
will look like after each of the operations:
(start)
@ary = ("aa", "bb", "cc");
After: push (@ary, "hi");
@ary == ("aa", "bb", "cc", "hi")
After: unshift (@ary, "ho");
@ary == ("ho", "aa", "bb", "cc", "hi")
After: $popped = pop(@ary);
@ary == ("ho", "aa", "bb", "cc")
$popped == "hi"
After: $shifted = shift @ary;
@ary == ("aa", "bb", "cc")
$shifted == "ho"
When all else fails, just experiment with it by writitng a simple script. 8)
Hope that helps.
Brian
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Brian De Rosa OFFICE PHONE: +1-847-632-3803
Software Engineer (Motorola) OFFICE FAX: +1-847-435-9636
Arlington Heights, IL E-MAIL: derosbr@cig.mot.com
IL27-3205
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
"We accept arguments as a drunken man leans against a lamppost...
for support, not illumination."
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
------------------------------
Date: 7 May 1998 21:28:40 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: pop/push,shift/unshift ?????
Message-Id: <slrn6l4a56.f4p.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, fantha <fantha@berlin1.netsurf.de> wrote :
# Hi there!
#
# It's me again. First I'd like to thank everyone who
# helped me with my simple problem ("chomp").
#
# Now I've got a second question. The author of my
# perl book writes about the functions pop/push,shift/unshift.
# But he doesn't explain these functions. Really bad.
# He shows an example, but I dont know what he means by that.
# Here they are:
push/pop treat an array as a stack.
push/shift or unshift/pop treat it as a queue.
# >> @ary = ("aa", "bb", "cc");
# >> push (@ary, "hi"); # @ary = (..)
@ary == ("aa", "bb", "cc", "hi");
# >> unshift (@ary, "ho"); # @ary = (..)
@ary == ("ho", "aa", "bb", "cc", "hi");
# >> $popped = pop(@ary); # @ary = (..), $popped = ..
$popped eq "hi";
# >> $shifted = shift @ary; # @ary = (..), $shifted = ..
$shifted eq "ho";
gabor.
--
echo "Your stdio isn't very std."
-- Larry Wall in Configure from the perl distribution
------------------------------
Date: 7 May 1998 21:47:59 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: pop/push,shift/unshift ?????
Message-Id: <6ita6f$fuv$1@marina.cinenet.net>
fantha (fantha@berlin1.netsurf.de) wrote:
: Now I've got a second question. The author of my
: perl book writes about the functions pop/push,shift/unshift.
: But he doesn't explain these functions. Really bad.
: He shows an example, but I dont know what he means by that.
: Here they are:
:
: >> @ary = ("aa", "bb", "cc");
: >> push (@ary, "hi"); # @ary = (..)
: >> unshift (@ary, "ho"); # @ary = (..)
: >> $popped = pop(@ary); # @ary = (..), $popped = ..
: >> $shifted = shift @ary; # @ary = (..), $shifted = ..
:
: What the hell does this mean ?
If those .. parts are literally in the book, it means that the author or
editor (inclusive or, there) should be shot. Now, here's the scoop:
Consider an array...
@a = qw( a b c d );
which has four elements, the letters 'a' through 'd' in that order. Call
the 0 index position, where 'a' is, the 'bottom' of the array, while the
3 index position, where 'd' is, is the 'top' of the array.
Push and pop operate on the 'top' of the array only, treating it like a
stack. Push puts a new element on the top of the array, while pop pulls
off the top element and returns it. So...
push @a, 'q'; # @a is now (a b c d q)
$x = pop @a; # $x is 'q', @a is now (a b c d) again
Shift and unshift do the same sorts of thing, but at the 'bottom' of the
list:
unshift @a, 'w'; # @a is now (w a b c d)
$x = shift @a; # $x is 'w', @a is now (a b c d) again
Hope this helps...
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 7 May 1998 13:38:00 -0700
From: "Elan Kaplan" <Elan_Kaplan@globalcenter.net>
Subject: Re: Problem with taint on perl 5.004_04 Solaris 2.6
Message-Id: <6it638$7qa@nntp02.primenet.com>
I think it was actually my mistake !
part of what I was using actually came from ENV way back when .... ;-)
Sorry for any confusion !
Elan
Elan Kaplan wrote in message <6isu65$svq@nntp02.primenet.com>...
>Reference an earlier post in this newsgroup titled "Setuid and Solaris"
>I am experiencing the same problem using the same versions of Perl & OS.
>This behavior was not present under 5.003 / Sol 2.5.1 - I believe this to
be
>a
>bug in Perl.
>
>Elan
------------------------------
Date: Thu, 07 May 1998 16:26:20 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Symbolic References
Message-Id: <355218EC.D7F2D736@matrox.com>
Hi all,
For some reason, I can't get symbolic references to do what I want!
I might be doing something wrong, please help me!
For example,
my ($temp, @tt);
my @temp = ("red", "black", "white");
$temp - "temp";
@tt = @$temp; <-- doesn't work .. neither does @tt = @{$temp};
print "@tt\n";
This prints an empty line.. But, using an eval
@tt = eval "\@$temp";
Works just fine!
Do I misunderstand the meaning of a symbolic reference? could it be the
lexical declaration of the variables?
--
Ala Qumsieh | "How much wood would a woodchuck
ASIC Design Engineer | chuck if a woodchuck could
Matrox Graphics Inc. | chuck wood?"
Montreal, Quebec | - Trivial ... 5!
------------------------------
Date: Thu, 07 May 1998 16:33:02 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Symbolic References
Message-Id: <35521A7E.5BDE929B@matrox.com>
<snippet>
> $temp - "temp";
I meant $temp = "temp";
I am still looking for an answer though :)
--
Ala Qumsieh | "How much wood would a woodchuck
ASIC Design Engineer | chuck if a woodchuck could
Matrox Graphics Inc. | chuck wood?"
Montreal, Quebec | - Trivial ... 5!
------------------------------
Date: 7 May 1998 19:50:50 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Unable to use CPAN.pm through firewall
Message-Id: <6it3aq$qrj@fridge.shore.net>
Mark Conty (mconty@year.grain.cargill.com) wrote:
: Back a few months ago, I tried all sorts of contorsions in Net/Config.pm
: to try to get past our HTTP & FTP proxy servers. (I'm sure that
: ignorance is part of the problem; I don't know, f'rinstance, whether or
As a general suggestion -- to get you started, I'd suggest using
CPAN.pm's debug capabilities to find out *where* the problem is
occuring. If you're stumped as to the nature of CPAN.pm's reports,
you might send a copy of this output here.
--
Nathan V. Patwardhan
------------------------------
Date: 7 May 1998 20:48:45 GMT
From: "Pheng Lay" <phengl@ir-optima.com>
Subject: Where can I download Perl interpreter?
Message-Id: <01bd79f9$5142ecc0$1090d9cf@pheng-lay>
Could anyone tell me where I can download a copy of the latest Perl
interpreter for Winnt? Thanks for any help.
phengl@ir-optima.com
------------------------------
Date: Thu, 07 May 1998 16:56:19 -0400
From: Dennis Kowalski <dennis.kowalski@daytonoh.ncr.com>
Subject: WIN32 tee command
Message-Id: <35521FF3.AD5@daytonoh.ncr.com>
Does anyone know if there is a tool on NT that functions like the UNIX
tee command ??
Maybe something in Perl ??
------------------------------
Date: Thu, 07 May 1998 21:32:35 GMT
From: David@iqtexas.com
Subject: win32, cgi run from dos
Message-Id: <6it99j$u1l$1@nnrp1.dejanews.com>
Using perl5, cgi.pm
when I run my cgi in dos, perl asks for some input data(which is cool), but I
don't know how to tell it that I'm done entering data.
E:\Perl\bin>perl test.cgi
(offline mode: enter name=value pairs on standard input)
name=David
dog=hairy
what do I press ay this point for it to start doin' stuff.
the cgi is below.
# test cgi for perl5
use strict;
use CGI qw(:standard);
my $name=param("name");
my $dog=param("dog");
print header, start_html("Tester"), h1("Tester");
if($name) {
print p("$name your dog is $dog.");
} else {
print hr(),startform();
print p("What is your name? ", textfield("name",""));
print p("What is your dog like? ", textfield("dog",""));
print p(submit("go"));
print end_from(),hr();
}
Thanks for any help,
-david
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
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 2534
**************************************
