[過去ﾛｸﾞ] Perlについての質問箱 56箱目 (1001ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

895(1): 2012/11/24(土)18:17 AAS
>>894
だってTime::Pieceもその他のモジュールも使わないとこれだぜｗ

printf "%s-%s-%s\n", sub {($_[0]+1900,$_[1]+1,$_[2])}->((localtime)[5,4,3]);
printf "%s-%s-%s\n", sub {($_[5]+1900,$_[4]+1,$_[3])}->(localtime);
sub {printf "%s-%s-%s\n",$_[5]+1900,$_[4]+1,$_[3]}->(localtime);
sub {printf "%s-%s-%s\n",$_[0]+1900,$_[1]+1,$_[2]}->((localtime)[5,4,3]);
sub {print "@{[$_[0]+1900]}-@{[$_[1]+1]}-$_[2]\n"}->((localtime)[5,4,3]);
省3

---

898(1): 2012/11/24(土)19:56 AAS
>>895
お前の書き方が汚いだけだろwそれじゃ何書いてもだめだろw

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.041s