perl - 行の特定の位置の文字を空白に置き換えます

Question

Unix / Solarisでは、ファイル内のすべての行で、文字位置58〜71を空白に置き換えることができる必要があります。

抽出例：

LOCAX0791LOCPIKAX0791LOC   AX0791LOC095200130008PIKAX079100000000000000WL1G011             000092000000000000

LOCAX0811LOCPIKAX0811LOC   AX0811LOC094700450006PIKAX0811000000000000006C1G011             000294000000000000

LOCAX0831LOCPIKAX0831LOC   AX0831LOC094000180006PIKAX083100000000000000OJ1G011             000171000000000000

Answer 1

または：

sed -r  's/^(.{57})(.{14})/\1              /' bar.txt

恐ろしい14スペースストリングについてお詫び申し上げます。

Answer 2

シンプルなPerlワンライナー

perl -pne 'substr($_, 58, 13) = (" "x13);' inputfile.txt > outputfile.txt

Answer 3

これを試して：

awk 'BEGIN{FS=OFS=""} {for(i=57;i<=71;i++)$i=" "}1' file

最初の行の出力：

LOCAX0791LOCPIKAX0791LOC   AX0791LOC095200130008PIKAX079               WL1G011

Answer 4

Perlでこれを試してください：

use strict;
use warnings;

while(<STDIN>) {

   my @input = split(//, $_);
   for(my $i=58; $i<71; $i++) {
      $input[$i] = " ";
   }
   $_ = join(//, @input);
   print $_;
}

Answer 5

Solarisボックスにgawkがある場合は、次のことを試すことができます。

gawk 'BEGIN{FIELDWIDTHS = "57 14 1000"} gsub(/./," ",$2)' OFS= file