Perl Tips
初めて使った。使い方はニコニコ動画 『スナップショット検索API』 ガイドtest.pluse 5.14.0;use warnings;use utf8;use autodie;use FindBin;use lib qq($FindBin::Bin/lib);use IO::File;use Encode;use LWP::UserAgent;use HTTP::Request::Common;open my…
chomp() は $/ に依存していると知れ!mjd!と思ってラクダ本を取り出した。(リファレンスではないところが素敵)ラクダ本に「$/」はreadline関数、<FH>演算子、chomp関数が参照すると記載されている。ということは &lt;!-- pre { white-space: pre-wrap; font</fh>…
クロージャの概念をクラスとの対比でわかりやすく説明する クロージャは、継承できないと書きましたが継承できるみたいです。(やりかたは今のところは思いつきません。)2008年の記事なので、もう解決してそうな気がしますが。 &amp;amp;lt;!-- pre { whi…
サンプルコードによるPerl入門Books基礎編 [Kindle版]木本裕紀2013-08-30サンプルコードさんの新本があると聞いて読みました。ささっと流し読みしたので感想を。■目次第1章 Perlを実行するためのコマンドプロンプト入門第2章 Perlとは第3章 WindowsにActi…
前回の続き &amp;amp;lt;!-- pre { white-space: pre-wrap; font-family: monospace; color: #000000; } body { font-family: monospace; color: #000000; } .lnr { color: #804040; } .Comment { color: #ff0000; } .Special { color: #ff00ff; } .Type…
というのが2014年1月にでるらしいですよ?http://codezine.jp/book/modernperl2
久しぶりの更新。DxLibのラッパー関数を作成しなおしてSwigでウハウハしようという試み。手順は以下のようになる。1.DxLibのWebサイト情報取得2.関数郡の抜き出し3.Swigで読み取れるよう関数の変換というわけで、1のコードを書いてみた。use 5.12.0;use warn…
ボクセル化が面白そうだと思ったんだけど、上手く実装できなかったので変更しました。。。orzさて、アルファブレンディングは「αブレンド(アルファブレンド)とは、2つの画像を係数(α値)により合成すること。特にゲームの開発に必須の技術で、別々に描か…
Perl 5.18がリリースされたみたいです。◆Islands in the byte streamperl v5.18.0 released!◆tokuhirom's blog.Perl 5.18.0 がリリースされています◆サンプルコードによるPerl入門Perl 5.18 がリリースされました◆5.18の変更点の日本語訳perldoc.jp変更点は…
Webサイトを作ってみたいねぇと思っていたら頑張っていた。http://yoshichi9.sakura.ne.jp/myapp/ggxxrank.cgi僕自身格ゲーが好きで特にGGXXが好きです。(弱いけどね><)で、GGXXAC+R がカード対応になったんだぁと思ってたら、そういえば、Python東海で…
せっかく、PDLと行列の使い方を覚えたのだからそれを使って何かすれば良かったんだけど忘れてたでござる。今回はGIFで2D画像を3Dに見せるファイルを作ってみる。具体的な内容は下記サイトを見てほしい。2Dなのに飛び出す! 3D環境ゼロでつくる3D写真のつくり…
引き続き行列の計算をお楽しみください。 少しずつ行列の仕組みがわかってきたので 少し応用を利かせてみる。とりあえず、PerlとOpenGLで練習。use strict;use PDL;use PDL::Matrix;use OpenGL ':all';my $vec1 = vpdl [0.2, 0.3, 1.0];my $vec2 = vpdl [0.5…
Perlで行列の計算をする場合、PDL::Matrixを使用すると簡単です。使い方はサンプルコードさんとこにまとめられているのでそこを参考にしています。まずは行列の作成。use PDL;use PDL::Matrix;my $mat1 = mpdl [1, 2],[3,4];print $mat1;簡単にできます。次…
スキューuse strict;use warnings;use Imager;use Image::Size;use Math::Trig;my $gain = 1.05;my $angle = pi / $gain;my $img = Imager->new;$img->read(file => 'test.PNG') or die $img->errstr;my ($max_width, $max_heigth) = imgsize('test.PNG');my…
現在のピクセルと周りのピクセルの色を調べてフィルタリングしてやるとエッジを検出することができる。use strict;use warnings;use Imager;use Image::Size;my @filter = ( 0, # upper_right 0, # top 0, # upper_right 0, # left -1, # center 1, # right …
ある一定量の階層ごとに画素値を決めて処理することをポスタリゼーションと呼ぶ。というわけで、use strict;use warnings;use Imager;use Image::Size;my $img = Imager->new;$img->read(file => 'test.png') or die $img->errstr;my ($max_width, $max_heig…
格闘ゲーム作成はなかなか根気が必要ですね。いや、慣れている人はさっと作るんだろうけどさ。。。気分転換に画像処理の勉強でもしてみようかなぁと思いとりあえず記事を書いてみている。まず、Perlで画像を扱う場合Imagerが定番?らしい。というわけで、ま…
Twitterでも流れていたネタ。Perlの食えない事情 - 演算子編この中でも、個人的に抑えておきたい演算子はビーナス演算子: 0+, +0q演算子ベビーカー演算子: @{[ ]}シャクトリムシ演算子: ~~Goatse演算子: =( )=ドライバー演算子関連ウインクファットカンマ演…
ちょっと諸々の事情でwebアプリねぇと考えながらと何となくネットサーフしていたらMojoliciousがCGIでも動かせることを知った。use strict;use warnings;use CGI;use CGI::Carp qw(fatalsToBrowser);use lib './lib';use Mojo::Server::CGI;$ENV{MOJO_APP} = '';$E…
use strictモダンPerlの代表です。use strictを使用すると主に3つの機能を提供してくれる。use strict 'refs'; # シンボリックリファレンスの無効化use strict 'vars'; # 宣言の強制use strict 'subs'; # 適当な最適化を禁止し明確にする■use strict 'refs'…
Unknown::Programming新人教育上の記事見て思ったわけですよ。自分、全然Perlわかってないがな。。。多分使い方はわかってても言葉で説明できない箇所がたくさん。それって理解できてないってことだよね?と、自問してたらorzという気持ち。foreach文 ハッシ…
もっと自在にサーバを使い倒す 業務に役立つPerl (Software Design plus)クチコミを見る買ったので、とりあえず斜め読みしました。と言うわけで、以下感想を。※先に言っておくと斜め読みなので読み直したら、違ったZE!ということがあるかもしれません。(後…
という訳で、予約。明日から少しずつテストコードを書く勉強も書いていくよ。
-----------------------------------------------------cpan practice!!主にcpanアレルギー、英語アレルギーの克服とPerl Mongerになるためのお勉強記事です。環境=active perl 5.12-------------------------------------------------------ここまでテンプレ■Archive-…