Search Results

basename India.txt .txt

Well, what you actually seem to want is the rest of that field, not the next 10 characters.

Similar to ahamed101's earlier suggestion:
a=gsub("FILEHEADER","",$1)

If you don't want the 'ABC' included in the filenames then you'll need to use $1 rather than $0 (and removing the spaces won't be necessary). Using gsub rather than substr to extract the filename is...

This works for me


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