Mega Code Archive

 

Categories / Perl / Statement

 

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";