Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon.

Pages: 1-

Useful perl code

Name: Anonymous 2008-01-07 0:12

[code]#!/usr/bin/perl
if ( $^O eq 'linux' ) {print "Lunix sux";}

Name: Anonymous 2008-01-07 0:12

whoops

Name: Anonymous 2008-01-07 0:39

!*^(*$*^%*$*%&#%&%#&^#%&%*^%%#%##^$%&*$*($#$#^#^#^#^@[][252%@%@%@^#&472627sgsge32%#@#%@#%@^@76376252%@%@^&*&#%###^#^#$^#3[]2523^$@^@6624@^@$$@#^$@

Name: Anonymous 2008-01-07 5:54


say "Lunix sux" if $^O eq 'linux'


Perl 5.10 compatible only.

Name: Anonymous 2008-01-07 7:42

>>4
Is that a Ctrl-O?

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.

Name: Anonymous 2008-01-07 8:41

Also use ~~, it's proper Perl 5.10.

[code]say "Lunix sux" if $^O ~~ 'linux'

Name: Anonymous 2008-01-07 8:41

Fuck. orz

Name: Anonymous 2009-03-18 3:18

Don't call me gay, but I need some mary jay!

Marijuana MUST be legalized.

Name: Anonymous 2009-08-17 0:52

Lain.

Name: Anonymous 2011-01-31 21:25

<-- check em dubz

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?

Don't change these.
Name: Email:
Entire Thread Thread List