Mega Code Archive

 

Categories / Perl / Statement

 

Goto statement with label

INPUT: $line = <>; if ($line !~ /exit/) {    print "Try again\n";     goto INPUT }