[9037] in Perl-Users-Digest
Perl-Users Digest, Issue: 2655 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 21 02:07:48 1998
Date: Wed, 20 May 98 23:00:25 -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 Wed, 20 May 1998 Volume: 8 Number: 2655
Today's topics:
Re: ? Sorting a hash in Perl based on the contents of a (Martien Verbruggen)
Re: Benchmark: Adding to the end of string (Ronald J Kimball)
Re: Benchmark: pre-extending array? (John Porter)
Re: books for learning perl (Peter Likidis)
Re: Camel p. 541: "Prefer join()" (Ronald J Kimball)
Re: Camel p. 541: "Prefer join()" <andy@wonderworks.co.uk>
Re: Cryptography in Perl? <dformosa@st.nepean.uws.edu.au>
Re: GNU attacks on the open software community (Leslie Mikesell)
Re: GNU attacks on the open software community chris+usenet@netmonger.net
Re: GNU attacks on the open software community <tchrist@mox.perl.com>
Re: GNU attacks on the open software community (Tyson Richard DOWD)
Re: GNU attacks on the open software community <tchrist@mox.perl.com>
Re: GNU attacks on the open software community <portnoy@ai.mit.edu>
Re: GNU attacks on the open software community <tchrist@mox.perl.com>
Re: Help on stripping a string <danboo@negia.net>
How to handle multiple selection <ampun@bigfoot.com>
Re: How to handle multiple selection (brian d foy)
Re: Newbie needs help! <zygotech@*remove*.itsnet.com>
Re: Non-static private variables <zenin@bawdycaste.org>
Perl Authors charm27@my-dejanews.com
Re: Perl Authors (brian d foy)
Re: Perl/Wall lingo question <andrew@nospam.gpsoft.com.au>
Re: regexp for strings of chars (Ronald J Kimball)
Re: trying to filter with ne (Ronald J Kimball)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 May 1998 03:45:00 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: ? Sorting a hash in Perl based on the contents of a list ?
Message-Id: <6k07vs$8rf$1@comdyn.comdyn.com.au>
In article <6jptn3$ska$1@usenet45.supernews.com>,
"Peter Perchansky" <fp@pmpcs.com> writes:
> Example unsorted hash
> %record = ("Age" => "35-39", "ID" => 1, "Date_Option" => "No");
>
> Example list
> @order = ("ID", "Age", "Date_Option");
>
> What I want to end up with:
> %record = ("ID" => 1, "Age" => "35-39", "Date_Option" => "No");
You can't really end up with that, because you can't have a sorted
hash (This is not entirely true. If you want to keep a hash sorted,
you can use a tied hash. See also perlfaq4 'How can I always keep my
hash sorted?'). You can however process the hash in a sorted manner.
foreach my $key (@order)
{
print "$key $record{$key}\n";
}
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Thu, 21 May 1998 00:19:05 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Benchmark: Adding to the end of string
Message-Id: <1d9cnjr.1ydgiv312znao0N@bay1-563.quincy.ziplink.net>
Jari Aalto+mail.perl <jari.aalto@poboxes.com> wrote:
> Is these all the possibilities to add to the end of string?
No.
$a = join('', $a, "a");
$a =~ s/(?!\n)$/a/;
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 20 May 1998 19:59:42 GMT
From: jdporter@min.net (John Porter)
Subject: Re: Benchmark: pre-extending array?
Message-Id: <MPG.fcd01ac353ae68a9896e0@news.min.net>
On Wed, 20 May 1998 14:10:20 -0400,
in article <35631C8C.EB5086D7@negia.net>,
danboo@negia.net (Dan Boorstein) wrote:
> John Porter wrote:
>
> > my @a = (undef) x $size;
>
> i'm not so sure this is the sort of pre-extending the camel refers to.
> the above is indeed extending, but it is quite explicit. it assigns a
> temporary list of 1000 undefined elements to an array. i believe the
> camel refers to implict extending through setting $#a or by assigning
> $a[$size-1] to undef.
You're so right. I was using Jari's code as a basis, and didn't see my
mistake until later, and then I didn't think much was to shown by
any benchmarks.
> i believe this issue was recently beat to death on the p5p list so i
> would check the archives for a variety of benchmark results. the
> thread is called "Array preallocation: the devil's work?"
10-4.
John Porter
------------------------------
Date: Thu, 21 May 1998 05:53:56 GMT
From: plikidis@sias.com (Peter Likidis)
Subject: Re: books for learning perl
Message-Id: <3563c14e.25472079@server02>
On 28 Apr 1998 01:00:08 GMT, Tom Christiansen <tchrist@mox.perl.com>
wrote:
>:Refer to your topic, my friend.... Learning Perl, from O'Reilly, by
>:Randall Schwartz, is the book to get. You'll not find better.
I would suggest the idiot's guides... they are excellent. It was what
I learnt perl from.
Peter Likidis
SunGard EBS Asia Pacific
plikidis@sias.com.a
"Why do they nuclear test when they already know it works?" - Frank Zappa
to email add a u to the end
------------------------------
Date: Thu, 21 May 1998 00:19:08 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Camel p. 541: "Prefer join()"
Message-Id: <1d9cpmv.3o96o81j01hwuN@bay1-563.quincy.ziplink.net>
Jari Aalto+mail.perl <jari.aalto@poboxes.com> wrote:
> timethese( 1_000,
> {
> a =>
> 'for (1..300)
> {
> $z = $x = $c = $v = $b = 1;
> [...]
Why do you set the variables every time through the loop? That's not
part of the code you're trying to benchmark.
And why do you have a loop inside the benchmark loop? That's not part
of the code you're trying to benchmark either. If you want to time
300000 iterations of the code, then give timethese a first argument of
300000.
Next time you want to start 6 or 8 threads about benchmarking, I would
suggest learning how Benchmark actually works and how to use it
effectively. (That's based on all your Benchmark posts, not just this
one.)
More reasonable Benchmark, still showing no significant difference
between the three styles:
$z = $x = $c = $v = $b = 1;
timethese( 1_000_000,
{
a =>
'$a = join "", $z, $x, $c, $v, $b;'
,
b =>
'$a = "$z$x$c$v$b";'
,
c =>
'$a = $z . $x . $c .$v . $b;'
});
Benchmark: timing 1000000 iterations of a, b, c...
a: 6 secs ( 6.30 usr 0.00 sys = 6.30 cpu)
b: 6 secs ( 6.18 usr 0.00 sys = 6.18 cpu)
c: 6 secs ( 6.32 usr 0.00 sys = 6.32 cpu)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 20 May 1998 22:48:14 +0100
From: Andy Armstrong <andy@wonderworks.co.uk>
Subject: Re: Camel p. 541: "Prefer join()"
Message-Id: <MQ6wNEAe+0Y1Ewt0@wndrwrks.demon.co.uk>
In article <tblnrxhwmr.fsf@blue.sea.net>, jari.aalto@poboxes.com writes
>
> The Efficiency section mentions at p. 541 that
>
> Prefer join...to a series of concatenated string. Multiple
> concatenations may cayuse strings to be copied back and forth
> multiple times. the join() operator avoids this.
>
> Could someone give an example on this. It's not clear to me when to
> prefer join(). In what circumstances? I was under assumption that
> join() would be faster than ".", but I don't knwo where I get that idea.
> I thought I would have such mentioned in camel...
join('', 'This ', $thing, ' is ', $quick);
versus
'This ' . $thing . ' is ' . $quick;
--
** Don't CC any follow-ups to me - I *do* read the newsgroups I post to **
Andy Armstrong, Wonderworks, http://www.wonderworks.co.uk
------------------------------
Date: 21 May 1998 03:22:54 GMT
From: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: Cryptography in Perl?
Message-Id: <895720973.989791@cabal>
In <Pine.GSO.3.96.980520174625.12546P-100000@user2.teleport.com> Tom Phoenix <rootbeer@teleport.com> writes:
>On 20 May 1998, ? the platypus {aka David Formosa} wrote:
[...]
>> The export a crypto-system sig thing is just an act of cival disobedence
>> and not realy a serious crypto system.
>To be more precise, it _is_ serious cryptography (which is why it's
>covered under the ITAR export laws), but it's not intended to be used for
>any real world cryptography, since it lacks such things as key management
>and error checking.
I think we just have a dissagrement on the meaning of serious. By serious
I mean "Usefull in the real world". If you tried to use it for any no
trival task it would not be usable (due to speed extra).
--
I'm a perl programer; if you need perl programing, hire me.
Please excuse my spelling as I suffer from agraphia; see the url. Support NoCeM
http://www.cit.nepean.uws.edu.au/~dformosa/Spelling.html http://www.cm.org/
I'm sorry but I just don't consider 'because its yucky' a convincing argument
------------------------------
Date: 20 May 1998 23:17:16 -0500
From: les@MCS.COM (Leslie Mikesell)
Subject: Re: GNU attacks on the open software community
Message-Id: <6k09sc$jnd$1@Venus.mcs.net>
In article <6k05q7$nq9$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
>But my stuff is indeed free. It's totally gratis, a gift. That's free.
>If you call it anything else, you're confused or lying. But you're just
>not free to screw me over with it. That's thievery.
I'm not particularly fond of the FSF's concept of 'free' because it
extends to restricting distribution of anything that requires linking
with proprietary code other than standard operating systems. However
I do find it odd that the perlfaq copyright prohibits distribution
on commercial CDROMS:
Permission is granted to distribute this document, in part
or in full, via electronic means or printed copy providing
that (1) that all credits and copyright notices be
retained, (2) that no charges beyond reproduction be
involved, and (3) that a reasonable attempt be made to use
the most current version available.
AND the perlfaq is embedded in the standard perl distribution whose
Artistic License allows if not encourages such distibution. There
is certainly nothing wrong with using whatever copyright you want,
but it should be unbundled from the main distribution so everyone
can start with the same package. Or, if you meant to imply that
the perlfaq could be included in a CDROM distribution as long as there
was no extra charge specifically for it (RedHat's for example), then
the wording should probably be changed.
Les Mikesell
les@mcs.com
------------------------------
Date: 21 May 1998 04:40:43 GMT
From: chris+usenet@netmonger.net
Subject: Re: GNU attacks on the open software community
Message-Id: <6k0b8b$s3a$1@schenectady.netmonger.net>
In article <6k01mb$lpv$1@news.ro.com>, Chris Adams <cadams@ro.com> wrote:
> A couple of years ago they attacked Linux, trying to rename it "Lignux",
> and when that was blasted for stupidity, they wanted to call it
> GNU/Linux. If they had wanted to be real and give credit where credit
> was due, it would have been Linux/GNU/BSD/Perl/X/etc., but they wanted
> GNU/Linux (GNU before Linux).
>
> You mentioned the Camel book - that is a book from the evil O'Reilly
> company (according to RMS). They are evil because they copyright their
> books and don't give the rights to the FSF.
>
> I don't think RMS will quit until every useable program in the world has
> been signed over the the FSF.
For some reason, people like to claim that Richard is some hideous
monster out to steal everyone's hard-written software away from them.
I think he has a perfectly reasonable point. It is a statement of
fact that the Linux kernel was combined with many programs written as
part of the GNU project to create a free operating system. Indeed,
the vast majority of "the Linux operating system" existed long before
the Linux kernel. I can understand why RMS would be unhappy to see
that his dream of a free operating system finally came true and the
GNU project was getting almost no credit for their part of it.
RMS believes that his style of free software and his licensing system
are the best way to do good for the computing community. Is he not
allowed to have this opinion? He is mad at O'Reilly because they sell
a lot of books about GNU software but they don't donate anything to
the FSF. His response is to ask people to write free books which the
FSF can sell to raise money (and you can also photocopy or download
them). Is any of this truly evil? You may disagree (I sometimes do),
but I think it is self-evident that what RMS is doing is logical and
consistent with respect to his philosophy of free software.
Tom may claim that it is a lie to say that Perl's documentation is not
free, but I can think of a couple of rather simple explanations for
such a statement. Perhaps it refers to the ORA books, which are
certainly not free. Given the tension between the FSF and ORA, it is
reasonable to expect them to put free Perl documentation on their wish
list. This may be because they are or were unaware of the mountains
of documentation that come with Perl these days. Remember that in was
not always this way. Alternatively, there may be something about the
copyright or restrictions on Perl's bundled documentation that is at
odds with the FSF's definition of "free documentation". Either way,
it would not be a lie for them to say that Perl's documentation
is not free; one possibility is a misunderstanding, the other is
a deficiency of the English language.
--
Christopher Masto <chris+usenet@netmonger.net>
Director of Operations, NetMonger Communications, Inc.
"Behold the Power of Cheese"
------------------------------
Date: 21 May 1998 05:27:34 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: GNU attacks on the open software community
Message-Id: <6k0e06$59s$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, chris+usenet@netmonger.net writes:
:RMS believes that his style of free software and his licensing system
:are the best way to do good for the computing community. Is he not
:allowed to have this opinion? He is mad at O'Reilly because they sell
:a lot of books about GNU software but they don't donate anything to
:the FSF.
I don't be ridiculous. O'Reilly has done more for free software than
FSF has even begun to acknowledge. (I sense a pattern here.) If those
books didn't exist, the programs would be deemed less "real" by users,
and thus less used.
This notion that anyone who does anything with free software owes the FSF
sounds like either the evil of Microsoft or else the insanity of some
lunatic, new-age "church". If a consultant helps a client with free
software, should he then be obligated to tithe the Great Church
of Cambridge? If someone writes a book and sells it about free software,
must they too tithe the Great Church of Cambridge? Absolutely not.
People who shove that kind of frothing fanaticism down others' throats
are doing a disservice to our community. They are working against us.
Is that really what FSF has become? I am sickened. Nobody owes them.
*THAT'S WHAT FREE MEANS*. It disgusts me to see cries for tithing
to them.
Listen up: the free software community is much bigger than the FSF, who
too often seems its own worst enemy. Stop fighting so damned religiously.
If you keep ramming your dogma down others' throats, don't be surprised
if they blow chow and turn against you.
:Either way,
:it would not be a lie for them to say that Perl's documentation
:is not free; one possibility is a misunderstanding, the other is
:a deficiency of the English language.
I'm sure that will become clear tomorrow.
--tom
--
_doprnt(pat, args, &fakebuf); /* what a kludge */
--Larry Wall, from util.c in the v5.0 perl distribution
------------------------------
Date: 21 May 1998 15:29:50 +1000
From: trd@hydra.cs.mu.oz.au (Tyson Richard DOWD)
Subject: Re: GNU attacks on the open software community
Message-Id: <6k0e4e$r5e$1@hydra.cs.mu.oz.au>
Tom Christiansen <tchrist@mox.perl.com> writes:
>But my stuff is indeed free. It's totally gratis, a gift. That's free.
>If you call it anything else, you're confused or lying. But you're just
>not free to screw me over with it. That's thievery.
You believe yourself part of the open source (or free) software
community, yet you think that freedom is just about price?
Please don't try telling people who have licensed their work much more
liberally than you have licensed yours about definitions of freedom.
If you want to write proprietry documentation and give away copies for
nothing, do so. But don't get uppity when people look at your license
and decide things would be better if they wrote a new version that
anyone could modify.
>You can't change Perl to your own liking and go sell it calling it
>Perl, you know.
If it were just about a naming right, people wouldn't be worried.
If would fit quite nicely into an Artistic style license then.
But as far as I know it isn't a naming right, it's a no-modification
license.
>It's really a matter of being a decent human being and respecting
>other people's authorship rights. If you want something changed, ask.
>If you want into my house, ring the door bell.
As far as I can tell, the FSF are just hoping to go into competition
with you. So long as they do it legally, I don't know what you are
whining about.
------------------------------
Date: 21 May 1998 05:38:26 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: GNU attacks on the open software community
Message-Id: <6k0eki$63i$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
les@MCS.COM (Leslie Mikesell) writes:
:>But my stuff is indeed free. It's totally gratis, a gift. That's free.
:>If you call it anything else, you're confused or lying. But you're just
:>not free to screw me over with it. That's thievery.
:I'm not particularly fond of the FSF's concept of 'free' because it
:extends to restricting distribution of anything that requires linking
:with proprietary code other than standard operating systems. However
:I do find it odd that the perlfaq copyright prohibits distribution
:on commercial CDROMS:
People were bundling the internet faqs and charging folks $100 for the
CDs and doing no work on their own, nor paying royalties to the author.
I don't permit that. You will not use me for your profit. I want people
to be able to get it for free. That's my bottom line. Tricking them
into thinking they have to pay you a buttload just to get what they can
get *for free* is morally corrupt.
You're supporting commerical trickery and fleecing of the ignorant
into paying for what's free. I oppose it. Now, who's really for free
software here?
In any event, documentation isn't software.
: Permission is granted to distribute this document, in part
: or in full, via electronic means or printed copy providing
: that (1) that all credits and copyright notices be
: retained, (2) that no charges beyond reproduction be
: involved, and (3) that a reasonable attempt be made to use
: the most current version available.
:
:AND the perlfaq is embedded in the standard perl distribution whose
:Artistic License allows if not encourages such distibution.
Permit me to point out more of the Artistic License:
5. You may charge a reasonable copying fee for any distribution of
this Package. You may charge any fee you choose for support of this
Package. You may not charge a fee for this Package itself. However,
you may distribute this Package in aggregate with other (possibly
commercial) programs as part of a larger (possibly commercial)
software distribution provided that you do not advertise this Package
as a product of your own.
There's also the point in the AL about not being allowed to muck with Perl
in a way that breaks it and still distribute it as "perl". That point
and point 5 from the AL are the spirit that I'm trying to capture here.
You don't charge for my stuff. You don't screw with it. You may include
it verbatim in larger aggregations.
Just because I follow the AL and not the GPV doesn't mean that you can't
deliver Perl with my documentation. In fact, you can't deliver Perl
*without* it, because that would be removing something from the standard
distribution (the documentation, to be precise). This is not allowed.
A free perl is a complete perl, and anything else may not be called perl.
In short, you may not deliver a castrated, incomplete Perl and still
call it perl. If anyone is doing this, please report them so they can
be notified that they are in violation of Perl's licensing.
--tom
--
"It's a cult. Don't encourage them."
--Rob Pike on the FSF
------------------------------
Date: 21 May 1998 00:58:42 -0400
From: Stephen Peters <portnoy@ai.mit.edu>
Subject: Re: GNU attacks on the open software community
Message-Id: <us5ra1o2pa5.fsf@ai.mit.edu>
Benjamin Holzman <bholzman@mail.earthlink.net> writes:
> > Anyway, but RMS's definition of "free", something is not free if he's not
> > free to modify it. The two most important freedoms he's working to promote
> > are the right to share software and the right to modify it.
>
> Documentation is not software. If you make your own software based on
> perl, I see no reason why you shouldn't write all your own
> documentation. Nothing prevents you from doing that.
Exactly. It's almost as if the GNU community needs people to write
new documentation for Perl because the existing documentation isn't
available for these modifications.
[infinite loop begins here]
:-)
--
Stephen L. Peters portnoy@ai.mit.edu
PGP fingerprint: BFA4 D0CF 8925 08AE 0CA5 CCDD 343D 6AC6
"Poodle: The other white meat." -- Sherman, Sherman's Lagoon
------------------------------
Date: 21 May 1998 05:48:59 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: GNU attacks on the open software community
Message-Id: <6k0f8b$6on$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
trd@hydra.cs.mu.oz.au (Tyson Richard DOWD) writes:
:If it were just about a naming right, people wouldn't be worried.
:If would fit quite nicely into an Artistic style license then.
:But as far as I know it isn't a naming right, it's a no-modification
:license.
Either you misunderstand Perl's license, or I do. I wouldn't let you --
if it were contrary to my wishes -- make a changed copy (as opposed to
a mirror) of my website either. I certainly wouldn't let you sell
access to it. I won't let you turn something that's free into nonfree.
Now, as to modification, why would screw with something counter to its
author's intentions and wishes? That's evil. And if you don't want
to do something to fight the original author, then the author will
be happy to apply your patches. It's *his* work, damn it, not yours.
Again I ask: what happened to basic respect for others' work here?
But thank you for your clarification. You have entirely convinced me
that Perl should have nothing whatsoever to do with the FSF or GNU,
because they work to infect, restrict, and destroy free software and
piss in the faces of people who are doing Good Works.
--tom
--
"It's a cult. Don't encourage them."
--Rob Pike on the FSF
------------------------------
Date: Thu, 21 May 1998 00:09:21 -0400
From: Dan Boorstein <danboo@negia.net>
Subject: Re: Help on stripping a string
Message-Id: <3563A8F1.E27E49C3@negia.net>
Alee Ali wrote:
>
> Hi if someone can help it will be greatly appreciated.
>
> I have a string that can be either
Alee Ali wrote:
>
> Hi if someone can help it will be greatly appreciated.
>
> I have a string that can be either
Martien has already shown an effective, and probably more general,
method using modules, so i thought i'd try contributing a homegrown
approach that assumes quotes to be perfectly matched as in your sample
data:
while (<DATA>) {
chomp;
print join '|', &wtc($_);
print "\n";
}
sub wtc {
$_ = shift;
s/^\[//;
s/]$//;
my $i = 0;
map { $i++ & 1 ? $_ : /([^+ ]+)/g } split /"/;
}
__END__
[Perl Language]
[Perl+Language]
["Perl Language"]
["Perl Language" Misc]
["Perl Language"+Misc]
if your strings do contain irregular quotes then consider it a toy,
useful perhaps as a learning exercise. otherwise you've got a
solution that avoids loading:
Text::ParseWords 180 lines
Carp + 176 lines
AutoLoader + 243 lines
Exporter + 467 lines
----------------------------
total 1066 lines
and probably a few more.
cheers,
--
Dan Boorstein home: danboo@negia.net work: danboo@y-dna.com
"THERE IS AS YET INSUFFICIENT DATA FOR A MEANINGFUL ANSWER."
- Cosmic AC
------------------------------
Date: Thu, 21 May 1998 11:28:29 +0700
From: "Ali" <ampun@bigfoot.com>
Subject: How to handle multiple selection
Message-Id: <6k0ahv$kgp@news1.rad.net.id>
I have a little problem about CGI in handling MULTIPLE selection:
The HTML TAG:
<select multiple size=4 name="job">
<option> Student
<option> Proffesional
<option> Lawyer
<option> etc
</select>
I have create perl/cgi script to handle this by:
...
&parse_form;
$job = $data{'job'};
open (FILE, ">>$datafile");
print FILE "$name&&$job\n";
close(FILE);
I run the HTML and choose 'Student and Proffesional" for multiple selection, then I submit.
After i open the $datafile for multiple selection, the job information is only:
'Proffessional'.
How CGI can handle 'Student' and 'Proffessional' for multiple selction,
so the the $datafile should record 'Student' and 'Professional'
Thank You,
Ali.
------------------------------
Date: Thu, 21 May 1998 01:40:04 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: How to handle multiple selection
Message-Id: <comdog-2105980140040001@news.panix.com>
Keywords: just another new york perl hacker
In article <6k0ahv$kgp@news1.rad.net.id>, "Ali" <ampun@bigfoot.com> posted:
> I have a little problem about CGI in handling MULTIPLE selection:
use CGI.pm or CGI::Base.pm.
good luck :)
--
brian d foy <http://computerdog.com>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: Wed, 20 May 1998 22:20:29 -0600
From: "Tyler Andersen" <zygotech@*remove*.itsnet.com>
Subject: Re: Newbie needs help!
Message-Id: <3563afdc.0@news.itsnet.com>
Thanks for the help guys! It works now.
------------------------------
Date: 21 May 1998 04:52:38 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Non-static private variables
Message-Id: <895726810.104406@thrush.omix.com>
Mark-Jason Dominus <mjd@op.net> wrote:
>snip<
: The distinction is all in your head. An object is not a datum or
: a reference; it is an abstraction that is not really well-defined.
bless REF,CLASSNAME
bless REF
This function tells the thingy referenced by REF that it is now
an object in the CLASSNAME package--or the current package if no
CLASSNAME is specified, which is often the case. It returns the
reference for convenience, because a bless() is often the last
thing in a constructor. Always use the two-argument version if
the function doing the blessing might be inherited by a derived
class. See the perlobj manpage for more about the blessing (and
blessings) of objects.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Thu, 21 May 1998 04:39:04 GMT
From: charm27@my-dejanews.com
Subject: Perl Authors
Message-Id: <6k0b58$ojk$1@nnrp1.dejanews.com>
I've just started a search engine aimed at webmasters, new and experienced.
I'd appreciate any Perl Authors or people with Perl sites if they would visit
and leave their URL and site description. The site:
Design Search
http://www.dezines.com/charm/
Thanks and Cheers!
Charles, cmccolm@yahoo.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 21 May 1998 01:36:54 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl Authors
Message-Id: <comdog-2105980136540001@news.panix.com>
Keywords: just another new york perl hacker
In article <6k0b58$ojk$1@nnrp1.dejanews.com>, charm27@my-dejanews.com posted:
> I've just started a search engine aimed at webmasters, new and experienced.
> Charles, cmccolm@yahoo.com
^^^^^^^^^
Yahoo's kinda lat with the marketing material it seems :)
--
brian d foy <http://computerdog.com>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: 21 May 98 14:33:54 -1000
From: "Andrew Dunbar" <andrew@nospam.gpsoft.com.au>
Subject: Re: Perl/Wall lingo question
Message-Id: <35643B52.MD-0.198.andrew@nospam.gpsoft.com.au>
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc, wayne@Glue.umd.edu (Wayne C. McCullough) writes:
> :Theoretical Computer Science is Math.
>
> "Computer Science is no more about computers than astronomy
> is about telescopes." --E.W. Dijkstra
>
> :Applied Computer Science is engineering.
>
> If you discover a new phenomemom, and
> ...both understand it and can prove why it occurs, publish
> in a mathematics journal.
> ...understand it and but cannot prove it, publish
> in a physics journal.
> ...neither understand it nor are able prove it, publish
> in an engineering journal.
One wonders what should be done with a phenomenon which
one cannot understand yet can prove.
Probably physics too. Like the wave/particle duality?
--
Andrew Dunbar
GP Software
andrew@gpsoft.com.au
- I'd rather be in Mexico but at least I have my Amiga here -
------------------------------
Date: Thu, 21 May 1998 00:19:11 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: regexp for strings of chars
Message-Id: <1d9cr07.14bcybm1flh66cN@bay1-563.quincy.ziplink.net>
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
> Pointing to Friedl's book is *never* a bad advice. Perl engine
> changed a *lot* from that merry old time, but all the "good" things
> are still there. It is misfeatures that are (almost completely) gone,
> and zillions of new features.
Granted, if it is specifically those new features that someone has asked
about, then poining to Friedl's excellent book is not very helpful. :-)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 21 May 1998 00:19:15 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: trying to filter with ne
Message-Id: <1d9cr4n.6krmfr12tkjrnN@bay1-563.quincy.ziplink.net>
<GoYankees98@my-dejanews.com> wrote:
> ## All the hidden variables I don't
> ## want begin with 'nm'.
> ##This is attempt one, didn't work
> #if ($input{$name} ne "nm".*)
Sorry, ne doesn't work like that. Please read the documentation for
perlre.
> ##This is attempt two, didn't work either
> if ($input{$name} ne "nmresultpage" || $input{$name} ne "nmsubject" ||
> $input{$name} ne "nmto" || )
Your logic is faulty. That expression will always return true, as
$input{$name} can't be equal to all of those strings.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 2655
**************************************
