apache+mod_perlでへんてこなサーバを作ってみる | 開発ブログ | スパイシーラボ
行き帰りの満員電車で痴漢に間違われるのが怖くて手をあげていたら、 ウェストポーチを開けられそのまま小銭入れをスリに盗まれ泣いていた尾崎です。 結婚して苗字が変わりましたが、幸田敦、と言えば知っている方もいるかもしれません。 ご無沙汰の皆さん、お元気ですか？ さて 今日はapacheとmod_perlの組み合わせでおもろいことをやってみようと思いました。 apacheはもう説明の必要がないくらい、httpサーバのデファクトスタンダードとして あちこちに使用されているソフトウェアです。 mod_perlはperlのインタプリタをapacheに組み込み、apacheのモジュールを perlで作れるようにしたすばらしいモジュールです。 通常は、mod_perlはCGIの高速化ツールとして使用されることが多いです。 例えば、 MpTest.pm package MpTest
Google Play のランキングとかレビューとかを取得する
HOME Google Play のランキングとかレビューとかを取得する # Google Play (旧 Android Market) のサイトから、ランキングとかレビューとかをスクレイピングする Perl ライブラリ「WWW::GooglePlay::Scraper」 AppStore::Scraper の Google Play 版です 仕事で投入した後、問題なく動いてるようなので、公開します GitHub からどうぞ p5-www-googleplay-scraper use WWW::GooglePlay::Scraper; use Data::Dumper; my $obj = WWW::GooglePlay::Scraper->new(wait => 5); my $info = $obj->app_info( app => ['jp.co.fenrir.android.s
Perl Lesson 10
[ ↑ INDEX ] [ ← PREV ] [ NEXT → ] Lesson 10 外部プログラム，ライブラリ，モジュールの利用 ■1. 外部プログラムの利用 ここでは Perl のスクリプトから UNIX のコマンドや他のプログラムを利用する方法について見る。(UNIX のコマンドに依存したスクリプトは他のプラットフォームでは使えなくなるので注意が必要。) ・バッククォート (` `) と演算子 qx/ / 文字列を ` ` (あるいは演算子 qx/ / ) で括ると，文字列はコマンドライン上で指定されたコマンドと同様に実行され，標準出力への出力を返り値として返す。` ` で囲まれた文字列中の変数は展開されて実行される。 次の例であれば，コマンドラインから wc dll.txt を実行した結果，標準出力へ出力される文字列が，変数 $wc に代入される。 $wc = `wc dll
Image::Magick を使って大量画像のサムネイル画像を一括自動生成
お仕事で素材集 CD-ROM 内の画像ファイル全２万点を全てリサイズして欲しいという依頼が来た。自社のコンテンツに使うためのリサイズ作業です。初めは OPTPiX webDesigner のバッチ処理で何も考えず 50 x 40 px にリサイズ。縦横比が違う画像が一杯なので何とも無惨な画像が数時間後にできあがった・・・orz 仕方がないので、PhotoShop のバッチ機能でトリミング〜リサイズ処理をやってみた。どうやら素材集の jpeg の圧縮パラメータが違うようでリサイズ後の保存時にダイアログが開いて圧縮パラメータをどうするかいちいち聞いてくる。OK ボタンを押すだけなのだが、全然バッチになってない・・・orz 仕方がないのでリターンキーを押下状態にしてセロハンテープを貼り付けて帰宅時に放置。今日の朝に完成しているはずだったけど、しっかりと PC がフリーズしてました・・・orz し
カードローン 大急ぎ入りロ
ネーミング的には「即日融資可能なキャッシング」であろうとも、だからといって即日に審査まで完結されるとまでは言えないという現実に気を付けておくべきです。 債務を一本化すると言いますのは、何軒もの負債を一体化させ、返済先を１つの金融機関だけにすることを意図するもので、おまとめローン等と呼ばれているそうです。 「今回が初めてということでなんとなく不安」と言われる方もかなり見かけますが、難しいことは何一つありません。申し込みはわかりづらいところなし、審査もスピーディー、プラスハンドリングなども一歩一歩向上しているので、困惑するようなこともなくご利用いただけます。 種類によっては、年会費を払うものもありますので、キャッシングのためにクレジットカードを所有するというのは、そこまで一押しできる方法ではないと言っていいでしょう。 金利は何にも増して大事な要素ですから、これを念入りに比べてみれば、ご自身にと
勝手に添削 - PerlによるCSVファイルの高速集計 2 : 404 Blog Not Found
2007年03月07日01:00 カテゴリLightweight Languages 勝手に添削 - PerlによるCSVファイルの高速集計 2 前回に引き続き、今回も引き続きcodezineさんの添削。 添削後のコード #!/usr/local/bin/perl use strict; use warnings; use Text::CSV_XS; my ($rfh, $wfh, %name_of, %addr_of); my $tc = Text::CSV_XS->new({binary=>1}); # to handle non_ascii; my $addr_file = shift or help(); my $q_file = shift or help(); my $out_file = shift; open $rfh, "<", $addr_file or die "$a
PerlによるCSVファイルの高速集計
はじめに Perlと言えば、いまだにCGIを思い浮かべる人は多いと思います。しかし、Perlは決してそれだけの言語ではなく、その言語仕様はテキストファイルを処理し、集計結果をレポートするのに非常に向いています。特によく利用されるテキストファイルとして、CSV形式が挙げられます。CSVを集計したい場合、Excelに読み込ませて集計関数やマクロを駆使しているという人も多いかと思いますが、Perlを利用することで、高度な集計作業を簡単かつ高速にできます。 本稿では、筆者がPerlでCSV集計を行う際によく使うノウハウを紹介したいと思います。 対象読者 まだ、Perl＝CGIと思っている方。 65,536件を超える大量のCSVデータを前に、手も足も出なくなっている方。 必要な環境 テキストエディタ。 Perl 5.8.X。ただし、ほとんどのコードはそれ以下のバージョンでも動きます。 Perlのイン
perlref - Perlのリファレンスとネストしたデータ構造 - perldoc.jp
This is complete documentation about all aspects of references. For a shorter, tutorial introduction to just the essential features, see perlreftut. Before release 5 of Perl it was difficult to represent complex data structures, because all references had to be symbolic--and even then it was difficult to refer to a variable instead of a symbol table entry. Perl now not only makes it easier to use
diagnostics, splain - 冗舌な診断警告の生成
名前 diagnostics, splain - 冗舌な診断警告の生成 概要 diagnostics プラグマの使い方: use diagnostics; use diagnostics -verbose; enable diagnostics; disable diagnostics; splain スタンドアロンフィルタプログラムの使い方: perl program 2>diag.out splain [-v] [-p] diag.out diagnostics を使って正常に動作しないスクリプトのスタックトレースを とる方法: perl -Mdiagnostics=-traceonly my_script.pl 説明 diagnostics プラグマ このモジュールは perl コンパイラ及び perl インタプリタ双方から (-w スイッチをつけたり use warnings を使
Site Cooler NZ | Points to Note When Shopping for a Washing Machine
Blog Post Featured post The main kitchen appliance for the modern home and the restaurant for 2010 induction hobs Continue reading Points to Note When Shopping for a Washing Machine There are different washing machines brands in New Zealand. When shopping, therefore, you need to ensure that first, you get a quality machine; a machine that will last through many years without breaking down. You che
DBIx::Class::Schema::Loaderの手動スキーマ生成、初心者向けチュートリアル - Yet Another Hackadelic
と言う訳で自分なりに色々調べてみた。 テスト用データベース定義 CREATE TABLE `User` ( `user_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 default NULL, `created_on` datetime default NULL, `updated_on` datetime default NULL, PRIMARY KEY (`user_id`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; CREATE TABLE `Book` ( `book_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 de
catalyst:dbic [paulownia.jp]
DBIx::Class::Schema::Loaderを入れれば、その上の３つもインストールされる。DBDはどれを使うか聞かれるがデフォルトは「インストールしない」なのでリターン連打しないように注意して。ほかにも物凄い大量の依存パッケージをインストールする。 CatalystのDBIサポート関連クラスをCPANでインストール 適当なテーブルを作る。 CREATE TABLE books ( id INTEGER NOT NULL AUTO_INCREMENT, isbn VARCHAR(13), title VARCHAR(255) NOT NULL, author VARCHAR(255), summary TEXT, PRIMARY KEY(id) ) character SET utf8 type=innoDB; テスト用に適当なデータもブッ込んでおく insert into boo
DBIx::Class::ResultSource - 結果ソースオブジェクト
名前 概要 詳細 メソッド new source_info add_columns add_column has_column column_info column_info_from_storage columns remove_columns remove_column set_primary_key primary_columns add_unique_constraint name_unique_constraint unique_constraints unique_constraint_names unique_constraint_columns from schema storage add_relationship relationships relationship_info has_relationship reverse_relationship_info comp
Perlオブジェクト指向プログラミング
-> 趣旨と注意書き -> 身近なpackage -> なんのためのpackage ? -> What's `new' ? -> bless ( reference => package ) -> Hello, Module World! -> オブジェクト？ -> main パッケージと関連付けてみる -> クラスとメソッド -> オブジェクト指向 -> オブジェクトがリファレンスなら… -> -> を連続する -> 継承 -> 多重継承 -> 多重継承をやめる -> 多重継承をやめる(もう少し簡単に) -> 情報源(書籍等) <- モドル 趣旨と注意書き これを読んでも、あんまりきちっとした知識は、身に付きません（^^; オブジェクト指向の概念はほんの少ししか説明しません。ここで述べるのは、Perlでどうやるかってのが主です（それも不十分＆嘘まじりかも）。 とりあえず、モジュールを作り
Perl.com: Catalyst の翻訳
Jesse Sheidlowerさんの許可を得て、翻訳を公開しております。なお、この翻訳は、under same terms of Perl itselfで、配布可能です。 原文はこちら: Catalyst 目次 Jesse Sheidlower June 02, 2005 Web frameworks are an area of significant interest at the moment. Now that we've all learned the basics of web programming, we're ready to get the common stuff out of the way to concentrate on the task at hand; no one wants to spend time rewriting the same bits
$c->stashの書き方を効率的にしよう - 新だるろぐ跡地
catalystアプリのソースで、よくこういうのを見る。 $c->stash->{hoge} = $hoge; $c->stash->{huga} = $huga; $c->stash->{fooo} = $fooo; これはこう書ける。 $c->stash( hoge => $hoge, huga => $huga, fooo => $fooo, ); ずっと前に神から教えてもらった。 というわけでソース嫁俺。 Catalyst.pm sub stash { my $c = shift; if (@_) { my $stash = @_ > 1 ? {@_} : $_[0]; croak('stash takes a hash or hashref') unless ref $stash; foreach my $key ( keys %$stash ) { $c->{stash}->{
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
bayashi.jp
初めてのCatalyst入門（1） PerlによるWebフレームワークCatalystとは？
移転しました
wakaponさんの備忘帳: perl 変数展開 qq qw
{{#tags}}- {{label}}
{{/tags}}