Shell Programming and Scripting

nawk -FS=";"

nawk -F";"

nawk -F";" '{ print >> "file"_$1; close("file"_$1)}' Testfile.txt

nawk -F";" '{ print >> "file_"$1; close("file_"$1)}' Testfile.txt

open $fh,"<","a.spl";
while(<$fh>){
	my @tmp=split(";",$_);
	$hash{$tmp[0]}.=$_ if $#tmp>0;
}
for $key (keys %hash){
	my $file=sprintf("file%s.txt",$key);
	open FH,">$file";
	print FH "header\n";
	print FH $hash{$key};
	print FH "footer";
	close FH;
}