Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Using the do/until loop

Perl: Using the do/until loop
{filelink=15256}

#! /usr/bin/perl#
$counter = 100;
do
{
   print "Elem= $counter
";
} until ( --$counter == 0 );
print "Done.";

No comments yet.

Leave a Comment