Using the goto statement. : goto « Statement « Perl

1. Perl
2. Statement
3. goto

Using the goto statement.

 
#!/usr/local/bin/perl 

NEXTLINE: $line = <STDIN>; 
if ($line ne "") { 
   print ($line); 
   goto NEXTLINE; 
} 

   
  

Related examples in the same category