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

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

To: John Porter <jdporter@min.net>
Subject: Re: [FWP] $_=$l[rand@l];
From: Ronald J Kimball <rjk@linguist.dartmouth.edu>
Date: Wed, 28 Jul 1999 15:12:34 -0400
Cc: fwp@technofile.org
In-Reply-To: <199907281902.PAA16195@min.net>; from John Porter on Wed, Jul 28, 1999 at 03:02:48PM -0400
References: <1dvmgjt.xod7d7yxheg6M@imac.loc> <199907281902.PAA16195@min.net>

On Wed, Jul 28, 1999 at 03:02:48PM -0400, John Porter wrote:
> 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]=~/(.*)/
> 

Remember that the input record separator has been set to "%%\n".  Replacing
chomp() with /(.*)/ changes the semantics of the code.

Ronald

==== 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)
- Re: [FWP] $_=$l[rand@l];
  - From: John Porter <jdporter@min.net>

Prev by Date: Re: [FWP] $_=$l[rand@l];
Next by Date: Re: [FWP] Untainting a string
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