[FWP] Re: PerlOS

[Uri Guttman <uri@sysarch.com>]

>>>>> "JP" == John Porter <jdporter@min.net> writes:

  JP> Chip Turner wrote:

  >> @s = ("fate", "anoints", "idle", "coders"); @a = ("kill", "apropos",
  >> "pico", "ispell");print join(' ', ($s[0]..$a[0])[83813],
  >> ($s[1]..$a[1])[188889], ($s[2]..$a[2])[123871],
  >> ($s[3]..$a[3])[52995357]);

  JP> 'Course, I would probably have written it like this:

  JP> print "@{[ map {
  JP>   ( (qw(fate anoints idle coders))[$_]
  JP>  .. (qw(kill apropos pico ispell))[$_]
  JP>  )[ (qw(83813 188889 123871 52995357))[$_] ]
  JP> } ( 0 .. 3 ) ]}\n";

  JP> to save those space-wasting temporary variables. :-)

my only comment is that i hope you both run these in cron every minute
on all your systems.

:-)

uri


-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.

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