Shell Programming and Scripting

/usr/xpg4/bin/awk  -F"|" -v n=0 '
/^[TFZ]/{ close("filesplit"n".dat") ; n++ ; print > "filesplit"n".dat" ; next}
{ print >> "filesplit"n".dat"}'  filetoBeSplit.dat

my $n=1;
my $file="file_".$n.".txt";
open FH,">>$file";
while(<DATA>){
  if(/Trailer/){
  	$n++;
  	$file="file_".$n.".txt";
  	close FH;
  	open FH,">>$file";
  	next;
  }
  print FH $_;
}
__DATA__
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|||

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

awk '{print > i".out"}$0~pat{++i}' pat="Trailer" i=1 infile

awk  -F"|" -v n=0 '/^[TFZ]/{ close("filesplit"n".dat") ; n++ ; print > "filesplit"n".dat" ; next} { print >> "filesplit"n".dat"}'  test1.dat

|1|2|3|4|5|
|1|2|3|4|4|
|1|2|3|4|3|
|T|one||||
|1|2|3|4|5|6|7|8|9|
|2|3|4|5|6|7|8|9|1|
|D|three|||||
|4|
|5|
|6|
|Z|four||||

/usr/xpg4/bin/awk  -F"|" -v n=0 '
($2 ~/^[TFZ]/){ close("filesplit"n".dat") ; n++ ; print > "filesplit"n".dat" ; next}
{ print >> "filesplit"n".dat"}'  filetoBeSplit.dat

/testDir> cat filesplit0.dat
|1|2|3|4|5|
|1|2|3|4|4|
|1|2|3|4|3|
/testDir> cat filesplit1.dat
|T|one||||
|1|2|3|4|5|6|7|8|9|
|2|3|4|5|6|7|8|9|1|
|D|three|||||
|4|
|5|
|6|
/testDir> cat filesplit2.dat
|Z|four||||