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

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

To: fwp@technofile.org
Subject: Re: [FWP] $_=$l[rand@l];
From: John Porter <jdporter@min.net>
Date: Wed, 28 Jul 1999 15:02:48 -0400 (EDT)
In-Reply-To: <1dvmgjt.xod7d7yxheg6M@imac.loc> from "Kevin Reid" at Jul 28, 99 08:56:18 am

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

Two characters:

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

John Porter

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

Follow-Ups:
- Re: [FWP] $_=$l[rand@l];
  - From: Ronald J Kimball <rjk@linguist.dartmouth.edu>

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

Prev by Date: [FWP] Untainting a string
Next by Date: Re: [FWP] $_=$l[rand@l];
Prev by thread: Re: [FWP] $_=$l[rand@l];
Next by thread: Re: [FWP] $_=$l[rand@l];
Navigation: Date Index | Thread Index | Search | Other lists at bumppo.net