Shell Programming and Scripting

0000 0    BIROB    18    brb    PSI    2    99
0001 17    ROBER    9    rbr    PSI    2    99
0002 5   TASOT    16    tst    PSI    2    99
0003 78    KASEK    6    ksk    PSI    2    99
...

0000 N    NNNNN    N    N    CCCCC    NNN    2
0001 P    PPPPP    P    P    CCCCC    PPP    1
0002 P    PPPPP    P    P    CCCCC    PPP    1
0003 P    PPPPP    P    P    CCCCC    PPP    1
0004 N    NNNNN    N    N    CCCCC    NNN    2

#!/bin/sh
i=0
j=6
k=0
while read line1
do
    echo $line1
    i=$i+1
    if [ $i -eq 10 ]
    then
        awk -v start=$k -v end=$j  'NR > start && NR <= end' file2
        k=$j
        j=$j+6
        i=0
    fi
done < file1

#!/bin/sh
i=0;j=6;k=0
while read line1
do
    echo $line1
    i=$(($i+1))
    if [ $i -eq 10 ]
    then
        awk -v start=$k -v end=$j  'NR > start && NR <= end' file2
        k=$j;j=$(($j+6));i=0
    fi
done < file1

#!/usr/bin/perl
use strict;

my $fileA=shift;
my $fileB=shift;
my $fileR=shift;

open (FA,"<",$fileA ) || die "Can't open $fileA\n";
my @txtA=<FA>;
close(FA);

open (FB,"<",$fileB ) || die "Can't open $fileB\n";
my @txtB=<FB>;
close(FB);

open (FR,">",$fileR ) || die "Can't open $fileR\n";

my ($contA,$a,$contB,$b)=0;

for my $i ( 1 .. 40 ) {
   for $a ( 1 .. 10 ) {
      $a+=$contA;
      print FR $txtA[$a];
      }
   $contA+=10;
   for $b ( 1 .. 6 ) {
      $b+=$contB;
      print FR $txtB[$b];
      }
   $contB+=6;
   }    

close(FR);
    
exit;

script.pl filea fileb result

i=1;j=1;k=10;l=6
line=`cat file1 |wc -l`

while (true)
do
    m=`expr $i + $k - 1`
    n=`expr $j + $l - 1`
    sed -n "${i},${m}p" file1
    sed -n "${j},${n}p" file2
    i=`expr $i + $k`
    j=`expr $j + $l`
    if [ $i -gt $line ]; then
      exit
    fi
done

awk 'NR%10{print;next} {print;for (i=1;i<=6;i++) {getline < "file2";print} }' file1