人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

perlでネット上にあるlzhを拾ってきてwebディレクトリに解凍するというようなバッチ、もしくはtipsはないですか?
全ての機能を満たさない部分的な機能を担う奴でもかまいません。よろしくお願いします。

●質問者: くいっぱ
●カテゴリ:インターネット ウェブ制作
✍キーワード:lzh Perl TIPS Web ディレクトリ
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● dica33
●23ポイント ベストアンサー

http://www.csdinc.co.jp/archiver/lib/unlha32.html

環境はわかりませんが、lzhが解凍できる環境を整えてexecしてしまってはどうでしょうか?

exec "lha e $filename"

◎質問者からの返答

レンタル鯖なんですが…、execできるかな…。

PHPのsystemとかexecは制限されてたんですがperlだと通るかなっと…


2 ● 浅倉卓司
●23ポイント

ネットにあるlzhを拾うにはLWPモジュールを使うのが良いでしょう。

http://homepage3.nifty.com/hippo2000/perltips/LWP/Simple.html


LZHを解凍するモジュールは見つかりませんでしたので、system()などを使って解凍することになると思います。

ちなみにZIPファイルならArchive::ZIPモジュールで解凍できると思います。

http://search.cpan.org/~smpeters/Archive-Zip-1.16/lib/Archive/Zi...

◎質問者からの返答

ファイル取得はgetでできるかな…。

lzhないっすかね…。

引き続き募集しまっす。


3 ● villain
●22ポイント

Win32用のActivePerlならWinAPIなどのWin32DLLを

呼び出せるのでDLしたファイルをunlha32.dllを使用して

解凍はできると思います。

または、lha.exeを使用して解凍するとか。


UNIX/Linux環境などWin32システム以外の場合は分かりません。


◎質問者からの返答

ういっす、ありがとうございます。

最初に環境を書くべきでしたね…。

Linuxです。


4 ● villain
●22ポイント

HTTP DL の解説の方を忘れてしまいました。

以下のサイトを参考にしてください。


Perlでブラウズ(HTTP)


一人2回しか回答できないのでこれで最後です。

◎質問者からの返答

おー、これはわかりやすいサイトですね。

バッチリです。

肝心のlzhの解凍にかんする部分があれなので質問をたてなおしました。

http://q.hatena.ne.jp/1147840715

こちらの質問は終了します。ありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ