flv ファイルのダウンロード on Linux

GUI がゴテゴテついたツールで動画ファイルをダウンロードするのは苦手なので，perl スクリプトで wget を用いた flv ダウンロード・プログラムを書いた．かなり前に書いたものを修正した．いま使ってみたら Daum と YourFileHost が仕様変更されたようで使えなくなっていた．

この flvdl.txt を flvdl というファイル名で PATH が通っている所にコピーします．perl と wget がインストールされているシステムであればすぐに使えます．

2008/01/01 に version 0.0.2 にアップデートしました．
スクリプトを書くにあたって ゲッター1（伊里目 流様）のソースコードを参考にさせて頂きました．この場を借りて感謝の意を表したいと思います． ちょー汚いコードなので，あまりじっくり見ないようにお願いします orz.

使い方は簡単で単一の URL を指定する場合は
echo ' ' | flvdl
とするだけ．複数ファイルを一気にダウンロードするならば，まずは次の url.txt のようなファイルを用意します．
http://www.stage6.com/video/1349891/
http://www.veoh.com/videos/e57648MYJHp3b8
... <以下 URL が続く>
そうしたら
flvdl url.txt
とするだけで複数のファイルがダウンロードされます．
Fedora は yum install wget，Vine は apt-get install wget で wget が導入できます．

Mac OS X は curl が標準でインストールされているので，そちらを使う事もできます．この場合 flvdl の中の次の 3 行をコメントアウトします．

# $prehtmlcmd = "wget --quiet -O - -U '$ua' ";
# $flvdowncmd = "wget -c -U '$ua' ";
# $fo = '-O';

curl を使うように次の３行の行頭の井桁をとります．

$prehtmlcmd = "curl -v --max-redirs 5 -L -o - -A '$ua' ";
$flvdowncmd = "curl -v --max-redirs 5 -L -C -A '$ua' ";
$fo = '-o';

Mac で wget を導入するにはまず Mac OS X Workshop などが導入されている事が望ましいです（というよりは rpm と rpm-devel)．
curl -O http://www.ring.gr.jp/pub/linux/Vine/apt/4.2/SRPMS.main/wget-1.10.2-0vl1.2.src.rpm
rpmbuild --rebuild wget-*.src.rpm
とすると rpm が作成されるので，
rpm -ivh ~/rpm/RPMS/`uname -m`/wget-*.rpm
でインストールできます．しかし，SPEC ファイル中に依存関係で具合の悪い記述があるので，まずは SRPM をインストールしてから
rpm -ivh wget-*.src.rpm
vi ~/rpm/SPECS/wget.spec
としてテキストエディッタを起動し，次の 2 行をコメントアウトします．
# Prereq: install-info
# BuildPrereq: openssl-devel
そうしたら
rpm -ba ~/rpm/SPECS/wget.spec
としてビルドします．ビルドが完了したら
rpm -ivh ~/rpm/RPMS/`uname -m`/wget-*.rpm
とします(PowerPCマシンは uname -m がうまく機能しませんので，適当に ppc 等に変更して下さい)．

こんな感じです．