メモ

URIエスケープ

普段使うのはこんくらい。 %3a : %2f / %2e . %3d = %26 & %3f ?

ポートフォワーディングする

ssh -L Port_A:ADDR_A:Port_B user_name@ADDR_B ローカルホストのポートPort_Aに接続すると、ADDR_Bを踏み台にして、ADDR_AのPポートPort_Bに接続する。 例えば、1.0.0.0を踏み台にして、2.0.0.0と2.0.0.1の二つのサーバの両方にmysqlで繋ぎたい、とかいう場…

Firefoxの検索窓の種類を増やそう

Lunascapeみたいに任意のキーワードを付加して検索とかできないかなーと思ったら親切な人に教えてもらえた。install_dir/searchplugins にあるファイルを編集。フィーリングでもいける 例えば2chのみの検索をしたいならgoogle-jp.xmlをコピって <ShortName>Google in 2ch</ShortName>…

CPANでhttpのみ or ftpのみ

cpanでhttpだけ、もしくはftpだけ使うようにしたい。 例えばhttpだけ使うようにするにゃーどうするかっていうと、urllistからftpの消してhttpだけにしよう。 ftpだけの場合は逆。 言われてみればそのとおりすぎるけど言われるまでどーすんのかなーと思ってた…

Catalyst::Plugin::Session::Store::DBICで期限切れセッション消そう

Catalyst::Plugin::Session::Store::DBICはDBにセッション保存してくれる。 何もせんと、期限切れのセッション情報がいつまでも残るので、消す処理を書いてみた。 my $today = DateTime->now(time_zone => $tz)->epoch; $c->model('DBIC::Session')->search(…

Can't call method "jd"

Can't call method "jd" on an undefined value at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/DateTime.pm line 1455."何事かと思ったら、DateTime::Format::Strptime->newのpattern指定を間違えてた。

起動しねえ

以前どっかで見た。catalystのテストスクリプトが起動しないときはいいからMakefile.PLを置け

perlでプラスの意味とか

http://www.namazu.org/~tsuchiya/perl/info/perl-ja_28.html#SEC28 知らなかった。マニュアルに載ってるのにね!

神から言われたこと 大抵のターミナルは80文字だからコードの横幅はそれ未満にすれば コメントのそもそもの存在意義は?何やってるかわからないコードを書かなきゃいい 抽象クラスってのはオブジェクトとして生まれることの無いクラス 抽象メソッドとかもあ…

コマンドラインでperlときのキモイこと % perl -le 'print scalar <>' % perl -le 'print ~~ <>' print はリストコンテキスト。<>は改行程度じゃ終わらない、EOFまでなんだけど、スカラーなら終わる んでscalarは~~に等しいと。どんだけググっても出ないんで…

mysqlのvarcharって文字数?バイト数?

mysqlでvarchar(32)は(少なくともutf8)なら32文字 32byteに有らず バージョンは…今メジャーな奴

ttのINCLUDEとかの引数に変数を使った文字列を指定したい

ttのINCLUDEとかの引数に変数を使った文字列を指定したい [%- INCLUDE "static/$ps.dir/ru.html" -%]

フォームのサブミットボタンに確認ダイアログ付けたいんだって。

そもそも間違うなよ <script type="text/javascript"> <form action="ACTION" onSubmit="return check()" method="post"></form>

APIの叩き方っていうかプログラムでURL踏みたいんだけどどーしよう

http://search.cpan.org/~gaas/libwww-perl-5.812/lib/HTTP/Request.pm use HTTP::Request; use LWP::UserAgent; use strict; my $req = HTTP::Request->new(GET => 'http://example.com/'); my $ua = LWP::UserAgent->new; my $res = $ua->request($req);

searchの中の引数を条件によって変えたいけどif文使うの嫌だなーとかって

search( { ($hoge =~ /hoge/ ? ('ho.ge' => 1) : ()), }, { ($foo =~ /foo/ ? ('bar' => 'foo') : ()), } );

インサートモードでペーストするとインデントが崩れる場合

shiftwidthとかsmartなんとかとか有効にしてるとこうなる。そんなときは :a! ペースト ESC or c-c 終了

vi tips

インサートモードでc-jでenter

sendmailの起動が遅い!

/etc/hosts 192.168.1.23 HOSTNAME.localdomain HOSTNAME

エクセルで1ページとか出てるのうざいから消す

表示を標準に

ttの中でハッシュのキーに変数を使用

ハッシュをstashしてTemplate Toolkitに読ませてハッシュ展開するときにキーに変数指定したいとかもう [%- FOREACH dat IN list -%] [%- IF hash.${dat.id} == 1 -%]何か[%- END -%] [%- END -%]

TTの中でdie Dumper

[% USE Dumper %][% Dumper.dump(変数) %] 役立つネタの拾い方を教えてもらって一週間くらい。 全然間に合わない…世の中もネットの海も広すぎるー

autoではtrueを返せっつってんだろ!

プログラムの中でproxy

プログラムん中でプロキシ越えさせたい。 my $cmd = "http_proxy=http://USERNAME:PASSWORD\@ADDR:PORT/ wget http://hoge.com/index.html"; system ($cmd);

perl 改行がない出力は出ないよ! perl -l すると出るよ!知るか!

vi tips

c-e c-yで一行上や下に画面移動 c-cでESC c-[でもESC>でシフト移動

searchとかかけて返ってくるのはResultSetで、rsにnextとかかけて返ってくるのがResultClass rsにget_columnをかけたらResultSetColumnっていうクラスのインスタンスが返ってくる rcにget_columnをかけたらその行のそのカラムの値が返ってくる get_columnはr…

「実装してみておかしかったら別のを作ったりしてみよう」 設計が腐ってんじゃないか?と疑ってみよう 何だそんな事かって思うけど大事

bash コマンドライン tips

「^文字列A^文字列B」とすると、前のコマンドライン内の文字列Aを文字列Bに置き換えて実行する % more hoge.txt % ^more^less