[13685] in Perl-Users-Digest
Perl-Users Digest, Issue: 1095 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 16 17:05:44 1999
Date: Sat, 16 Oct 1999 14:05:07 -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: <940107906-v9-i1095@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 16 Oct 1999 Volume: 9 Number: 1095
Today's topics:
Re: =?iso-8859-1?Q?isn=B4t?= there a newbies newsgroup? <dtbaker_@busprod.com>
Re: =?iso-8859-1?Q?isn=B4t?= there a newbies newsgroup? (Matthew Bafford)
Re: and versus && <uri@sysarch.com>
Re: another pointless debate was[Re: and versus &&] <uri@sysarch.com>
Re: Bad Ref (Randal L. Schwartz)
Re: Bad Ref (Matthew Bafford)
Determining the connection speed to the Internet <btate@primary.net>
Re: Determining the connection speed to the Internet (Henry Penninkilampi)
email RegExp problem <suaai@csv.warwick.ac.uk>
Re: email RegExp problem (Matthew Bafford)
Re: email RegExp problem (Randal L. Schwartz)
Re: encryption and crypt() ? (Martin Vorlaender)
Re: encryption and crypt() ? <dtbaker_@busprod.com>
Re: encryption and crypt() ? <dtbaker_@busprod.com>
Re: encryption and crypt() ? (Matthew Bafford)
list last five messages sbarros6592@my-deja.com
Re: list last five messages (Matthew Bafford)
Re: offtopic web transactions was [Re: What is best..?] <bowlin@sirius.com>
Re: perl wrapper scripts of executables with sticky exe <bernie@fantasyfarm.com>
Re: qr operator the $_ (Ilya Zakharevich)
rand generator limitatoins - request expert advice <mike@facombat.com>
Re: shifting a hash (Tad McClellan)
Re: sleep in win32 ? (Michel Dalle)
Re: Testing CGI scripts on win 98 <dtbaker_@busprod.com>
Re: Time in $time <uri@sysarch.com>
Re: tr// question (Greg Bacon)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 16 Oct 1999 14:38:59 -0500
From: Dan Baker <dtbaker_@busprod.com>
Subject: Re: =?iso-8859-1?Q?isn=B4t?= there a newbies newsgroup? where? (basic questions)
Message-Id: <3808D453.EA3527A4@busprod.com>
try searching the group with www.dejanews.com before posting....
most of the newbie questions get asked and answered over and over.
there is a regular FAQs posting that includes links to some good online
FAQs.
Dan
------------------------------
Date: Sat, 16 Oct 1999 18:41:52 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: =?iso-8859-1?Q?isn=B4t?= there a newbies newsgroup? where? (basic questions)
Message-Id: <slrn80hfne.qk.*@dragons.duesouth.net>
Sat, 16 Oct 1999 18:22:44 +0200, a great smashing of the head occured
against Robert Freund" <r.freund@gmx.de>'s keyboard, causing
comp.lang.perl.misc to receive this:
:Subject: Re: isnīt there a newbies newsgroup? where? (basic questions)
Yes.
news.newusers.questions
news.announce.newusers
--Matthew
------------------------------
Date: 16 Oct 1999 16:27:49 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: and versus &&
Message-Id: <x7aepjgiey.fsf@home.sysarch.com>
>>>>> "AJF" == Alan J Flavell <flavell@mail.cern.ch> writes:
AJF> On Fri, 15 Oct 1999, R. McGillis blurted out:
>> Thanks folks. You have all been very helpful with the exception of
>> Abigail,
AJF> Which only goes to show that you're not ready for Abigail's class of
AJF> advice yet. That's nothing to whine about. I don't suppose I'm ready
AJF> for it yet either, but I'm still glad it's there.
AJF> [another jeopardendectomy brings relief]
obviously not done under anesthesia since the patient was ranting about
abigail. use more drugs next time.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 16 Oct 1999 16:31:22 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: another pointless debate was[Re: and versus &&]
Message-Id: <x76707gi91.fsf@home.sysarch.com>
>>>>> "ll" == lt lindley <ltl@rgsun40.viasystems.com> writes:
ll> Oh, puuu-lease, Johnathan. I said nothing about changing the
ll> precedence of an existing operator. And I can't think of
ll> any situation where or/and is required. Are there really
ll> any places where you cannot control the precedence with parens?
ll> Is there really any argument for them other than taste and style?
ll> (Not that taste and style aren't perfectly good arguments.)
i tend not to use and/or. i do open() || die so i don't have that
bug. there are some cases where it may look nicer but i don't mind some
parens here and there. in fact i sometimes use them to make perl operators
into functions because i like that look. but it is my choice and i
understand what i am doing with the parens and the ||, &&, or and and
ops.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 16 Oct 1999 11:12:04 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Bad Ref
Message-Id: <m1wvsnxjij.fsf@halfdome.holdit.com>
[First, this question would have been better answered in
comp.infosystems.www.authoring.cgi... ]
>>>>> "Jimmy" == Jimmy Humphrey <jimmy@blackhole-designs.com> writes:
Jimmy> I am noticing that some people on aol browsers cause my cgi scripts to
Jimmy> crash on when I check for their $ENV{'HTTP_REFERER'} to make sure they
Jimmy> are coming from the right place, and not trying to me off. Do some
Jimmy> browsers not support $ENV{'HTTP_REFERER'} ?
Big clue: REFERER is only a hint. A browser is free to send whatever
it likes. Do not use it for authentication. Use it only a way of
doing approximate logging.
Jimmy> Is there another direct way
Jimmy> around it to tell where they are coming from?
Not unless you hand them a token of some kind (hidden field, mangled
URL, cookie that they accept). Or, just ask them. :)
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 16 Oct 1999 18:41:53 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: Bad Ref
Message-Id: <slrn80hfu8.qk.*@dragons.duesouth.net>
On Sat, 16 Oct 1999 16:39:36 GMT, Jimmy Humphrey
<jimmy@blackhole-designs.com> enriched us with:
: Do some
: browsers not support $ENV{'HTTP_REFERER'} ?
Only the smart ones.
All of the HTTP_\S+ variables are supplied by the browser, and are
totally optional.
: Is there another direct way
: around it to tell where they are coming from?
Ask them.
: Thanks,
HTH,
: Jimmy
--Matthew
------------------------------
Date: Sat, 16 Oct 1999 13:11:49 -0500
From: "Bob Tate" <btate@primary.net>
Subject: Determining the connection speed to the Internet
Message-Id: <pd3O3.1194$SU1.123965@news1.primary.net>
Hello,
While I am still reading a few books and searching the web I am trying to
develop code in Perl that will be able to determine the internet connection
speed of people as they visit my website. This would be useful in
determining what type of page to display to them. I believe that using
"Ping" is the way to go for starters, but not sure. Any one have any ideas
as to were to look or what to read?
------------------------------
Date: Sun, 17 Oct 1999 05:16:04 +0930
From: spamfree@metropolis.net.au (Henry Penninkilampi)
Subject: Re: Determining the connection speed to the Internet
Message-Id: <spamfree-1710990516040001@d4.metropolis.net.au>
In article <pd3O3.1194$SU1.123965@news1.primary.net>, "Bob Tate"
<btate@primary.net> wrote:
> While I am still reading a few books and searching the web I am trying to
> develop code in Perl that will be able to determine the internet connection
> speed of people as they visit my website. This would be useful in
> determining what type of page to display to them. I believe that using
> "Ping" is the way to go for starters, but not sure. Any one have any ideas
> as to were to look or what to read?
IMHO Ping is almost completely *useless* for this sort of thing. No
offense, but why anyone would think that sending a series of 56-Byte
packets from server to client would, in any way, reflect the rate at which
the client can pull 7KB pages (and 10KB GIFs, and 30KB JPEGs) from the
server is beyond me.
To the best of my knowledge, there is no way to ascertain the default
route's interface speed on the clients computer. If there is, then that's
what I would call a security hole, and Microsoft should plug it (oops, am
I making assumptions? ;)
Anyway, the closest you can get is to measure *throughput* in the *right*
direction with *real-world* data streams. The simplest way to do this is
to simply *time* how long it takes the visitor to *download* your page
(which, I assume you know the total size of).
Use inline JavaScript in <HEAD> to start a timer. Use <BODY onLoad="...">
to stop the timer. Sanity check the result and, if it makes sense, send
it back to the server with a CGI call. Size/Time => Speed.
Rule of thumb: Use client-end technologies to solve client-end problems.
Perl is a server-end technology and is ill-equipped to handle this sort of
problem. JavaScript, I reckon, is your best bet, and comp.lang.javascript
would be a more appropriate group to raise supplementary questions (if you
choose the JS path, of course).
Henry.
------------------------------
Date: Sat, 16 Oct 1999 18:35:40 +0100
From: MTW <suaai@csv.warwick.ac.uk>
Subject: email RegExp problem
Message-Id: <Pine.GSO.4.10.9910161831290.29373-100000@mimosa.csv.warwick.ac.uk>
Hi -
Wondering if anyone out there can improve on my user@host RE, so that it
can catch foo.bar@host
I've got
s/.*\W(\w+([.]\w)*\@\w+).*/\1/
but, being greedy, this only matches bar@host when given foo.bar@host
NB - I'm only looking for the first \w+ _after_ the '@', not the fully
qualified hostname!
Thanks a lot!
jC
Music Theatre Warwick
write: c/o Music Centre, University of Warwick, Coventry CV4 7AL, England
mailto:mtw@warwick.ac.uk
http://www.warwick.ac.uk/society/mtw/
------------------------------
Date: Sat, 16 Oct 1999 18:41:54 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: email RegExp problem
Message-Id: <slrn80hg8e.qk.*@dragons.duesouth.net>
On Sat, 16 Oct 1999 18:35:40 +0100, MTW <suaai@csv.warwick.ac.uk> was
attempting to recharge the laptop battery by typing:
: Wondering if anyone out there can improve on my user@host RE, so that it
: can catch foo.bar@host
This is a FAQ, you know?
[snip]
perldoc perlfaq9
...
=head2 How do I check a valid mail address?
...
Our esteemed Abigail has recently written a module that parses an email
address, perhaps you would want to search DejaNews for it.
RFC::RFC822::Address
: Thanks a lot!
HTH,
: jC
--Matthew
------------------------------
Date: 16 Oct 1999 13:21:05 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: email RegExp problem
Message-Id: <m1k8onxdji.fsf@halfdome.holdit.com>
>>>>> "MTW" == MTW <suaai@csv.warwick.ac.uk> writes:
MTW> Hi -
MTW> Wondering if anyone out there can improve on my user@host RE, so that it
MTW> can catch foo.bar@host
Catch it and do what? That's a perfectly legal email address!
Read the FAQ. Know that you should not discriminate against addresses
that are not alphanum on the left side, or bear the wrath of people
trying to type their legitimate address, only to be rejected by an
over-agressive validator.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 16 Oct 1999 20:00:35 +0200
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: encryption and crypt() ?
Message-Id: <3808bd43.524144494f47414741@radiogaga.harz.de>
Tom Phoenix (rootbeer@redcat.com) wrote:
: Dan Baker wrote:
: > Is the perl source for crypt() available as an "extra"
: > somewhere on CPAN that I missed it?
...
: I don't know why
: this hasn't already been made into a proper module and put onto CPAN.
I had the same reservations against it that speak from the message
`The crypt() function is unimplemented due to excessive paranoia.'.
I thought it was illegal to make encryption source code available
for export in the U.S.. Could someone comment on that, please?
: Maybe the author just hasn't had the chance yet, but (IMHO) it would be a
: welcome addition. Perhaps with a name change to Crypt::UnixCrypt, or some
: such, though.....
OK. Should it be Crypt::UnixCrypt?
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
OpenVMS: When you | work: mv@pdv-systeme.de
KNOW where you want | http://www.pdv-systeme.de/users/martinv/
to go today. | home: martin@radiogaga.harz.de
------------------------------
Date: Sat, 16 Oct 1999 14:22:52 -0500
From: Dan Baker <dtbaker_@busprod.com>
Subject: Re: encryption and crypt() ?
Message-Id: <3808D08C.A6C512BE@busprod.com>
Tom Phoenix wrote:
>
> On Fri, 15 Oct 1999, Dan Baker wrote:
>
> > Is the perl source for crypt() available as an "extra"
> > somewhere on CPAN that I missed it?
>
> If you get your Win32 Perl from ActiveState, I'm told that you get crypt
> with it automatically.
---------
maybe so.... But it is NOT in the GS release 5.004. I looks like it was
removed with premeditation. Makes no real sense to me since crypt()
seems to be a standard part of the UNIX OS, which is no big secret. I
sure wish it would get added back into the standard release! Does anyone
know if it is included in the current GS release for win32?
> http://www.pdv-systeme.de/users/martinv/Crypt.pm
----------
thanx, I will take a look
Dan
------------------------------
Date: Sat, 16 Oct 1999 14:24:54 -0500
From: Dan Baker <dtbaker_@busprod.com>
Subject: Re: encryption and crypt() ?
Message-Id: <3808D106.1FE437E6@busprod.com>
Martin Vorlaender wrote:
> I thought it was illegal to make encryption source code available
> for export in the U.S.. Could someone comment on that, please?
------------
I *think* the restriction is on 128-bit encryption tools. especially
tools that include encrypt/decrypt. I think that the low-tech crypt()
function is not an issue. After all, it is included in any server that
supports htaccess.......
Dan
------------------------------
Date: Sat, 16 Oct 1999 20:11:51 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: encryption and crypt() ?
Message-Id: <slrn80hl1r.19p.*@dragons.duesouth.net>
On Sat, 16 Oct 1999 14:22:52 -0500, Dan Baker <dtbaker_@busprod.com>
spewed forth:
: Tom Phoenix wrote:
: > If you get your Win32 Perl from ActiveState, I'm told that you get crypt
: > with it automatically.
: Does anyone
: know if it is included in the current GS release for win32?
ActiveState's release is the current GS release for win32.
: Dan
--Matthew
------------------------------
Date: Sat, 16 Oct 1999 18:05:32 GMT
From: sbarros6592@my-deja.com
Subject: list last five messages
Message-Id: <7uaep8$k1v$1@nnrp1.deja.com>
Dear All:
I have a WWWBoard Matts Wright.I would like call by SSI a code that
list the last five messages from the main page
(wwwboard.html).Please,anybody
can help me?
Thanx
Barros
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 16 Oct 1999 19:41:51 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: list last five messages
Message-Id: <slrn80hjlf.qk.*@dragons.duesouth.net>
On Sat, 16 Oct 1999 18:05:32 GMT, sbarros6592@my-deja.com poured coffee
onto a keyboard, producing the following in comp.lang.perl.misc:
: I have a WWWBoard Matts Wright.
I'm sorry.
: I would like call by SSI a code that
: list the last five messages from the main page
: (wwwboard.html).
Ok... What part are you having problems with?
: Please,anybody
: can help me?
Not unless you tell us what it is that's giving you problems.
: Thanx
HTH,
: Barros
--Matthew
------------------------------
Date: Sat, 16 Oct 1999 12:02:51 -0700
From: Jim Bowlin <bowlin@sirius.com>
Subject: Re: offtopic web transactions was [Re: What is best..?]
Message-Id: <3808CBDB.EF93E13E@sirius.com>
lt lindley wrote:
>
> Abigail <abigail@delanet.com> wrote:
> :>The best advice is not to use a stateless protocol for something
> :>that requires state. Every "solution" to this problem has its
> :>drawback, and will not work in all cases.
>
>
> What do the big sites do? Maintain transaction state in their
> database for a fixed period of time and do garbage collection?
Bingo. Maintaining state always involves storing and retrieving
information on/from the browser. Even though this is exactly
what cookies were designed to do, the most general purpose solution
is to put an ID# in the URL (either as pathinfo or part of the
querystring) and then lookup everything else in a database.
The GC is usually trivial. Ofen the "garbage" is valuable user
tracking info.
-- Jim Bowlin
------------------------------
Date: Sat, 16 Oct 1999 15:31:59 -0400
From: Bernie Cosell <bernie@fantasyfarm.com>
Subject: Re: perl wrapper scripts of executables with sticky executable bit
Message-Id: <JNIIOFHrJFPIv+RBIFPTsfpZ3BEc@4ax.com>
edew@netcom.com (Eric Dew) wrote:
} I would like to write some perl scripts to wrap over some executables.
} Also, I want to change the permission for that executable (say, co (checkout
} in RCS :-)) to be rwsr--r-- so that only the owner of the utility can
} execute it. This way, people MUST use the perl script and not use the
} actual co command to do their work.
You've got the right idea, but you got a bit confused..
} Apparently, I can't just set $ENV{"LOGNAME"} = "co owner" and then
} run the command after that. I believe I have to run `su "co owner"`;
} first. But su requires I input the password.
}
} Any ideas on how to write perl scripts to wrap commands with sticky
} executable bit?
Set your executables to be:
rwx------ co.anygroup
Then set your wrapper to be
rwsr-xr-x co.groupdoesn'tmatter
And it'll do the right thing
/Bernie\
--
Bernie Cosell Fantasy Farm Fibers
bernie@fantasyfarm.com Pearisburg, VA
--> Too many people, too few sheep <--
------------------------------
Date: 16 Oct 1999 17:30:36 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: qr operator the $_
Message-Id: <7uacns$i26$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to lt lindley
<lee.lindley@bigfoot.com>],
who wrote in article <7ua4qt$ep3$1@rguxd.viasystems.com>:
> :>somehow I thought there'd be more magic behind the scenes. Is that all
> :>there is to qr() or am I missing something?
>
> There is less magic than I thought when I first saw it too. It is
> mostly just a quoting operator.
To put credit where it belongs: IIRC, phrase "quoting operator" in
context of compilation of regular expressions belongs to Larry. He
was objecting to my reuse of `study' as an operator to compile a REx:
$compiled_REx = study /REx/;
was how the initial implementation looked like. It was later that I
realized that an introduction of (?foo-bar:REx) and of transparent
stringification of $compiled_REx allow one to remove *all* the magic
altogether. The motto became
"It may be compiled, but this is an implementation detail." ;-)
Ilya
------------------------------
Date: Sat, 16 Oct 1999 18:31:23 GMT
From: "Mike" <mike@facombat.com>
Subject: rand generator limitatoins - request expert advice
Message-Id: <%v3O3.2328$p4.342249@typhoon3.rdc-detw.rr.com>
To whom it may concern,
(If the first paragraph doesn't make sense to you, please read on. it gets
easier, trust me.)
The machine I'm programming on only allows 15 bits per random number
generation, meaning that if i want a random number between 0 and anything
greater than 32767, things are going to be severely unbalanced. My program
code extracts data from rows of a database, and adds them all up into an
accumulative variable. The program then selects a random number between 0
and the accumulative variable, and repeats the database row query and adds
up the values one by one and stops when it reaches the random number,
thereby selecting a 'random' value in proportion to what percentage of the
total value it occupies.
If that all didn't make sense, that's fine. I want to know how I can get a
random number between 0 and 4e10(or even 4e20), and if there is a solution
out there, I would love to hear it. If you suggest the Math::TrulyRandom
module, please explain what its main function truly_random_value() returns
and how well it works, in terms of limits.
Your responses are appreciated, and please cc them to mike@cardosa.com so i
don't have to check back. It kills my system resources to load my news
reader over and over again.
Thanks!
Mike Cardosa
------------------------------
Date: Sat, 16 Oct 1999 10:07:06 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: shifting a hash
Message-Id: <aq0au7.g07.ln@magna.metronet.com>
Tom Kralidis (tom.kralidis@ccrs.nrcanDOTgc.ca) wrote:
: Subject: shifting a hash
That is a non-sense statement.
shift() removes the first element of an array.
"first" implies ordered, and hashes are not ordered.
You cannot shift() a hash.
You can, however, shift an array referenced by a scalar
contained in a hash though (a HoL data structure).
: I've been working on script to correct data files. The script does
: corrections based on a hash:
: key value
: 33.44 444
: 55.69 741
: 88.88 777
: The has gets created by a foreach loop, with:
^^^
^^^ this typo appears 6 times. too much to qualify as a "typo".
a little more care please.
: push(@{ $errorList{$error} }, $pointID );
: The has gets sorted so that the highest key's value is returned, then
If the hash is large, there are more efficient ways of finding
the "largest value" than sorting (like looping over all of
the values).
: used to zero weight the key's value in another file. The above case
: would return value 777, with the following code:
: foreach (reverse sort keys %errorList)
: {
: print "$_: @{$errorList{$_}}\n";
: $skew = $errorList{$_}->[0] if not defined $skew;
: }
Since you only want the one value, won't this do the same thing
as the foreach and avoid some looping?
$skew = $errorList{ (reverse sort keys %errorList)[0] }->[0];
: For each iteration of this process, I would like to shift (delete the
^^^^^^
^^^^^^
: first value) the has so that the script looks for a value that has not
: been zero-weighted in the previous loop. I have tried:
: shift(@{ $errorList{$error} }, $pointID );
: to remove the first key - value,
shift removes the first element (of the anon array pointed to
by the hash value).
it does not remove key/value pairs.
You want to remove the key and the array ref?
: Does anyone have any advice on this?
perldoc -f delete
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 16 Oct 1999 17:21:08 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: sleep in win32 ?
Message-Id: <7uac5b$61e$1@nickel.uunet.be>
In article <3808ACA3.4F0BFE2D@mail.nih.gov>, Ying Hu <yhu@mail.nih.gov> wrote:
>I want to get the result after the refresh such as the following:
><META HTTP-EQUIV="Refresh"
>CONTENT="6;URL=http://www.aaa.com/bbb/bbbb.cgi?something1=string1&something2=st
>ring2">
>
>Can I get the result after sleeping 6 second?
Of course. You could also try :
#include <windows.h>
void main ( int argc, char *argv[] )
{
Sleep(6*1000L);
printf("Time to finish this stupid thread\n");
}
Neither has much to do with Perl, though...
Have you tried news.admin.net-abuse.usenet ?
Michel.
------------------------------
Date: Sat, 16 Oct 1999 14:35:19 -0500
From: Dan Baker <dtbaker_@busprod.com>
Subject: Re: Testing CGI scripts on win 98
Message-Id: <3808D377.AABD1EC9@busprod.com>
Martin Elliott wrote:
>
> Is there another way to test CGI scripts without installing server
> software??
--------------
dont be afraid.... the xitami server from www.imatix.com is small, fast,
and easy to configure. runs right out of the box. for future cgi issues,
you should probably post to comp.infosystems.www.authoring.cgi
Dan
------------------------------
Date: 16 Oct 1999 16:25:16 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Time in $time
Message-Id: <x7d7ufgij7.fsf@home.sysarch.com>
>>>>> "JS" == Jonathan Stowe <gellyfish@gellyfish.com> writes:
JS> On 15 Oct 1999 13:45:35 -0400 Uri Guttman wrote:
>>>>>>> "CB" == Craig Berry <cberry@cinenet.net> writes:
>>
CB> my $timestr = strftime '%Y-%m-%d %H:%M:%S', localtime;
>>
>> golf, anyone?
>>
JS> The problem with that is that you Americans all start jumping on
JS> the green before its all over ...
you eurotrash are just sore losers. can't play real or perl golf!
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 16 Oct 1999 18:13:47 GMT
From: gbacon@ruby.itsc.uah.edu (Greg Bacon)
Subject: Re: tr// question
Message-Id: <7uaf8r$29l$4@info2.uah.edu>
In article <38076D36.469AA5B0@cygnus.ucdavis.edu>,
Brandon <pooka@cygnus.ucdavis.edu> writes:
: Apparently, you're all interested enough to make the effort to offer
: snide answers. Why not just say nothing, instead of putting people down?
: But then again, how would that make you feel bigger... Better not risk
: it..
Never judge a man until you've walked a mile in his shoes. You may
have taken about two steps in ours. Read and answer questions in this
newsgroup for a few years. After that, let's see how cheery and gleeful
and June Cleaver you are with people who haven't read the docs but want
you to just give them the answer.
Greg
--
People avoid and indulge in Lisp and LSD for the same sets of reasons.
-- gbacon
------------------------------
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 1095
**************************************
