[18909] in Perl-Users-Digest
Perl-Users Digest, Issue: 1077 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 6 18:07:16 2001
Date: Wed, 6 Jun 2001 15:05:16 -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: <991865116-v10-i1077@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 6 Jun 2001 Volume: 10 Number: 1077
Today's topics:
Re: 2 questions about flock <flavell@mail.cern.ch>
ANNOUNCE: Champaign-Urbana Perl Mongers meeting Tue Jun (Daniel S. Lewart)
Re: BLAT problems just popped up; doesn't like To: addr (dave)
Re: Bug in assignment operator <godzilla@stomp.stomp.tokyo>
Re: Buggy chomp behaviour (was Re: ReadLine requiring ^ (Sweth Chandramouli)
Re: Date of Halloween (for Date::Calc module)? <lmoran@wtsg.com>
DBM and HTTPD::UserAdmin <ghardisty@asia-net.com>
Re: edit text database SCRIPT <pilsl_@goldfisch.at>
find() within find()? <Patrick_member@newsguy.com>
Re: Flame,help or killfile ? <godzilla@stomp.stomp.tokyo>
Re: Flame,help or killfile ? <lmoran@wtsg.com>
Re: Flame,help or killfile ? <der.prinz@gmx.net>
Re: How to get help available on perldoc? <lmoran@wtsg.com>
how to redirect STDOUT/STDERR when passing array to sys <dontuspamme@nospammers.com>
Re: how to redirect STDOUT/STDERR when passing array to (Tad McClellan)
Re: how to redirect STDOUT/STDERR when passing array to (Charles DeRykus)
Re: How to sort by number first then sort by english na <comdog@panix.com>
Re: How to sort by number first then sort by english na <ren@tivoli.com>
Re: How to sort by number first then sort by english na <ren@tivoli.com>
http 500 error on NT5 IIS <res0f00x@verizon.net>
Re: Is this Perl??? nobull@mail.com
Re: Newbie: Help with cookie code ? nobull@mail.com
OK, it's a bug. I think. (Sweth Chandramouli)
Re: OK, it's a bug. I think. <elijah@workspot.net>
OT (was Process form WITHOUT feedback page PART 2) (GearGirl)
Re: OT :: What to do if you've been kill filed (Egghead)
Re: OT :: What to do if you've been kill filed <lmoran@wtsg.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 6 Jun 2001 20:27:24 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: 2 questions about flock
Message-Id: <Pine.LNX.4.30.0106062008170.9059-100000@lxplus003.cern.ch>
On 6 Jun 2001 nobull@mail.com wrote:
> Correct. Some locking models (but not the ones accessible on most
> operating systems via Perl's flock()) have three lock types
> read/write/protect.
[...]
thanks...
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> > My naive assumption has been that you simply lock a file again when
> > you want to change the type of lock. This has worked as expected in
> > a few experiments.
>
> But will eventually get into a deadly embrace.
If there are potentially multiple write processes, I can see that,
yes.
What if there are potentially multiple read processes (say for example
web server access), but only one write process (say for example an
overnight maintenance task)?
cheers
------------------------------
Date: Wed, 06 Jun 2001 19:35:28 GMT
From: d-lewart@uiuc.edu (Daniel S. Lewart)
Subject: ANNOUNCE: Champaign-Urbana Perl Mongers meeting Tue Jun 12
Message-Id: <4CvT6.8554$ki5.119087@vixen.cso.uiuc.edu>
Champaign-Urbana Perl Mongers,
By popular demand, the next meeting of the Champaign-Urbana
Perl Mongers shall be:
Tue Jun 12 18:00 CDT 2001
Papa Del's
206 E Green St
Champaign, IL
Bring your Perl questions, scripts, and stories.
Benevolently,
Daniel Lewart
http://cmi.pm.org/
------------------------------
Date: 6 Jun 2001 14:10:05 -0700
From: usted@cyberspace.org (dave)
Subject: Re: BLAT problems just popped up; doesn't like To: address
Message-Id: <e2c00ae.0106061310.2e7c00bc@posting.google.com>
Joe Schaefer <joe+usenet@sunstarsys.com> wrote in message news:<m3hextijib.fsf@mumonkan.sunstarsys.com>...
> "Scott Trautman" <scott-donspahmme@gdinet.com> writes:
>
> > Very sorry for posting here, as close to appropriate as I could find from
> > searching on dejanews.
> ^^^^^^^^
>
> Dejanews is dead- try google instead. A cursory web search for
> "blat IIS" turned up lots of potentially relevant information- here's
> one that might be helpful:
>
> http://groups.yahoo.com/group/blat/message/468
>
> IMHO you'd be better off taking your question to a blat-related
> mailing list anyway, since the problem is probably not Perl-related.
>
> Good luck.
I was using BLAT and DBLAT to send email from Perl, but it is simply a
bad idea. I would suggest trying to use Mail::Mailer instead.
dave
------------------------------
Date: Wed, 06 Jun 2001 11:50:00 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Bug in assignment operator
Message-Id: <3B1E7B58.A53155DB@stomp.stomp.tokyo>
nobull@mail.com piled it high and deep:
> Godzilla! wrote:
> > Anno Siegel wrote:
(clearly snipped)
( )
==\ __ __[oo
\/ /\@
## l_____|
#### ll ll
###### LL LL
Godzilla!
------------------------------
Date: Wed, 06 Jun 2001 20:01:01 GMT
From: sweth+perl@gwu.edu (Sweth Chandramouli)
Subject: Re: Buggy chomp behaviour (was Re: ReadLine requiring ^D to terminate)
Message-Id: <1_vT6.58234$G5.12662501@news1.rdc1.md.home.com>
(Why do I feel like Kira, replying to myself over and over
again in a quest to track down some obscure behaviour?)
Anyway, I _think_ I've tracked my problem down--and I'm
still perplexed. Before my call to prompt_user, I have a call to
another sub called build_message_list, defined as follows:
sub build_message_list {
my (@message_list);
foreach my $input_file (@ARGV) {
open (INPUT_FILE, "<$input_file")
or die ("Could not open input file $input_file for reading: $!");
local $INPUT_RECORD_SEPARATOR;
my $message = <INPUT_FILE>;
close (INPUT_FILE);
push (@message_list, $message);
};
return (@message_list);
};
__END__
.
I'm use-ing English, so $INPUT_RECORD_SEPARATOR _should_
be an alias for $/, as should $RS. If I use either of the longer versions,
however, my problematic behaviours with ReadLine and chomp persist; if I
change to $/, things work perfectly, and all of the buggy behaviours go
away. Even more strangely, if I check $INPUT_RECORD_SEPARATOR's value in
the prompt_user sub, it returns undef, which would explain the failure to
chomp, and the need for an EOF to terminate the user input--but checking $/
at the exact same place in the code shows it as containing a newline
(regardless of which name I use to set $/ in the build_message_list sub).
So I guess my four questions are now:
1) Why can't I use $INPUT_RECORD_SEPARATOR instead of $/
under use English to slurp in an entire file?
2) Why, when I unset $INPUT_RECORD_SEPARATOR in a local
(dynamic) scope that shouldn't persist through to the call to prompt_user,
does that change persist anyways?
3) How can $/ and $INPUT_RECORD_SEPARATOR have different
values at the same time under use English?
4) Why do ReadLine and chomp obey $INPUT_RECORD_SEPARATOR
over $/ when there are two different values for those vars?
. (This is with perl, version 5.005_03 built for
sun4-solaris-thread, for reference.)
Any thoughts?
-- Sweth.
--
Sweth Chandramouli ; <sweth+perl@gwu.edu>
------------------------------
Date: Wed, 06 Jun 2001 14:58:00 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Date of Halloween (for Date::Calc module)?
Message-Id: <r8vsht07fnq1221q4moqtbbviegc66uknk@4ax.com>
On Wed, 06 Jun 2001 17:48:52 GMT, "Todd Smith" <todd@designsouth.net>
wrote wonderful things about sparkplugs:
>
>"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
>news:9flklt$ooh$2@mamenchi.zrz.TU-Berlin.DE...
>> According to Todd Smith <todd@designsouth.net>:
>> >
>> > It's always October 31
>>
>> YM September. HTH.
>>
>> Anno
>
>what?
>
Yeah, ???
--
BSOD? In my day we didn't have 0000FF!
lmoran@wtsg.com
------------------------------
Date: Wed, 06 Jun 2001 20:28:01 GMT
From: "George Hardisty" <ghardisty@asia-net.com>
Subject: DBM and HTTPD::UserAdmin
Message-Id: <lnwT6.94636$bv2.23787702@typhoon.austin.rr.com>
I am having trouble performing functions on my DBM database of users on my
Linux box running apache. I am trying to use HTTPD::UserAdmin to display a
list of current users, etc. When I use dbmmanage at the command line, I do
this ...
>dbmmanage /usr/local/apache/usersdbm/users view
.. that shows me all users. I am trying to make a web interface using
HTTPD::UserAdmin to do the same thing. My basic code looks like ...
#!/bin/perl
use HTTPD::UserAdmin ();
my @DBM = (DBType => 'DBM',
DB => '/usr/local/apache/usersdbm/users',
Server => 'apache');
my $user = new HTTPD::UserAdmin @DBM;
for $u ($user->list) { print "$u\n"; };
exit;
... I do not get any errors ... nothing happens and when I look in the
usersdbm directory, there is a file called users.db that is created ... and
that is it. Any help would be appreciated.
Thanks,
George
georgeh@austin.rr.com
------------------------------
Date: Wed, 6 Jun 2001 22:19:54 +0200
From: peter pilsl <pilsl_@goldfisch.at>
Subject: Re: edit text database SCRIPT
Message-Id: <3b1e906b$1@e-post.inode.at>
helpmeplease wrote:
> Hello,
> I'm can anyone point me in the right direction please.
>
> i'm trying to edit a flat text database. This is my edit page.
> Why are values not pass on to SAVE cgi routine ?
> After i press SAVE it goes to where it is suppose to, but,
> all new FIELD values are not passed on.
> Why won't this work.
>
A working piece of code might be useful. The question in your script is:
how do you set the formdata-values ? (you didnt show this part of the
script)
Did you ever think about using the CGI-module ?
peter
>
--
pilsl_@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: 6 Jun 2001 10:42:36 -0700
From: Patrick Flaherty <Patrick_member@newsguy.com>
Subject: find() within find()?
Message-Id: <1849356.00016bf6.023@drn.newsguy.com>
Hello,
New to perl and not sure what the limitations are on subroutine use?
I don't seem to be able to call find() within another find(), as in:
use File::Find;
my $this_subtree;
find \&wanted , ('.');
sub wanted {
if (-d $_) {
print $_ . "\n";
find \&sub_tree , ($_) ;
print $this_subtree . "\n";
}
}
sub sub_tree {
$this_subtree += -s;
}
The inner find() seems, in effect, to short-circuit (prematurely terminate) the
outer find().
Any ideas why?
pat
------------------------------
Date: Wed, 06 Jun 2001 11:47:22 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Flame,help or killfile ?
Message-Id: <3B1E7ABA.F9725B1A@stomp.stomp.tokyo>
Anno Siegel wrote:
> buggs wrote:
(snipped a lot)
> A large part of the problems we are experiencing in clpm is due
> to the sheer number of people who take at least a passing
> interest in Perl.
This is a typical Lush Bimbaug twisting of statistics.
Half of the articles in this group, in our sister cgi
group, in the freelance group and in the defunct perl groups,
are troll articles written by one or two people. Evidence
of this, is annoyingly clear.
Of the remaining half, a majority of articles are geeks
jumping in for ego strokes, all providing almost indentical
answers to a question or comments, then spamming this group
for days on end with typical "mine is bigger than yours"
bonehead argumentive articles.
Nearly seventy to seventy-five percent of articles posted
here are troll articles and geek "me too" articles.
There is little influx of people new to Perl within this group.
Godzilla!
------------------------------
Date: Wed, 06 Jun 2001 15:43:17 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Flame,help or killfile ?
Message-Id: <ck1thtkahnu33dh782jrc1fsijp2j4ir6j@4ax.com>
On Wed, 06 Jun 2001 11:47:22 -0700, "Godzilla!"
<godzilla@stomp.stomp.tokyo> wrote wonderful things about sparkplugs:
TOP posting on purpose:
When I write the part of my book that takes place on newsgroups GZ
you're the nutty troll I'm going to base my troll character on.
You'll flame everyone in sight and complain that we're all one writer
but secretly (or not so secretly) you'll be madly in love with one
poster who gets your full attention/wrath. The hard part will to be
to make you as disruptive as possible and to keep the reader from
"pulling" for you to "straighten up" and be normal/productive.
I have some daunting task ahead.
>Anno Siegel wrote:
>
>> buggs wrote:
>
>(snipped a lot)
>
>> A large part of the problems we are experiencing in clpm is due
>> to the sheer number of people who take at least a passing
>> interest in Perl.
>
>
>This is a typical Lush Bimbaug twisting of statistics.
>Half of the articles in this group, in our sister cgi
>group, in the freelance group and in the defunct perl groups,
>are troll articles written by one or two people. Evidence
>of this, is annoyingly clear.
>
>Of the remaining half, a majority of articles are geeks
>jumping in for ego strokes, all providing almost indentical
>answers to a question or comments, then spamming this group
>for days on end with typical "mine is bigger than yours"
>bonehead argumentive articles.
>
>Nearly seventy to seventy-five percent of articles posted
>here are troll articles and geek "me too" articles.
>
>There is little influx of people new to Perl within this group.
>
>
>Godzilla!
--
BSOD? In my day we didn't have 0000FF!
lmoran@wtsg.com
------------------------------
Date: Wed, 6 Jun 2001 22:17:14 +0200
From: "Stefan Weiss" <der.prinz@gmx.net>
Subject: Re: Flame,help or killfile ?
Message-Id: <3b1e8f89$1@e-post.inode.at>
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> > http://www.perl.com/pub/2001/05/29/tides.html
>
> The article reads like a pamphlet to be passed around among the
> recruiting staff of a sect fishing for members. In particular, it
> rests on the not-quite-tacit assumption that the "very thing we
> want to have happen" is "adding number to our ranks [of Perl
> programmers]".
IIRC, the author of this article was not really writing about actively
"recruiting" or otherwise increasing the number of Perl programmers,
he was expressing his opinion of how newcomers should be treated.
...
> "Adding number" isn't necessarily good for a language.
>
> It seems to me that Perl as a culture is at a point where its rapid
> growth is more of a challenge than a boon.
...
I would say this is elitist thinking, if you are suggesting it were
better if fewer people would start to learn Perl. If there is too much
noise in this group, that's not necessarily the fault of the average
student just having his first problems with the language. I'm not
suggesting anything, but the usual reaction of a newsgroup having too
much traffic to handle is to split it. Casey West did something similar,
he advertised the beginners@perl.org mailing list, which IMHO is a Good
Thing, as it might take some of the load off clpm.
Last time I looked, my news provider did not have anything like a
comp.lang.perl.beginners group, but I can't be sure that such a group
does not exist. Most of the newbies coming here know that they still
have a lot to learn, and they would probably have looked there first.
Anyway, I can understand that the regulars* are stressed with the volume
of postings here, and we're all thankful that they are still here and
helping, but in my opinion it is their overreacting as often as someone
doing something really stupid that causes meta-discussions like this
thread every few days. There Is More Than One Way To tell a newcomer
that he should have ( read the docs | posted to another group | put the
quoted text on top | etc ), and if you do it in an unfriendly way, it
just might backfire and cause another annoying flame war here.
Just my 2 cents.
cheers,
stefan
* Of course, I know that it's really always the same macho answering
all the questions in a hateful way, like my favourite monster has
found out long ago, but let's not destroy the illusion. stomp stomp.
;-)
------------------------------
Date: Wed, 06 Jun 2001 14:56:27 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: How to get help available on perldoc?
Message-Id: <56vshtku3lppuppbinf1uljfoifsbdamfi@4ax.com>
On Wed, 06 Jun 2001 17:56:09 GMT, echang@netstorm.net (E.Chang) wrote
wonderful things about sparkplugs:
Mod this up +2 Insightful
>Valentin 30IR976 <radiotito@yahoo.com> wrote in
><3B1E5C27.8234A8CA@yahoo.com>:
>
>> Hello people. I use perldoc to get help about perl, eg: "perldoc
>> perlfunc", and I know that I can also query about "perldoc perlop",
>> etc...But, are there a perldoc option to get all the things I can get
>> help with perldoc? Eg: Something like "perldoc
>> list_PERLDOC_help_available"
>>
>> Many thanks in advance...
>> Tito
>>
>perldoc perldoc will tell you all the options for using perldoc.
>
>perldoc perl will show you all of the stardard documentation available.
>
>perldoc perlmodlib gives the list of modules that are part of the Perl
>module library.
>
>perldoc perllocal gives a list of modules that were installed
>locally (using CPAN).
>
>Incidentally, I discovered the last two by doing a search of clpm on
>groups.google.com - there were 984 previous posts addressing how to
>find a list of installed modules.
--
BSOD? In my day we didn't have 0000FF!
lmoran@wtsg.com
------------------------------
Date: Wed, 6 Jun 2001 11:35:28 -0700
From: "kalasend at YAHOO dot COM" <dontuspamme@nospammers.com>
Subject: how to redirect STDOUT/STDERR when passing array to system()?
Message-Id: <VGuT6.61$DB3.7796@chrome-fe.eng.netapp.com>
Hi,
so I can call
system("my_program arg1 arg2 arg3 >& stdout_plus_stderr");
but if I do not want to start a shell to run the command, ie. passing in
an array:
system("my_program" , "arg1", "arg2", "arg3");
How do i do output redirection?
thanks,
ben
------------------------------
Date: Wed, 6 Jun 2001 15:12:45 -0400
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: how to redirect STDOUT/STDERR when passing array to system()?
Message-Id: <slrn9ht05d.64o.tadmc@tadmc26.august.net>
kalasend at YAHOO dot COM <dontuspamme@nospammers.com> wrote:
>
> so I can call
> system("my_program arg1 arg2 arg3 >& stdout_plus_stderr");
>
> but if I do not want to start a shell to run the command, ie. passing in
>an array:
> system("my_program" , "arg1", "arg2", "arg3");
>
> How do i do output redirection?
perldoc -q STDERR
"How can I capture STDERR from an external command?"
Most of the alternatives there require a shell, but the first
one "change file descriptors before the call" does not require
a shell. I'd use that.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 6 Jun 2001 20:39:08 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: how to redirect STDOUT/STDERR when passing array to system()?
Message-Id: <GEJ018.2Jn@news.boeing.com>
In article <VGuT6.61$DB3.7796@chrome-fe.eng.netapp.com>,
kalasend at YAHOO dot COM <dontuspamme@nospammers.com> wrote:
>Hi,
>
> so I can call
> system("my_program arg1 arg2 arg3 >& stdout_plus_stderr");
>
> but if I do not want to start a shell to run the command, ie. passing in
>an array:
> system("my_program" , "arg1", "arg2", "arg3");
>
> How do i do output redirection?
You can't. The shell does the redirection. Otherwise,
the argument list passed to the system call just gets
sent to execvp(2) which in turn just passes the shell
redirection metacharacter and filehandle to the program
along with the other arguments. The only time that'd
work is if you were passing to a program which emulated
shell interpretation.
Alternatively, you could manually do the fork and handle
the redirect yourself by dup'ing filehandles.
--
Charles DeRykus
------------------------------
Date: Wed, 06 Jun 2001 15:02:31 -0400
From: brian d foy <comdog@panix.com>
Subject: Re: How to sort by number first then sort by english name?
Message-Id: <comdog-1452C8.15023106062001@news.panix.com>
In article <YVrT6.118221$I5.27394236@news1.rdc1.tn.home.com>, "Todd
Smith" <todd@designsouth.net> wrote:
> so do this:
> @sorted = sort {
> chomp ($a, $b);
> @a = split /\s+/, $a;
> @b = split /\s+/, $b;
> $a[1] <=> $b[1] or
> $a[0] cmp $b[0]
> } (<DATA>);
don't do that. if you want to cook the values before you
compare them you should use a schwartzian transform or one
of those sorting methods that Uri and Larry invented.
--
brian d foy <comdog@panix.com>
CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
------------------------------
Date: 06 Jun 2001 15:16:01 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: How to sort by number first then sort by english name?
Message-Id: <m3r8wxs6ta.fsf@dhcp9-173.support.tivoli.com>
On Wed, 06 Jun 2001, todd@designsouth.net wrote:
>
> "Randal L. Schwartz" <merlyn@stonehenge.com> wrote in message
> news:m1iti9aagw.fsf@halfdome.holdit.com...
>> >>>>> "Todd" == Todd Smith <todd@designsouth.net> writes:
>>
>> Todd> so do this:
>>
>> Todd> @sorted = sort {
>> Todd> chomp ($a, $b);
>>
>> Don't do that. You've just altered the original values in the
>> source list. Repeatedly. :)
>>
>
> I didn't want to do a numeric compare on two strings with newlines,
> even if they do evaluate out to be numbers.
So instead you do a numeric compare on two strings without newlines,
that evaluate out to be the same numbers that they would have with the
newlines?
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: 06 Jun 2001 15:14:17 -0500
From: Ren Maddox <ren@tivoli.com>
Subject: Re: How to sort by number first then sort by english name?
Message-Id: <m3vgm9s6w6.fsf@dhcp9-173.support.tivoli.com>
On Wed, 06 Jun 2001, todd@designsouth.net wrote:
> And you think that
>
> chomp ($a, $b);
>
> is uglier than
>
> chop $a while $a =~ /\n$/;
> chop $b while $b =~ /\n$/;
>
> I don't think so.
Nor do I, but then those aren't equivalent. chomp doesn't what you
imply here. It only removes a *single* occurrence of the line
terminator. Well, unless you're in paragraph mode....
The point was that chomp is so friendly that you can use it in all of
the wrong places without it breaking anything until one day when it
does. Whereas with chop, things would have broken from the get-go.
Of course, the other side of the coin is that using chop instead of
chomp can lead to the same sort of situation where most of your data
does have line terminators, but not all of it.
The moral, of course, is "Only chomp (or chop) when you should."
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Wed, 06 Jun 2001 20:04:17 GMT
From: "res0f00x" <res0f00x@verizon.net>
Subject: http 500 error on NT5 IIS
Message-Id: <51wT6.3378$T67.166088@dfiatx1-snr1.gtei.net>
Group,
I'm receiving http 500 on a cgi script written in perl. The
"PATH=C:\Python21\;\usr\Perl\bin\;D:\WINNT\system32;D:\WINNT;D:\WINNT\system
32\WBEM;D:\MSSQ
L\BINN;D:\PROGRA~1\Borland\Delphi4\Bin;C:\WINDOWS;C:\WINDOWS\COMMAND"
and perl runs fine from the command prompt in any directory. However, I'm
having problems with the shebang path set to #!perl , #!\usr\Perl|bin,
#!\usr\Perl\bin\perl and #!/usr Perl/bin/perl. What shebang should I used
with NT and IIS 5.0? Thanks.
Charlie
------------------------------
Date: 06 Jun 2001 19:29:48 +0100
From: nobull@mail.com
Subject: Re: Is this Perl???
Message-Id: <u9snhdxy03.fsf@wcl-l.bham.ac.uk>
"sas" <saras@gj.net> writes:
> Is this a Perl Script?
No.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 06 Jun 2001 18:48:39 +0100
From: nobull@mail.com
Subject: Re: Newbie: Help with cookie code ?
Message-Id: <u9y9r5xzwo.fsf@wcl-l.bham.ac.uk>
"Thing" <noemail@noemail.com> writes:
> I posted this code before and someone said it worked on
> their PC, but i cant get it to work on several PC's.
> does anyone see an obvious mistake im making ?
I'm "someone".
Did you ever answer the follow-up question I asked when I said it
worked for me?
Another thought, maybe you are using a different hostname in the
redirected request.
> print $q->redirect (-url =>"http://dacry/cgi-bin/loginresults.pl",-cookie =>
> $cookie);
Try changing that to just
print $q->redirect (-url =>"loginresults.pl",-cookie => $cookie);
This woulg have been better asked in CIWAC as it almost certainly has
nothing to do with Perl.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 06 Jun 2001 20:09:19 GMT
From: sweth+perl@gwu.edu (Sweth Chandramouli)
Subject: OK, it's a bug. I think.
Message-Id: <P5wT6.58237$G5.12665852@news1.rdc1.md.home.com>
In article <1_vT6.58234$G5.12662501@news1.rdc1.md.home.com>,
Sweth Chandramouli <sweth+perl@gwu.edu> wrote:
> . (This is with perl, version 5.005_03 built for
>sun4-solaris-thread, for reference.)
I just copied the script over to another machine, this one
running version 5.005_03 built for sun4-solaris (not -thread), and it
behaves exactly as expected, regardless of whether I use $/ or
$INPUT_RECORD_SEPARATOR.
Is this a bug to be reported, or am I still missing
something?
-- Sweth.
--
Sweth Chandramouli ; <sweth+perl@gwu.edu>
------------------------------
Date: 6 Jun 2001 21:03:19 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: OK, it's a bug. I think.
Message-Id: <eli$0106061653@qz.little-neck.ny.us>
In comp.lang.perl.misc, Sweth Chandramouli <sweth+perl@gwu.edu> wrote:
> Sweth Chandramouli <sweth+perl@gwu.edu> wrote:
> > . (This is with perl, version 5.005_03 built for
> >sun4-solaris-thread, for reference.)
> I just copied the script over to another machine, this one
> running version 5.005_03 built for sun4-solaris (not -thread), and it
> behaves exactly as expected, regardless of whether I use $/ or
> $INPUT_RECORD_SEPARATOR.
>
> Is this a bug to be reported, or am I still missing
> something?
I've had problems with 'use English' and threading perls. I suspect
that is at the heart of the problem. It probably is a documentation
issue. I perlbug'ed it when I found it and got back a response to
the tune of "of course that doesn't work with -thread".
Elijah
------
whose issue was with $_
------------------------------
Date: 6 Jun 2001 14:12:04 -0700
From: m-m@lcc.net (GearGirl)
Subject: OT (was Process form WITHOUT feedback page PART 2)
Message-Id: <6f51e848.0106061312.4145d486@posting.google.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message news:<3B1E5802.33037AB4@stomp.stomp.tokyo>...
> GearGirl wrote:
>
> > Godzilla! wrote:
> > > GearGirl wrote:
>
>
> (snippage)
>
>
> > First...I must ask....Choctaw???
>
> There is no need for you to ask. You already know
> my native tongue is Choctaw. Significantly less than
> one-percent of any given peoples would recognize
> my words as Choctaw. Within our Native American
> culture, less than ten percent would recognize my
> words as Choctaw. I speak, read and write Choctaw,
> however there are hundreds of Native American dialects
> I could not begin to recognize by Tribal variety.
>
> Clearly you know more about me than you are admitting.
Actually, I don't know much about you. I've only been trying
(unsuccessfully until recently!) to post to this group for 2 months.
I'm just fairly good at ferreting out info as my interest deems
necessary, and your script subroutine name sparked my interest.
Personally, I'm a decent portion Creek.
> > From some of the other posts I've seen, I wasn't sure WHAT kind of
> > response I'd get from you (flame or help).
>
> This borders on being insulting. However, I do practice
> being unpredictable so your response is somewhat reasonable.
>
Really, I didn't intend to insult. Just an observation (from those 2
months!).
> > Seems there is more to Godzilla! than initially meets the eye...
>
> I like to think so.
[snipped]
> Your cookie routine has been reduced to bare essentials for testing.
Thanks for the suggestion! And it makes for easier reading for anyone
wanting to help. Will try bare-bones posting in the future.
> What happens here, in your else choice, is printing a 204 message
> conflicts with your html print, &invalid_viewer; , following.
> You cannot return a "no response" then print html. One or the
> other but not both. This might be the very source of your problem.
> Note I added a content type print to &valid_viewer. This is a must.
>
DOH! Yeah, I didn't catch that before. The machine I was testing on
had, of course, registered. So I had not tested that scenario yet.
Serious no-brainer.
Thanks for all your suggestions. I'm still a "newbie" as I've only
been writing little Perl snippets for a year, and as I get time at
that. I have fewer than 50 all told. But I like pushing myself to
write scripts that perform more and more demanding functions
(relatively speaking).
~Melissa
------------------------------
Date: 6 Jun 2001 12:15:17 -0700
From: googlenews@edge-web.com (Egghead)
Subject: Re: OT :: What to do if you've been kill filed
Message-Id: <3222ef0b.0106061115.7547ea98@posting.google.com>
Don't rule out all google users as being trolls, either.
Feel free to stereotype, but realize that there will always be
exceptions to your prejudice.
------------------------------
Date: Wed, 06 Jun 2001 16:29:14 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: OT :: What to do if you've been kill filed
Message-Id: <9i4thtsdbf7rg4a2mkr4u00upo8kpjaeda@4ax.com>
On Tue, 5 Jun 2001 16:30:39 -0400, tadmc@augustmail.com (Tad
McClellan) wrote wonderful things about sparkplugs:
>Lou Moran <lmoran@wtsg.com> wrote:
>>On 5 Jun 2001 11:14:02 GMT, rachel@lspace.org (Rachel Coleman) wrote
>>wonderful things about sparkplugs:
SNIP
>
>>I don't even mind
>>most of the yelling.
>
>
>Keeping in mind that the yelling is a symptom.
>
>Posting without checking the docs is the disease.
>
>That is, the "yelling" is a reaction, not the cause.
>
>So, you should have said:
>
> I don't even mind most of the off-topic postings and the
> followups that they generate.
>
>:-)
SNIP
I actually meant ongoing wars with the female gecko from tokyo and all
that sort of thing
--
BSOD? In my day we didn't have 0000FF!
lmoran@wtsg.com
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 1077
***************************************
