第16回 Perl内部構造の深遠に迫る（1） | gihyo.jp
本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回はgfxこと藤吾郎さんで、テーマはPerlの内部構造です。 内部構造を覗く Perlで開発をしていると、ときどきわかりにくい現象に遭遇することがあります。たとえば、あるデータをJSON（JavaScript Object Notation）にシリアライズするとき、数値としてシリアライズしてほしい値が文字列としてシリアライズされてしまう。あるいは、エンコーディングが正しいはずなのに文字化けが起きる。こんなときは、思いきってPerlの内部構造を覗くことで、何が起きているかを突き止めることができます。 本稿では、Perlの内部構造について解説します。言及するperlはバージョン5.16.0（2012年5月21日リリース）です。また、ターミナルのエンコーディングはUTF-8を想定しています。なお、Perl処理系はC言語で書かれてい
Perl スクリプトで遅い場所を特定する方法 - Devel::Profiler / Devel::NYTProf
今仕事で書いてる Sledge アプリがあるのですが、先日負荷テストを行った結果びっくりすることに現行アプリの１０倍遅いことが判明してしまいました・・・orz Sledge フレームワーク自身が重くないことは今までの経験でわかってるのですが、どうにもソースを見直しているだけでは原因が特定できない・・・そんな活躍するのがプロファイラです。プロファイラの御陰で遅いヶ所を特定することができ、無事に想定するパフォーマンスを得ることができました。この内容に関してはまた別エントリにて。 さて、プロファイラを使うとプログラム実行時の各種情報を収集し、性能解析を行うことが可能です。プロファイラについてもう少し詳しくしるには 性能解析 - Wikipedia あたりを読むと良いでしょう。 プロファイラ（英: Profiler）は性能解析ツールであり、プログラム実行時の各種情報を収集する。特に、関数呼び出しの
wakaponさんの超☆Perl備忘帳: Perl サンドボックス Safe.pm
5.10.0のlibディレクトリをあさっていて、Safe.pmなる標準モジュールを発見したので使ってみる。Safeがどんなモジュールかは、Nameのところにある1文がすべてを示している。 Safe - Compile and execute code in restricted compartments 制限された仕切り部屋でコンパイルと構文木の実行を行う。要するに、危険と思われる機能を取り払ったサンドボックスを作って、その中でコードを実行する。おそらくこのモジュールは、安全かどうかわからないPerlプログラムを隔離された場所で実行したいなー、というときに使われる。 実際にモジュールの機能を実感してみる。まずは最初の一歩として、Safe.pmのrevalメソッドを使ったサンプルプログラムの実行から。(See also ファイル指定版のrdoメソッド) revalメソッドの利用例 # 実行環
perldelta - perl 5.10.0 の新機能
perldelta - perl 5.10.0 の新機能 perldelta - what is new for perl 5.10.0 名前 NAME perldelta - perl 5.10.0 の新機能 perldelta - what is new for perl 5.10.0 説明 DESCRIPTION このドキュメントでは 5.8.8 リリースと 5.10.0 リリースとでの相異点を 説明します. This document describes the differences between the 5.8.8 release and the 5.10.0 release. 5.10.0 でのバグ修正の多くは既に 5.8.X メンテナンスリリースで見ることができます; それらはここには重複しないで, perl58[1-8]?delta の マニュアルページ群に記載し
Mint's log: Frozen Perl 2008メモその6：Perl::Critic and Perl::Tidy, Your guide to better programming practices.（Perl::CriticとPerl::Tidyの紹介）
2008年4月6日 Frozen Perl 2008メモその6：Perl::Critic and Perl::Tidy, Your guide to better programming practices.（Perl::CriticとPerl::Tidyの紹介） 資料が公開されている。Perl::Tidyの紹介perltidyコマンドでソースを見やすく整形してくれる% perltidy [スクリプト名]デフォルトの状態では書き直したものを[スクリプト名].tdyというファイルに書き出す。元ファイルは書き替えないperltidyのコマンドラインオプションほとんどの場合はデフォルトの設定で構わないが、カスタマイズもできるようになっている。perltidy -ceでcuddled-elseモード、つまりelseの前で改行しないようにする。# perltidy標準の出力 if ($x == $y
Perl の MVC フレームワーク Catalyst のお勉強〜その１〜 :: Drk7jp
時間が空いているときに Catalyst のお勉強をしていたのですが、なかなか情報をまとめる時間がとれないのです・・・。思ったより苦戦したので少しずつでもお勉強の情報をまとめていこうと思ってます。今回はその１ってことで。Catalyst をこれからお勉強してみようって方の参考にでもなれば幸いです。 実際には、アプリケーションを１つ作ってみるってところまで既に２週間前に終わっていたりするのですが、その解説に至るまでどれくらい時間かかるんだろう・・・ (｡･ｘ･)ゝ Catalyst の基礎知識 Catalyst のフレームワークの構成は上図のような構成になっています。純粋な MVC ではなく、MV C + A(Apprication) のような構成になっていますが、Application の部分は Dispatcher 機能に相当する部分で、実装時には MVC の考え方で問題ありません。 M
Perl Tips | Perl で、デーモン (Daemon) のプログラムを書くには？
Perl で、スクリプトをデーモン化するのはそんなに難しくない。 Proc::Daemon というモジュールを使えば簡単にできる のだが、それには小さなフレームワークに沿ってスクリプトを書かねばならない。次のサンプルに空のフレームワークを示したので、既存のスクリプトがある場合にはこれに沿って自分のスクリプトを少々改造すればよい。基本的には action サブルーチンにロジックを書けばいいようになっている。 使用するモジュール use Proc::Daemon; #/usr/bin/perl -w use Proc::Daemon; our $DAEMON = 1; # デーモンにするか？: 1(オン) / 0 (オフ) our $SLEEP_INTERVAL = 60; # スリープの間隔（秒） &init; &run; sub action { # ここ
HTML::TagParser - Yet another HTML document parser with DOM-like methods - metacpan.org
NAME HTML::TagParser - Yet another HTML document parser with DOM-like methods SYNOPSIS Parse a HTML file and find its <title> element's value. my $html = HTML::TagParser->new( "index-j.html" ); my $elem = $html->getElementsByTagName( "title" ); print "<title>", $elem->innerText(), "</title>\n" if ref $elem; Parse a HTML source and find its first <form action=""> attribute's value and find all inpu
HTML::TokeParser - Alternative HTML::Parser interface - metacpan.org
NAME HTML::TokeParser - Alternative HTML::Parser interface SYNOPSIS require HTML::TokeParser; $p = HTML::TokeParser->new("index.html") || die "Can't open: $!"; $p->empty_element_tags(1); # configure its behaviour while (my $token = $p->get_token) { #... } DESCRIPTION The HTML::TokeParser is an alternative interface to the HTML::Parser class. It is an HTML::PullParser subclass with a predeclared se
iandeth. - Perl の use と require の違い
以前飲み会で、会社の先輩と「use と require の違いってなんじゃ？」てな話をした際、知識不足ゆえうまく答えが出せなかったのですが、Programming Perl 等をちょろちょろ読み始めた今なら、ちょっとはマシな回答が出来る気がした /w のでまとめてみました。 perldoc を始め、色々なサイトや書籍でも既に述べられているとおり、 use はコンパイル時に評価される - module load happens at comile time. require は実行時に評価される - module load happens at run time. が明確な違いになります。また、 perldoc(*) によると use は実際には以下のコードを実行するのと同等だそうです : BEGIN { require MODULE; MODULE->import(LIST); } 特殊ブ
SQLiteで学ぶデータベース操作の基礎 - Perl入門ゼミ
Perl › データベース › here Perlを使ってデータベースは初級者が学ぶには今までは少し敷居の高いものでした。まずSQLの実行環境を構築する必要がありすぐに勉強したいという需要を満たすことはできていませんでした。 ですが現在はこの状況は変わりました。現在ではActivePerlをダウンロードするとDBD::SQLiteと呼ばれるSQLiteを利用するためのモジュールがパッケージングされています。 またデータベースに接続するためのユーザから見たインターフェイス部分にあたるDBIというモジュールもパッケージングされています。 ですのでActivePerlの最新版をダウンロードするだけで何の環境構築も行わないでデータベースを学習し始めることができます。 DBD::SQLiteとDBIがインストールされていることを確認する まずDBD::SQLiteとDBIがインストールされているかど
SQLite - Perl
スポンサードリンク PerlでSQLiteに接続 PerlではDBD::SQLiteを使います。 ここでは一通りの操作をやってみます。 準備 CPANからDBD::SQLiteもってくる $ perl -MCPAN -e shell cpan> install DBD::SQLite DBIを入れていないひとは入れるかどうか聞かれるので[yes]をタイプ テスト用のテーブルを作成 $ sqlite3 test.db ".schema t2" CREATE TABLE t2( a integer primary key autoincrement, b text not null ); カラム'a' はautoincrement にしています。 サンプルコード 3行insert autoincrement で入った値を取得 insertした3行をまとめて取得 #!/usr/bin/perl
Perl programming documentation
#Perl 5.38.2 Documentation The perldoc program gives you access to all the documentation that comes with Perl. You can get more documentation, tutorials and community support online at https://www.perl.org/. If you're new to Perl, you should start by running perldoc perlintro, which is a general intro for beginners and provides some background to help you navigate the rest of Perl's extensive docu
ImageMagick
PerlMagick Image API for Perl Installation • Overview • Example Script • Read or Write an Image • Manipulate an Image • Set an Image Attribute • Get an Image Attribute • Compare an Image to its Reconstruction • Create an Image Montage • Working with Blobs • Direct-access to Image Pixels • Miscellaneous Methods • Handling Exceptions• Constant PerlMagick is an objected-oriented Perl interface to Ima
【CGI・Perl】画像サイズを変更する [その1] (サムネイル・拡大縮小)
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：ImageMagick 画像サイズを変更する [その1] (サムネイル・拡大縮小) サムネイルを作成するなど、画像を縮小・拡大したい。 縮小率(拡大率)などが決まっている場合、例えば一律50%に縮小するといったことは、非常にかんたんに行える。 次の例では、読み込んだ画像の縦、横のピクセル数を取得し、50%のサイズにリサイズを行い、保存するというプログラムである。 ;# ;#半分のサイズにする ;# use Image::Magick; #-- オブジェクト作成 --# my $image = Image::Magick->new; #-- 画像を読込む --# $image->Read('./image.jpg'); #-- 現在の縦・横を取得 --# my ($n
perlメモ Image::Magick Image::ExifToolを使って一括画像縮小&画像方向補正スクリプト - WEBデザイン BLOG
perl モジュールのImage::MagickとImage::ExifToolを使って、イメージ画像を一括縮小＆画像方向補正もするコードを書いてみました。画像を正しい向きに回転させ、希望サイズ（横幅）でリサイズ（サムネイル）できるperlスクリプトです。 ちょっとPerlの勉強、実益も兼ねてイメージ画像を一括縮小＆画像方向補正もするコードを書いてみました。perl モジュールのImage::MagickとImage::ExifToolを使って画像を正しい向きに回転させ、希望サイズ（横幅）でリサイズ（サムネイル）できるperlスクリプトです。 この間（3月）に後輩の結婚式によばれて、写真撮影してきたデータ（約2000枚/7GB）のリサイズデータ作ろうと思い、Image::Magick を使って大量画像のサムネイル画像を一括自動生成 :: Drk7jpで紹介されているperlを使ってのサム
第7回 画像ファイルの扱い方
テキスト処理が得意なPerlですが，画像ファイルだって扱えます。今回はサムネイルやグラフ作成を通して，画像ファイルの扱い方を考えてみましょう。 Perlは誤解を受けやすい言語かもしれません。いまだに，CGI（Common Gateway Interface）とPerlを一緒のものだと思い込んでいる人も少なくないようです。変数宣言をしなかったり，暗黙の変数である$_を使って分かりにくく書くことが，Perlっぽい記述と思い込んでいるような人まで見受けられます。そして，「Perlはグラフィックス関係は弱いに違いない！」と思い込んでいる人も少なくないようです。 これは「文字列操作に強いスクリプト言語」というイメージが強過ぎるせいかもしれません。そんな人が，Perl/Gtkを使えば写真1の画面の中に表示されている50行足らずのスクリプトで，スクロール・バーやコマンド・ボタンが付いた，この画面そのもの
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
PPM Packages from the University of Winnipeg
Safe - Compile and execute code in restricted compartments - Perldoc Browser
初めてのCatalyst入門（1） PerlによるWebフレームワークCatalystとは？
