Hehe, PERL

[Azimuth]

http://amiret.us/helloworld.pl

Yay, PERL!

[Ad Bot]

[General Nick]

OMGWTFBBQ?

[Azimuth]

OMGWTFBBQ?

:D

[Harm94]

Amiret.us? Is that the same amiret who got banned here?

[Azimuth]

Oh wow, you figured me out!

[Harm94]

I knew it.
Hi Inaxio.

[General Nick]

Amiret.us? Is that the same Inaxio who got banned here?

Oh wow, you figured me out!

[Azimuth]

Hi Harm ;)

[Spockticus]

Hi Inaxio.

AHA! That's why you all the sudden love me ingame.

[Fjeld]

$a = 2 $b =  3
$a  +  $b =  5
$a  -  $b = -1

Hello World!

$str =  cow cow RAT rat Dog
$str =~ s/cat/dog/ig
$str =~ s/cow/cat/ig
$str =  cat cat RAT rat Dog

ASCII Character of the page: Q!

You are not a cat.
Page generated in < 0 seconds with PERL.

[TapeDeck]

i am a cat

[Harm94]

I'm a kitty.

[Azimuth]

Source:

Code: [Select]

#!/usr/bin/perl
$time = time();
print "Content-type: text/plain\n\n";

$a = 2;
$b = 3;
$c = $a + $b;
$d = $a - $b;

@pos = ("cat","Cat","cAT","dog","Dog","dOG","cow","COW","cOW","rAT","rat","RAT");
$len = int(rand(5)) + 5;

for($i=0;$i<$len;$i++)
{
$str .= " " . @pos[int(rand(12))];
}

print "\$a = $a \$b =  $b\n";
print "\$a  +  \$b =  $c\n";
print "\$a  -  \$b = $d\n\n";

print "Hello World!\n\n";

print "\$str = $str\n";
print "\$str =~ s/cat/dog/ig\n";
print "\$str =~ s/cow/cat/ig\n";
$str =~ s/cat/dog/ig;
$str =~ s/cow/cat/ig;
print "\$str = $str\n\n";

$f = int(rand(94)) + 32;
print "ASCII Character of the page: " . chr($f) . "!\n\n";
$end = time();
print "You are " . (((int(rand(2)) + 1) == 1) ? "not " : "") . "a cat.\n";
print "Page generated in < " . ($time - $end) . " second" . ((($time - $end) > 1) ? "s" : ((!$time - $end) ? "s" : "")) . " with PERL.";