[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] $_=$l[rand@l];

To: kpreid@ibm.net (Kevin Reid)
Subject: Re: [FWP] $_=$l[rand@l];
From: Stephen Zander <gibreel@pobox.com>
Date: 30 Jul 1999 03:37:01 -0700
Cc: fwp@technofile.org (Fun With Perl List)
In-Reply-To: kpreid@ibm.net's message of "Wed, 28 Jul 1999 08:56:18 -0400"
Organisation: speaking through, but not for, McKesson Corp.
References: <1dvmgjt.xod7d7yxheg6M@imac.loc>

>>>>> "Kevin" == Kevin Reid <kpreid@ibm.net> writes:

    Kevin> Something to try shortening:
    Kevin> @ARGV='iMax:Documents:Info:lwall-quotes.txt';$/='%%
    Kevin> ';@l=<>;$_=$l[rand@l];chomp;print

Three less characters:

@ARGV='iMax:Documents:Info:lwall-quotes.txt';$/='%%
';chomp(@l=<>);print$l[rand@l]

-- 
Stephen
 --- 
"If 8-year-old boys discharging loaded firearms into their own legs
isn't necessary to the maintenance of a well-regulated militia, I
don't know what is." - Randal Cummings as reported in The Onion, 25/5/99

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe

References:
- [FWP] $_=$l[rand@l];
  - From: kpreid@ibm.net (Kevin Reid)

Prev by Date: [FWP] [FWP-Administrivia] fate anoints idle coders (was Re: PerlOS)
Next by Date: [FWP] Range spec to list/hash
Prev by thread: Re: [FWP] $_=$l[rand@l];
Next by thread: [FWP] Something like "grepfirst"
Navigation: Date Index | Thread Index | Search | Other lists at bumppo.net