第3回2ch全板人気トーナメント＠UNIX板 (778ﾚｽ)

第3回2ch全板人気トーナメント＠UNIX板 http://mevius.5ch.net/test/read.cgi/unix/1206926465/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

613: 戦時板国民 [sage] 2008/07/25(金) 19:06:58 #!/usr/bin/perl use strict; my @dayomon = reverse qw/だよ もん/; my @mode = qw/dayomon decimal/; my $term = 'だよもん！'; die "Usage: perl dayomon.pl dayomon|decimal\n" if $ARGV[0] !~ /^\d+$|^($dayomon[0]|$dayomon[1])+${term}$/; my $result = $ARGV[0]; my $flag = $result !~ /^\d+$/; if ($flag) { $result =~ s/$term//; $result =~ s/$dayomon[$_]/$_/g for (0..1); $result = oct("0b$result"); } else { $result = sprintf("%b", $result); $result =~ s/$_/$dayomon[$_]/g for (0..1); $result .= $term; } printf("%s: %s\n", $mode[$flag], $result); __END__ ダヨモン様、御久シ振リトナリマシタンダヨモン。 ダヨモンダヨダヨダヨモン！日ノ組決勝デハ一緒ニ遊ンデ下サリ、感謝シテヰマスダヨモン。 燃エ尽キテ仕舞ヒ、守護神殿ノ御礼モ持チ帰リモ今頃ニナツタノガ心苦シインダヨモン。 反省シテ更ナル現実逃避ニ走ツタダヨモンガ、コンナ伊国麺デハ困ルンダヨモン…。 http://mevius.5ch.net/test/read.cgi/unix/1206926465/613

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 165 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.018s