Controlling Loop Flow : Until « Statement « Perl






  1. Perl
  2. Statement
  3. Until

Controlling Loop Flow

  


#!/usr/bin/perl
use warnings;
use strict;
my $stopnow = 0;
until ($stopnow) {
    $_ = <STDIN>;
    chomp;
    if ($_) {
        my $sdrawkcab = reverse $_;
        print "$sdrawkcab\n";
    } else {
        $stopnow = 1;
    }
}
print "!enod llA\n";








Related examples in the same category

1.A program that uses the until statement.
2.Average-sales problem with sentinel-controlled repetition
3.Looping Until
4.The until Loop
5.The until modifier repeatedly executes the second expression as long as the first expression is false.
6.The until statement
7.Use until to read user input
8.Using until with print statement
9.until statement
10.until with continue
11.until with diamond operator
12.until with integer