[12316] in Perl-Users-Digest
Perl-Users Digest, Issue: 5916 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 8 00:07:27 1999
Date: Mon, 7 Jun 99 21:00:17 -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 Mon, 7 Jun 1999 Volume: 8 Number: 5916
Today's topics:
Accessing MS SQL Server from UNIX Perl... <sgilbert@redcloud.org>
freelancer for hire <jerms@iname.com>
Re: Get Date in Perl <outlaw_torn@mailexcite.com>
Re: Get Date in Perl (Ronald J Kimball)
Re: Get Date in Perl <uri@sysarch.com>
getting perl output(HTML code) from a remote host. perl_beginner@my-deja.com
Help with SIGCHLD and qx() <derek@fortstar.demon.co.uk>
Interpreter. <fabrice@centropolisfx.com>
Re: Interpreter. <uri@sysarch.com>
Re: know Perl to maintain Perl (was: Re: I pass an arra (Ronald J Kimball)
Re: Log idle users off UNIX server script <rootbeer@redcat.com>
Looking for a Command Line E-Mailer for NT <sova0001@algonquinc.on.ca>
Re: mail problems... still :) (Ronald J Kimball)
Perl module to read Rich Text Format files? (Michael Loll)
Perl Script with user's permissions cor75@my-deja.com
Re: Perl/RE savvy??? keol@my-deja.com
Re: Perl/RE savvy??? (Larry Rosler)
Re: Perl/RE savvy??? (Sam Holden)
Re: Perl/RE savvy??? (Ronald J Kimball)
Re: Perl/RE savvy??? (Larry Rosler)
Perl5 on Dynix <keith.a.humphrey@ac.com>
Re: REDIRECT in the BODY of a HTML page... <rootbeer@redcat.com>
Re: Split <rootbeer@redcat.com>
URL as a variable?? <support@webintention.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 07 Jun 1999 22:07:25 -0400
From: Steve Gilbert <sgilbert@redcloud.org>
Subject: Accessing MS SQL Server from UNIX Perl...
Message-Id: <375C7ADD.6E759368@redcloud.org>
Is this possible? I know there's an ODBC module for WIN32 perl, but is
it possible for Perl, say on my Linux box, to access my SQL Server on a
remote NT box?
- Steve
Steve Gilbert
MCSE
Production Systems Manager
The Charlotte Observer
------------------------------
Date: Tue, 08 Jun 1999 00:15:14 GMT
From: jerms <jerms@iname.com>
Subject: freelancer for hire
Message-Id: <375C5F8F.9832C6D0@iname.com>
Hi, I am a perl/database freelancer. I can write custom applications
for you or resolve your perl/database problems. If you are interested
in hiring me on a contract basis please email jerms@iname.com.
Thanks
J.Lindsay
------------------------------
Date: Tue, 08 Jun 1999 00:02:39 GMT
From: outlaw_torn <outlaw_torn@mailexcite.com>
Subject: Re: Get Date in Perl
Message-Id: <7jhmir$5jt$1@nnrp1.deja.com>
In article <x7btes8not.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
> that should be $current_time[5] and it is not a 2 digit year. you have
> just propogated a y2k bug.
Yeah...everyone has to do their part
> the year value is an offset from 1900 which
> you would have know had you consulted the documentation.
Doco...whats that?
> why do you post answers which are not correct? why are you guessing
what
> the values are?
Because I don't have my perl book with me, and I figure I wouldn't have
have any fussy pricks that love to fuckin whinge reading my post.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 7 Jun 1999 22:35:51 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Get Date in Perl
Message-Id: <1dt1ul7.4nps5l1iifx22N@p67.block2.tc1.state.ma.tiac.com>
outlaw_torn <outlaw_torn@mailexcite.com> wrote:
> In article <x7btes8not.fsf@home.sysarch.com>,
> Uri Guttman <uri@sysarch.com> wrote:
>
> > why do you post answers which are not correct? why are you guessing
> what
> > the values are?
>
> Because I don't have my perl book with me, and I figure I wouldn't have
> have any fussy pricks that love to fuckin whinge reading my post.
"I don't have the documentation with me, so I'm going to post a bullshit
answer that will undoubtedly mislead the innocent newbie looking for
help, and the rest of you assholes better not give me a hard time about
it."
If you don't want to be corrected, don't post answers that you know are
incorrect, moron.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 07 Jun 1999 23:44:34 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Get Date in Perl
Message-Id: <x7ogir73vh.fsf@home.sysarch.com>
>>>>> "ot" == outlaw torn <outlaw_torn@mailexcite.com> writes:
ot> In article <x7btes8not.fsf@home.sysarch.com>,
ot> Uri Guttman <uri@sysarch.com> wrote:
>> that should be $current_time[5] and it is not a 2 digit year. you have
>> just propogated a y2k bug.
ot> Yeah...everyone has to do their part
well we don't need your help spreading bugs. there are enough as it is.
>> the year value is an offset from 1900 which
>> you would have know had you consulted the documentation.
ot> Doco...whats that?
it is obvious you really don't have a clue about perl or usenet.
>> why do you post answers which are not correct? why are you guessing
ot> what
>> the values are?
ot> Because I don't have my perl book with me, and I figure I wouldn't have
ot> have any fussy pricks that love to fuckin whinge reading my post.
we love to correct idiotic and wrong posts. you just happened to be my
favorite in a long while. telling wrong information, AND telling them to
figure it out from empirical (look it up. you probably don't know how to
use a dictionary either) results. at least we regulars just correctly if
snippily say RTFM. in your case that is wasted.
ot> Share what you know. Learn what you don't.
what a crock. when's the last time we have seen a good answer from a
deja posting. (stowe in london being excepted. why are you using deja?)
uri, the happy whinger!
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Tue, 08 Jun 1999 01:12:07 GMT
From: perl_beginner@my-deja.com
Subject: getting perl output(HTML code) from a remote host.
Message-Id: <7jhql1$6v1$1@nnrp1.deja.com>
Is there anyway I can get the output of perl from a remote host and
put it in a localhost without using SSI?
For example, printhello.pl (on www.host1.com) will return
"<B>hello from host1</B>"
www.host2.com should get something like <B>This is host2
code</B><B>hello from host1</B>
Thanks!
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 03 Jun 1999 17:02:44 +0100
From: Derek <derek@fortstar.demon.co.uk>
Subject: Help with SIGCHLD and qx()
Message-Id: <3756A724.12503C0B@fortstar.demon.co.uk>
I'm running the following script on AIX with Perl 5.004:
---
#!/bin/perl -w
use strict;
use POSIX qw(:sys_wait_h :signal_h);
sub reaper
{
my $dead_child = wait;
print "Reaped $dead_child with status of $?\n";
}
$SIG{CHLD} = \&reaper;
my @lines = qx(ps);
die("Dead with $?\n") if( ($? >> 8) != 0 );
---
The result is always:
---
> ./reaper.pl
Reaped 21012 with status of 0
Dead with -1
---
Basically, what I think is happening is that my signal handler is
reaping the child process forked by the qx(), and is then changing the
$? variable from the correct value (0) to something horrible (-1) even
though @lines contains what I want.
Why does this happen, and how can I make my qx() work properly with my
own CHLD signal handler in place? The bigger picture involves code which
does a lot of qx() stuff (which I'm happy to let perl handle in it's
usual way), but which also starts a process with a standard fork/exec
(which I want to reap and deal with myself).
Del
------------------------------
Date: Mon, 07 Jun 1999 18:00:46 -0700
From: Fabrice Ceugniet <fabrice@centropolisfx.com>
Subject: Interpreter.
Message-Id: <375C6B3E.9C5D2D0@centropolisfx.com>
The Perl application I am writing would need an interpreter.
Does anyone have an idea of what already exist in Perl. Is there
any lex/yacc equivalent in Perl ? Is it possible to give Perl a
grammar ?
Thanks for the input,
fabrice.
------------------------------
Date: 07 Jun 1999 23:50:12 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Interpreter.
Message-Id: <x7k8tf73m3.fsf@home.sysarch.com>
>>>>> "FC" == Fabrice Ceugniet <fabrice@centropolisfx.com> writes:
FC> The Perl application I am writing would need an interpreter.
FC> Does anyone have an idea of what already exist in Perl. Is there
FC> any lex/yacc equivalent in Perl ? Is it possible to give Perl a
FC> grammar ?
FC> Thanks for the input,
there is a yacc that generates perl. i believe it is byacc out of
berkeley. it should be easy to find on the net. i don't think there is a
lex but perl does token parsing as well as lex so there is
no need for a separate program. i am sure there have been thousands of
custom lexers written in perl as it is so easy.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Mon, 7 Jun 1999 22:35:52 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: know Perl to maintain Perl (was: Re: I pass an array...)
Message-Id: <1dt1ux5.1flobui1gvmskxN@p67.block2.tc1.state.ma.tiac.com>
Greg Bacon <gbacon@itsc.uah.edu> wrote:
> I believe you've built a straw man. If the very author of the code in
> question can't explain it, it isn't likely to be maintainable anyway.
Hey, I've got my fallacies, and you've got yours:
> Down this path lies COBOL with reserved words in Esperanto.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 7 Jun 1999 17:39:37 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Log idle users off UNIX server script
Message-Id: <Pine.GSO.4.02A.9906071739150.17029-100000@user2.teleport.com>
On Mon, 7 Jun 1999 avramil@my-deja.com wrote:
> Does anyone know of a perl script that will log users off a UNIX
> server after a certain amount of idle time?
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 07 Jun 1999 21:10:41 -0400
From: Jason Sova <sova0001@algonquinc.on.ca>
Subject: Looking for a Command Line E-Mailer for NT
Message-Id: <375C6D91.B6B49CD4@algonquinc.on.ca>
Does anybody here know where I could find a nice comand line based
E-Mailer that I could use with perl to send the results of a online
form? My OS is NT.
Thanks
Jason
sova0001@algonquinc.on.ca
------------------------------
Date: Mon, 7 Jun 1999 22:35:53 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: mail problems... still :)
Message-Id: <1dt1v4m.14lpirmck8usiN@p67.block2.tc1.state.ma.tiac.com>
Bastiaan S van den Berg <office@asc.nl> wrote:
> > perl -wle 'print "\usr\bin\sendmail"'
> > Sinsendmail
>
>
> sorry , i can't figure this out , what does it do?
>
It does just what you see. \u in double-quoted strings converts the
next character to uppercase if it's a letter. \b is a backspace. \s
doesn't have a meaning, so it's just an 's'.
So, if you print the double-quoted string "\usr\bin\sendmail", you get:
Sinsendmail
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
perl -e '$_="\012534`!./4(%2`\cp%2,`(!#+%2j";s/./"\"\\c$&\""/gees;print'
------------------------------
Date: Tue, 08 Jun 1999 02:38:52 GMT
From: mloll@wam.umd.edu (Michael Loll)
Subject: Perl module to read Rich Text Format files?
Message-Id: <7ji02r$nlf$1@dailyplanet.wam.umd.edu>
Keywords: rich text format module text
Hi, I was wondering if there was a perl module that could read and write
Rich Text Format documents? If not, would something like this interest
people?
Is RTF format copyrighted?
Any info is appreciated, if you respond could you CC mloll@wam.umd.edu also?
Thanks.
--
Mike Loll
------------------------------
Date: Mon, 07 Jun 1999 22:52:17 GMT
From: cor75@my-deja.com
Subject: Perl Script with user's permissions
Message-Id: <7jhiet$45o$1@nnrp1.deja.com>
I would like my script to run with the permissions of the user that
activated it. The script needs to be able to write two files to the
user's directory and I don't want to run the script as root. Is it
possible to run the script as the user? Do I need a wrapper to do this?
If so, where would I find information on wrappers?
I appreciate any help you have to offer.
Thanks,
Cory
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 07 Jun 1999 22:50:29 GMT
From: keol@my-deja.com
Subject: Re: Perl/RE savvy???
Message-Id: <7jhibi$453$1@nnrp1.deja.com>
In article <sipv38vwwb.fsf@cre.canon.co.uk>,
Gareth Rees <garethr@cre.canon.co.uk> wrote:
> keol@my-deja.com wrote:
> > I could write /^(des|desc|descr|descri|describ|describe)$/ but
> > shouldn't it be possible to write it in a more compact way?
>
> Turn the match round and use the user input as the regexp:
>
> "describe" =~ /^\Q$input/i
>
> (This is recipe 6.20 in the Perl Cookbook). Or use Text::Abbrev from
> CPAN.
>
> --
> Gareth Rees
>
This was cool! Much obliged.
If you still have the time though :-)...is there a compact way also of
saying that the $input must be at least a minimum amount of the LHS?
Preferably so that it may be different for different commands (ie 'des'
is ok for 'describe' but 'lsrep' is required for 'lsreplica').
Well, don't bother if there is no way to do it - I'm looking at the
Text::Abbrev also; this looks to be a nice way to get it done.
Again, thanks for your help (and others who have responded).
ken1
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 7 Jun 1999 18:03:27 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl/RE savvy???
Message-Id: <MPG.11c60bb6e924d340989b89@nntp.hpl.hp.com>
In article <eli$9906071816@qz.little-neck.ny.us> on 7 Jun 1999 22:31:05
GMT, Eli the Bearded <*@qz.to> says...
...
> Sure, let's try them. You mean substr($pattern, 0, length($input),
> of course. The use of (c|$) vs. (?:c|$) can be a big hit if $1, etc
> are used. I don't know how well optimized this is, but newer perls
> probably do a better.
So why not change the '('s to '(?:' in the benchmarks?
> Benchmark: timing 50000 iterations of catenated, nested, reiteration, substr().
> catenated: 66 wallclock secs (24.04 usr + 2.01 sys = 26.05 CPU)
> nested: 33 wallclock secs (21.01 usr + 1.99 sys = 23.00 CPU)
> reiteration: 40 wallclock secs (21.04 usr + 1.86 sys = 22.90 CPU)
> substr(): 29 wallclock secs (15.40 usr + 1.50 sys = 16.90 CPU)
>
> Elijah
> ------
> #!/usr/bin/perl -w
> use Benchmark;
>
> my @what = qw(des desc descr descri describ describe described);
> my $rc;
>
> timethese(50000, {
> 'reiteration' => sub {
> foreach (@what) {
> $rc = /^(des|desc|descr|descri|describ|describe)$/i;
> }
> },
> 'nested' => sub {
> foreach (@what) {
> $rc = /^des(?:c(?:r(?:i(?:be?)?)?)?)?$/i;
> }
> },
> 'catenated' => sub {
> foreach (@what) {
> $rc = /^des(c|$)(r|$)(i|$)(be?|$)$/i;
> }
> },
> 'substr()' => sub {
> foreach (@what) {
> $rc = ((length($_) >= 3) and
> (substr('describe', 0, length($_)) eq lc $_));
Didn't you get a warning here about the precedence error in using 'and'
instead of '&&'? Your benchmark is bogus. Even benchmarks should be
tested (print the result with one iteration).
> }
> }
> });
...
my @regexes = map qr/(?i)\Q$_/ => @what;
...
$rc = /^(?:des|desc|descr|descri|describ|describe)$/i
...
$rc = /^des(?:c(?:r(?:i(?:be?)?)?)?)?$/i
...
$rc = /^des(?:c|$)(?:r|$)(?:i|$)(?:be?|$)$/i
...
'clueless' => sub {
$rc = 'describe' =~ /\Q$_/i for @what;
},
'clever' => sub {
$rc = 'describe' =~ /$_/ for @regexes;
},
});
Benchmark: timing 50000 iterations of catenated, clever, clueless,
nested, reiteration, substr()...
catenated: 5 wallclock secs ( 4.53 usr + 0.00 sys = 4.53 CPU)
clever: 4 wallclock secs ( 3.50 usr + 0.00 sys = 3.50 CPU)
clueless: 23 wallclock secs (22.66 usr + 0.00 sys = 22.66 CPU)
nested: 7 wallclock secs ( 5.72 usr + 0.00 sys = 5.72 CPU)
reiteration: 6 wallclock secs ( 4.27 usr + 0.00 sys = 4.27 CPU)
substr(): 6 wallclock secs ( 4.22 usr + 0.00 sys = 4.22 CPU)
My conclusions:
1. 'clever' (posted by Gareth Rees) is the winner, provided one isn't
'clueless' enough to recompute all the regexes every time around the
benchmark loop.
2. 'substr()' isn't so impressive when it works.
3. Dumb 'reiteration' beats the fancy 'catenated' (by Ilya) and
'nested'.
4. 'nested' (posted by me) is a clear loser.
5. My machine is a lot faster than yours!
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Jun 1999 01:25:18 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Perl/RE savvy???
Message-Id: <slrn7los7u.o2t.sholden@pgrad.cs.usyd.edu.au>
On Mon, 07 Jun 1999 22:50:29 GMT, keol@my-deja.com <keol@my-deja.com> wrote:
>In article <sipv38vwwb.fsf@cre.canon.co.uk>,
> Gareth Rees <garethr@cre.canon.co.uk> wrote:
>> keol@my-deja.com wrote:
>> > I could write /^(des|desc|descr|descri|describ|describe)$/ but
>> > shouldn't it be possible to write it in a more compact way?
>>
>> "describe" =~ /^\Q$input/i
>
>If you still have the time though :-)...is there a compact way also of
>saying that the $input must be at least a minimum amount of the LHS?
Check that the length of $input is >= the mimimum size as well.
--
Sam
Perl was designed to be a mess (though in the nicest of possible ways).
--Larry Wall
------------------------------
Date: Mon, 7 Jun 1999 22:35:54 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Perl/RE savvy???
Message-Id: <1dt1vgv.595xv8h8fraN@p67.block2.tc1.state.ma.tiac.com>
Larry Rosler <lr@hpl.hp.com> wrote:
> > 'substr()' => sub {
> > foreach (@what) {
> > $rc = ((length($_) >= 3) and
> > (substr('describe', 0, length($_)) eq lc $_));
>
> Didn't you get a warning here about the precedence error in using 'and'
> instead of '&&'? Your benchmark is bogus. Even benchmarks should be
> tested (print the result with one iteration).
Please explain how one can have a precedence error in a fully
parenthesized expression.
This code is just fine with 'and'. The benchmark is fine too.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 7 Jun 1999 19:27:09 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl/RE savvy???
Message-Id: <MPG.11c61f5780e0fb09989b8a@nntp.hpl.hp.com>
In article <1dt1vgv.595xv8h8fraN@p67.block2.tc1.state.ma.tiac.com> on
Mon, 7 Jun 1999 22:35:54 -0400, Ronald J Kimball
<rjk@linguist.dartmouth.edu> says...
...
> Please explain how one can have a precedence error in a fully
> parenthesized expression.
>
> This code is just fine with 'and'. The benchmark is fine too.
Yes. I introduced the error in my own version. But it points up a
problem in readability. Using 'and' implies very low priority. Munging
that with parentheses makes it work, but loses the message of normal
priority that && would provide.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 07 Jun 1999 20:34:38 -0400
From: "Keith A. Humphrey" <keith.a.humphrey@ac.com>
Subject: Perl5 on Dynix
Message-Id: <375C651D.E1619B70@ac.com>
Can perl5 run on a Sequent Dynix/ptx platform?
------------------------------
Date: Mon, 7 Jun 1999 18:01:38 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: REDIRECT in the BODY of a HTML page...
Message-Id: <Pine.GSO.4.02A.9906071800170.17029-100000@user2.teleport.com>
On Tue, 8 Jun 1999, Claus Pruefer wrote:
> i want do do a simple REDIRECT. the fact is: i dont want do do it in the
> HEADER of an html-page. is this possible?
It might be. Perhaps the docs, FAQs, and newsgroups about HTML, HTTP, CGI
programming, and related topics could be of help to you. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 7 Jun 1999 17:36:05 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Split
Message-Id: <Pine.GSO.4.02A.9906071735110.17029-100000@user2.teleport.com>
On Mon, 7 Jun 1999, Bob Perini wrote:
> I've got this directory name, and I need to split on a frontslash
> character
You probably want '/', but you probably _really_ want File::Basename or
some such. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 7 Jun 1999 20:48:22 -0700
From: "Blake Starkenburg" <support@webintention.com>
Subject: URL as a variable??
Message-Id: <eFKUgHWs#GA.294@cpmsnbbsa05>
Is it possible or is the URL of a current browser window set to a variable.
I know I can get the $QUERY_STRING or $SERVER_NAME but is it possible to get
the complete URL, say this was displayed in the browser address bar
http://www.something.com/aplace/cgi-bin/?name=one&place=two
is that set as a variable???? is it possible to call it in a PHP or Perl
script??
All help is greatly appreciated
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5916
**************************************
