Shell Programming and Scripting

perl -e 'while(<>){my @records; if (/^HEADER(.+$)/){open FILE, ">", "$1.txt";print FILE $_;while(<>){print FILE $_; last if /^eof$/;}}}' tmp/test.dat

awk '/HEADER/{gsub("HEADER","");file=$0;next}/eof/{file=""}{if(file){print > file}}'  input_file

#!/bin/sh

awk '
BEGIN{ fn = "Test" n ".txt"; n = 1}
{
if (substr($0,1,10) == "FILEHEADER") {
close (fn)
n++
a=substr($0,11,10)
a1=`echo "${a}" | sed 's/ *$//'`
echo "After->[${a1}]"
fn = a ".txt"
}
print > fn
}
' testfile.txt

#!/bin/sh

awk '
BEGIN{ fn = "Test" n ".txt"; n = 1}
{
if (substr($0,1,10) == "FILEHEADER") {
close (fn)
n++
a=substr($0,11,10)
a1=`echo "${a}" | sed 's/ *$//'`
echo "After->[${a1}]"
fn = a ".txt"
}
print > fn
}
' testfile.txt

a1=gsub (" ", "", a)