のPerl - n番目の区切り文字の後に代替

Question

私は次のようになり、ファイルの行に何をしたいの置換基を有するいくつかの助けたいと思います：私は後にのみ,ておき.を交換したいが

aoipp;dadada.12312;ss;1245454;Xiop;12.12;45.3;47.897;31.5; 
asdfafd;14355.54664;peasd;125.1;900.2;76.897;67.456;asdfdf; 
perio;777.2;ipoes;900.34;2;1980.45;870.98;67.67; 

を区切り文字;の5番目の出現。他のすべては変わらない必要があります。だから、所望の出力ファイルは、次のようになります。

aoipp;dadada.12312;ss;1245454;Xiop;12,12;45,3;47,897;31,5; 
asdfafd;14355.54664;peasd;125.1;900.2;76,897;67,456;asdfdf; 
perio;777.2;ipoes;900.34;2;1980,45;870,98;67,67; 

を私はので、私は大きなプログラムにそれを組み込むことができ、主にperlでこれを行うことで興味があるが、bashの/ awkではすべてのソリューションも同様に歓迎されています。前もって感謝します。

Answer 1

このawkはワンライナーは、あなたのために働く必要があります。

awk -F';' -v OFS=";" '{for(i=6;i<=NF;i++)gsub("[.]",",",$i)}7' file 

それは、フィールドごとに,によってすべて.を置き換える、第6フィールド（;が分離された）から開始します。あなたのデータを

テスト：

kent$ cat f 
aoipp;dadada.12312;ss;1245454;Xiop;12.12;45.3;47.897;31.5; 
asdfafd;14355.54664;peasd;125.1;900.2;76.897;67.456;asdfdf; 
perio;777.2;ipoes;900.34;2;1980.45;870.98;67.67; 

kent$ awk -F';' -v OFS=";" '{for(i=6;i<=NF;i++)gsub("[.]",",",$i)}7' f 
aoipp;dadada.12312;ss;1245454;Xiop;12,12;45,3;47,897;31,5; 
asdfafd;14355.54664;peasd;125.1;900.2;76,897;67,456;asdfdf; 
perio;777.2;ipoes;900.34;2;1980,45;870,98;67,67; 

Answer 2

# this should do your work 
    sed -i 's/;/,/6g' filename 

    cat filename 
    aoipp;dadada.12312;ss;1245454;Xiop;12.12,45.3,47.897,31.5, 
    asdfafd;14355.54664;peasd;125.1;900.2;76.897,67.456,asdfdf, 
    perio;777.2;ipoes;900.34;2;1980.45,870.98,67.67, 

Answer 3

私は変更することが唯一の要素にアクセスする配列スライス@fields[ 5 .. $#fields ]を使用。

#!/usr/bin/perl 
use warnings; 
use strict; 

my @input = qw(aoipp;dadada.12312;ss;1245454;Xiop;12.12;45.3;47.897;31.5; 
       asdfafd;14355.54664;peasd;125.1;900.2;76.897;67.456;asdfdf; 
       perio;777.2;ipoes;900.34;2;1980.45;870.98;67.67; 
      ); 

my @expected = qw(aoipp;dadada.12312;ss;1245454;Xiop;12,12;45,3;47,897;31,5; 
        asdfafd;14355.54664;peasd;125.1;900.2;76,897;67,456;asdfdf; 
        perio;777.2;ipoes;900.34;2;1980,45;870,98;67,67; 
       ); 

sub process { 
    my (@input) = @_; 
    my @output; 
    for my $line (@input) { 
     my @fields = split /;/, $line; 
     s/\./,/ for @fields[ 5 .. $#fields ]; 
     push @output, join ';', @fields, q(); 
    } 
    return \@output 
} 

use Test::More tests => 1; 
is_deeply(process(@input), \@expected); 

Answer 4

while (my $line = <DATA>) { 
    if ($line =~ /^(?:[^;]*;){5}/) { 
     substr($line, $+[0]) =~ y/./,/; 
    } 
    print $line; 
} 
__DATA__ 
aoipp;dadada.12312;ss;1245454;Xiop;12.12;45.3;47.897;31.5; 
asdfafd;14355.54664;peasd;125.1;900.2;76.897;67.456;asdfdf; 
perio;777.2;ipoes;900.34;2;1980.45;870.98;67.67; 

Answer 5

perl -pe 's/(.*?;){6}\K(.*)/$2 =~ s!\.!,!rg /ge' 

1. 、第六;（(.*?;){6}\K）まで、すべてをスキップ
2. と置換をaply。 、残りの行に（$2 =~ s!\.!,!rg）