perl

Finding all paths in a directed acyclic graph structure with CPAN Graph module

非循環有向グラフで、ある頂点から頂点までの全経路を探します。 This script finds all paths from a vertex to another.(注意点: 循環構造があると無限ループします) NOTE: cannot be used with cycles. use strict; use warnings; use Graph::Directed;…

Movable TypeのPerl APIを使って移行作業

やりたいこと (1) 移行元のMovable TypeのデータをYAMLでダンプ ↓ (2) YAMLを移行先サーバに転送 ↓ (3) 移行先のMovable TypeでYAMLをインポート ここまでやります。 投稿者をダンプ&インポートする まず全投稿者をダンプしてみます。 以降の説明では Movab…

日本語(シフトJIS)を含んだzipやlzhをUTF-8に変換しながら解凍

シフトJISの日本語ファイル名が入ったzipファイルを受け取ってしまったとき、UTF-8環境のLinux上でunzipすると文字化けして大変なことになります… 解凍後に変換しようとしてもどうしようもないので、SJISからUTF-8にファイル名を変換した上で解凍するPerlス…

ヤフオクの出品商品のアクセス数とかを監視するPerlスクリプト

初めてYahoo!オークションに出品したんですが、アクセス総数やウォッチリスト追加総数の伸びが気になってしょうがないので作りました。cronに登録して動かしてます。CPANにもこういうのなくてヤフオクのAPI使ってもアクセス数とかは取れないんですよね。ログ…

WWW::Mechanizeのsubmitとclickの違い

これははまりました・・ CPANのWWW::Mechanize 1.34で click() は <input type="submit" name="name1" value="value1"> の分の name1=value1 も送信しますが、submit() ではこれを送信しません。たとえば下のようなフォームの場合。 <form method="get" action="do.php" name="loginform"> <input type="hidden" name="login" value="123"> </form>

dotProjectのファイルのバックアップをとるPerlスクリプト

ログインからファイル一覧表示、各ファイル内容取得を最後のページまで繰り返す、というのを プログラムでシミュレートしてローカルファイルに吐きます。 下のスクリプトをファイルに保存したら $dotproject_baseurl, $username, $password を適宜設定してく…