[16276] in Perl-Users-Digest
Perl-Users Digest, Issue: 3688 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 17 00:05:37 2000
Date: Sun, 16 Jul 2000 21:05:10 -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: <963806709-v9-i3688@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 16 Jul 2000 Volume: 9 Number: 3688
Today's topics:
[NEW-B] What's wrong with this script? <?@?.?>
Re: [NEW-B] What's wrong with this script? (Michael Budash)
Re: [NEW-B] What's wrong with this script? <bt@nospam.com.>
Re: [NEW-B] What's wrong with this script? <?@?.?>
Re: [NEW-B] What's wrong with this script? <aqumsieh@hyperchip.com>
Re: [NEW-B] What's wrong with this script? <?@?.?>
Computing date + xxx days jhalbrook@my-deja.com
Re: Computing date + xxx days (jason)
Re: Computing date + xxx days <stephenk@cc.gatech.edu>
Re: Computing date + xxx days <bwalton@rochester.rr.com>
Re: Form problem (David Efflandt)
Help required with script (ShadowNateY2K)
Re: Is there a Perl bug list? <nospam.nicedoctor@hotmail.com>
Re: Perl can't add ! jcano@mmcnet.com
perl makemaker tutorial <trent.mankelow@unisys.com>
Re: query string problem.... <me@privacy.net>
Re: Search a string for < and replace it with < (jason)
Re: Simple IP/Domain validation???? (David Efflandt)
string to number? <w14357@email.mot.com>
Re: string to number? <tony_curtis32@yahoo.com>
Testing and debuging scripts locally <me@privacy.net>
Re: Testing and debuging scripts locally (jason)
Re: Testing and debuging scripts locally <homer@simpsons.com>
Re: Testing and debuging scripts locally (jason)
URL Redirection script <me@privacy.net>
using perl to automate multiform submission (Shao Zhang)
Re: using perl to automate multiform submission (Matthew Zimmerman)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Jul 2000 01:40:04 GMT
From: "Kliffoth" <?@?.?>
Subject: [NEW-B] What's wrong with this script?
Message-Id: <Uttc5.398456$k22.1761341@flipper>
I wrote a script to look at an array of loose words, then print "okay" if
the word "bla" is in the array, but I just keep getting "okay" wether the
word is in the array or not, and I just can't find out where the problem is
:-(
foreach $WORD (@WORD_LIST)
{
$LOW_WORD = lc $WORD;
$HASH{$LOW_WORD} = 1;
}
if ($HASH{'bla'} = 1)
{
print "okay";
}
else
{
print "not okay";
}
------------------------------
Date: Sun, 16 Jul 2000 18:44:25 -0700
From: mbudash@sonic.net (Michael Budash)
Subject: Re: [NEW-B] What's wrong with this script?
Message-Id: <mbudash-1607001844250001@adsl-216-103-91-123.dsl.snfc21.pacbell.net>
In article <Uttc5.398456$k22.1761341@flipper>, "Kliffoth" <?@?.?> wrote:
> I wrote a script to look at an array of loose words, then print "okay" if
> the word "bla" is in the array, but I just keep getting "okay" wether the
> word is in the array or not, and I just can't find out where the problem is
> :-(
>
>
> foreach $WORD (@WORD_LIST)
> {
> $LOW_WORD = lc $WORD;
> $HASH{$LOW_WORD} = 1;
> }
>
> if ($HASH{'bla'} = 1)
> {
> print "okay";
> }
> else
> {
> print "not okay";
> }
try:
if ($HASH{'bla'} == 1)
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Mon, 17 Jul 2000 09:43:14 +0800
From: Brian <bt@nospam.com.>
Subject: Re: [NEW-B] What's wrong with this script?
Message-Id: <g2p4nsodkvms5rbf0kpu014bkpleq9bqbb@4ax.com>
On Mon, 17 Jul 2000 01:40:04 GMT, "Kliffoth" <?@?.?> wrote:
>I wrote a script to look at an array of loose words, then print "okay" if
>the word "bla" is in the array, but I just keep getting "okay" wether the
>word is in the array or not, and I just can't find out where the problem is
>:-(
>
>foreach $WORD (@WORD_LIST)
> {
> $LOW_WORD = lc $WORD;
> $HASH{$LOW_WORD} = 1;
> }
>
>if ($HASH{'bla'} = 1)
> {
> print "okay";
> }
>else
> {
> print "not okay";
> }
Try if ($HASH{'bla'} == 1)
You're assigning 1 to HASH{'bla'} and the 'if' is evaluating if the assignment
worked or not.
I can't believe I could answer a question in this forum :)
Brian.
------------------------------
Date: Mon, 17 Jul 2000 01:50:30 GMT
From: "Kliffoth" <?@?.?>
Subject: Re: [NEW-B] What's wrong with this script?
Message-Id: <GDtc5.398472$k22.1761345@flipper>
I WAS SOOOO STUPID!!!! THANX MICHAEL!
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
"Michael Budash" <mbudash@sonic.net> wrote in message
news:mbudash-1607001844250001@adsl-216-103-91-123.dsl.snfc21.pacbell.net...
> In article <Uttc5.398456$k22.1761341@flipper>, "Kliffoth" <?@?.?> wrote:
>
> > I wrote a script to look at an array of loose words, then print "okay"
if
> > the word "bla" is in the array, but I just keep getting "okay" wether
the
> > word is in the array or not, and I just can't find out where the problem
is
> > :-(
> >
> >
> > foreach $WORD (@WORD_LIST)
> > {
> > $LOW_WORD = lc $WORD;
> > $HASH{$LOW_WORD} = 1;
> > }
> >
> > if ($HASH{'bla'} = 1)
> > {
> > print "okay";
> > }
> > else
> > {
> > print "not okay";
> > }
>
> try:
>
> if ($HASH{'bla'} == 1)
>
> hth-
> --
> Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Mon, 17 Jul 2000 03:05:43 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: [NEW-B] What's wrong with this script?
Message-Id: <7aya31ihh1.fsf@merlin.hyperchip.com>
Brian <bt@nospam.com.> writes:
> On Mon, 17 Jul 2000 01:40:04 GMT, "Kliffoth" <?@?.?> wrote:
> >if ($HASH{'bla'} = 1)
> Try if ($HASH{'bla'} == 1)
>
> You're assigning 1 to HASH{'bla'} and the 'if' is evaluating if the
> assignment worked or not.
Actually that is not exactly true. The if() is not evaluating whether
the assignment worked or not, it is evaluating the return value of the
assignment, which is the assigned value; in this case, it is one.
If you change the snippet to:
if ($HASH{bla} = 0) {
print "YES";
}
The if() will evaluate to false, even though the assignment
succeeded. Of course, '-w' would warn about such a mistake.
> I can't believe I could answer a question in this forum :)
You're getting closer :)
--Ala
------------------------------
Date: Mon, 17 Jul 2000 03:20:38 GMT
From: "Kliffoth" <?@?.?>
Subject: Re: [NEW-B] What's wrong with this script?
Message-Id: <aYuc5.398766$k22.1761488@flipper>
Thanx every1 who replied, even though i'm emberrased to make such a stupid
mistake. I'm using this part of the script to make an Allknowing Oracle. You
can type in any question; it looks at the string and tries to match
keywords; if it does, it generates a fitting answer. If it doesn't, it pix a
random answer like "Um, did you say something? I was playing solitaire...".
You can check it out;
http://eej.virtualave.net/orakel.html
It's Dutch though, but you can always admire the hilarious artwork a friend
of mine made ;)'
------------------------------
Date: Mon, 17 Jul 2000 02:27:16 GMT
From: jhalbrook@my-deja.com
Subject: Computing date + xxx days
Message-Id: <8ktqtn$rna$1@nnrp1.deja.com>
I'm a newbie to Perl.
I was curious if there is a quick and dirty way to perform
simple date math? I simply need to add xxx number of days
to a given Gregorian date, and produce the resulting date.
Any help is appreciated.
JH
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 17 Jul 2000 02:50:32 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Computing date + xxx days
Message-Id: <MPG.13dd11ca4ced5bc99896c9@news>
jhalbrook@my-deja.com wrote ..
>I was curious if there is a quick and dirty way to perform
>simple date math? I simply need to add xxx number of days
>to a given Gregorian date, and produce the resulting date.
perldoc -f time
perldoc -f localtime
you want something like
@localtime = localtime( time + 24 * 3600 * $x );
where $x is the number of days you want added .. used in a scalar
context it will output a string .. the docs tell all
btw .. it's quick - but there's nothing dirty about it
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Sun, 16 Jul 2000 22:55:13 -0400
From: Stephen Kloder <stephenk@cc.gatech.edu>
Subject: Re: Computing date + xxx days
Message-Id: <39727591.61A4B51E@cc.gatech.edu>
jhalbrook@my-deja.com wrote:
> I'm a newbie to Perl.
>
> I was curious if there is a quick and dirty way to perform
> simple date math? I simply need to add xxx number of days
> to a given Gregorian date, and produce the resulting date.
>
> Any help is appreciated.
>
> JH
Take a look at the functions localtime (in perlfunc) and timelocal (in
Time::Local).
--
Stephen Kloder | "I say what it occurs to me to say.
stephenk@cc.gatech.edu | More I cannot say."
Phone 404-874-6584 | -- The Man in the Shack
ICQ #65153895 | be :- think.
------------------------------
Date: Mon, 17 Jul 2000 03:53:39 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Computing date + xxx days
Message-Id: <39728380.C855A38B@rochester.rr.com>
jhalbrook@my-deja.com wrote:
...
> I was curious if there is a quick and dirty way to perform
> simple date math? I simply need to add xxx number of days
> to a given Gregorian date, and produce the resulting date.
...
> JH
...
Take a look at the Date::Manip and Date::Calc modules.
--
Bob Walton
------------------------------
Date: 17 Jul 2000 02:14:39 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Form problem
Message-Id: <slrn8n4qvl.hvl.efflandt@efflandt.xnet.com>
On 16 Jul 2000 14:21:55 GMT, Haazi2 <haazi2@aol.com> wrote:
>Well, I thought I had solved everything but I have one more bug in
>my perl script. I use an HTML form and then process it with a perl script.
>If there are errors in the required fields the perl script should redraw the
>form
>with the data that was entered in the HTML form. If the the required fields are
>correct then the perl script generates a thank you message to the user.
>
>Here's the problem:
>
>If the user fills out the required fields with the correct values and clicks on
>the next button, the user will get error messages about the required fields
>which is wrong. However if the user submits the info a second time, filling out
>the required fields correctly, you will get a thank you message. It seems the
>field values submitted from the HTML form are lost some how. How do I make sure
>I keep the form values submitted from the HTML form? Thanks for any help in
>advance.
Generate the original form and any subsequent forms with CGI.pm. Then it
is easy to make sure that they have the same name (case is significant).
That also makes it easy to replicate the filled in form for further
corrections. Submitted values override default values unless you
specifically reasign the value to that param or include -override=>1
when printing form fields.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 17 Jul 2000 02:45:06 GMT
From: shadownatey2k@aol.com (ShadowNateY2K)
Subject: Help required with script
Message-Id: <20000716224506.24185.00000065@ng-fk1.aol.com>
Can anyone offer assistance with this script? It's a script that reads in a
URL and the title of a website, numbers them and outputs them to a text file.
I ran it through the interpreter and it says that there is a carriage return on
line 1 that shouldn't be there. And while I'm thinking "yeah, I know there's a
carriage return there" I'm stuck figuring out what to do about it. So if
anyone can help me, that would be great. Email me or respond through this
group. Thanks! And now the script...
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;
}
#Read counter file
$i = 0;
open(file1,"/usr/services/u/direwolf/public_html/transform_home/count.txt");
#Increment counter and close file
$inputline=<file1>;
$i = $inputline;
close(file1);
$i++;
open(file1a,">/usr/services/u/direwolf/public_html/transform_home/count.txt");
print(file1a,$i);
#Open and write to output file
open(outfile,">>/usr/services/u/direwolf/public_html/transform_home/output
.txt");
print(outfile,$i);
print outfile "\n";
print outfile "$FORM{'title'} \n"
print outfile "$FORM{'address'} \n"
close(outfile);
#Print return text
print"Content-type: text/html\n\n";
print"Thank you!";
------------------------------
Date: Mon, 17 Jul 2000 03:15:41 GMT
From: "Mark Lewis" <nospam.nicedoctor@hotmail.com>
Subject: Re: Is there a Perl bug list?
Message-Id: <xTuc5.74305$_b3.2201488@newsread1.prod.itd.earthlink.net>
Jonathan Stowe wrote in message <8ksbpn$av5$1@orpheus.gellyfish.com>...
>On Sun, 16 Jul 2000 03:18:58 GMT Mark Lewis wrote:
>> Hello,
>>
>> Where can a comprehensive list of confirmed Perl bugs be found? The
only
>> thing I have be able to find is an outdated list at perl.com.
>>
>
><http://bugs.perl.org> at a guess ...
>
This seems to be what I'm looking for. I went to this website and tried
the database form with no luck. No matter what I enter in the form,
submitting the form results in a blank database form being returned. The
help info at the site doesn't help.
Can anyone instruct me as to how to use the database search form at
bugs.perl.org?
Thanks!
------------------------------
Date: 16 Jul 2000 18:50:07 -0700
From: jcano@mmcnet.com
Subject: Re: Perl can't add !
Message-Id: <lzlmz1cypc.fsf@mmcnet.com>
logan@cs.utexas.edu (Logan Shaw) writes:
> In article <2O9c5.10477$tI4.832438@bgtnsc05-news.ops.worldnet.att.net>,
> Kevin M. Sproule <kmsproule@worldnet.att.net> wrote:
> >These results are similar to what you encountered. The errors creep in
> >because computers are only capable of approximating the floating point
> >values. It is necessary to use whole numbers or to round your results to
> >keep things accurate.
>
> Actually, it isn't the compiler. The folks who figured out how
> computers were going to work were faced with a choice. Either (1) make
> computers do all arithmetic correctly, or (2) make computers which can
> do built-in arithmetic operations without literally taking forever.
> They chose #1, which I think was the correct choice.
>
> Let's imagine you want to work with the number 1/5. In decimal, this
> happens to be easy. It's equal to 0.2. In binary, it's a bit tougher
> because it's actually equal to
>
> 0.00110011001100110011001100110011001100110011001100110011001100110011
> 0011001100110011001100110011001100110011001100110011001100110011001100
> 1100110011001100110011001100110011001100110011001100110011001100110011
> 0011001100110011001100110011001100110011001100110011001100110011001100
> 1100110011001100110011001100110011001100110011001100110011001100110011
>
> Except that I lied -- it's not equal to that because I haven't yet
> typed "0011" enough times. I have to keep typing it forever if I want
> an exact representation.
Actually, if you are dealing with rational real numbers (numbers that
can be expressed as fractions whose denominator and numerator are
integers) then it is possible to do all arithmetic precisely in a
finite amount of time. The emacs based calculator, calc, does just
this. It combines arbitrary precision integers with a fraction
oriented mode to give precise rational number arithmetic.
Of course in practice it is possible for the numerators and
denominators to get so large that computations take an unreasonable
amount of time...
Now if you need perfect representation combined with irrational
numbers you are in trouble.
Cheers,
--jfc
------------------------------
Date: Mon, 17 Jul 2000 14:06:41 +1200
From: "Trent Mankelow" <trent.mankelow@unisys.com>
Subject: perl makemaker tutorial
Message-Id: <8ktpmg$42b$1@mail.pl.unisys.com>
Does anyone know of a good ExtUtils::MakeMaker tutorial with lots of
examples?
------------------------------
Date: Mon, 17 Jul 2000 00:57:29 +0100
From: "EM" <me@privacy.net>
Subject: Re: query string problem....
Message-Id: <8kti4q$lqj$1@fraggle.esatclear.ie>
I am new to perl to but this code will work but i am not sure if its the
best way to do it
$id = $ENV{'QUERY_STRING'};
change it to
($useless,$id) = split(/\=/,$ENV{'QUERY_STRING'});
"cam" <cam@home.com> wrote in message
news:Tcub5.10287$8u4.137828@news1.rdc1.bc.home.com...
> Hi:
>
> I'm newish to perl. I'm trying to retrieve the data from a query string.
> Can't seem to dump the "id=" part in my perl script. Here's a simple
example
> to illustrate:
>
>
> html file:
> ======
> <a href="/cgi-bin/getlink.pl?id=0">ibm</a>
> <a href="/cgi-bin/getlink.pl?id=1">apple</a>
> <a href="/cgi-bin/getlink.pl?id=2">linux</a>
>
> Perl File:
> =======
> #!/usr/bin/perl
>
> print "Content-type: text/html\n\n";
> use LWP::Simple;
>
> $id = $ENV{'QUERY_STRING'};
>
> @gothere = ();
> $gothere[0]="ibm";
> $gothere[1]="apple";
> $gothere[2]="linux";
>
> print "@gothere[$ENV{'QUERY_STRING'}]\n";
>
>
> Problem is that this returns:
> id=xxxx
>
> what I want is simply the xxxx WITHOUT the id= on it. any ideas?? Why
> is it returning the id= part and how can I get rid of it?
>
> Thanks!!!!
>
> Cam
>
>
------------------------------
Date: Mon, 17 Jul 2000 02:42:22 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Search a string for < and replace it with <
Message-Id: <MPG.13dd0fd9ad9b27169896c8@news>
Raphael Pirker wrote ..
>> there's a time to teach and a time to learn
>
>I'd say it's the will that counts, too! If the code would have been 100%
>wrong, I would complain as well, but since there was only that one little
>mistake... (which was probably a typo?)
yeah .. but nothing is done in isolation .. this response from Ecco to
your issue here was one of a number of incorrect posts by Ecco .. just
because Ecco's incomplete guess here happened to lead you to the correct
answer doesn't make it any less dangerous in the bigger picture
did the responses that you received in your "communicating through the
location bar" thread from Ecco lead you to similar realisations ?
anyone who confesses to hating the FAQs isn't going to do much good in
the long run
to your original query .. you really will do your Perl understanding a
favour by following my (and others') advice and checking out the "Regexp
Quote-Like Operators" documentation in the perlop manual
perldoc perlop
from the command line
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: 17 Jul 2000 02:58:46 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Simple IP/Domain validation????
Message-Id: <slrn8n4tic.hvl.efflandt@efflandt.xnet.com>
On Sat, 15 Jul 2000 19:42:37 GMT, Coy <coy@coystoys.com> wrote:
>
>"Decklin Foster" <decklin@red-bean.com> wrote in message
>news:8kqcje$34654$2@ID-10059.news.cis.dfn.de...
>: Coy <coy@coystoys.com> writes:
>:
>: > Output should be basically simple:
>: > NO or YES the domain/address is valid.
>:
>: Sure. (since you have not specified a definition of a hostname, I will
>: grab RFC2396, as it's handy:)
>
>
>:) sorry, i thought by my mentioning of :
> ./netcheck <domain.com> || <ip.addr>
>
>I have a webbased form, and users submit IP addresses
>and domain names.. I want to validate that these
>address/domains are real and answer before processing them.
You cannot really verify if an IP is online unless you know some
particular port you could connect to (see 'perldoc perlipc' for that).
For example our company smtp server and web proxy will not answer a ping
or traceroute, but you can connect to its port 25.
But you can check if a hostname can be resolved or that an IP is in the
valid range of addresses. Just be aware that some domain names alone may
not resolve, although, hostnames of boxes in that domain should:
#!/usr/bin/perl -w
use strict;
use Socket;
my $host = shift;
my $iaddr = inet_aton($host);
my $straddr = inet_ntoa($iaddr) if $iaddr;
print '', ($straddr) ? "YES" : "NO", "\n";
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: Mon, 17 Jul 2000 09:34:43 +0800
From: "David Li" <w14357@email.mot.com>
Subject: string to number?
Message-Id: <8ktnlo$egc$1@schbbs.mot.com>
Hi,
Could you tell me what function in Perl can convert a string to number?
And the string is begin with "null" that asicc code is "0x20".
Thank you so much!
David
------------------------------
Date: 16 Jul 2000 21:22:13 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: string to number?
Message-Id: <87lmz1lcmi.fsf@limey.hpcc.uh.edu>
>> On Mon, 17 Jul 2000 09:34:43 +0800,
>> "David Li" <w14357@email.mot.com> said:
> Hi, Could you tell me what function in Perl can convert
> a string to number?
There isn't one, perl does it for you:
$x = '123'; # numeral
++$x; # number
print "$x\n"; ==> 124
> And the string is begin with "null" that asicc code is "0x20".
NUL has ASCII code 0. I'm not sure what you are asking
here, if anything. SPACE has code 0x20 (32) but SPACE
isn't a number or a numeral.
hth t
--
"With $10,000, we'd be millionaires!"
Homer Simpson
------------------------------
Date: Mon, 17 Jul 2000 01:01:32 +0100
From: "EM" <me@privacy.net>
Subject: Testing and debuging scripts locally
Message-Id: <8kticc$ls9$1@fraggle.esatclear.ie>
Is there any way to test if a perl script works without having to go online
and upload it to my cgi-bin
Like it would be great if i could somehow start my browser and enter the
file as c:\scripts\script.cgi and be able to see it as if it were online
I am new to cgi so i dont know these things
------------------------------
Date: Mon, 17 Jul 2000 03:24:51 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Testing and debuging scripts locally
Message-Id: <MPG.13dd19d715ba99099896cb@news>
EM wrote ..
>Is there any way to test if a perl script works without having to go online
>and upload it to my cgi-bin
>Like it would be great if i could somehow start my browser and enter the
>file as c:\scripts\script.cgi and be able to see it as if it were online
>
>I am new to cgi so i dont know these things
a) install Perl .. I'm guessing from your headers that you're on Win32
.. go to http://www.activestate.com/ActivePerl/ and download and install
ActivePerl
b) read the included documentation (from ActivePerl in your Start Menu)
- you can run the CGI programs on a number of web servers on the Win32
platform
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Mon, 17 Jul 2000 03:27:58 GMT
From: "Homer" <homer@simpsons.com>
Subject: Re: Testing and debuging scripts locally
Message-Id: <23vc5.398798$k22.1761449@flipper>
You can just run them in your browser as long as they don't have
environmental values. If they do, you'll probably need a scripting program
that allows you to simulate a browser and pre-set those environments.
------------------------------
Date: Mon, 17 Jul 2000 04:00:50 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Testing and debuging scripts locally
Message-Id: <MPG.13dd2246ef6a5eb69896cc@news>
Homer wrote ..
>You can just run them in your browser as long as they don't have
>environmental values. If they do, you'll probably need a scripting program
>that allows you to simulate a browser and pre-set those environments.
oh great .. another troll is born
Ecco aka Homer - go away ..
this is a misleading answer .. a CGI script will not run as expected
straight from the browser - it will not output to the browser window and
on some systems it will not work at all
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Mon, 17 Jul 2000 00:50:05 +0100
From: "EM" <me@privacy.net>
Subject: URL Redirection script
Message-Id: <8kthmu$ljq$1@fraggle.esatclear.ie>
I want to run a subdomain redirection service
my problem is how can I do path forwarding
I tried using the 404 error in the .htaccess but it only works in netscape
and ie4 but not ie5
How can I do this possibly without using mod/rewrite because I do not have
the module installed
Eric
------------------------------
Date: 17 Jul 2000 12:34:05 +1000
From: shao@linux.cia.com.au (Shao Zhang)
Subject: using perl to automate multiform submission
Message-Id: <3972709d@news>
Hi,
Does anyone know how to use perl to automate multipart form submissions?
For example, some site needs you to press a "I ACCEPT" button to enter
to the next form.
In this case, how should I do this using perl to automate this?
Thanks.
Shao.
--
____________________________________________________________________________
Shao Zhang - Running Debian 2.1 ___ _ _____
Department of Communications / __| |_ __ _ ___ |_ / |_ __ _ _ _ __ _
University of New South Wales \__ \ ' \/ _` / _ \ / /| ' \/ _` | ' \/ _` |
Sydney, Australia |___/_||_\__,_\___/ /___|_||_\__,_|_||_\__, |
Email: shao@cia.com.au |___/
_____________________________________________________________________________
------------------------------
Date: 17 Jul 2000 03:27:52 GMT
From: mdz4c@node7.unix.Virginia.EDU (Matthew Zimmerman)
Subject: Re: using perl to automate multiform submission
Message-Id: <8ktufo$pvd$1@murdoch.acc.Virginia.EDU>
In article <3972709d@news>, Shao Zhang <shao@linux.cia.com.au> wrote:
>Hi,
> Does anyone know how to use perl to automate multipart form submissions?
> For example, some site needs you to press a "I ACCEPT" button to enter
> to the next form.
>
> In this case, how should I do this using perl to automate this?
The LWP module may do what you need. Check out
perldoc LWP
perldoc lwpcook
(I don't know if this is part of the standard distribution or not. You may
have to grab this from CPAN.)
HTH!
Matt
--
--
|Matthew Zimmerman http://www.people.virginia.edu/~mdz4c |
|Interdisciplinary Biophysics Program |"I AM serious. |
|University of Virginia | And stop calling me Shirley."|
------------------------------
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 3688
**************************************
