Mega Code Archive

 

Categories / Perl / Statement

 

Using the goto statement

#!/usr/local/bin/perl  NEXTLINE: $line = <STDIN>;  if ($line ne "") {     print ($line);     goto NEXTLINE;  }