にひりずむ::しんぷる - コードのコピペ不全解消しました
出先でこのBlogからコードコピペしたら大変なことになっていたので、ちゃんとコピーできるようにした。 なんか、前はちゃんとコピペ出来てた気がしたけど、大分気のせいだったようです。 今まで、liで1行ずつ色変えて見栄え良かった（私見）のだけど、諦めてテーブルにしましたお とりあえず行き過ぎたゆのでも置いておきますね #!/usr/bin/perl use strict; use warnings; use utf8; use Term::Encoding; binmode STDOUT, ':encoding(' . Term::Encoding::get_encoding . ')'; BEGIN { { package uno_in_perl; use Filter::Simple sub { s#\x58\x20\x2f\x20\x5f\x20\x2f\x20\x58\x20<\x20
にひりずむ::しんぷる - いまさら ゆの in language
昨日作った「てってってー」の流れで今更「ゆの in language」をやってみた。 本当に今更。 ゆの in languageについては下記を参照のこと ゆの in languageとは - はてなキーワード そして、Subtechのmiyagawa氏のコードを丸ぱｋ大いに参考にしました！ ゆの in Perl - Bulknews::Subtech - subtech #!/usr/bin/perl use strict; use utf8; binmode STDOUT, ":encoding(cp932)"; BEGIN { sub X () { bless \do { { str => "ひだまり", flag => undef } }, "X" } sub _ () { 1 } sub 来週も見てくださいね () { "来週も見てくださいね!" } { package X; u
にひりずむ::しんぷる - てってってーをちょっと改良
明示的に文字コード指定したときは、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
にひりずむ::しんぷる - favicon付きリンクを作成するブックマークレット書いた
他のBlog記事とかに言及する時とか、引用したときに手軽にfavicon付きのリンクが張りたかったので、JavaScriptとかXpathとかよくわかんないけど書いてみた。 javascript: (function () { var rtype = XPathResult.ORDERED_NODE_SNAPSHOT_TYPE; var title = document.evaluate( '//head/title', document, null, rtype, null ).snapshotItem(0).innerHTML; var favicon = document.evaluate( '//head/link[@rel="shortcut icon" or @rel="icon"]', document, null, rtype, null ).snapshotItem(0)
にひりずむ::しんぷる - ipod touchにBlogを対応させてみた
このたびipod touchを入手したのでこのBlogをsafariに対応させてみました。 作業は数分で完了してipod touch＆iphoneフレンドリーなBlogに生まれ変わりましたよ。 CSSに以下を追加 @media screen and (max-device-width: 800px) { #banner { width: 800px !important } #content { width: 780px !important; } #blogcontainer { width: 800px !important; } #sidecolumn { display: none } } 全部のページのヘッダーの最初に以下を追加 <meta name="viewport" content="width=728" />
にひりずむ::しんぷる - 1秒長い
今日の9時前にうるう秒が追加されたみたい。詳細は以下から。 うるう秒の瞬間 - 日曜プログラマのそゞろ事 なにはともあれ、元旦からおめでたいことですね（？） まぁサーバー管理者とかは心臓が止まる思いだろうけど。 というわけで、今年は例年より1秒長いということです。 で、1秒あればなにができるのか気になったのでまとめてみる 昨年100メートル世界新記録を樹立したボルト氏であれば、 1秒で「10.266940451745379メートル走ることができる」 この世の不思議を内包しているともっぱらの噂である光であれば 1秒で「299,792,458 m/s(≒30万キロメートル≒地球7周半)進むことができる」 ホットケーキを作ろうと思って持った卵を誤って落としてしまった場合 1秒後にはきっと無残にも割れている いつも青くて丸い謎のネコ型ロボットを頼りにして自分では何もやらないのび太であれば 1秒後に
にひりずむ::しんぷる - wmode="transparent"があるとQuickTimePlayerが透明になっちゃうっぽい
WindowsのFireFox3でembedタグの中にwmode="transparent"があるとQuickTimePlayerが透明になっちゃうっぽいです。 要するにmp3とかのQuickTimePlayerを使うようなものが見えなくなります。(存在はしているので頑張ってその辺をクリックしまくると再生される。) で、wmode="transparent"をwmode="opaque"にすれば正常に表示されるようなので、ちょろっとJavaScriptで実装してみました。 がんばってもembedタグはDOMで操作できないっぽかったので、Xpathで頑張ったよ。まぁJavaScriptとかDOMとかXpathとかよくわかってないですけど。 embedタグをちゃんと読めるようにする // ==UserScript== // @name QuickTimePlayer_well_see // @
にひりずむ::しんぷる - MENTAが楽しそう！！ 〜まだ何も作ってないよ編〜
前回のエントリーで教えてクンしたら、MENTA開発者のid:tokuhiromご本人から「最新版なら動きます」とのコメントをいただき、試してみたところすんなり動きました。感謝！！ あと、現時点でsvnレポジトリ(リビジョン 27361)のものでも正常に動くようになってたので、楽したい人は $ svn export http://svn.coderepos.org/share/lang/perl/MENTA/trunk /var/www/home/menta リビジョン 27361 をエクスポートしました。 ってすればいいと思います。 あとは、tokuhirom氏のgithubにもっと新しいのがあったりします。 http://github.com/tokuhirom/menta/tree/master githubからの場合、「menta」と「cgi-extlib-perl」の二つをDLする
にひりずむ::しんぷる - MENTAが楽しそう！! 〜でも動かないよ編〜
MENTA開発者のid:tokuhiromご本人からコメントをいただき、動くようになりましたので、このエントリーの後半は余裕でスルーしましょう。 インストールはマジに簡単です。 公式サイトからZIPを落としてくるか、最新鋭のものを使いたければsvnで落とせばいいです。 自分はレポジトリから持ってきました。 環境はこの間アップグレードしたばかりのUbuntu8.10です。 $ svn export http://svn.coderepos.org/share/lang/perl/MENTA/trunk /var/www/home/menta リビジョン 27167 をエクスポートしました。 簡単ですね。 とりあえず添付されてる読み物をさらっと確認。 proveで簡単にテストできるぽ。 PerlにTest::Harness入ってればもれなくついてくる便利コマンドの「prove」の出番ですよ！P
にひりずむ::しんぷる - Ubuntu8.04LTSから8.10にアップグレード
Ubuntu8.10にすればPerlのバージョンが5.10に上がるという噂を聞いたので早速あげてみました。 公式ページの通りにGUIでやったら、全くハマらずに何事もなくアップグレード完了しました。すげー簡単。 途中に何度かファイル書き換えるけどええのんかと聞かれますが、diffも見れるし、書き換えてもバックアップが取られるのでものすごく安心してできます。 時間的には質問聞かれたの気付かずに放置してた時間も含めて3時間弱でした。 先にCDイメージをダウンロードしておいて、そっちからやればもっと早いと思います で、Perlのバージョンが上がったかというと $ perl -v This is perl, v5.10.0 built for i486-linux-gnu-thread-multi Copyright 1987-2007, Larry Wall Perl may be copied
にひりずむ::しんぷる - Active Perl 5.10でスクリプトをexe化する ver.0.2
かなり前に書いた、Active Perl 5.10でスクリプトをexe化する。という記事を蒸し返してみます。 前回の記事の通りにPPMにレポジトリを追加しておけば、超絶簡単にPerlスクリプトをexe化できます。 まずは、PPMのGUIを起動し、検索バーに「PAR-Packer」と入力。 すると、3個ぐらいのレポジトリから見つかると思うので、お好きなところから最新版をチェックします。 ここで、下の方にある「Status」をみると、何やらWarningsが出ています。 どうやら「AutoLoader」があった方がいいようなので、念のため一旦「PAR::Packer」のインストールを取りやめて、「AutoLoader」をインストールします。(でもなくても動くかもしれない) インストールが終わったら、次こそ「PAR::Packer」をインストールします。 これだけで依存関係のあるモジュールはすべ
にひりずむ::しんぷる - Winでプロセスを指定時間後にkillする
WinXPのHomeにはTaskkillコマンドとか無いのでPerlで自作。 引数にkillしたい時間(秒後)とpidを指定する。 pidはタスクマネージャーで調べるべし。 自分は、大抵はPCで音楽を聴きながら寝ているのだが、普通に全曲ランダムとかしていると朝まで鳴っている。 かといってPCをshutdown -s -t 3600とかして1時間後に停止するのも如何な物か、といった感じで適当に作った。 #! C:\Perl\bin\perl use strict; use warnings; use Win32; ( my $basename = $0 ) =~ s#.*[\\/](.*)$#$1#; unless ( $ARGV[1] ) { printf "usage : %s time killing_pid\n", $basename; exit 1; } my $time = $A
にひりずむ::しんぷる - 式の優先順位
my $file_name = ($file =~ /([^\\\/:]+)$/) ? $1 : 'uploaded.bin'; というようなのを見つけて、なるほどなぁと思った次第。 上の例だとメモリの無駄使いが無くてなかなかスマートである。 ただし、一見わかり辛い。 自分がよく書くのは ( my $basename = $0 ) =~ s#.*[/\\](.*)#$1#; という感じで、まぁまんまbasenameを取ってるだけ。 ただし間違っても次のようにしてはいけない。 my $basename = ( $0 =~ s#.*[/\\](.*)#$1# ); これだと$basenameには1が入る。 なぜそうなるかと言うのは式の優先順位が違うからに他ならない。 $basename = $0; という代入が行われる。 次に $basename =~ s#.*[/\\](.*)#$1#; と
にひりずむ::しんぷる - Active Perl 5.10でスクリプトをexe化する。
久々にやったらはまったのでメモ。 とりあえず、必要なモジュールは PAR PAR::Packer の二つ。 PAR::Packerがppというコマンドをこさえてくれて、こいつがPerlのコアモジュールとソースコードをまとめてexeにしてくれる。 で、素直にppmでインストールしようとしても、PAR-Packerは見つからない。 Active stateには対応していないと載っている。 さぁ、困った。 5.8.8でも似たようにはまったので、その時に参考にしたサイトを色々巡回してみる。 そんなこんなで、あれこれ探してようやくアタリを引いた。 「ActivePerl 5.8.8+PARでPerlスクリプトをexe化。」 ここに書いてあるPAR-Packerのリンク先 http://theoryx5.uwinnipeg.ca/ppms/ からさらにたどること http://www.bribes.o
にひりずむ::しんぷる - 昨日のexe化について
昨日、一生懸命書いた記事について、もっと他に情報ないかなーと探していたらあっさりと簡潔でわかりやすいページを見つけてしまった。 PARを使ってexeを作成する手順(perl 5.10の場合) サイトをレポジトリに登録しておけば依存関係なんか全部解消してくれたんだった…。 なんというかやっぱり、何事にも簡単にやる方法って言うのは存在するわけだなぁ。 というか普通気づくだろ。。。
にひりずむ::しんぷる - なぜか自動起動しないＮＩＣ
Vine 4.2の調子が悪すぎたので、この機会にと試したかったFedora 8に乗り換えてみた。 でなぜかDVDインストールできなくて結局LiveCDからインストールしたりと、ちょっと嵌ったのだが、とりあえずは動くようになった。 普段、WinからPuttyでSSHしてるんだけど、再起動したら繋がらなくなった。 おかしいなと思って、ping打ったら通らない。 仕方ないのでコンソールログインしてみたら、案の定NICが起動していなかった。 更にSyslogにも起動時に読み込んだ記録が。 これでなんで上がらんのかよくわからんが、一応、手動でifupすれば起動するので、仕方なくchkconfigに追加することにした。 で、適当にでっち上げる。 Vineよりもfunctionが使いやすい感じ。 #!/bin/bash # # chkconfig: 345 99 99 # description: st
にひりずむ::しんぷる - SSHトンネリングでVNC
とっても便利なのでVNCをインストール VNCはネットワークプロトコルの一種で、簡単にリモートデスクトップ環境が構築できる優れもの 構築する環境は WindowsからLinuxに接続する。 SSHで暗号化通信。 というもの。 何はともあれインストールしよう $ yum install vnc-server とすればインストールされる。 で、とりあえず起動したいユーザーで $ vncserver と入力すると起動する。 初回起動時にパスワードを聞いてくるので設定する。 次にWindowsにvncviewerをインストールする。 日本語版のRealVNCをこのへんからダウンロードする。 必要なのはvncviewerだけなので、それ以外のチェックをはずしてインストール これで準備が整ったので、早速繋いでみる。 Windowsからvncを立ち上げて、サーバーのIP:5901を入力してOK 次にパス
にひりずむ::しんぷる - ちょっとしたファイル共有
Apacheでうｐろだを作ってみた。 めちゃくちゃしょぼい。 2GB以上のファイルを上げられない。 リクエストが終わるまで何もできない。(UIは固まらないけど) ファイル削除時に確認しないで速攻消す。 なぜか[]()の含まれたファイルは消せない。 なのでアップロードできないようにした。 ファイル名の判定はリクエストが終わった後に行われる。 全く持って実用に耐えない代物だ。 もうちょっといじってみるかなぁ…。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
にひりずむ::しんぷる - 気ままな情報発信源