[9739] in Perl-Users-Digest
Perl-Users Digest, Issue: 3332 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 3 19:05:36 1998
Date: Mon, 3 Aug 98 16:00:24 -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, 3 Aug 1998 Volume: 8 Number: 3332
Today's topics:
<SELECT multiple...> only returns 1st value bigbeta69@my-dejanews.com
Re: <SELECT multiple...> only returns 1st value (Steve Linberg)
[Q] STDOUT to screen and file on Win32 ? <jhempe@crossroute.com>
Re: [Q] STDOUT to screen and file on Win32 ? <rick.delaney@shaw.wave.ca>
ch (Fernando Miramontes)
Re: ch (Steve Linberg)
Re: comp.lang.perl.announce redux birgitt@my-dejanews.com
Re: comp.lang.perl.announce redux birgitt@my-dejanews.com
Re: comp.lang.perl.announce redux (Abigail)
Re: comp.lang.perl.announce redux <merlyn@stonehenge.com>
Re: comp.lang.perl.announce redux (Gary L. Burnore)
Re: comp.lang.perl.announce redux (Gary L. Burnore)
Re: comp.lang.perl.announce redux <jdporter@min.net>
Disrib. with other apps? <foursuns@inetport.com>
Re: Getting email address? <jdporter@min.net>
Re: Getting email address? <rick.delaney@shaw.wave.ca>
Re: Getting email address? <jdporter@min.net>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 Aug 1998 21:44:06 GMT
From: bigbeta69@my-dejanews.com
Subject: <SELECT multiple...> only returns 1st value
Message-Id: <6q5av6$8hq$1@nnrp1.dejanews.com>
Every time i try to use the <SELECT multiple...> statement in my HTML, perl
only returns the 1st value of what i selected. I initially thought my
mistake was I set $topic=$form_data{'topic'}, but i've played with changing
the $ to @'s and other stuff but nothing is working.. I've checked other
postings but apparantly some people have gotten the <SELECT multiple...> to
work. Any help is appreciated..
code snippets:
$topic = "$form_data{'topic'}";
then later...
<SELECT multiple name="topic" size=5">!;
if ($type_of_form eq "modify")
{
print "<OPTION SELECTED VALUE = \"0\">Don't Change\n";
}
foreach $topic_value (@topic_values)
{
print "<OPTION VALUE = \"$topic_value\">$topic_value\n";
}
print "</SELECT>";
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 03 Aug 1998 17:58:04 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: <SELECT multiple...> only returns 1st value
Message-Id: <linberg-0308981758040001@projdirc.literacy.upenn.edu>
In article <6q5av6$8hq$1@nnrp1.dejanews.com>, bigbeta69@my-dejanews.com wrote:
> Every time i try to use the <SELECT multiple...> statement in my HTML, perl
> only returns the 1st value of what i selected.
As I'm sure you're aware, questions about HTML (like how "SELECT multiple"
works) belong in the HTML groups. As far as your Perl question goes, the
answer can be found in CGI.pm, very near the top.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Mon, 3 Aug 1998 14:06:12 -0700
From: "John A. Hempe" <jhempe@crossroute.com>
Subject: [Q] STDOUT to screen and file on Win32 ?
Message-Id: <6q594l$2cd$1@pornstorm.geo.net>
Greetings,
Subject says it all: I want to duplicate STDOUT to a file, yet still spew
it out to the screen at the same time.
I've heard rumors of using Tied Filehandles, but the Man page for Perl
5.00471 says "this is PARTIALLY implemented now" (emphasis mine) and all the
stuff I can find on DejaNews is confusing and complicated.
Anybody have a simple, canned way of letting me get STDOUT to go to the
screen and a file simultaneously?
Thanks much,
--John Hempe
(Please cc my email: jhempe@crossroute.com)
------------------------------
Date: Mon, 03 Aug 1998 21:33:21 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: [Q] STDOUT to screen and file on Win32 ?
Message-Id: <35C62E0C.B616E13B@shaw.wave.ca>
John A. Hempe wrote:
>
> Greetings,
>
> Subject says it all: I want to duplicate STDOUT to a file, yet still
> spew it out to the screen at the same time.
>
Did you try the IO::Tee module, as recommended by Andrew M. Langmead
when you posted this last week?
> (Please cc my email: jhempe@crossroute.com)
Oh, perhaps he didn't cc you. The nerve. Actually expecting you to
read the group to see if your post was answered.
[mailed to prevent further regurgitation of this post].
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: 3 Aug 1998 21:04:30 GMT
From: fmiramon@students.wisc.edu (Fernando Miramontes)
Subject: ch
Message-Id: <6q58ku$h8k$1@news.doit.wisc.edu>
I'm starting to learn perl. There is package (a perl program) that i just
downloaded. I want to install it, use it, and study it. The instructions says
that the package is compressed and says to use:
"tar -xvzf name-0.1.tar.gz"
The package however got downloaded (with netscape) as "name-0_1_tar.tar" which
i assume was wrong and i changed to "name-0.1.tar.gz".
Problem: When I do the tar -xvzf....... it says "illegal option --z"; then i
removed the "z" from the command and i get a "directory checksum error (0 !=
70356)"
Any ideas????
------------------------------
Date: Mon, 03 Aug 1998 17:45:16 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: ch
Message-Id: <linberg-0308981745160001@projdirc.literacy.upenn.edu>
In article <6q58ku$h8k$1@news.doit.wisc.edu>, fmiramon@students.wisc.edu
(Fernando Miramontes) wrote:
> I'm starting to learn perl. There is package (a perl program) that i just
> downloaded. I want to install it, use it, and study it. The instructions says
> that the package is compressed and says to use:
>
> "tar -xvzf name-0.1.tar.gz"
>
> The package however got downloaded (with netscape) as "name-0_1_tar.tar"
which
> i assume was wrong and i changed to "name-0.1.tar.gz".
>
> Problem: When I do the tar -xvzf....... it says "illegal option --z"; then i
> removed the "z" from the command and i get a "directory checksum error (0 !=
> 70356)"
>
> Any ideas????
Maybe Netscape gunzipped it, or munged it in some other way? You might
want to download with ftp if you can, or be sure it downloads as raw
binary data. How you do this depends on your platform. (You're on some
kind of Unix/Linux, I assume?)
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Mon, 03 Aug 1998 21:26:27 GMT
From: birgitt@my-dejanews.com
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q59u3$7ht$1@nnrp1.dejanews.com>
In article <35C5F44B.79E8@min.net>,
jdporter@min.net wrote:
> Gary L. Burnore wrote:
> >
> > Why Spanish? Why not one of the other languages of the world? Why not ALL
of
> > the languages of this world? (I don't know any languages from out of this
> > world so...>
>
> How's this: the moderator adds a link at the bottom of each post
> (added via a perl script, of course) which invokes AltaVista's
> BabelFish appropriately so as to give a desired translation.
>
You seem to have much confidence in BabelFish's translations.
I have to admit the ones I read were quite funny, just not right.:-)
I would not advise to rely on those translations, it will just cause
long threads of misunderstandings.
Birgitt Funk
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 03 Aug 1998 21:34:48 GMT
From: birgitt@my-dejanews.com
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q5ado$7ug$1@nnrp1.dejanews.com>
In article <8cu33ukmz5.fsf@gadget.cscaper.com>,
Randal Schwartz <merlyn@stonehenge.com> wrote:
> >>>>> "Ronald" == Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
>
> Ronald> Randal Schwartz <merlyn@stonehenge.com> wrote:
>
> Ronald> How do you determine whether the poster has "sponsorship"?
>
> That's pretty simple. I know these people. :) I can ask them.
Do you really know *all* of them, worldwide and *will* you know
*all* which might come up in the future ?
Birgitt Funk
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 3 Aug 1998 21:41:17 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q5apt$jpk$1@client3.news.psi.net>
lvirden@cas.org (lvirden@cas.org) wrote on MDCCXCVIII September MCMXCIII
in <URL: news:6q500k$jkv$1@srv38s4u.cas.org>:
++
++ According to Mark-Jason Dominus <mjd@op.net>:
++ :reject the article. Either way, I don't understand why it is
++ :necessary to state in advance that all such articles will be
++ :rejected.
++
++ Because if it's in a language Randall cannot read, then he cannot properly
++ determine whether the article should be rejected or not!
And in the rare cases someone posts in a language Randal can't read,
he should be able to find someone who can, shouldn't he?
It's not that's its likely clpa will get flooded with announcements
in Tokka-tokka.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Mon, 03 Aug 1998 21:47:36 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <8cemuxkaaa.fsf@gadget.cscaper.com>
>>>>> "birgitt" == birgitt <birgitt@my-dejanews.com> writes:
birgitt> In article <8cu33ukmz5.fsf@gadget.cscaper.com>,
birgitt> Randal Schwartz <merlyn@stonehenge.com> wrote:
>> >>>>> "Ronald" == Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
>>
Ronald> Randal Schwartz <merlyn@stonehenge.com> wrote:
>>
Ronald> How do you determine whether the poster has "sponsorship"?
>>
>> That's pretty simple. I know these people. :) I can ask them.
birgitt> Do you really know *all* of them, worldwide and *will* you know
birgitt> *all* which might come up in the future ?
That's why I said "recognized". If I don't recognize it, I'll be
checking into it.
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 03 Aug 1998 22:12:55 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35d035b1.106195886@nntpd.databasix.com>
On Mon, 03 Aug 1998 21:34:48 GMT, in article
<6q5ado$7ug$1@nnrp1.dejanews.com>, birgitt@my-dejanews.com wrote:
>In article <8cu33ukmz5.fsf@gadget.cscaper.com>,
> Randal Schwartz <merlyn@stonehenge.com> wrote:
>> >>>>> "Ronald" == Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
>>
>> Ronald> Randal Schwartz <merlyn@stonehenge.com> wrote:
>>
>> Ronald> How do you determine whether the poster has "sponsorship"?
>>
>> That's pretty simple. I know these people. :) I can ask them.
>
>Do you really know *all* of them, worldwide and *will* you know
>*all* which might come up in the future ?
>
He did say he can ask them. He can ask someone he doesn't know questions and
allow a post based on the answers he gets. Are you suggesting he can't be
trusted to decide?
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Mon, 03 Aug 1998 22:13:56 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35d13600.106274881@nntpd.databasix.com>
On Mon, 03 Aug 1998 21:26:27 GMT, in article
<6q59u3$7ht$1@nnrp1.dejanews.com>, birgitt@my-dejanews.com wrote:
>In article <35C5F44B.79E8@min.net>,
> jdporter@min.net wrote:
>> Gary L. Burnore wrote:
>> >
>> > Why Spanish? Why not one of the other languages of the world? Why not ALL
>of
>> > the languages of this world? (I don't know any languages from out of this
>> > world so...>
>>
>> How's this: the moderator adds a link at the bottom of each post
>> (added via a perl script, of course) which invokes AltaVista's
>> BabelFish appropriately so as to give a desired translation.
>>
>
>You seem to have much confidence in BabelFish's translations.
>I have to admit the ones I read were quite funny, just not right.:-)
>
>I would not advise to rely on those translations, it will just cause
>long threads of misunderstandings.
It _would_ be fun since it's sort of like that old telephone game where
someone tells person a something then it moves to b, c, d and z recites what
he thinks a said. :)
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Mon, 03 Aug 1998 22:48:45 GMT
From: John Porter <jdporter@min.net>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35C63ED2.288@min.net>
Gary L. Burnore wrote:
>
> birgitt@my-dejanews.com wrote:
> >You seem to have much confidence in BabelFish's translations.
> >I have to admit the ones I read were quite funny, just not right.:-)
(Do I seem that way? I guess I forgot the smiley.)
> >I would not advise to rely on those translations, it will just cause
> >long threads of misunderstandings.
>
> It _would_ be fun since it's sort of like that old telephone game where
> someone tells person a something then it moves to b, c, d and z recites what
> he thinks a said. :)
Oh yeah! I saw somewhere (damn, where was it... Dr. Dobbs?)
where they did a translation back and forth between English and
various other languages, including Russian, of a piece of prose.
The result was hilarious!
--
John Porter
------------------------------
Date: Mon, 3 Aug 1998 17:11:25 -0500
From: "Steve Serrell" <foursuns@inetport.com>
Subject: Disrib. with other apps?
Message-Id: <6q5cje$mfb$1@news12.ispnews.com>
I'm new here and imagine this ? has been discussed b4.
anyway...
What would be the legal issues of distributing perl 5.0 with an application
written in C++, This application would cost money, and among other things,
offers the user the ability to run PERL scripts.
Thanks for any reply and guidance...
Steve
if time permits please email me at
foursuns<at>inetport<dot>com
------------------------------
Date: Mon, 03 Aug 1998 21:06:08 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Getting email address?
Message-Id: <35C626C5.4764@min.net>
Kevin Slanicky wrote:
>
> Is there any way to get the email address of a user if the script is NOT
> located in their home directory?? I've tried whoami and changing to their
> home directory with no luck...
Um, it really shouldn't matter where the program is. Also, the
email address of a user is utterly unrelated to their home directory.
You should be able to send mail to the user on the local system,
using only their user name; no domain necessary.
Get the USER or LOGNAME environment variable, i.e.
$ENV{'USER'} or $ENV{'LOGNAME'}.
--
John Porter
------------------------------
Date: Mon, 03 Aug 1998 21:21:28 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Getting email address?
Message-Id: <35C62B4B.F70B554B@shaw.wave.ca>
John Porter wrote:
>
> Kevin Slanicky wrote:
> >
> > Is there any way to get the email address of a user if the script is
> > NOT located in their home directory?? I've tried whoami and
> > changing to their home directory with no luck...
>
> Um, it really shouldn't matter where the program is. Also, the
> email address of a user is utterly unrelated to their home directory.
>
> You should be able to send mail to the user on the local system,
> using only their user name; no domain necessary.
> Get the USER or LOGNAME environment variable, i.e.
> $ENV{'USER'} or $ENV{'LOGNAME'}.
>
This is not a good way if you are concerned at all about security (or in
this case emails going to the wrong user), since anyone can change those
environment variables to whatever they want. The methods in perlfaq9
provide better user validation.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Mon, 03 Aug 1998 22:06:37 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Getting email address?
Message-Id: <35C634F2.7D5C@min.net>
Rick Delaney wrote:
>
> This is not a good way if you are concerned at all about security (or in
> this case emails going to the wrong user), since anyone can change those
> environment variables to whatever they want.
Well, as a savvy user, if I change my USER value, maybe it's because I
want email to go there? (O.k., I know, bad excuse.)
> The methods in perlfaq9 provide better user validation.
i.e.
$username = getpwuid( $< );
--
John Porter
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3332
**************************************
