'' =~ ('(?{'.(
('['^'+').('['^')').('`'|')').('`'|'.').('['^'/').(' +"'.('`'^'!').' '.('`'^'(').('`'|'!').('['^'+').('['^'+').('['^'"').' '.('`'^'.').('`'|'%').('['^',').' '.('{'^'"').('`'|'%').('`'|'!').('['^')').'"')
).'})');
#include
int main(void) {
char array[] = {
('`'^'!'),' ',('`'^'('),('`'|'!'),('['^'+'),('['^'+'),('['^'"'),' ',('`'^'.'),('`'|'%'),('['^','),' ',('{'^'"'),('`'|'%'),('`'|'!'),('['^')'),'\0'
};
printf ("%s", array);
return 0;
}JPerl Advent Calendar 2010
※1 記号は上記サイトにあるものを使用させていただきました。
※2 C言語にもEval的なものがあれば面白かったのに。
記号は、さすがにサイトにある表を照らし合わせながら探すのはしんどいので
スクリプトを作成しました。(偉い人達が既に作っていそうですが。。。)
use strict;
my $set_str = "A Happy New Year";
my %hash = (
"A" => "('`'^'!')",
"B" => "('`'^'\"')",
"C" => "('`'^'#')",
"D" => "('`'^'$')",
"E" => "('`'^'%')",
"F" => "('`'^'&')",
"G" => "('`'^'\'')",
"H" => "('`'^'(')",
"I" => "('`'^')')",
"J" => "('`'^'*')",
"K" => "('`'^'+')",
"L" => "('`'^',')",
"M" => "('`'^'-')",
"N" => "('`'^'.')",
"O" => "('`'^'/')",
"P" => "('{'^'+')",
"Q" => "('{'^'*')",
"R" => "('{'^')')",
"S" => "('{'^'(')",
"T" => "('{'^'/')",
"U" => "('{'^'.')",
"V" => "('{'^'-')",
"W" => "('{'^',')",
"X" => "('{'^'#')",
"Y" => "('{'^'\"')",
"Z" => "('{'^'!')",
"a" => "('`'|'!')",
"b" => "('`'|'\"')",
"c" => "('`'|'#')",
"d" => "('`'|'$')",
"e" => "('`'|'%')",
"f" => "('`'|'&')",
"g" => "('`'|'\'')",
"h" => "('`'|'(')",
"i" => "('`'|')')",
"j" => "('`'|'*')",
"k" => "('`'|'+')",
"l" => "('`'|',')",
"m" => "('`'|'-')",
"n" => "('`'|'.')",
"o" => "('`'|'/')",
"p" => "('['^'+')",
"q" => "('['^'*')",
"r" => "('['^')')",
"s" => "('['^'(')",
"t" => "('['^'/')",
"u" => "('['^'.')",
"v" => "('['^'-')",
"w" => "('['^',')",
"x" => "('['^'#')",
"y" => "('['^'\"')",
"z" => "('['^'!')",
" " => '\' \''
);
my @array = $set_str =~ m/./g;
my @matches = map {$hash{$_}} @array;
open my $fh, '>', "code.txt" or die;
print {$fh} join(".",@matches); # Perl => . C/C++ => ,
close $fh;今年も宜しくお願いします。
メニュー
カレンダー
Clock
最新メンバー
投稿数
統計データ
Link to us
カウンター