[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