[11485] in Perl-Users-Digest
Perl-Users Digest, Issue: 5085 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 8 04:07:27 1999
Date: Mon, 8 Mar 99 01:00:19 -0800
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, 8 Mar 1999 Volume: 8 Number: 5085
Today's topics:
Re: 'chmod 755 xxx.pl' (Michael Smith)
About Hash <kooki@cyber.net.pk>
Re: About Hash <ebohlman@netcom.com>
Re: Changing @INC mike808@mo.net
Re: Combining Files (William Herrera)
Re: Combining Files <jdf@pobox.com>
Re: Combining Files (Bart Lateur)
Re: FAQ 2.11: Perl Books <ebohlman@netcom.com>
FAQ 2.18: What is perl.com? <perlfaq-suggestions@perl.com>
Freeware Affiliate Perl Script TeV21@my-dejanews.com
Re: How to do Spell Check <ebohlman@netcom.com>
How to use and ActiveX <sriram.v@mailcity.com>
Limit string length <dbws@----nospam----hotmail.com>
Re: Limit string length <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Limit string length (Bart Lateur)
Re: Limit string length <ebohlman@netcom.com>
Re: Lynux <ebohlman@netcom.com>
Passing variables to subs <abes@brandeis.edu>
Re: Passing variables to subs <ebohlman@netcom.com>
programmer wanted <telecore@sprynet.com>
Using Regex to exclude a domain name, can't seem to get <wgraphic@bellsouth.net>
Re: Using Regex to exclude a domain name, can't seem to <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Want to learn Perl (David H. Adler)
Re: Yahoo! style dynamic select boxes mike808@mo.net
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Mar 1999 06:07:44 GMT
From: smith@io.com (Michael Smith)
Subject: Re: 'chmod 755 xxx.pl'
Message-Id: <slrn7e6q9i.eq2.smith@schultz-2.io.com>
On Sun, 07 Mar 1999 21:09:48 GMT, John <battles@flash.net> wrote:
>I have been told to change the permission of a xxx.pl module that I have
>placed in my cgi-bin with this..
>
>chmod 755 xxx.pl
>
>which sets the script as executable, otherwise the instructions say that
>I am going to get server errors all day long, which is what is
>happening.
> Could someone explain exactly how I go about executing this
>instruction/technique? - Thanks.
If you don't have Unix shell account access to the cgi-bin directory
where the 'xxx.pl' file is stored, you can send this command via
ftp. Look for a "Send FTP Command..." option (or something similar)
in one of the menus in the ftp application you use. Then, type in:
SITE chmod 755 [full system path to xxx.pl]
Keep in mind that the full system path is not the same as the URL. I
have no idea how your server is structured, but a common path for a
cgi-bin directory would be something like /www/usr/cgi-bin or maybe
/home/battles/cgi-bin in your specific case.
Don't be surprised, though, if you manage to change the permissions
successfully and then find that the script still doesn't run. With
respect, it sounds like you may need to do a little more reading and
configuring before getting things to work correctly.
If you need further help, keep in mind that this group is intended
for discussions directly related to Perl. For an answer to a
question about file permissions, server configuration, etc. -- that
is, a question about CGI that doesn't relate to the programming-
language-specific *contents* of a script -- you'll have the most
luck getting help in comp.infosystems.www.authoring.cgi.
Before you post to that group, though, make sure to read the FAQ at
<http://www.htmlhelp.com/faq/cgifaq.html>.
Also, without shell access, you're going to find it pretty hard to
do any debugging of the script. For a workaround, though, take a
look at <http://www.dejanews.com/[ST_rn=ap]/getdoc.xp?AN=449820196>.
--
Michael Smith Austin, Texas
smith@io.com
------------------------------
Date: Mon, 08 Mar 1999 12:09:36 +0500
From: Syed Kashif Afzaal <kooki@cyber.net.pk>
Subject: About Hash
Message-Id: <36E377B0.F793065@cyber.net.pk>
hello all there
I ma new to perl and worked a lot with the help of mailing list and
newsgroups guys and want to know can any body explain me in detail of
hash or any resource on the web on this topic
With best regards
--
------------------------------------
Syed Kashif Afzaal
kooki@cyber.net.pk
http://www.members.xoom.com/kooki
------------------------------------
------------------------------
Date: Mon, 8 Mar 1999 08:51:59 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: About Hash
Message-Id: <ebohlmanF89pyn.5Jz@netcom.com>
Syed Kashif Afzaal <kooki@cyber.net.pk> wrote:
: I ma new to perl and worked a lot with the help of mailing list and
: newsgroups guys and want to know can any body explain me in detail of
: hash or any resource on the web on this topic
How about a resource sitting there on your own machine? perldoc perldata.
------------------------------
Date: Mon, 08 Mar 1999 05:56:00 GMT
From: mike808@mo.net
Subject: Re: Changing @INC
Message-Id: <7bvopd$ah3$1@nnrp1.dejanews.com>
In article <36E01BAA.C0085559@mail.tju.edu>,
George Kuetemeyer <george.kuetemeyer@mail.tju.edu> wrote:
> I just installed a package that requires the directory:
> /perl/site/5.005/lib for correct operation. My ActiveState Perl for NT
> (current release) only gives me an @INC of /perl/site/lib and /perl/lib.
> I can always add "use lib '\perl\site\5.005';" to my scripts, but that's
> kind of annoying. Is there any way to add additional paths globally &
> persistantly to @INC?
1) Modify your 'lib.pm' to do whatever you want.
2) set PERLLIB environment variables (caveat: won't work with TAINTING).
HTH,
Michael
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 08 Mar 1999 06:18:25 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: Re: Combining Files
Message-Id: <36e36ac4.6025035@news.rmi.net>
If you don't mind a somewhat slow but reliable approach, read all of
the files multiple times.
First pass: build a hash of names (Watch out for case here, eg. JOHN
and John are the same but will get two hash entries unless you ucfirst
everything)
Next passes: for each hash table entry, write a row, reading all of
the files for entries under that name, etc.
Another (faster but memory intensive) approach might be to gobble up
all the lines from all the files into one array and sort by name, then
print it out in some special way that only changes lines when the name
changes and so forth.
On Mon, 08 Mar 1999 00:01:49 GMT, golfer@usa.net wrote:
>I am stumped! I have 50 text tab delimited files that I am trying to
>combine into one file based upon the username variable.
>
>File 1:
>mike 100
>joe 90
>pete 35
>
>File 2:
>larry 87
>joe 15
>sam 20
>etc,; what I need to do is combine these files into a single file
>resulting in (order is not important):
>mike 100
>larry 87
>joe 90 15 12
>pete 35 21
>sam 20 15
---
The above from: address is spamblocked. Use wherrera (at) lynxview (dot) com for the reply address.
------------------------------
Date: 08 Mar 1999 01:59:31 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: golfer@usa.net
Subject: Re: Combining Files
Message-Id: <m390d831rg.fsf@joshua.panix.com>
golfer@usa.net writes:
> I am stumped! I have 50 text tab delimited files that I am trying
> to combine into one file based upon the username variable.
You're trying to do a relational join. I just spent 8 hours today
writing a perl version of join(1) for the PPT project. You'll need to
sort the files first, then combine them in twos...
join file1 file2 | join - file3 > joined.txt
See http://language.perl.com/ppt/ .
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 08 Mar 1999 08:31:56 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Combining Files
Message-Id: <36e483e2.1381253@news.skynet.be>
golfer@usa.net wrote:
>I am stumped! I have 50 text tab delimited files that I am trying to
>combine into one file based upon the username variable.
>
>File 1:
>mike 100
>joe 90
>pete 35
>
>File 2:
>larry 87
>joe 15
>sam 20
>
>File 3:
>sam 15
>joe 12
>pete 21
>
>etc,; what I need to do is combine these files into a single file
>resulting in (order is not important):
>mike 100
>larry 87
>joe 90 15 12
>pete 35 21
>sam 20 15
Not too difficult. An interesting exercise.
$i = 0; %data = ();
# read
while(defined($file = shift)) {
open(IN,$file) or die "Can't open file $file: $!";
while(<IN>) {
chomp;
next unless length; # skip empty lines
my($name,$value) = split/\t/;
$data{$name}->[$i] = $value;
}
$i++;
}
# write
{
local($\,$,) = ("\n","\t");
local $^W; # do not output "undefined values" warnings
foreach $name (sort keys %data) {
print $name, @{$data{$name}};
}
}
With the above data in 3 files, this gives me:
joe 90 15 12
larry 87
mike 100
pete 35 21
sam 20 15
Bart.
------------------------------
Date: Mon, 8 Mar 1999 08:15:50 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: FAQ 2.11: Perl Books
Message-Id: <ebohlmanF89oAE.4HM@netcom.com>
Tom Christiansen <perlfaq-suggestions@perl.com> wrote:
: Special Topics
: *Mastering Regular Expressions
: by Jeffrey Friedl
: How to Set up and Maintain a World Wide Web Site [2nd edition]
: by Lincoln Stein
Might be a good idea to include Lincoln's new book about CGI.pm here
(especially considering how many FAQs are asked here because people don't
use CGI.pm).
------------------------------
Date: 7 Mar 1999 23:42:45 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 2.18: What is perl.com?
Message-Id: <36e37165@csnews>
(This excerpt from perlfaq2 - Obtaining and Learning about Perl
($Revision: 1.30 $, $Date: 1998/12/29 19:43:32 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq2.html
if your negligent system adminstrator has been remiss in his duties.)
What is perl.com?
The perl.com domain is owned by Tom Christiansen, who created it
as a public service long before perl.org came about. Despite the
name, it's a pretty non-commercial site meant to be a
clearinghouse for information about all things Perlian, accepting
no paid advertisements, bouncy happy gifs, or silly java applets
on its pages. The Perl Home Page at http://www.perl.com/ is
currently hosted on a T3 line courtesy of Songline Systems, a
software-oriented subsidiary of O'Reilly and Associates. Other
starting points include
http://language.perl.com/
http://conference.perl.com/
http://reference.perl.com/
--
Why would you WANT to port C news to your PC? Wouldn't it be smarter
and about as cost-effective to port your PC over to the trashcan and buy
a real computer that runs a real operating system like Unix? --Brian Kantor (brian@ucsd.edu)
------------------------------
Date: Mon, 08 Mar 1999 06:27:40 GMT
From: TeV21@my-dejanews.com
Subject: Freeware Affiliate Perl Script
Message-Id: <7bvqkl$bto$1@nnrp1.dejanews.com>
Hello,
Is there a freeware affiliate PERL script available somewhere? I want to
give webmasters a chance to make 15% on my site and do not want to pay $800
for someone else's script. Please email me and let me know!
TeV
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 8 Mar 1999 08:10:15 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: How to do Spell Check
Message-Id: <ebohlmanF89o14.4Bn@netcom.com>
Rollo Chan Ka Chun <kcchan@csis.hku.hk> wrote:
: How to do spell check in PERL?
Check in CPAN to see if there are any modules that interface to
spell-checking libraries.
P.S. 'Perl' is the name of the language. 'perl' is the name of the
interpreter for the language. 'PERL' isn't the name of anything.
------------------------------
Date: Sun, 7 Mar 1999 23:45:28 -0600
From: "Sriram" <sriram.v@mailcity.com>
Subject: How to use and ActiveX
Message-Id: <A4D88C3CFEA3D211ADEF00C0F02C288D03E49360@news.informatics.net>
friends
can anybody please tell me how to use and activex component developed
inhouse with the perl script. i use this component to work with the
underlying sql database. any example code or any reference where i can get
more information is very much appreciated.
thanx in advance.
Sriram
GHL Technologies Sdn. Bhd.
Kuala Lumpur
ram@ghl.com
------------------------------
Date: Mon, 8 Mar 1999 02:27:50 -0500
From: "Dan Burke" <dbws@----nospam----hotmail.com>
Subject: Limit string length
Message-Id: <xTKE2.5701$ZF1.11057@newsr2.twcny.rr.com>
What is the best way to take a string and chop off the end of it, if it is
over a certain length?
Ex: The input will allow any length of string, but the output will never be
over 50 characters long. If the input is over 50 characters long, then
only the first 50 characters will be outputted and the remaining characters
will be deleted from the string.
Thanks for any help!
Dan Burke
------------------------------
Date: 08 Mar 1999 09:22:19 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Limit string length
Message-Id: <83iuccpf0k.fsf@vcpc.univie.ac.at>
Re: Limit string length, Dan
<dbws@----nospam----hotmail.com> said:
Dan> What is the best way to take a string and chop
Dan> off the end of it, if it is over a certain
Dan> length?
Dan> Ex: The input will allow any length of string,
Dan> but the output will never be over 50 characters
Dan> long. If the input is over 50 characters long,
Dan> then only the first 50 characters will be
Dan> outputted and the remaining characters will be
Dan> deleted from the string.
perldoc -f substr
perldoc perlfaq
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Mon, 08 Mar 1999 08:31:58 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Limit string length
Message-Id: <36e58823.2467780@news.skynet.be>
Dan Burke wrote:
>What is the best way to take a string and chop off the end of it, if it is
>over a certain length?
>
>Ex: The input will allow any length of string, but the output will never be
>over 50 characters long. If the input is over 50 characters long, then
>only the first 50 characters will be outputted and the remaining characters
>will be deleted from the string.
Use any of these as a function call:
unpack ("A50",$string)
or
substr($string, 0, 50)
The version using unpack will delete trailing whitespace, too (spaces,
tabs, newlines).
Bart.
------------------------------
Date: Mon, 8 Mar 1999 08:51:01 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Limit string length
Message-Id: <ebohlmanF89px1.5In@netcom.com>
Dan Burke <dbws@----nospam----hotmail.com> wrote:
: What is the best way to take a string and chop off the end of it, if it is
: over a certain length?
perldoc -f substr
------------------------------
Date: Mon, 8 Mar 1999 07:58:11 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Lynux
Message-Id: <ebohlmanF89nH0.3IM@netcom.com>
Aaron Walker <amwalker@gate.net> wrote:
: You probably have it on your system already... try typing "whereis perl"
: or "which perl".
Keep in mind that at least one Redhat distribution (5.2?) came with a
buggy development version of perl rather than a stable release version.
------------------------------
Date: Sun, 07 Mar 1999 07:49:32 +0000
From: Abraham Schneider <abes@brandeis.edu>
Subject: Passing variables to subs
Message-Id: <36E22F8C.AF0032F8@brandeis.edu>
Hi, I'm currently working on this project (it's been much longer
than I'd like to admit), and I'm having some technical difficulties
using PERL to do what I would like it to do (isn't that always the
problem?).
I'm much much much more familiar with C/C++ (and my PERL code looks
that way), and I'm not sure I totally understand that rules involved
with parameter passing in PERL. The difficulty I'm running into right
now is with a hash of a hash (okay, I'm having trouble with this too),
passing it, and returning it. I looking at the O'Reilly "Programming
PERL" book, which while it did infact have a section on hashes of hashes
(strangely it looked exactly the same as the man pages!), I'm not sure
it totally clarified my confusion.
So, my questions are as follows:
I would _expect_ (but, obviously wrong) a hash of a hash to work
like this:
%hash{$key} = %anotherhash{$key2} # make it a hash of a hash
foreach $outer (keys %hash) {
foreach $inner (keys $hash{$outer}) {
print "$hash{$outer} = $hash{$outer}{$inner}.\n";
}
}
Output:
"key1 = contents1"
"key2 = contents2"
...
What I get instead is that $hash{$outer} is not a hash table, and it
cannot be done. I try then to do:
keys %$outer,
and it gives me an error saying that I cannot use '%' like this, and
perhaps I really mean a '$', or an '@'. I'm quite certain I don't. So,
what am I doing wrong? What is the correct way to do this in PERL? Is
there some type of type-casting (I've seen references for it, but I'm
out of patience now to even look near it).
Second question: What is the correct way to pass a hash to a sub,
and use it. What I have been doing, which I must warn you, is quite
ugly, is this:
sub myhashsub {
my $phash = shift;
my %hash = $phash;
print $hash{"foo"};
}
my %bar;
# fill %bar up
myhashsub(\%bar);
Originally I tried just myhashsub(%bar), but found it was not well
like (is this correct?), and that I usually had to end up using a
reference instead. I have no problem understanding the reference, as it
seems to be the equivalent of points in C/C++. However, my confusion
comes from the fact that the hash table variable must be a pointer
anyways, so why is there a need to make a pointer to a pointer (e.g. in
Java everything is a pointer, and thus can be treated so, making things
like this easier -- doesn't mean I like Java, however).
I found no good way to just say: "my %hash = shift"... I looked
quickly at typeglobs, but was a little confused. Is there a better way
to do this? Heck, is there a general method for all parameter passing?
This seems to be my biggest problem so far, taking up massive amounts of
time.
Finally, tying my two questions together, how would one go about
passing a double hash, using it above, and returning it? I guess this is
really just what I asked above, but this is what I'm trying to do.
Thanks for your time,
Abe Schneider
------------------------------
Date: Mon, 8 Mar 1999 08:08:18 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Passing variables to subs
Message-Id: <ebohlmanF89nxu.469@netcom.com>
[newsgroups and followups trimmed to comp.lang.perl.misc, as
comp.lang.perl is obsolete and your questions have nothing to do with
modules]
Abraham Schneider <abes@brandeis.edu> wrote:
: I would _expect_ (but, obviously wrong) a hash of a hash to work
: like this:
: %hash{$key} = %anotherhash{$key2} # make it a hash of a hash
'Hash of hashes' is really a shortcut term for 'hash of *references* to
hashes.' Hash values can only be scalars, but a reference to another
hash, an array, or even a complicated data structure, is a scalar. In
this case, you want:
$hash{$key} = \%anotherhash{$key2};
: foreach $outer (keys %hash) {
: foreach $inner (keys $hash{$outer}) {
(keys %{$hash{$outer}})
: print "$hash{$outer} = $hash{$outer}{$inner}.\n";
: }
: }
: Second question: What is the correct way to pass a hash to a sub,
: and use it. What I have been doing, which I must warn you, is quite
: ugly, is this:
: sub myhashsub {
: my $phash = shift;
: my %hash = $phash;
my %hash = %$phash;
: print $hash{"foo"};
: }
: my %bar;
: # fill %bar up
: myhashsub(\%bar);
I think you're still a little shaky on the concept of references in
Perl. I'd suggest that you take a(nother) look at perlref and make sure
you fully understand the concepts there before you do much with complex
data structures. Once you've mastered references, check out (or re-read)
perllol and perldsc, and a lot of things will become clearer to you.
------------------------------
Date: Mon, 8 Mar 1999 03:41:24 -0500
From: "drewstar" <telecore@sprynet.com>
Subject: programmer wanted
Message-Id: <7c02of$gst$1@juliana.sprynet.com>
SUPERSCRIPTS.COM is seeking creative, energetic
programmers with comprehensive knowledge of cgi and
perl. Must have experience with modules and their applications
and demonstrate ability to develop innovative solutions to
cgi problems.
Send e-resume or urls of your work, availability (hours/week) and
compensation requirements to the webmaster of superscripts.com
------------------------------
Date: Mon, 08 Mar 1999 08:48:44 GMT
From: wg <wgraphic@bellsouth.net>
Subject: Using Regex to exclude a domain name, can't seem to get it to work.
Message-Id: <36E38ED4.E38CBD37@bellsouth.net>
I am trying to exclude a domain name using Regex
in this log program Web Log
After reading the documentation I still couldn't
get it to exclude for example I have
# $ExcludeDomain = ".yahoo.";
in order to exclude any thing from the yahoo
domain but it doesn't seem to work using regex.
I believe I have the correct regex but obviously
not.
I also want to exclude any thing from
# $ExcludeDomain = "lax.southwest.net";
or as I see it in the logs as
host-219-204-170-215.lax.southwest.net
Any help would be very much appreciated since I
have been trying to get this thing to work for a
while.
Thanks.
wg
------------------------------
Date: 08 Mar 1999 09:51:11 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Using Regex to exclude a domain name, can't seem to get it to work.
Message-Id: <83g17gs6tc.fsf@vcpc.univie.ac.at>
Re: Using Regex to exclude a domain name, can't seem
to get it to work., wg <wgraphic@bellsouth.net>
said:
wg> I am trying to exclude a domain name using Regex
wg> in this log program Web Log
wg> After reading the documentation I still couldn't
wg> get it to exclude for example I have
wg> # $ExcludeDomain = ".yahoo.";
wg> in order to exclude any thing from the yahoo
wg> domain but it doesn't seem to work using regex.
wg> I believe I have the correct regex but obviously
wg> not.
If you don't show your code, how on earth can anyone
help? The error is probably at line 17.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: 8 Mar 1999 02:14:39 -0500
From: dha@panix.com (David H. Adler)
Subject: Re: Want to learn Perl
Message-Id: <slrn7e6u6u.k3u.dha@panix.com>
On Sat, 06 Mar 1999 17:06:39 GMT, akonopka <akonopka@mtco.com> wrote:
>Hello,
>
>I was looking for information on Websites or Books that may help me get
>started learning Perl. Unfortunately, I run on a windows platform at
>home, but I do have the option of using my ISP's services in Unix. I
>would like to develop under both platforms. My background is C and
>mostly VB, but I believe that Perl can be a better solution to Web
>development that using Java.
Take a look at <http://www.perl.com> - should tell you what you need
to know, including book info.
good luck
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
The Inferno video is really in colour.
------------------------------
Date: Mon, 08 Mar 1999 05:53:13 GMT
From: mike808@mo.net
Subject: Re: Yahoo! style dynamic select boxes
Message-Id: <7bvok7$a72$1@nnrp1.dejanews.com>
In article <36E01BD4.5201E6E9@1185design.com>,
mikej <mikej@1185design.com> wrote:
> I was looking around my yahoo and found something that was pretty
> interesting. In the configure weather settings, after you select the
> area you are interested in, it takes you to a page with 2 multiple
> selection fields that lets you add or remove fields from one another. I
> looked at the source but couldnt tell how on earth they did it. Anyone
> know how to best accomplish this effect? I know a little bit about perl
> but not sure that it would be the best way to do this kind of thing. If
> someone can point me in the right direction I would be very grateful.
> Thanks.
Sure, you write a perl CGI that knows which button you pressed and which list
entries you selected and process accordingly. Hint - the form has multiple
submit buttons, but they have different NAME attributes.
HTH,
Michael
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
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 5085
**************************************
