Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

DarkKnightRadick (4259)

DarkKnightRadick
  jnagyjr@joseph-a-nagy-jr.us
http://www.joseph-a-nagy-jr.us/
AOL IM: pres CTHULHU (Add Buddy, Send Message)
Yahoo! ID: pagan_prince (Add User, Send Message)
Jabber: DarkKnightRadick@jabber.org

No solicitors.
Saturday June 28, 2003
11:00 AM

I Write Funny Comments

[ #13117 ]

I write funny comments in my Perl programs.

#!/usr/bin/perl -w
#mmmm....pi

$circumfrence = 2 * 3.141592654;
$radius = 12.5;

print $circumfrence * $radius . "\n";

#!/usr/bin/perl -w
#pi good

$circumfrence = 2 * 3.141592654;
chomp($radius = );

print $circumfrence * $radius . "\n";

#!/usr/bin/perl -w
#When come back, bring pi

$circumfrence = 2 * 3.141592654;
chomp($radius = );
$circle = $circumfrence * $radius;

if ($radius 0) {
print "The radius of the circle is 0\n";
} else {
print $circle . " is the radius of the cirlce\n";
}

#!/usr/bin/perl -w
#I have a feeling the answer will be 42

print "I have a feeling the answer will be 42!\n";
print "Please input the first number:";
$first_num =;
print "Please input the second number:";
$second_num = ;
$answer = $first_num * $second_num;

if ($answer != 42) {
print "Actually, the answer is $answer\n";
} else {
print "See! The answer is 42!\n";
}

#!/usr/bin/perl -w
#So, how many towels do you have?

print "Please enter a word here: ";
$name = ;
print "Please enter a number here: ";
$number = ;
print $name x $number;

#!/usr/bin/perl -w
#Hard coded math action!

print 2 + 3 x 100 * 3 . "\n" . "\t" x2 . 5 * 4 x 20 . "\n";
$math = 2 + 3 x 100;
$multiply = $math * 3;
print $multiply . "\n" . "\t" x 2 . 5 * 4 x 20 . "\n";

#More Chapter 2 Coding goodness!
chomp($name = alex);
if ($name gt 'fred') {
print "'$name' comes after 'fred in sorted order.\n";
} else {
print "'$name' does not come after 'fred'.\n";
print "Maybe it's the same string, in fact.\n";
}

#Shorter example?
$is_bigger = $name gt 'fred';
if ($is_bigger) { print "'$name' is greater than 'fred'.\n"; }

#Doing the opposite!
if (! $is_bigger) {
print "You idiot, '$name' isn't even close!\n";
}

#taking standard input!
$line = ;
if ($line eq "\n") {
print "That was just a blank line!\n";
} else {
print "That line of input was: $line";
}

#An example of chomp!

#Commented out to show refinement
#$text = "a line of text\n";
#chomp($text);
#print $text;

chomp($text = );
print $text;

#while we were out... ;)
$count = 0;
while ($count 10) {
$count += 1;
print "The count is now $count\n";
}

#undef, you are nothing to me.

$n = 1;
while ($n 10) {
$sum += $n;
$n +=2;
}
print "The total was $sum.\n";

#Lady Madonna, child processes at her feet!
$madonna = ;
if ( defined($madonna) ) {
print "The input was $madonna";
} else {
print "No input available!\n";
}

Tomorrow I begin Lists and Arrays!

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.