Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. The dowhile and dountil Loops
#!/usr/bin/perl
$x = 1;
do {
    print "$x ";
    $x++;
} while ($x <= 10);
print    "\n";
$y = 1;
do {
    print "$y " ;
    $y++;
} until ($y > 10);