perlでの文字列の抜き出し

[上に] [前に] [次に]
チョンボ 2000/02/07(月) 03:18:07
perlである文字列の一部を抜き出したいのですが

$str = '199912' の時
$year = '1999' と $month = '12' という結果にしたいのです


$year = substr($str, 0,4);
$month = substr($str, 5,2);
とすればできるのですが

$str = '199901' の時は、数字として扱われるようで
$month が '01' とはならず '1' となります

if($month < 10){$month = '0' . $month} とすればいいのですが
どうもすっきりしません。
何か良い方法が有ればおしえてください。
B-Cus 2000/02/07(月) 03:21:58
> $month = substr($str, 5,2);
$month = substr($str, 4,2);
チョンボ 2000/02/07(月) 03:31:03
名前のとおりのチョンボでした (^^;

速攻の回答ありがとうございました
言語によって OFFSET の開始値が違うので勘違いしていました。
(思いっきりいいわけです)

ありがとうございました。
[上に] [前に] [次に]