MTop

а вот на перле то же самое на Перле
$path="C:/";
open (file, $path."file.txt");
my @Report1 = <file>;
close (file);
chomp(@Report1);
open (file, ">".$path."otchot.txt");
foreach my $item1 ( @indata1 )
{
my @array1=split(/,/,$item1);
print file, @array1[0]," ",@array1[1]," ",@array1[3]," ",@array1[4]," ",@array1[5]," ",@array1[6],"\n";
}
close (file);