한 줄씩 읽고 줄의 문자열을 가져온 다음 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";
}

한 줄씩 읽고 줄의 문자열을 가져온 다음 perl [duplicate]을 사용하여 해당 문자열을 후속 줄에 할당합니다.

답변1

관련 정보