Useful perl code
1
Name:
Anonymous
2008-01-07 0:12
[code] #!/usr/bin/perl
if ( $^O eq 'linux' ) {print "Lunix sux";}
2
Name:
Anonymous
2008-01-07 0:12
whoops
3
Name:
Anonymous
2008-01-07 0:39
!*^(*$*^%*$*%%&%#&^#%&%*^%%#%##^$%&*$*($#$#^#^#^#^@[][252%@%@%@^#&472627sgsge32%#@#%@#%@^@76376252%@%@^&*%###^#^#$^#3[]2523^$@^@6624@^@$$@#^$@
4
Name:
Anonymous
2008-01-07 5:54
say "Lunix sux" if $^O eq 'linux'
Perl 5.10 compatible only.
5
Name:
Anonymous
2008-01-07 7:42
6
Name:
Anonymous
2008-01-07 8:40
>>5
Technically yes, although the literal characters '^' and 'O' will do (and that's what most people write anyway, although
EXPERT PERL PROGRAMMERS write the literal Ctrl-O.
7
Name:
Anonymous
2008-01-07 8:41
Also use ~~ , it's proper Perl 5.10.
[code] say "Lunix sux" if $^O ~~ 'linux'
8
Name:
Anonymous
2008-01-07 8:41
Fuck. orz
9
Name:
Anonymous
2009-03-18 3:18
Don't call me gay, but I need some mary jay!
Marijuana MUST be legalized.
10
Name:
Anonymous
2009-08-17 0:52
Lain.
11
Name:
Anonymous
2011-01-31 21:25
<-- check em dubz
12
Name:
Anonymous
2013-08-31 18:08
God wanted Mr. Bush to become president of America (to be correct: the United States of America) , right?
Newer Posts