5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

第3回2ch全板人気トーナメント@UNIX板

613 :戦時板国民: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__

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

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

395 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)