Perl¤Î¥×¥í¥°¥é¥ß¥ó¥°¥Í¥¿¡£
ʸ¾ÏÃæ¤Ë´Þ¤Þ¤ì¤ë¥é¥Õ¤ÊÆüÉÕɽµ¤òÈ´¤½Ð¤·¡¢ 2008/06/02 ¤Î¤è¤¦¤Ê¡Ö4·å/2·å/2·å¡×¤Î ¥Õ¥©¡¼¥Þ¥Ã¥È¤Ëľ¤¹½èÍý¡£
Âоݤˤ·¤Æ¤¤¤ë¤Î¤Ï¡Ö3/5¡×¤Î¤è¤¦¤Ê¡Ö·î/Æü¡×¤È¡¢ ¡Ö2008/5/2¡×¤Î¤è¤¦¤Ê¡Öǯ/·î/Æü¡×¡£Ç¯¤¬·çÍî ¤·¤Æ¤¤¤ë¾ì¹ç¤Ï¥×¥í¥°¥é¥à¼Â¹Ô»þ¤Îǯ¤òÁÞÆþ¤¹¤ë¡£
¥Á¥ç¥¤¤È½¤Àµ¤¹¤ë¤À¤±¤Ç¡Ö6·î5Æü¡×¤ò½¦¤¤¾å¤²¤Æ ¡Ö2008-06-05¡×¤Ë¤·¤¿¤ê¤È¡¢¤¤¤í¤ó¤Ê¥Õ¥©¡¼¥Þ¥Ã¥È¤Ë Âбþ¤Ç¤¤ë¤Î¤Ç¤´ÍøÍÑ¥¢¥ì¡£
---------- $ENV{'TZ'} = "JST-9"; ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time); $year += 1900;
$str =~ s/(\d{4})\/(\d{1,2})\/(\d{1,2})/&formatA;/eg; $str =~ s/([^\/0-9]|^)(\d{1,2})\/(\d{1,2})/&formatB;/eg;
sub formatA { @date = split(/\//,$&); $fix = sprintf("%04d/%02d/%02d", $date[0], $date[1], $date[2]); return($fix); }
sub formatB { $fix = sprintf("%02d/%02d", $2, $3); $fix = $1 . $year . "/" . $fix; return($fix); } ----------
|