delete character in nth position

[viclap]

Hi to all,

i have this kind of data:

60 , 70 , 90 , 27,345 , 10
30 , 40 , 100 , 38,900 , 12
41 , 23 , 98 , 21,200 , 09

I've wanted to remove the comma in 4th position to be able to come up with below output using perl:

60 , 70 , 90 , 27345 , 10
30 , 40 , 100 , 38900 , 12
41 , 23 , 98 , 21200 , 09

Hope someone could enlighten me on this. TIA.

 

[feherke]

Hi

Must it be Perl ? For this particular case Sed has a special trick ( as far as I know ) not available in Perl :

sed 's/,//4' /input/file

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

 

[feherke]

Hi

The above Sed code's closest Perl equivalent could be this :

perl -naF'\s*,\s*' -e '[b]splice[/b][navy]@F[/navy][teal],[/teal][purple]3[/purple][teal],[/teal][purple]2[/purple][teal],[/teal][navy]$F[/navy][teal][[/teal][purple]3[/purple][teal]].[/teal][navy]$F[/navy][teal][[/teal][purple]4[/purple][teal]];[/teal][b]print[/b] [b]join[/b][green][i]" , "[/i][/green][teal],[/teal][navy]@F[/navy]' /input/file

But in case your problem can be rephrased as "remove the comma which is not surrounded by spaces", it can be reduced to :

perl -pe '[b]s[/b][green][i]/(?<!\s),(?!\s)//[/i][/green]' /input/file

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]

 

[viclap]

hi Feherke,

Thanks once again. solution 1 and 2 really works . Great!!!

 

[feherke]

Hi

The above Sed code's closest Perl equivalent could be this :

perl -naF'\s*,\s*' -e '[b]splice[/b][navy]@F[/navy][teal],[/teal][purple]3[/purple][teal],[/teal][purple]2[/purple][teal],[/teal][navy]$F[/navy][teal][[/teal][purple]3[/purple][teal]].[/teal][navy]$F[/navy][teal][[/teal][purple]4[/purple][teal]];[/teal][b]print[/b] [b]join[/b][green][i]" , "[/i][/green][teal],[/teal][navy]@F[/navy]' /input/file

Actually that was wrong wording. The Sed code's equivalent whould be something like this :

perl -pe '[navy]$n[/navy][teal]=[/teal][purple]0[/purple][teal];[/teal][b]s[/b][green][i]/\s*,\s*/$n++==3?"":$&/[/i][/green]ge' /input/file

Feherke.
[link feherke.github.com/]

http://feherke.github.com/

[/url]