Shell Programming and Scripting

cat grid_ill.pts| awk '{print $1, $2, $3}'> ds_erg_falsecolor.dat


paste 1.inp 2.inp | awk '{
for (row=1;row<=NR;row++) {
        if (NR==$row){
             for (col=10;col<=NF;col++) {
                arr[NR,col]=$col;
                a=sprintf("echo \"%5$s \" \"%6$s \" \"%7$s \" \"%4$s \">> ds_erg_%1$s_%2$s_%3$s.dat\n", $1, $2, $3, col[row,col], $42542, $42543, $42544)
                print "str", a
                system(a)
                }
            }
        }
}'

while read a b c d e f
do
echo "$d $e $f" | tr ' ' '\n' | paste -d " " 2.inp - >"$a"_"$b"_"$c".dat
done <1.inp

# cat in1
1 2 3 a b c
2 3 4 d f g
# cat in2
6 6 6
7 7 7
8 8 8
# cat mtst
while read a b c d e f
do
echo "$d $e $f" | tr ' ' '\n' | paste -d " " in2 - >"$a"_"$b"_"$c".dat
done <in1
# ksh mtst
# ls -rt | tail -2
1_2_3.dat
2_3_4.dat
# cat 1_2_3.dat
6 6 6 a
7 7 7 b
8 8 8 c
# cat 2_3_4.dat
6 6 6 d
7 7 7 f
8 8 8 g
#

#!/bin/sh

while read a b c d e f; do
    echo "$d\n$e\n$f"| paste -d' ' 2.inp - > "$a"_"$b"_"$c".dat
done < 1.inp

exit 0

awk 'NR == FNR {
  inp2[NR] = $0
  nr = NR; next
  }
{
  fn && close(fn)
  fn = j = x
  for (i = 0; ++ i <= 3;)
    fn = fn ? fn "_" $i : $i
  fn = fn ".dat"
  for (i = 3; ++ i <= NF;)
      print inp2[++ j], $i > fn
  }' 2.inp 1.inp

awk '
NR==FNR{a[NR]=$0;s=NR;next} 
{for (i=4;i<=NR;i++) for (j=1;j<=s;j++) print a[j],$(i++) >$1"_"$2"_"$3".dat"}
' 2.inp 1.inp

open FH,"<file2";
my @arr=<FH>;
@arr=map {s/\n//;$_;} @arr;
close FH;
my $cnt = $#arr;
open FH,"<file1";
while(<FH>){
  chomp;
  my @tmp = split;
  for(my $i=0;$i<=$#arr;$i++){
    print $arr[$i]," ",$tmp[$#tmp-$#arr+$i],"\n";
  }
}