사용하기 전에 변수에서 문자를 제거하는 방법은 무엇입니까?

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