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

---

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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

836(1): 2012/11/24(土)14:41 AAS
いま使っているPCにList::MoreUtilsが入ってないので動作確認できないが

use List::MoreUtils qw(pairwise);
printf "%s-%s-%s\n", pairwise {$a + $b} (localtime)[5,4,3], (1900,1,0);

---

837: 2012/11/24(土)14:49 AAS
>>836
use List::MoreUtils qw(pairwise);
printf "%s-%s-%s\n", pairwise {$a + $b} @{[(localtime)[5,4,3]]}, @{[1900,1,0]};

こうか？ｗ

---

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

---

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

---

ぬこの手 ぬこTOP 0.026s