にひりずむ::しんぷる - てってってーをちょっと改良
明示的に文字コード指定したときは、out_utf8_flagが立っていようとエンコードする様に変更しました。 # utf8フラグなしで出力 #$tee->out_utf8_flag = 0; # ちゃんとsjisで出力 print $tee->output('sjis'); ソースは続きに置いときます package Language::Tettettee; use strict; use warnings; use utf8; use Encode; use Carp; our $VERSION = 0.02; my $utf8 = find_encoding 'utf8'; sub new($;$$) { my $class = shift; my $enc = shift || $utf8; $enc = find_encoding $enc unless ref $enc; ble
にひりずむ::しんぷる - 巷で話題のニクイ奴をPerlで実装してみた
巷では空前のBrainf*ckブームっぽい。 で、その派生言語であるところの、「てってってー言語」というのが話題っぽかったのでPerlで実装してみました。 いろいろ突っ込みお待ちしてます。 あと、(俺｜私)もこんな言語で実装したよ！とかいうのあったら教えてくれるとうれしいです。たぶん。 プログラム言語「てってってー」 - H.Hiroのチラシの裏の裏 404 Blog Not Found:javascript - てってってー言語を移植してみた 実装は小飼弾氏のJavaScript版を大いにパクり参考にしました。 ありがとうございます。 ちょお簡単です。 下記をご覧いただければ一目瞭然ですね！ #!/usr/bin/perl use strict; use warnings; use Language::Tettettee; use utf8; binmode STDOUT, ':utf8
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
