[ILUG] [TOTD] find error corresponding to number

[kevin lyda]

On Thu, May 06, 2004 at 12:30:25PM +0100, Stephen Shirley wrote:
> kevin lyda wrote:
> > shell.  feh.   :)
> Uh huh.

:)

> > http://ie.suberic.net/~kevin/strerror.pl
> <SNIP>
> > all in a 162 byte perl script with two ?: ops and a map call.
> A 162 byte uncommented perl script. To compare like with like, i removed 
> the comments from padraig's version:
> 
> diamond at fand:/space/dl(0)$ wc -c strerror strerror.pl
> 142 strerror
> 162 strerror.pl

yeah, but i kept in loads of whitespace to keep it readable.  without
that and a slight coding change i'm down to 102 bytes.  plus it looks
more line noisey:

#!/usr/bin/perl
$_=shift;
$e=/^\d+$/?"^$_ ":$_;
print map{$!=$_;"$_ $!"=~/$e/i?"$_ $!\n":""}(0..127);

kevin

-- 
kevin at ie.suberic.net  ~  "you're either with us or against us." --dubya
iraq: vietnam again?  ~  in that simplistic world-view progressives and
a new lbj selected -  ~  liberals are "us" while bush and bin laden are
"looney bush junior"  ~  "against us."
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://mail.linux.ie/pipermail/ilug/attachments/20040506/c1f632b7/attachment.pgp