Shell Programming and Scripting

column1 column2 column 3 column4 
1,ganesh,1,000,1
222,ram,2,000,5
222,ram,50,000,5
33,raju,5,000,7
33,raju,5,000,7
33,raju,5,000,8
33,raju,5,000,4
33,raju,5,000,1

awk -F, '{ x=$3","$4 ; print $1,$2,x,$5 }' OFS=";" file

1;ganesh;1,000;1
222;ram;2,000;5
222;ram;50,000;5
33;raju;5,000;7
33;raju;5,000;7
33;raju;5,000;8
33;raju;5,000;4
33;raju;5,000;1

#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = $cur_dir."/file";
my ($record,@fields,$new_field);

open(FILE,"<$filename") or die"open: $!";

while( defined( $record = <FILE> ) ) {
  chomp $record;
  @fields=split(/,/,$record);

  $new_field=$fields[2].",".$fields[3];
  print "$fields[0];$fields[1];$new_field;$fields[4]\n";
}

close(FILE);