数値をスラッシュで区切る方法

質問

Perl　で　「12345678」　の数値を　「1234/56/78」　と置き換えるには
どうすれば良いでしょうか？

回答No.4

Tacosan

あ, そうだ, 多分
sprintf("%04d\/%02d\/%02d", substr($xxx1,0,4), substr($xxx2,4,2), substr($xxx3,6,2));
は意味として
join '/', substr($xxx1,0,4), substr($xxx2,4,2), substr($xxx3,6,2)
と同じことになるね.

回答No.3

_--_1l1_1_

my $num = 12345678;
$num =~ s!(\d{4})(\d{2})(\d{2})!$1/$2/$3!;
print $num, "\n"; # 1234/56/78

回答No.2

Tacosan

それだとそんなにきれいにはならないねぇ. せいぜい / の前の無駄な \ を消すくらい.

回答No.1

Tacosan

1例としては
s/12345678/1234\/56\/78/

補足

数値は固定ではないので、現在は以下のようにしてますが、
sprintf("%04d\/%02d\/%02d", substr($xxx1,0,4), substr($xxx2,4,2), substr($xxx3,6,2));

他にもっとすっきりした変換方法はないでしょうか？