UNIX for Dummies Questions & Answers

Change this line:

$outline = $outline . (split / /, $line) [$key-1];

to this:

$outline = $outline . (split ' ', $line) [$key-1];

and let me know what happens please.

that's single_quote space single_quote

% head file[12]
==> file1 <==
1 23 21 24 12 22
1 23 21 24 12 22
1 23 21 24 12 22
1 23 21 24 12 22
1 23 21 24 12 22
1 23 21 24 12 22
1 23 21 24 12 22

==> file2 <==
2
3
6

% perl -le'
    $[ = 1;
    open F1, "<", shift or die "$!\n";
    @cols = <F1>;
    warn "$!\n" unless close F1;

    $, = " ";
    open F2, "<", shift or die "$!\n";
    print +(split)[@cols] while <F2>;
    warn "$!\n" unless close F2;
  ' file2 file1
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22

% perl -lane'
  push@cols,$_ and next if@F<2;
  $[=1if eof;print"@F[@cols]";
  ' file2 file1
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22

% awk 'END { print r, "}\47 file1" }
  { r = r ? r ", $" $1 : "awk \47{ print $" $1 }
  ' file2 | sh
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22
23 21 22

#!/usr/bin/perl

use strict;

my @a_column;
my @a_outcol;
my $outline;
my $line;
my $date_stamp;

$date_stamp = localtime time;
print "START:  $date_stamp\n";

open COLFILE, "<column.lst"
  or die "can't open file: $!";

while(<COLFILE>)
{
   chomp($_);
   push (@a_column, ($_ - 1));
   push (@a_outcol, "$_");
}

close COLFILE
  or die "can't close file: $!";

open DATFILE, "<column.dat"
  or die "can't open file: $!";

open OUTFILE, ">column.out"
  or die "can't open file: $!";

$outline = join("\t", @a_outcol);
print OUTFILE "$outline\n";

undef @a_outcol;

while($line = <DATFILE>)
{
   chomp($line);
   $outline = join( "\t", (split ' ', $line) [@a_column]);
   print OUTFILE "$outline\n";
}

close DATFILE
  or die "can't close file: $!";

close OUTFILE
  or die "can't close file: $!";

$date_stamp = localtime time;
print "END:  $date_stamp\n";

300     800     1300    1800...239800   240300  240800
1_300   1_800   1_1300  1_1800...1_239800       1_240300        1_240800
2_300   2_800   2_1300  2_1800...2_239800       2_240300        2_240800
3_300   3_800   3_1300  3_1800...3_239800       3_240300        3_240800
...
...
18_300  18_800  18_1300 18_1800...18_239800     18_240300       18_240800
19_300  19_800  19_1300 19_1800...19_239800     19_240300       19_240800
20_300  20_800  20_1300 20_1800...20_239800     20_240300       20_240800