httpstatus コマンドで、HTTP のステータスコードをすばやくしらべる! 一般的な Web Programmer ならば、HTTP Status code はすべて暗記していると聞きました。 しかし、僕は初心者なので、なかなか覚えきれていないので、HTTPのステータスコードをさがすのに便利なツールを用意しました。App::httpstatus です。インストール方法は cpanm App::httpstatus です。というか依存とかないのでhttp://api.metacpan.org/source/TOKUHIROM/App-httpstatus-v1.0.0/httpstatus をコピーしてくればうごきます。 使い方は以下のとおりです。 4xx なコードを列挙する。 % httpstatus 4 400 Bad Request 401 Unauthorized 402 P
Text::LTSVにpull req.を投げた際にperl Makefile.PLして躓いたのでメモ。 Module::Install Can't locate inc/Module/Install.pm in @INC (you may need to install the inc::Module::Install module) というようなエラーが出たら、$ cpanm Module::Install でOK。 Module::Install::AuthorTests String found where operator expected at Makefile.PL line 10, near "author_tests 'xt'" (Do you need to predeclare author_tests?) syntax error at Makefile.PL li
gistなどで公開されているPerlスクリプトを実行する際、モジュールが足りないことがよくあります。そういう場合はCan't locate Foo.pm ...というエラーメッセージを見ながらモジュールをインストールするわけですが、決まりきった作業にうんざりしたので自動的にそれをするモジュールを書きました*1。 https://github.com/gfx/p5-lib-xi `perl -Mlib::xi script.pl`とするだけで、足りないモジュールをcpanmで適当にインストールしてくれます。 -Mlib::xi=extlibとすれば既存の環境を壊すことなくlocal::lib的にextlib/にインストールして実行できますし、-Mlib::xi=-L,extlib,-qなどとしてcpanmにオプションを渡すこともできます。 これで退屈なインストール作業をしなくてすむはずです。
Perl › モジュール › here Perlの5.10からTime::Pieceと呼ばれる時刻を便利に扱うためのモジュールが標準モジュールに加わりました。Perlの5.10以上を使用している場合はTime::Pieceモジュールを日付と時刻を扱いたい場合に利用すると便利です。 従来のPerlでは日付や時刻を直感的に扱う手段が標準モジュールにはありませんでした。日付や時刻を扱うためには少し面倒な作業が必要でした。Time::Pieceは日付と時刻の直感的な操作を提供します。また日付・時刻の書式化の機能や解析する機能も備えます。 Perlには実質的に日付を扱うモジュールのスタンダードといえるDateTimeというモジュールがあります。ただしこのモジュールは標準モジュールではなくCPANからインストールする必要があります。また巨大なモジュールですのでモジュールを読み込む時間が非常にかかります
仕事メモ。 インタラクティブなコンソールアプリケーションだと、STDIN/STDOUT を使ったやりとりが発生します。こういうのをテストするときに、いままでは、 { local *STDOUT; open(STDOUT, '>', 'stdout.txt') do_something(); #STDOUT を使う何か close(STDOUT); } open(my $MY_STDOUT, '<', 'stdout.txt'); #... $MY_STDOUT の中身を読み出してテストする みたいな処理を書いて、ファイルの中身でチェックしてました。(STDIN の場合は逆で、入力データをファイルに書いて、捻じ曲げた STDIN をアプリに読ませる)。 ファイルを噛ませるのが嫌だったのと、ちょっとトリッキーなのが気に入らなかったので、モジュールを使ってもうちょっと優雅に(?)書けないかな、と
追記:なーんだ、やっぱりありました。 cpan -a を使えばいいらしい。 id:hiboma ありがとうございました。 何台かのサーバを扱っていると、サーバによってインストール済みのモジュールのバージョンが違ったり、インストールされてなかったりしてよく困ります。デプロイしてからエラーになって気づいたりするので心臓に悪いです。 どうしたものかと考えて、パッケージ名とバージョン番号のリストだけテキストファイルに書き出しておいて、デイリーで更新するようにすれば最低限の世代管理?にはなるかな、と考えました。 先人の成果にあやかろうと CPAN を探したのですが、どうも望み通りのものが見つからない。 id:tomyhero に教えてもらった Pod::ProjectDocs はブラウザで見るにはとても便利ですが、肝心のパッケージ名が JS オブジェクトとして書かれていて、 Perl から扱うのがち
ずいぶん以前からPerlで物を書くときには、文字コードをUTF-8にし、use utf8をしないで書いている。 で、その際、substrなどで文字列を切り出したいとすると、UTF-8は1文字あたりの長さが可変長であるため、入力文字列によっては変な文字が切り出されてしまうことになる。 これを正しく切り出すときに色々調べてみたメモ。 use utf8について Perl 5.8.x Unicode関連に記されているように、 1.ソースコード中の文字列がUTF8になる。 2.マルチバイトの変数名なども使える。 なことがウリらしく、表面上の意味は、PerlにscriptがUTF-8で書かれていることを教える事が目的らしいので、次のようなコードも通ります。*1 #!/usr/local/bin/perl use utf8; my $あいうえお = "x"; print $あいうえお; で、このときにs
続・初めてのPerl を読んでいて少し混乱したので、クラス変数の作り方をメモしておく。 結論から言うと、Perl でクラス変数を作るには「our演算子」を使う。ラクダ本 p.156 によると、our変数は、 ourは値を生成するのではなく、グローバル変数（これは永遠に存在する）に対して、制限された形でのアクセスを提供するもの とある。これをラクダ本の言葉を借りて一言で言い直すと、「ourはレキシカルスコープを持つグローバル変数」である。 今のところ、自分の理解している範囲での our は以下のような感じ。 スコープ：レキシカル 命：グローバルなのでメモリ中に1つしか存在しない ということは、クラス変数としてピッタリだよねっていう話。 以下にクラス変数を作る際の our の使い方を示したサンプルコードを載せておく。 #!/usr/bin/perl use strict; use warnin
![[perl] Perl でクラス変数を作る方法 - BigFatCatのブログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/64748d16e8a13dbf06cb9f37f17fe2d2aa71d54d/height=288;version=1;width=512/https%3A%2F%2Fsiteproxy.ruqli.workers.dev%3A443%2Fhttps%2Fogimage.blog.st-hatena.com%2F12921228815711570771%2F12921228815711571297%2F1383152678)
知らなかった！ id:dann に教えてもらった。 package Hoge::Base; use strict; use warnings; use utf8; sub import { strict->import; warnings->import; utf8->import; } このクラスを use すると strict, warnings, utf8 が効く package Hoge; use Hoge::Base; # ここは strict, warnings, utf8 Moose, Mouse はこういう仕組みらしい。
2009年05月17日00:14 Perl CatalystのChainedアクションの連鎖を止める方法 最近Chainedアクションを使っていて困ったことがありました。それは、、、 レインボーブリッジが封鎖ｄ Chainedアクションの連鎖が止められませんっっ(ﾉ｀□´)ﾉ〜┻━┻ どういうことかというと、ログインしているかどうかのログインチェックをChainedアクションを使って実装していて、未ログイン状態だったらログインページにリダイレクトさせたかったんです。 sub auto : Private { my ($self, $c) = @_; $c->res->redirect( 'http://www.zozom.net' ); $c->log->debug("in auto"); } sub hoge : Local { my ($self, $c) = @_; $c->log-
2009年06月09日23:48 MySQL Perl MySQLで "SQL_AUTO_IS_NULL = 0" じゃないと、IS NULLで検索されたときにエライ目に遭うという話 先日、Catalystアプリを作っていたとき、データの新規作成と編集を同じメソッドで処理していて、このようなコードを書きました。 my $rs = $c->model('DBIC::Hoge'); $rs->update_or_create( { id => $id, # primary key name => $name, }, {}, ); hogeテーブルはこんな感じ。 +-------+--------------+------+-----+---------+----------------+ | Field | Type | Null | Key | Default | Extra | +----
perl(v5.7.3以降) の標準モジュールに Memoize というのがある。何をするやつかというと、perldoc 曰く Make functions faster by trading space for time 「（計算）時間と（メモリ等の）領域とを取引して、関数を早くします」ということで、メモ化を行ってくれるモジュールです。 百聞は一見に如かず。というわけで、(Benchmark使うんでcodepadは自重 use strict; use Memoize; use Benchmark 'timethese'; sub collatz { my $n = shift; $n == 1 ? 0 : 1+collatz( $n%2 ? $n*3+1 : $n/2 ); } sub fibonacci { my $n = shift; $n <= 2 ? 1 : fibonacci(
2006年05月21日05:20 カテゴリLightweight Languages perl - use strict; # and be happy どうやら私の本では、啓蒙が全然足りなかったらしい。 Perl/CGI辞典 - 土井 毅さん 著 - にて use strict が推奨されていない件について - iandeth. p.104 strict プラグマは、Perlスクリプトでの記法を厳密にするためのプラグマです。 (中略) これにより、宣言の曖昧な変数への参照を発見できます。 [参考] strict プラグマは厳密すぎるため、通常のプログラミングではあまり使用しません。 ... orz この本が20世紀に出たというのであれば驚かないけど、今年に出たというのは、Perl5 Porterとしてもショックである。 しかし、確かにuse strict; # or dieという姿勢だけ
[Catalyst] [DBIx::Class] 一時的には 環境変数をenvセットでテストサーバ駆動 $ env DBIC_TRACE=1 ./script/myapp_server.pl -r いつも出す時は MyApp.pm に $ENV{'DBIC_TRACE'} = 1; と書き込んでおく。 Apache等の本番環境に移した後は気になるところだけ $c->model('DBIC')->storage->debug(1); $c->model('DBIC')->storage->debugfh(IO::File->new('/log/DBIC.log', 'w')); 通常のDBIC(non Catalyst)では my $schema = DB::Hoge->connect('dbi:mysql:dbname;localhost','I
あまりに暑いので工場扇を買ってきた 6月とは思えない猛暑に遭遇し、7月を待たずして早くも熱中症（疑）と睡眠不足に陥った2025年の夏。 去年までは8月頃から水風呂に飛び込んでビール飲みながら野球を見るという自宅避暑をやっていたけれど、今年は既に家中がもうどうにもならない不快感で包まれている。 …
久々にCatalystをインストールして、ロジックを書くときのアトリビュートでArgs(0)というのが増えていることに気づきました。 このArgs()で自分が今分かっている事を下記にまとめます。 Args()を設定したメソッド名プラス設定した数値の引数の数のURLにアクセスした場合、ディスパッチ制御ができる メソッド名以下を$c->arguments->[0]とかで取得できる まだこれぐらいしかわかってません。 perldocに書かれていますが、sub bar :Localをfooクラスに書いた場合に、/foo/bar/のURLでアクセスできますが、場合によっては、/foo/bar/はダメで/foo/bar/hoge/とかは許可した場合などにArgs(1)とかを使うといいみたいです。 なんだか、Regexアトリビュートとかでも似たようなものはできそう（？？）ですが、Args()のほうが手軽
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
