Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
  push @cols, split; 
}
close $wantcols;
  2. or download this
    my @valarray = [ @cols ]; #construct wanted headers
my $datavalues, '<', '/path/to/file2' or die '$!';
...

close $datavalues;
  3. or download this
    print map { @{ $valarray[$_] } , $/ } 0..$#valarray;