 |
| User since: |
Aug 26, 2004 at 02:55 UTC
|
| Last here: |
Sep 05, 2012 at 20:48 UTC
(37 weeks ago) |
| Experience: |
1983
|
| Level: |
Chaplain (11)
|
| Writeups: |
213
|
| Location: | Edmonton, Alberta, Canada | | Website: | http://girasquid.com |
| User's localtime: |
May 24, 2013 at 13:33 GMT+7
|
| Scratchpad: |
View
|
|
Join The Army?
I'm 19 now. I live in a cold area. 'Nuff said, I suppose.
In recent news, it's been decided that I share an astounding likeness to Corey Feldman. Some have even gone so far as to claim that I may or may not be his long lost twin. What do you think?
My first JAPH:
#!/usr/bin/perl -w my $indexvar_ = 4898.384.759838.74
use strict;my @rray = qw ( 01001010 01110101 01110011
01110100 00100000 01100001 01101110 01101111 01110100
01101000 01100101 01110010 00100000 01010000 01100101
01110010 01101100 00100000 01001000 01100001 01100011
01101011 01100101 01110010 );my @rray2 = shift;######
s/01001010/74/for @rray;s/01110101/117/ for @rray;###
s/01110011/115/ for @rray;s/01110100/116/ for @rray;#
s/00100000/00/for @rray;s/01100001/97/for@rray;######
s/01101110/110/for @rray;s/01101111/111/ for @rray;##
s/01101000/104/for @rray;s/01100101/101/for @rray;###
s/01110010/114/ for @rray;s/01010000/80/ for @rray;##
s/01101100/108/ for @rray;s/01001000/72/ for @rray;##
s/01100011/99/ for @rray;s/01101011/107/ for@rray;###
;;foreach(@rray) {print chr;};;print "\n";$rray2[0]++
Spam isn't really meat, you know...
It's actually Hitler!
Perl Books I Own:
Programming Perl 3rd Edition (The Camel)
Learning Perl 3rd Edition (The Llama)
The Perl Cookbook 2nd Edition (The Ram)
Perl/Tk Pocket Reference (The Emu)
Programming the Perl DBI (The Cheetah)
Object Oriented Perl
Perl and CGI for the World Wide Web
Who's won a Hero Biscuit so far?
Theorbtwo
Aristotle
Perldoc
Pboin
Bart
Intrepid
Atcroft
Planetscape
erix - For mentioning that MySQL has a HAVING clause, and saving me from more than 2 days of racking my head.
Sidhekin - For being crazy helpful with all of my .htaccess woes.
Who's won an Honorary Hero Biscuit so far?
dhoss
Useful Nodes:
Five Common Misconceptions about Learning Perl
Perl on a USB Drive
Two Different Languages: Two Similar Books
|