$a = "3aaa"; $b = "b3bb"; $c = "ccc3";
이렇게 모든 변수는 3이라는 문자를 포함하고 있습니다.
이걸 치환 하기위해
$a =~ s/3/x/; $b =~ s/3/x/; $c =~ s/3/x/;
이렇게 하고 있었는데요
한번에 하는방법은 없나요?
혹시나 해서
($a, $b, $c) =~ s/3/x/g;
하니까 안되더라구요 ;;
조언 부탁 드립니다~
. . . . .
my $a = "3aaa"; my $b = "b3bb"; my $c = "ccc3"; map { s/3/x/ } $a,$b,$c; print "$a\n$b\n$c\n";
결과
xaaa bxbb cccx
이렇게 해보세요.
.
.
.
.
.
my $a = "3aaa"; my $b = "b3bb"; my $c = "ccc3"; map { s/3/x/ } $a,$b,$c; print "$a\n$b\n$c\n";결과