#!/usr/bin/perl
use strict;
use warnings;
my $abc = 1000;
until ($abc == 0) {
print "Counting down to 0 from $abc\n";
--$abc;
};
print "Blast off!\n";
Remember your semicolons and try to use strict. I try to be readable above
all else. Because then at least if the code doesn't work, it looks really
pretty. Which is an ongoing theme with me by the way. Pretty Code with little
function. Heck, in a language with dollar signs all over it and no indent function
that's a pretty heavy feat.
Will
###############################################################
In a message dated 2/17/2004 5:29:50 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
#!usr/bin/perl
$abc=1000
until ($abc==0)
{
print "Counting down to 0 from $a\n";
$a--;
}
print "Blast off!";
