如何在使用前从变量中删除字符？

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]);