Help for this page

Select Code to Download


  1. or download this
    open in, shift @ARGV; 
for(<in>){
  2. or download this
    open in, shift @ARGV; 
while (<in>){
  3. or download this
    open my $in, '<', shift @ARGV; 
while (my $line = <$in>){
  4. or download this
    my @temp_list=<in>;
for(@temp_list){