Shell Programming and Scripting

awk '{gsub("-","",$4);gsub("[,|.]","",$5);printf "%s%013d%016d%010d%s\n",$2$3$4,$5,$6,$7,$8}' file

[ahamed@localhost general]$ cat data2
1 560017039 575052020 22-11-2003 8,290.00 709545 100239050 11 
2 560017006 575052020 13-01-2008 20,000.00 709545 100246770 11

#! /usr/bin/perl
use warnings;

open (DATAFILE, "<data2") or die $!;while (<DATAFILE>){
        my ($line) = $_;
       
        $line =~ s/(\s)|(\-)|(\.)|(\,)//g;
        $line =~ s/^(\S)//g;
        print $line;
        print "\n";
}

[ahamed@localhost general]$ ./data2.pl 
5600170395750520202211200382900070954510023905011
56001700657505202013012008200000070954510024677011

[ahamed@localhost general]$

#! /usr/bin/perl
use warnings;

open (DATAFILE, "<data2") or die $!;
while (<DATAFILE>){

        my ($line) = $_;
        $line =~ s/^(\S)|(\-)|(\.)|(\,)//g;
        $line =~ s/^(\s)//g;
        my ($var1, $var2, $var3, $fourthdata, $fifthdata, $var6, $var7) = split(/\s/, $line);
        $fourthdata = sprintf('%013d',$fourthdata);
        $fifthdata = sprintf('%016d',$fifthdata);
        print "$var1$var2$var3$fourthdata$fifthdata$var6$var7\n";
}