regex - 使用前に変数から文字を削除するには?

Question

$a[1]常に で始まり、(常に$a[5]で終わり)ます。

行を追加せずにそれらを取り除く方法はありますか?

while (my $line = <F>) {

    if ($line =~ m/test /) {
    my @a = split / /, $line;
        printf("%s %2s %4s %4s %.5s\n",$a[0], $a[1], $a[2], $a[5], $a[13]);
    } else {
        print $line;
    }
}

Answer 1

あなたはただ使うことができますsubstr

printf("%s %2s %4s %4s %.5s\n", $a[0], substr($a[1], 1), $a[2], substr($a[5], 0, -1), $a[13]);