Perlから外部コマンドを実行する - ヒルズで働く@robarioの技ログ
最近Perlから外部コマンドを実行する場合は、openやsystemなどを使わずにIPC::Cmdを良く使っている。 特に深い理由はないんだけど、 IPC::Cmdは5.009005からコアモジュールに入っている それなりに綺麗に書ける $IPC::Cmd::VERBOSEを真にしておけば、実行するコマンドの内容を出力してくれる 戻り値も「標準出力,標準エラー出力,その両方」が、改行区切りで配列になって戻ってくるのも地味に便利 （『かえりち』だと『返り血』に変換されるので、昔から『もどりち』って言うようにしてる＞id:amachang） とかかなあ。多分1番目の理由が大きい。コアモジュールに凝ってるのかもしれない。 ログ吐きにはLog::Message::Simple使うようになったし。 まあLog::Message::Simpleは、daemontools付属のmultilogと相性が良
Catalystのバージョンを上げたら文句言われた。 - ヒルズで働く@robarioの技ログ
Catalystのバージョンを5.71にしたらこんなメッセージが出るようになりました。 [warn] Used regexp fallback for $c->model('View::TT'), which found 'MyApp::Web::View::TT=HASH(0x21d44d0)'. Relying on regexp fallback behavior for component resolution is unreliable and unsafe. You probably meant $c->model('MyApp::Web::View::TT=HASH(0x21d44d0)') instead of $c->model{'View::TT'}, but if you really wanted to search, pass in a regexp as the
Re: EmacsでPerl開発する上で必須な設定 #2 - flymake - antipop - ヒルズで働く@robarioの技ログ
EmacsでPerl開発する上で必須な設定 #2 - flymake - Kentaro Kuribayashi's blog Catalystで、C::E::HTTP::Restarterを使ってると、flymakeが作ったFoo_flymake.pmを検出して勝手に再起動しまくるので超困る。 C::E::HTTP::RestarterがFoo_flymake.pmを認識できなくなればいいのですが、生成ディレクトリを変えてしまうとINCのパスがあわなくなってしまうので、ファイル名が*.pmにならないようにして使ってます。 (defun flymake-perl-init () - (let* ((temp-file (flymake-init-create-temp-buffer-copy - 'flymake-create-temp-inplace)) + (let* ((buffer
Catalystアプリケーションの設定ファイルにアプリケーション絡みのパスを書く場合は__path_to(...)__を使う - ヒルズで働く@robarioの技ログ
次、SQLLiteのpath をフルパスにしないといけないっぽい件。path_toメソッド使って気分すっきりしました。 connect_info => [ 'dbi:SQLite:' . YourApp->path_to('db/your_db.db'), ], これ見て思い出したんですが、この設定をmyapp.ymlに書く場合は connect_info: - dbi:SQLite:__path_to(db/your_db.db)__ と書きます。C::P::ConfigLoaderが __path_to(...)__ ⇒ $c->path_to( split( '/', ... ) ) __HOME__ ⇒ $c->path_to( '' ) という展開をしてくれます。 ドキュメントにもちゃんと載っているんですが、これを知ったのは先週ぐらいだったと思います。 使う場面が無かったというの
Re: Perlにデフォルトでインストールされているモジュールを表示する - ヒルズで働く@robarioの技ログ
隣のO澤くんが「Perlにデフォルトで入ってるモジュールが何かあるのかわかんないんですよねぇ」とか言ってるから、ワンライナー： # もしModule::CoreListがインストールされてないなら cpan install Module::CoreList perl -MModule::CoreList -e 'print "$_\n" for sort keys %{$Module::CoreList::version{5.008008}} ' これで一発で出るよ！ それって % corelist -v 5.008008 The following modules were in perl v5.008008 CORE AnyDBM_File 1.00 Attribute::Handlers 0.78_02 AutoLoader 5.60 AutoSplit 1.04 B 1.09_01
Lighttpd + mod_proxy で Catalystに飛ばす時 - ヒルズで働く@robarioの技ログ
何も考えずに $HTTP["host"] == "backend.example.com" { proxy.server = ( "" => (("host" => "127.0.0.1", "port" => 3000))) } などとしてしまうと、$c->uri_forが http://backend.example.com:3000/ になってしまって都合が悪い。、大抵バックエンドには直接リクエストは送れないからね。 で、こんな時はCatalyst側でusing_frontend_proxy を 1（@see Catalyst::Engine::CGI）にして、X-Forwarded-Hostがbackend.example.comになるようにすれば良い。 ApacheやZeusのmod_proxyは自動的にX-Forwarded-Hostを付けてくれるんだけど、Lighttpd（v
社内IRCの設置 - ヒルズで働く@robarioの技ログ
IPMessengerやE-mailのように相手を指定できるツールは情報共有には向かないです。ミスや思い込み（この人には送らなくていいだろう）による伝達漏れが起きてしまいます。 そこで、以前から導入しようと思っていたIRCをようやく入れました。 ツールを入れるのが難しかったのではなくて、それを使わせる方が難しく今まで躊躇していました。原則IRCは全員が入ってないとメリットが無いと思います。それができないなら別にIPMessengerで良いんじゃないかと。が、今回わけあってそれができるようになったので入れてみました。 参考リンク “社内IRC”を駆使するエンジニアの仕事術とは――モバイルファクトリー・松野徳大さん - ITmedia エンタープライズ http://d.hatena.ne.jp/ikuo5710/20070413/1176482661 IRCサーバソフトウェアをインストール
nice Windows! - ヒルズで働く@robarioの技ログ
（環境はWindowsXP） nice Windows上でreniceじゃなくてniceがしたいなーと思って調べてたら、startコマンドでイケルっぽい。（優先度数値の直接指定はできないっぽい） で、startは内部コマンド（シェルコマンドみたいなもの）なので、cmd経由で使う。例えば、Thunderbirdの優先度を下げるには C:\WINDOWS\system32\cmd.exe /C start /LOW /D"C:\Program Files\Mozilla Thunderbird" thunderbird.exeのように、ショートカットのプロパティを変更しておく。詳しくは C:\> help startで。（helpコマンドも初めて知ったｗ） pushd, popd 調べてるついでにコマンドプロンプトでpushd,popd（内部コマンド）が使えることを初めて知った。 title,
lighttpdでファイルが存在しない場合にFastCGI-Catalystへ飛ばす設定とプラグイン - ヒルズで働く@robarioの技ログ
「そんなことしなくてもいいよ」的な猛烈な勘違いをしてたらすみませんがこっそり教えてください。 Apacheの RewriteEngine On RewriteCond %{REQUEST_FILENAME} !-f RewriteRule ^/(.*)$ http://127.0.0.1:3000/$1 [L,QSA]みたいなイメージで、 ファイルが存在する→そのファイルを返す ファイルが存在しない→Catalystへ飛ばす というのがしたかった。 環境は Catalyst::Runtime-5.7012 Catalyst::Devel-1.03 lighttpd-1.4.18 http://unknownplace.org/slides/shibuyapm-7/start.html#slide30 を参考に setenv.add-environment = ("SCRIPT_NAME"
特殊変数 $" と $, の違い - ヒルズで働く@robarioの技ログ
ちょっと「ん？」となったので。 今日Perl Tip. 配列をプリントアウトしたいぜ！ - Lazy Programmer :-p 「それはプリントアウトじゃなくて変数展開だぜ」と細かい事を言ってみる。 my @food = qw/sashimi yakiniku purin/; local $" = ', '; # とすると print "@food"; # これは sashimi, yakiniku, purin になるが、 print @food; # これは sashimiyakinikupurin になってしまう。 "@food" eq 'sashimi, yakiniku, purin'; # true 「プリントアウトするときの区切り」は $, my @food = qw/sashimi yakiniku purin/; local $, = ', '; # とすると pri
Shipwrightちょっとだけ使ってみたよ - ヒルズで働く@robarioの技ログ
参考：Shipwright - dann@catalyst - Catalystグループ Shipwright-1.01使ってみたよ。CPANモジュール群をSubversionリポジトリで管理できるよ。 どっかの誰かが『CPANモジュール群のバージョンを各マシンで合わせるためにrpmに変換して云々』ってのをやってたと思うけど、Shipwrightの用途は多分そんな感じです。 Subversionリポジトリにコミットすることになるので、野良パッチのバージョン管理も出来るかもね。 インストール 普通にCPANから。 # cpan Shipwright Shipwrightはsvnが必要です。 svkにも対応していてsvkが無い環境だとインストール時にエラーになるけど、運用上svkを使わないんだったらcpan -f Shipwrightで問題無いよ。 初期化 $ shipwright creat
Meadow3＋tramp＋openssh - ヒルズで働く@robarioの技ログ
（以前から書こうと思っていて忘れていたことです。以前＝Meadowをバージョンアップした - ヒルズで働く@robarioの技ログ） trampはリモートにあるファイルを直接編集することができるパッケージです。詳しくはググレカス。 設定は (require 'tramp) (setq tramp-default-method "ssh") (setcdr (assq 'tramp-login-program (assoc "ssh" tramp-methods)) '("~/bin/f_ssh")) これだけでOKです。が、f_ssh.exeというものを用意しないといけません。 plink.exeを使う場合はplinkメソッドを使えばOKですが、Cygwinのssh.exe(openssh)を使う場合はそのままでは動きません。fakecygptyというものが必要になります。詳しくはググレカ
キャレット位置によって複数のメジャーモードを切り替えるmmm-mode - ヒルズで働く@robarioの技ログ
同一バッファ内で、キャレット位置によって複数のメジャーモードを切り替えるmmm-modeの設定を貼ってみる。HTML系だけ。 (require 'mmm-mode) (setq mmm-global-mode 'maybe) (set-face-background 'mmm-default-submode-face "#333333") (mmm-add-classes '((mmm-html-css-mode :submode css-mode :face mmm-code-submode-face :front "<style[^>]*>\\([^<]*<!--\\)?\n" :back "\\(\\s-*-->\\)?\n[ \t]*</style>" ) (mmm-html-javascript-mode :submode javascript-mode :face mmm-co
Re: Catalyst でテンプレートファイルがあったら表示するの術 - ヒルズで働く@robarioの技ログ
（タイトル考えるのって面倒） my $template = $c->req->path . '.tts'; my $template = $c->action . '.tts'; の方がいいかも。アクションがindexとかdefaultの時のテンプレート名がおかしくなっちゃうので。（あと、Regex使ってる時とかマッチする奴全部を用意できないということも） ちなみにC::V::TTは$c->actionを使ってる。 # --- TT.pm sub process { my ( $self, $c ) = @_; my $template = $c->stash->{template} || $c->action . $self->config->{TEMPLATE_EXTENSION};
外部のJavaScriptを読み込むブックマークレットをちょっと短く。 - ヒルズで働く@robarioの技ログ
ああ。 javascript:(function(){var s=document.createElement('script');s.src='...';document.documentElement.appendChild(s)})() より javascript:(function(s){s.src='...';document.documentElement.appendChild(s)})(document.createElement('script')) の方が短いな。これからはこの書き方にしよう。
JavaScriptで外部ライブラリを読み込むためのスクリプトをCodeRepos.orgに上げた。 - ヒルズで働く@robarioの技ログ
Sjaxを使わないJavaScript Loader - ヒルズで働く@robarioの技ログ と JavaScriptから外部JavaScriptを読み込む方法 - ヒルズで働く@robarioの技ログ の改良版です。この二つの記事は忘れてもらって結構です。 前振りとか ライブラリを読み込みたい（＞＜） 「script要素をappendChildする」でやると読み込み完了を待ってくれないので「setTimeoutで3000ms後に本処理」とか、嫌だ。 そこで「指定したプロパティが存在するか」を監視するスクリプトloader.js.incを書きました。http://coderepos.org/share/に置いてあります。 http://coderepos.org/share/browser/lang/javascript/misc/loader.js.inc http://coderep
CPANモジュールのアンインストール - holidays-l開発ブログ
エントリの続きはこちら→CPANモジュールのアンインストール（改良版） - ヒルズで働く@robarioの技ログ あるCPANモジュール（以下ディストリビューションと呼びます）をアンインストールしてみます。 まずは色々紹介しながら回りくどくやってみます。最後に簡単な方法を紹介します。 消したいディストリビューションを確認 自分が消したいディストリビューションが分からなかったら、 % perldoc -tT perllocal | grep Module # 見た目より速さ優先ならこっち % grep Module `perldoc -l perllocal` でインストール履歴が出ます。perllocal.podにはインストールしたディストリビューションの一覧が時刻と共に記録されていて「昨日インストールしたアレアレ…何だっけ？」という時には割と使えます。 モジュール名とディストリビューショ
EmacsLispの正規表現「\s」は空白文字類じゃない。 - ヒルズで働く@robarioの技ログ
世間では常識でしょうが、常識知らずな自分には目から鱗。 \scode はcodeが表す構文を構成する文字にマッチします．codeは構文を表す文字です．たとえば，`w'は単語構成要素を，`-'は空白を， `('は開きかっこを表します． なので、空白文字類を表す正規表現は「\s-」になる。 今まで[ \t\n]とかでごまかしてたけど、これからは大丈夫。 EmacsLispは勘で書いてるから一度ちゃんと勉強しなきゃいけないなあ。
minijsanがうまく動かんので無理やりやってみた。 - ヒルズで働く@robarioの技ログ
JSANが入ってなかったら入れる。 % cpan JSAN ミラーを作成する。 % jsan index && perl -MDBI -MFile::Path -MLWP::Simple -e '$h=DBI->connect(qq{dbi:SQLite:$ENV{HOME}/.jsan.index.sqlite});foreach $dist (@{$h->selectall_arrayref(q{select source,latest from release})}) {my($latest,$local,$remote)=($dist->[1],"/home/JSAN$dist->[0]","http://openjsan.org$dist->[0]");if($latest&&!-f $local){mkpath([$local=~m{(.*?)[^/]+$}]);mirror(
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
コミットログを日本語で書くには、 - ヒルズで働く@robarioの技ログ
