次の内容を含むファイルがあります。
CHROM_POS
chr10_100009635
chr10_100187980
chr10_100229692
chr10_100267650
chr10_100269675
chr10_100279430
chr10_100285899
このファイルに新しいコンテンツを追加したいと思います。たとえば、次のようになります。
chrX-1, chrX
ここで、Xは上記の数字を表しているため、次のようになります。
chr10_100285898 chr10_100285899
ベストアンサー1
Perlソリューション：
perl -p -e 's;([^_]+)_(\d+);"$1_" . ($2 - 1) . " $1_$2";e'
この-pフラグは、すべての行を繰り返して-eスクリプトを引数として提供します。([^_]+)アクティベーション式を置き換えるために、e `修飾子の前にあるものを（\ d +）$ 2キャプチャします。_$1captures the digits into, the
入力ファイルを引数として使用するか、標準入力として使用してください。