perl - 木を痛めない枝チェック : 404 Blog Not Found
2007年10月12日00:00 カテゴリLightweight Languages perl - 木を痛めない枝チェック 確かにこれは悩ましい。 [を] Perl の defined と exists それはそうと、やっかいなのが、ハッシュでツリーを扱うとき。 一度でも $a->{"a"}->{"b"} を見に行くと、 $a->{"a"} が存在するようになっちゃうんですよね。 確認するためにアクセスしただけなのに、 途中ノードができちゃうなんてちょっとなあ…。 念のために解説すると、こういうことです。 use strict; use warnings; use Data::Dumper; my $a = {}; # 空っぽのはずが print Dumper($a); print exists $a->{b}{c}; # { b => {} } となっちゃう print Dumper($
第1回 Class::Componentから始めるプラガブルモジュール | gihyo.jp
はじめに はじめまして。大沢と申します。 この連載では、筆者が実装したCPANモジュールのClass::Componentを題材にしつつ、近代的なPerlでのプラガブル(拡張可能)なソフトウェアの実装方法を紹介します。 今回は、Class::Componentの概要を説明します。 本連載で使うサンプルアプリケーション 本連載では、プラガブルなモジュールを作製するという事を考えて、Gopperというサンプルアプリケーションを元に解説を行ないます。 GopperはCodeRepos上のsvnリポジトリに置いてあるので各自checkoutしてください。 svn co -r 271 http://svn.coderepos.org/share/lang/perl/Gopper/trunk Gopper サンプルアプリケーションは連載中にも頻繁にupdateされる事が予想されますので、毎回リビジョン
Pure PerlなHTTPdを物色 - （ひ）メモ
HTTP::Daemon forkしないので、1個詰まると後続のリクエストは待たされる。 HTTP::Simple::Server デフォルトではforkしない。 HTTP::Simple::Server ＋ Net::Server::Fork forkするので多重化可能。が、リクエストごとに新しいプロセスをforkしちゃう。 HTTP::Simple::Server ＋ Net::Server::PreFork forkするので多重化可能。pre-forkするのでプロセスは使いまわせる。 Net::HTTPServer type=>'forking'でpre-forkする。 URLのパスと関数をマッピングできるのもよさげ。 PerlBal Danga::Socketベースなので、IO多重化(epollとか)な実装。（だと思うす） POE::Component::Server::HTTP
PDF Processing with Perl
PDF Processing with Perl Sep 21, 2007 by Detlef Groth Adobe’s PDF has become a standard for text documents. Most office products can export their content into PDF. However, this software reaches its limits if you want advanced tasks such as combining different PDF documents into one single document or adding and adjusting the bookmarks panel for better navigation. Imagine that you want to collect
Catalyst＋FastCGIで「MySQL server has gone away」→mysql_auto_reconnect[DBIC] - ヒルズで働く@robarioの技ログ
[error] DBIx::Class::ResultSet::pager(): DBI Exception: DBD::mysql::st execute failed: MySQL server has gone awayなんていうエラーが出てたのですが、 FastCGI(Catalystの方？）では$ENV{GATEWAY_INTERFACE}も$ENV{MOD_PERL}もないので、どうもmysql_auto_reconnectを自分でOnにしないとだめなようです。 とのことです。非常に助かります。 早速connect_infoの属性にmysql_auto_reconnectを加え、 Model::MyModel: schema_class: MySchema connect_info: - [dns, user, pass] - AutoCommit: 0 mysql_auto_
![Catalyst＋FastCGIで「MySQL server has gone away」→mysql_auto_reconnect[DBIC] - ヒルズで働く@robarioの技ログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/55b02f3191010ee481e77948049b32747bdb7442/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127100682843%2F17680117127100696926%2F1556721973)
perlの0e0は真だけど0
HOP3章終了。 "0e0"の使いどころがなかなか。 論理演算 $ "0e0" || 1 0e0 $ 0 || 1 1 真と判定、で演算してみる。 $ "0e0" * 5 0 $ "0e0" + 5 5 $ "0e0" - 5 -5 数値だ $ "0e0" == 0 1 $ "0e0" eq 0 論理演算で真を返すのに0 で、これがどう便利かというと $cached{$key} ||= make_cache($key) キャッシュに0が入ってる場合偽と判定されてしまい、キャッシュがあるのに再計算してしまうのだけど"0e0"を入れておくときちんとキャッシュが効くと。
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
URIとURI::Escapeのurlencodeについて (2) - 日向夏特殊応援部隊
d:id:ZIGOROu:20070824:1187943710の続き。 ちなみにそのブクマコメントで、個人情報もネタにするハム一さん事、id:nipotanさんが答えを書いてました。 調べちゃったお！！！＞＜ URIモジュールの場合 httpと言うschemeの場合は、あれこれ経てURI::httpオブジェクトになります。 URI::httpって、こんな継承ツリーになってます。 +-----+ +-------------+ | URI | | URI::_query | +-----+ +-------------+ \'-------v---\' +---------------+ | URI::_generic | +---------------+ | +--------------+ | URI::_server | +--------------+ | +----------
YappoLogs: bradとmyとuse fieldsとPseudo-hashesとHash::Utilと
bradとmyとuse fieldsとPseudo-hashesとHash::Utilと bradプロダクトではuse fieldsが多用されています。そして、 my ClassName $var;のような変数宣言が多用されています。 perldoc -f myしてみるとuse fieldsで使うみたいな事が書いてありました。 use fieldsってのは package Jitensya; use strict; use warnings; use fields qw/(sound); sub new { my $proto = shift; my $self = ref $proto ? $proto : fields::new($proto); $self; } 1; のようなコードがあるとして use strict; use warnings; use Jitensya; my $
perl - 勝手に添削 - ニコニコ動画ダウンローダー : 404 Blog Not Found
2007年08月04日04:30 カテゴリLightweight Languages perl - 勝手に添削 - ニコニコ動画ダウンローダー スライドもなんとか上がったので、リハビリもかねて久々の添削。 Perlでニコニコ動画のflvとコメントxmlをダウンロードする (Yusukebe::Tech) さんざん既出かもしれないけどPerlでニコニコ動画のflvファイルとコメントのxmlファイルをダウンロードするスクリプト。まずは結果から。 #!/usr/bin/env perl # # $Id: nicoget.pl,v 0.1 2007/08/03 19:26:19 dankogai Exp dankogai $ # original: http://yusukebe.com/tech/archives/20070803/124356.html # use strict; use wa
Speeding up the DBI
Those of us who have learned the DBI from the book, or from the official perldoc some versions ago, may not have noticed that the DBI, in recent versions, has added several new features and improved existing ones. This is my case, anyway. I started working with the DBI from version 1.13, and only recently I opened my eyes to a whole new set of improvements. This article discusses some of such feat
DBI recipes
Clear questions and runnable code get the best and fastest answer Programming with the DBI becomes a matter of habit. You may choose to code directly with the DBI rather than using on of the many wrappers available on CPAN because of efficiency concerns, or because you are dealing with legacy code, or simply because you want to have a grip at the core of things. Whichever reason for using the DBI
London Perl Mongers Teach-In
Mapping database relations into objects Tables (relations) map onto classes Rows (tuples) map onto objects Columns (attributes) map onto attributes Don't write SQL Select the id and name from this table Select all the details of this row Select something about related tables Update this row with these values Insert a new record with these values Delete this record
Journal of rjbs (4671)
rjbs (email not shown publicly) http://rjbs.manxome.org/ AOL IM: RicardoJBSignes (Add Buddy, Send Message) Yahoo! ID: RicardoSignes (Add User, Send Message) I'm a Perl coder living in Bethlehem, PA and working Philadelphia. I'm a philosopher and theologan by training, but I was shocked to learn upon my graduation that these skills don't have many associated careers. Now I write code. Mastering P
たけまる / Perl - APP サーバ・クライアントを実装しました
-※ △: 実装したけど使ってない MUST あるいは SHOULD となっている機能はすべて実装したつもりです． といっても，たぶん漏れがあるので，Interop で明らかにします ;-) 今回は Perl モジュールの APP 機能試験が目的なので，アプリケーショ ンとしての体裁は整えていません．Entry Resource (XML) や Media Resource (バイナリ) の交換はできますが，Blog のような気の利いた HTML 表示はありません． 簡単な APP クライアントを使って，サービス文書の取得から Media Resource の作成までをやってみます． ソースコード AtomPP.tar.gz を解凍します． 解凍ディレクトリに含まれる ./script/atompp_client.pl がクライアン トです．引数をとらずに実行するとヘルプが表示されます．
Win32::OLE で Excel を操る perl スクリプト
えーつい最近、Spreadsheet::WriteExcel について聞かれました。ちょっとしたサンプルプログラムを教えたついでに Win32::OLE のサンプルも教えたのでどうせならブログのネタにと記事にしてまとめておきます。よく考えたら、以前 Spreadsheet::WriteExcel が 2.10 から便利になっている件について を書いたときに まずは、Win32::OLE まわりで参考になるサイトまとめです。Win32::OLEモジュールだけでも目を通しておくと良いと思います。 Win32::OLEモジュール（日本語チョウ訳） Ver. 0.14 Win32::OLE - OLE Automation extensions - search.cpan.org Win32 の Perl を使用している Excel を自動化する方法 Perl講座 PerlからOLEを使用する 読
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Kazuho@Cybozu Labs: Perl で並列処理 (using マルチプロセス)
void GraphicWizardsLair( void ); //
http://nikki.hio.jp/?date=20070804
DeNAの人気サイトに学ぶ LAMPによるWeb-DBシステム構築/運用の極意（後編）
