[oak perl] Perl for physical security :-)

David Alban extasia at mindspring.com
Wed Dec 4 17:55:20 CST 2002


At 2002/12/04/15:49 -0800 David Alban <extasia at mindspring.com> wrote:
> my $codes = [ 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
>               48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
>               63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77,
>               78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92,
>               93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
>               106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
>               118, 119, 120, 121, 122, 123, 124, 125, 126 ];

Heh heh.  This would be much more readable as:

  my $codes = [ 33..126 ];

Doh!

-- 
Live in a world of your own, but always welcome visitors.
                                 ***
Come to sig-beer-west!  http://www.gerasimov.net/~alban/sig.beer.west.html
Unix sysadmin available:   http://www.gerasimov.net/~alban/jac/resume.html
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 232 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/oakland/attachments/20021204/4eb4aee5/attachment.bin


More information about the Oakland mailing list