perl - ドットを削除するが小数点は削除しない

Question

.欠落データとしてのピリオドと小数点区切りとしてのピリオドを含む、スペースで区切られたテキストファイルがあります。欠落しているすべてのデータ期間を置き換えてNaN、小数点記号だけを残したい - 以下に例を示します。

サンプルデータ：

1981 12 23 . 4.5 . .
1981 12 24 4.6 7.8 1.2 22.0
1981 12 25 . . . .
1981 12 26 2.1 . 3.1 .

望ましい出力:

1981 12 23 NaN 4.5 NaN NaN
1981 12 24 4.6 7.8 1.2 22.0
1981 12 25 NaN NaN NaN NaN
1981 12 26 2.1 NaN 3.1 NaN

UNIX 環境で sed、tr、perl を使用する際のヘルプをいただければ幸いです。

score 6 · Accepted Answer

次の Perl プログラムは、数字のないドットを置き換えてそれを行います。

#!/Users/brian/bin/perls/perl5.14.2

while( <DATA> ) {
    s/ (?<!\d) \. (?!\d) /NaN/xg;
    print;
    }

__END__
1981 12 23 . 4.5 . .
1981 12 24 4.6 7.8 1.2 22.0
1981 12 25 . . . .
1981 12 26 2.1 . 3.1 .

これは短い Perl のワンライナーです。

% perl -pe 's/ (?<!\d) \. (?!\d) /NaN/xg' input_file

score 6 · Accepted Answer

ここでは、否定されたルックアラウンドアサーションを使用することをお勧めします。

perl -plwe 's/(?<!\d)\.(?!\d)/NaN/g;' file.txt

つまり、周囲の文字が数字でない場合にのみ置き換えます。次のような番号がある場合、失敗する可能性があります: .1231(ではなく0.1231)。このような場合、最初のルックアラウンドを削除できます。

score 1 · Accepted Answer

これはあなたのために働くかもしれません：

sed ':a;s/ \. / Nan /g;ta;s/ \.$/ Nan/' file

または、次のような番号.123が存在しない場合:

sed 's/ \./ Nan/g' file

score -1 · Accepted Answer

ドットの次の文字がスペースかどうかを確認してください。そうである場合は、そこにNaNを追加します。

perl - ドットを削除するが小数点は削除しない

4 に答える 4

Related

Reference