毎年恒例のPerlの大祭YAPC::Asia Tokyo 2011ですが、今年はちょっと趣向を変えて「Acme::MineChan」というマインスイーパを自動で解くプログラムを発表してきました。 お急ぎの方はこちらLT版の録画を 最終日2日目のLightning Talksの一番最後に少し時間をもらって簡単なデモをさせていただきました。 Perlで無理ゲーム攻略（1秒でマインスイーパを解く） 以下の録画の9:00ぐらいからデモを開始していて、途中1秒でマインスイーパを解けていますが、これはたまたま(マグレ)です。事前にいくら試しても早くて3秒2秒ぐらいだったので、本番で運が良かっただけでした。 元々応募していたのは「Perlで無理ゲーム攻略」という20分の発表で、Win32::GuiTest や Win32::Screenshot などのモジュールを利用して、Windows上で動作するゲー
なんとなく。 #!/usr/local/bin/activeperl use strict; use warnings; use Imager; my $file = '/Users/sugyan/Pictures/icon.png'; my @img = (); my $image = Imager->new(file => $file); push @img, $image; for (1 .. 59) { push @img, $image->rotate(degrees => - 0.5 * $_ * $_)->crop(width => 48, height => 48); } Imager->write_multi({ file => 'hoge.gif', type => 'gif', gif_loop => 0, }, @img); Imagerの使い方さえ把握できれば結構
サブルーチンの基本的な使い方 プログラム内で何回も同じ処理をするようなときは、その処理の部分を切り離してサブルーチンにしてしまうのがスマートなやり方です。そうすれば、何回も同じソースを書く必要がなくなるので、時間の節約にもなります。 サブルーチンの宣言 サブルーチンは sub で宣言します。 sub func; # サブルーチンの宣言 サブルーチンを宣言し、なおかつ定義するには次のようにします。サブルーチンの宣言と定義を同時に行うのが一般的です。 # サブルーチンの宣言と定義 sub func{ .... } サブルーチンを呼び出すには、アンパサンド( & ) をサブルーチン名の前につけて、以下のようにします。 &func(); サブルーチンはファイルのどの場所で宣言してもかまいませんし、呼び出し元と同じファイル内でなくても問題ありません。別ファイルにあるサブルーチンは、do、 re
2008-12-22 01:22 | IT, エントリー Aptana Cloudを利用してみました。 統合開発環境のAptana Studioで有名な米Aptana社が運営しているWebアプリケーションのホスティングサービスです。 AmazonのEC2よりも上位層のアプリケーションレベルのホスティングなので、Google App Engineと同等のホスティングと言えます。 Eclipseからサインアップをしてみる EclipseにAptanaのプラグインをインストールして、My Aptanaを開きます。 サイト名（サブドメイン名）と利用方法を決めます。今回は、21日間無料トライアルを利用しました。 Aptana IDを持っていない場合は、ここでアカウントを作ります。 利用規約をよく読んで同意します。 アプリケーションサーバーの環境構築処理が始まります。 アプリケーションサーバーの構築が
乱数と Perl5 にかんする蘊蓄の話 Perlの乱数についてIRCで盛り上がったのでまとめておく。 結論からいうと、srand()はPerl5組み込みのものでよい。乱数の生成はMath::Random::MTがよいとおもう。 Perlのrand()の実装はConfigure時に選べるようだが*1、ふつうはdrand48()がつかわれる。これは下位ビットがまったくランダムでないことで知られるrand(3)よりはましだが、しょせん線形合同法なのでセッションIDなどを作るのには安全ではない。安全な乱数を作るためにtime()やSHA1を混ぜ込んだりするほうほうもよくつかわれるが、そのくらいならはじめからM::R::MTを使ったほうがいいとおもう。 なお、srand()はあれば/dev/urandomを読むので、自前でsrand(time)などとするのはよくない。また、最初にrand()を呼ぶと
JavaでRijndael(AES)で暗号化されたデータをPerlで復号化しようと思います。 「暗号方式と秘密鍵だけ聞いておけば簡単にデコードできるっしょ、余裕っしょ」とタカをくくっていたら、思いっきり天罰がくだりました。久しぶりにハマったのであります。 ちゃんと確認しておくべきだった情報 まずは暗号方式と秘密鍵だけでなく、以下の情報をしっかりと確認しておく必要アリでした。 暗号アルゴリズム 秘密鍵 秘密鍵の長さ ブロック暗号化モード IV（Initialization Vector：初期化ベクトル） padding方式 暗号のことちゃんと勉強した事がないので、なんだかよくわからんけど、必要らしい。 せめて事前にここらへんを読んで勉強しておけばよかった。 ぱせらんメモ http://d.hatena.ne.jp/pasela/20100612/crypto DESに代わる次世代暗号「AES
モダンな Perl の開発環境の構築方法 一般的な OSX 環境および Linux 環境における、モダンな Perl 開発環境の構築方法についてまとめてみたよ。 下準備 コンパイラなどをまずインストール。OSX なら Xcode、debian なら apt-get build-dep perl する。 perlbrew のインストール perlbrew をつかうことにより、簡単に最新版の Perl5 を利用することができるようになる。 perlbrew をいれる。 % curl -L http://xrl.us/perlbrew | perl - install % ~/perl5/perlbrew/bin/perlbrew init ~/.bashrc (または ~/.zshrc)に source ~/perl5/perlbrew/etc/bashrc を追記。 あたらしいシェルをたちあ
root権限なく、daemontoolsやmemcachedなどを使用せず、さくらレンタルサーバー スタンダードプランで標準的に使えるPerl CGIとMySQLだけを利用して動かせるWebアプリをArkで作ってみました。 http://sugyan.sakura.ne.jp/ リポジトリはgithubに Twitter OAuthでユーザー認証、ログイン OAuthを使ったTwitter APIでタイムラインを取得 MeCabで形態素解析して各発言を全裸に ユーザーが各全裸発言をお気に入りできる(ユーザーと発言をひもづける) 選択した発言をOAuthでTweet くらいの機能。 PerlのCGIからpsgiを起動する方法については以前書いた通りで。 さくらのレンタルサーバーでArk+CGIのTwitterアプリを作る練習 - すぎゃーんメモ 静的ファイルはデフォルトで"$HOME/www
a side-by-side reference sheet sheet one: version | grammar and execution | variables and expressions | arithmetic and logic | strings | regexes | dates and time | arrays | dictionaries | functions | execution control | exceptions | threads sheet two: streams | asynchronous events | files | file formats | directories | processes and environment | option parsing | libraries and namespaces | objects
TweetyliciousはPerl製のオープンソース・ソフトウェア。Twitterは日本での認知度も高くなっており、成長が止まらない。仕組みはシンプルなだけに、類似サービスも多数登場している。だが他を寄せ付けない速度で成長を続けている。 Twitterライクなマイクロブログ 今からTwitterを追い越すようなサービスを作るのは難しいだろうが、特定分野におけるつぶやきサービスやローカルグループ内のつぶやきであれば需要はあるかも知れない。そんな時に使えそうなのがTweetyliciousだ。 TweetyliciousはPerl製で、1ファイルで構成されているのが特徴だ。CGIとしてだけでなく、Tweetylicious自体がサーバとなって動作することもできる。フレームワークはMojoを使っている。ユーザ登録すれば、すぐにつぶやきを開始することが可能だ。 フォローもできる 単純なつぶやきの
Perl商標とかエグい 「Perl」の商標登録を、特にオーソライズされたわけじゃない人が勝手に取っちゃった、ということが起きました。エグいですね。 twitterとかブックマークとか見てると、まあそもそも何が起きてるのかよくわからんとか、これをもって「これだから知財（商標）制度は・・・（クソなんだ）」みたいな風に思っちゃってる人とかいるみたいです。その感覚はひょっとしたら半分は正しいかも知れないけど、半分は間違っていると思うので、Perl商標に絡めながら商標制度というもんを解説してみることにしました。 商標法はこんなことを目指している 商標制度というのは、商品とかに文字やマーク（商標）を付けて、その商標によって商品を他の商品と区別して買い物できるようにしたら便利だよね（、っていうかできないと困るよね）、ということで、そういう商標の識別力を保護しようとする制度です。 事業者が識別力のある商標
一部の方はすでにご存じの通り、先日 "RUBY"や"OPENSOURCE"などの商標登録が出されていた他、"Perl"および"パール"の商標登録がプログラミング言語Perlの開発およびコミュニティと全く関係のない法人（テラ・インターナショナル）により出願され、受理されてしまっていることが発覚いたしました。 Japan Perl Association (JPA) としては本件に関して法的な対応をするかどうかを含め検討中ですが、取り急ぎ現実的にプログラミング言語「Perl」を日常的に使用されている皆様に向けて現在の状況とそれに対してどのように対応するべきかJPAとして調査した結果をお知らせいたします。 まず プログラミング言語「Perl」を自社製品、サービスに対して使用することについてはなんの問題もございませんし、それを使って作られた製品を使用・開発することに対して使用料等が発生することはあ
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
MoxyはPerl製のオープンソース・ソフトウェア。日本において携帯電話サイトの需要は大きい。スマートフォンの活況もあって、PC向けと同時に携帯電話向けをリリースすることも多くなっている。また将来的にはPCよりもモバイルのシェアが大きくなると言われている。 携帯電話からのアクセスを模倣できる そんな携帯電話向けサイトの開発を行う場合、PCからアクセスを偽装してテストを行う必要がある。専用のソフトウェアの他、FirefoxのMobileSimulatorも使えるが、ここではWebブラウザベースのMoxyを紹介しよう。 MoxyはPerl製のソフトウェアで、専用のWebサーバとしてサービスが立ち上がる。ブラウザからアクセスすると、URLを指定して外部のWebサービスにアクセスできる。その際にはUserID、ユーザエージェント、HTTPヘッダーを任意に入れ替えてアクセスも可能だ。 Googleへ
Perl/CGIをWindows+Apache+ActivePerlで開発して、本番環境はLinuxで動かすような場合、 Perlスクリプトの１行目を環境に応じて書き換える必要がありますよね。 #!/usr/bin/perl (Linuxの場合) ↓ #!c:¥perl¥bin¥perl (Windowsの場合) これって不便ですよね。 書き換え忘れてLinux上で動かないことがありますよね。 そこで、#!/usr/bin/perlのままWindows + Apacheで動かす方法がないか調べてみたら、ありました。 Win32版ApacheでMT環境を構築する際の注意点 しかし上記のやり方だと私の環境ではエラーが出たので、 下記のようにやったら見事に動きました。 前提条件： ActivePerlがC:￥perl￥bin￥perlにインストールされている。 同じくCドライブにA
超今更...orz だけど、やっぱり Perl っていいねって最近思うようになって来た。Ruby がいいとか、Python がいいとか Perl がいいとかって、いろいろ選べるのが一番いいよね!! で、さらに今更だけど、Perl をちゃんと使わないのは、築地のそばにすんでいるのに魚がさばけないくらい哀しい事な気がしていた。で、買うだけ買ってあった本を読んだ。 モダンPerl入門 (CodeZine BOOKS) 作者: 牧大輔出版社/メーカー: 翔泳社発売日: 2009/02/10メディア: 大型本購入: 25人 クリック: 534回この商品を含むブログ (105件) を見るこの本が、とても良い本ですね。英語でのタイトルがPRAGMATIC Perl なんだけど、本当に実践的な内容と、実用的なサンプルが満載で素敵。 あと、序文と目次からしてその姿勢が貫かれててそれがまた素敵。本書の読み方に
HTTP::Engine は国産か否か 最近「国産のHTTP::Engine」のような文章を立て続けに見たので、HTTP::Engineは国産なのかどうかを考えてみたけどやっぱり国産じゃないんですよね。 そりゃディストリ作り出してメンテやりだしたのは日本人だけども、コードベースはCatalystだしMoose化の際にはnothingmuchの多大なる貢献があったし、大元のアイデアはPythonからの物だしで、そんなに国産と言う思いは無かったり。 だってさ、Pugsが台湾産だなんて言いかた聞かないでしょ?強いて言えばPerlコミュニティ産ってのがしっくりくるなという感じ。 中の人が日本語ばっかり使うから日本人が使うには気軽で良いという点くらいしかないんだけど、それって全体で見ると利点でなくて英語の情報が余りにも少なすぎてあんま良く無いなと思ってる所なんだけど、日本語ですらドキュメント書けてな
Web Application Framework Description Ark は perl で書かれたウェブアプリケーションフレームワーク（WAF）です。 Ark はおなじく perl 製のフレームワークである Catalyst を参考に開発されており、その多くの特徴はそのまま引き継いでいます。 そのため Catalyst の経験のある開発者であればすぐに使い始めることができるでしょう。 Catalyst とのいちばんの違いは、Catalyst は実用的に運用するためには基本的に mod_perl や FastCGI など永続的なプロセス実行環境を要求するのに対し、 Ark は CGI でも実用的に動作するという点を重視して開発されています。 もちろん mod_perl/FastCGI でも動作します。 より詳しい説明はドキュメントを参照ください。 Download 現在の最新バージ
こんにちは。開発のシニアスペシャリストをやっております、通称「にぽたん」こと谷口公一です。 私たちが日頃使っているネット上のサービスで、web 上のフォームの最後等に「ここに書かれている文字を入力してください」のように、絵に描かれた文字を目で読み取って入力するよう求められる場合があります。 言うまでもありませんが、これは通称「キャプチャ (CAPTCHA)」と呼ばれているもので、画像データは、人間ならそれを肉眼で認識して入力が行なえますが、機械には少し難しくなるため、フォームに文字を入力しているのが、機械ではないことを判定するためにこういう仕組みが存在します。 世の中にある CAPTCHA は、やたらと字がグチャグチャで読み取るのが非常に困難なケースもあります。 これは当然、安易に、白地に黒い文字を書いたような単純な画像を CAPTCHA に用いれば、それを解読するシステムは簡単に開発出来
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く