Shell Programming and Scripting

1|2|3|4|5|
1|2|8|4|6|
Trailer1|||||
1|2|3|
Trailer2|||
3|4|5|6|
3|4|5|7|
3|4|5|8|
Trailer2|||

#!/usr/bin/perl

$i=1;
open (FH,">${i}.txt");
while (<>) {
        if (/Trailer/){
                print FH $_;
                close(FH);
                if (eof()){
                close ARGV ;
                exit;
                }
                $i = $i + 1;
                open (FH,">${i}.txt");
                }
        else {
                print FH $_ ;
             }
}

 
#!/bin/bash
i=1
IFS=$'\n'
for line in `cat input_file`
do
  echo $line >> ${i}.txt
  $(echo ${line} | grep -q Trailer)
  if [ $? -eq 0 ] ; then i=$(($i+1)) ;fi
done

/usr/xpg4/bin/awk  -F"|" -v n=0 '
/^Trailer[0-9]*/{ close("out"n) ; n++ ; print > "out"n ; next}
{ print >> "out"n}'  infile.txt

i=1
while read line
do
  echo $line >> $i.out
  case $line in
    Trailer*) i=$((i+1))
  esac
done<infile

awk '{print > i".out"}/^Trailer/{++i}' i=1 infile

|1|2|3|
|T||||
|1|2|
|T||||
|1||2|3|4|5|
|T1||||