Hehe, PERL

Off Topic > Off Topic

Hehe, PERL

<< < (3/3)

TapeDeck:
i am a cat

Harm94:
I'm a kitty.

Azimuth:
Source:

--- Code: ---#!/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.";
--- End code ---

Navigation

 Message Index

Go to full version