612(2): 爆音で名前が聞こえません [sage] 2008/07/25(金) 04:23:51 AAS
　　　　　　　　　　　　　　　　　　　　UNIX板のみなさま、おはようございます
　　　　　　　　　　　＊ﾟ　。　　　　　6/26は音ゲ板へのご支援ありがとうございました！
　　 ぐﾂ＾⌒γ>　/!@)oﾟ* 0　　　　すっかりトナメを楽しんでしまって
　　　(○),ﾉノ ﾘ /　ヽ( ﾟдﾟ )彡　　お礼が遅れてしまい、申し訳ありませんでした
　　　ゝﾘ ^ヮ^,O>ー--@ﾟ 0
　　　 /^ﾞヽyY　　　　　　　　　　　　トナメも残り決勝戦を残すのみとなりましたが
　　　(Lｿ=＝} 　　　　　　　　　　　　最後まで楽しんでいきたいですね
　　　　ﾉ_ _,i_l　　　　　　　　　　　　
・音ゲー板お礼絵(popn'music風味)
画像ﾘﾝｸ

新スレも立ちました、いつでも遊びに来てくださいね
【音ゲー】全板人気トーナメント選対スレ10th stage
2chｽﾚ:otoge

お礼が遅くなって本当にごめんなさいだよもん
これからも音ゲーをよろしくだよもん

613(2): 戦時板国民 [sage] 2008/07/25(金) 19:06:58 AAS
#!/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__

ダヨモン様、御久シ振リトナリマシタンダヨモン。
ダヨモンダヨダヨダヨモン！日ノ組決勝デハ一緒ニ遊ンデ下サリ、感謝シテヰマスダヨモン。

燃エ尽キテ仕舞ヒ、守護神殿ノ御礼モ持チ帰リモ今頃ニナツタノガ心苦シインダヨモン。
反省シテ更ナル現実逃避ニ走ツタダヨモンガ、コンナ伊国麺デハ困ルンダヨモン…。