1行ずつ読み、行の文字列を取得し、perl [duplicate]を使用してその文字列を後続の行に割り当てます。

Question

前の行の「興味深い」部分を覚えていて、行が「AA」、「BB」、または「MTD」で始まる場合は、これを追加してください（最後の場合は文字列の短い部分のみが置き換えられます）。

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

my @repeat;
while (my $line = <>) {
    chomp $line;
    if (my ($first, $second) = $line =~ /^MTD.{8}(...)(.*?) /) {
        $repeat[0] //= $first;
        $repeat[1] = $second;
        substr $line, 11, 3, $repeat[0];
    }
    if ($line =~ /^([AB])\1 /) {
        substr $line, 11, 0, $repeat[0] . $repeat[1];
    }
    print "$line\n";
}

Answer 1

前の行の「興味深い」部分を覚えていて、行が「AA」、「BB」、または「MTD」で始まる場合は、これを追加してください（最後の場合は文字列の短い部分のみが置き換えられます）。

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

my @repeat;
while (my $line = <>) {
    chomp $line;
    if (my ($first, $second) = $line =~ /^MTD.{8}(...)(.*?) /) {
        $repeat[0] //= $first;
        $repeat[1] = $second;
        substr $line, 11, 3, $repeat[0];
    }
    if ($line =~ /^([AB])\1 /) {
        substr $line, 11, 0, $repeat[0] . $repeat[1];
    }
    print "$line\n";
}

1行ずつ読み、行の文字列を取得し、perl [duplicate]を使用してその文字列を後続の行に割り当てます。

答え1

関連情報