トップページ⇒php
990コメント339KB

Perlモジュールについて

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。2001/08/15(水) 07:47ID:???
モジュールについて話し合うスレッドです。

モジュールの使い方とかリンクは>>2-10さんが出してくれるかも？！
036235804/05/30 17:34ID:???
>>361
　単純明快なお答えに感謝です。まさに求めていた回答でした。
　ただ、
　　　ttp://opensource.jp/artistic/ja/Artistic-ja.html
は、359で張っていただいたリンクからたどれるものであり、自分も見ていたのです。なのに（今思えば睡魔が襲っていた
のでしょう）最初の段階で頭が混乱し、8.を見落としていました。全く情けない限りです。自分の怠慢であるにもかかわら
ずご丁寧に回答して下さったことに感謝です。

　とても冗長な書き込みで申し訳ないのですが（書き込みを二回に分けます）、お付き合い下されば光栄です。

　さて、このThe Artistic Licenseを自分なりに以下のように解釈しました。

1.実行環境の鯖にThe Artistic Licenseに基づくパッケージがインスコされていない場合、当該パッケージを自作アプリと一
緒に同梱して（圧縮とか）配布できる。その場合のパッケージは、「標準版」であればテキストファイルベースのPure Perl
で書かれたものであろうとその他の実行形式であっても構わない。その際、自作アプリのマニュアルに当該パッケージの
著作権表示・免責規定を記載する。
↑The Artistic Licenseの1.より

2.但し、著作権所有者の記載を、自作アプリの宣伝や推奨に用いてはならない。
↑The Artistic Licenseの9．より

　さて、問題の商用配布ですが、

3.商用配布は常に許される。その利用方法が埋め込み、つまりパッケージのインターフェイスが商用配布のエンドユーザー
に見えるように意図しないことが条件。この場合はパッケージの配布とは解釈されない。

ってことですよね？
036335804/05/30 17:36ID:???
　そこで質問なのですが、ここでいう「インターフェイス」ってのは、普通の解釈どおり、パッケージまたはモジュー
ルのサブルーチンまたはメソッド（およびそれによって実現される仕様：例えばHTML::Templateなら、TMPL_VARタグ
など）と考えて良いのでしょうか？
　もしこの解釈が間違っていなければ、尚且つ「エンドユーザー」がそのアプリを購入して実際にアプリとして稼動さ
せた場合の利用者であるならば、購入者に、「プログラマの方へ：paramメソッドのxxxx引数に掲示板の記事を入れて
下さい、デザイナの方へ：<TMPL_VAR NAME="xxxx">の部分に掲示板の記事が表示されますので適宜HTMLなどで装飾し
て下さい」などとインターフェイスをマニュアル上に書き込んでも、購入者はエンドユーザーでなく、これらのマニュ
アルを見て実際にアプリをチューニングして稼動させる側であり、その稼動したアプリを実際に利用する「エンドユー
ザー」ではないのでこのように購入者側にマニュアルとしてインターフェイスを公開してもThe Artistic Licenseの
8.には違反しないと解釈して宜しいですか？
　また、それが正しいのであればパッケージの配布とは解釈されないので、「マニュアルに規定したチューニングなど
による改変以外、無断複製、無断改変を禁止します」と制限をかけることが出来ますか？そして配布と解釈されないの
で自作アプリの著作権表示を（当該パッケージの著作権表示とともに）記載しても構いませんか？
0364nobodyさん04/05/30 18:56ID:???
著作権やライセンスに関する不明瞭な部分は、第三者に聞いても解決はしない。
0365nobodyさん04/05/30 19:09ID:???
>>362-363
「インターフェイス」や「派生物」という言葉が何を指すかを
厳密に定義できるのは裁判官だけだ。国内では Artistic License
も GPL も判例が出ていないから、正しい答は誰にも出せんよ。

解釈に不安があるのなら、やるべきは実例を沢山漁って線の引き
処を掴むなり、ライセンス条文を書いた所へ直接尋ねる事だろうし、
相談相手にするべきは 2ch の名無しではなく君の会社の法務部
だろうな。

あと、完全にスレ違いの話題なので、続けたいなら余所へ
行ってくれんか。
http://pc5.2ch.net/test/read.cgi/tech/1045006087/
036635804/05/30 22:26ID:???
>>364
>>365
　ご回答ありがとです。仰る通り、これは第三者に聞いても解決しないかもしれ
ませんね。
　法務部に回さなかったのは、結局のところ回したところで法解釈に留まり、そ
の解釈に何ら法的効力が担保されないと思ったからです。事実、仰る通りこれは
裁判官の判断しか法的効力を持たず、かといって国内では判例もないどころか通
説も見当たらないので「正しい答え」を知る為に、実務で私と同じような状況に
あって実際にこのライセンスを私と同じ状況下で、商用目的で利用されていらっ
しゃる方がいないかと思い、2chで聞かせて頂いたのです。

　もう少しMLなどで聞いてみてそれでも駄目なら、直接、Sam Tregar氏に聞い
てみようと思います。

　モジュールの話が、ライセンスの話になってしまい、ご指摘通り、スレ違いと
なりました。申し訳ないです。このスレでのこの話題についてはこれで終わりに
します。有難うございました。
036735804/05/30 22:29ID:???
>>364
>>365
　ご回答ありがとです。仰る通り、これは第三者に聞いても解決しないかもしれ
ませんね。
　法務部に回さなかったのは、結局のところ回したところで法解釈に留まり、そ
の解釈に何ら法的効力が担保されないと思ったからです。事実、仰る通りこれは
裁判官の判断しか法的効力を持たず、かといって国内では判例もないどころか通
説も見当たらないので「正しい答え」を知る為に、実務で私と同じような状況に
あって実際にこのライセンスを私と同じ状況下で、商用目的で利用されていらっ
しゃる方がいないかと思い、2chで聞かせて頂いたのです。

　もう少しMLなどで聞いてみてそれでも駄目なら、直接、Sam Tregar氏に聞い
てみようと思います。

　モジュールの話が、ライセンスの話になってしまい、ご指摘通り、スレ違いと
なりました。申し訳ないです。このスレでのこの話題についてはこれで終わりに
します。有難うございました。
036835804/05/30 22:31ID:???
500 エラーが出たのでリロードして確認したら更新されてなかったので
もう一度書きこんだら二重書き込みになってしまいました。すみません
です。
0369nobodyさん04/05/31 00:35ID:???
>365
誘導入れようかどうしようかと思ったんだけどね。

あ、やっぱそこライセンススレだったのか。
一応 UNIX 板にもライセンススレがあるけど質問には向かないかもなー。
ライセンスあれこれ
http://pc5.2ch.net/test/read.cgi/unix/1032702590/
037035804/05/31 09:30ID:???
>>369
　ご紹介有難うです。
　ご紹介いただいたスレを見ましたが、
>>365
　と同じく、質問には向かない気がしました。

　法務部に問い合わせを代行させてもよいのですが、私と法務部の間で
伝えたいことのニュアンスの違いがあるかもしれないので直接調べるな
り直接Sam Tregar氏に聞いてみようと思います。

　色々お騒がせしてすみません＆感謝です。
0371nobodyさん04/06/07 00:10ID:KicuegCZ
Windows2000SP4 + ActivePerl5.6.1(Build638)でグラフを描きたいと思っています。
GD::Graphはインストールしたのですが、
＞Can't locate GD/Text/Align.pm
と出てしまいます。

GD::Textを入れようとしたのですが、Windows用は入っていないようです。
// http://ppm.activestate.com/PPMPackages/zips/6xx-builds-only/GDTextUtil.zip

諦めるしか無いのでしょうか(´・ω・｀）
何かいい手をご存知の方がいらっしゃいましたら、ご教授のほどお願いしますm(_ _)m
0372nobodyさん04/06/07 00:29ID:???
>>371
ZIP Archiveを探す前にステータス見ればわかるだろ。
http://ppm.activestate.com/BuildStatus/5.6-G.html

CPANから入れる手もあるけど動く保証はないよ。
http://search.cpan.org/search?m=module&q=GD&s=11
0373nobodyさん04/06/07 00:38ID:KicuegCZ
>>372
レスありがとうございました。
ステータスを見落としてたとは・・・。
FAQでしたね、失礼しました。
0374なぜか解決(?)04/06/07 00:44ID:KicuegCZ
ダメ元でlinux用の.pmファイルを突っ込んでみたら誤魔化せてしまったようです。
棒グラフと折れ線グラフの出力に成功しました。
解決といえるかどうかわかりませんが、報告まで。
0375nobodyさん04/06/07 01:24ID:???
>>374
http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/ActivePerl-faq2.html#repositories
http://theoryx5.uwinnipeg.ca/ppmpackages/
0376nobodyさん04/06/15 17:39ID:???
初心者スレでこちらの存在を教えていただきました。
質問なのですが、WWW::Mechanizeを使おうとすると
Can't locate object method "requests_redirectable" via package "WWW::Mechanize"
(perhaps you forgot to load "WWW::Mechanize"?) at C:/Perl/site/lib/WWW/Mechanize
.pm line 156.
というエラーが出されるのですが、ソースでは
use WWW::Mechanize;
と宣言しています。原因はなんでしょうか?
0377nobodyさん04/06/15 18:01ID:???
WWW::Mechanize は LWP::UserAgent を継承していて
requests_redirectable も LWP::UserAgent のメソッドなので
LWPの方が怪しそうな気が。
WWW::Mechanize と LWP のバージョンはそれぞれいくつじゃい。
037837604/06/16 11:25ID:???
>>377

ありがとうございます。バージョンの問題のようでした。
libwww-perl: 5.51 → 5.75
WWW::Mechanize: 0.48 → 0.72
にアップグレードして動作しました。
0379nobodyさん04/06/22 20:34ID:0XcCSiRM
Net::SMTPとMimi::Entityを使って画像ファイルを複数添付したメールを送信しようとしていたのですが
添付ファイルの総容量がある一定を超えると全ての添付ファイルが送信されなくなってしまいます。
データの処理サイズを指定してその最大値を超えないようにファイルを処理していけば良いのかなと思い
サンプルを探してみたりCAPNでモジュールのマニュアルやソース読んだりしてみたのですが
何をどうやれば良いのかさっぱり分かりません。
どなたかお知恵をお貸し下さい。
038037904/06/22 20:39ID:0XcCSiRM
こんなソースです。
use strict;
use Jcode;
use Net::SMTP;
use MIME::Entity;
use constant SMTPsvr => 'mail.hoge.co.jp';


##元になるHTMLを読み込む
my $htmlData="";
my $line="";
open(FilePt,"testhtml.html");
while($line = <FilePt>){
$htmlData.=$line;
}
close(FilePt);


##メール内容を作成する
my $oMime = MIME::Entity->build(
Type => 'multipart/related',
To => jcode('シロヤギさんさん')->mime_encode(). '<hoge@hoge.co.jp>',
From => jcode('クロヤギさん')->mime_encode() . '<hoge2@hoge2.co.jp>',
Subject => 'HTML' . jcode('無題')->mime_encode(),
);
038137904/06/22 20:40ID:0XcCSiRM
$oMime->attach(
Type => 'text/html;charset="iso-2022-jp"',
Data => jcode($htmlData)->jis,
Encoding => '7bit'
);


$oMime->attach(
Path => 'testimg01.jpg',
Type => 'application/octet-stream',
Encoding => 'Base64',
'Content-ID'=> 'testimg01.jpg',
);

$oMime->attach(
Path => 'testimg02.jpg',
Type => 'application/octet-stream',
Encoding => 'Base64',
'Content-ID'=> 'testimg02.jpg',
);


##メール送信
my $oSmtp = Net::SMTP->new(SMTPsvr);
$oSmtp->mail('hoge2@hoge2.co.jp');
$oSmtp->to('hoge@hoge.co.jp');
$oSmtp->data();
$oSmtp->datasend($oMime->stringify);
$oSmtp->dataend();
$oSmtp->quit;

情けない質問で申し訳ありませんが、宜しくお願いします。
0382nobodyさん04/06/22 21:58ID:???
このソースを自宅鯖の環境で20Mぐらいのファイルを添付する設定で実行してみたら
postfix が「メールでかすぎ」と言って受信拒否してくれた。
ということは少なくとも postfix まではちゃんと流れて行ったと想定される。

mail.hoge.co.jp の設定を確認してみては?
038337904/06/23 13:09ID:NP7S6l9r
>>382
レスありがとうございます。
一応自己解決(かな？)しました。

昨日の時点では一つのメールソフト(Netscape)だけで確認していたので
今日Outlookやフリーのソフトを複数使って受信確認してみた所
添付ファイル自体はきちんと添付されているらしい事がわかりました。
(HTML形式のメールなのでOutlookでは画像が想定どおり表示され、フリーの
メーラーでは添付処理したファイルがすべて確認できました)

そこでNetscapeの設定等に問題があったのかと思い、色々弄ってみた結果
どうやらHTML形式のメールで使用する画像を添付ファイルとして送信した場合
その総容量がある一定を超えると(どうやら15K以上)、そのメールを最初に表示した場合には
そこで使われている画像を読み込まずにテキストだけを表示しているらしい事が分かりました。
(だから表示文字コード設定を変えたりして再度読み込むと、その時はきちんと画像が表示されました)
どうやらNetscapeのメールソフトのみで起こる問題のようです。

メール内で使ってる画像をWeb上からリンクさせるのは嫌だなぁと思ったので画像を添付しようと思っていたのですが
もしNetScapeのメールソフトで起きている問題を解消できたとしても、画像の添付された重いメールを送信出来るようになるだけで
最終的にはメリットが少ないと思い、ファイルを添付した状態でメールを送る事自体を断念しました。

ご迷惑をお掛けして申し訳ありませんでした。

でも何でネスケでだけ変な動きしたんだろう…添付のさせ方間違ってたのかなぁ？
0384nobodyさん04/06/30 04:37ID:???
テキストファイルや標準入力に対してベイジアンフィルタで分類するモジュールないですか？
10以上のカテゴリに分類できるものを探しています。
0385nobodyさん04/06/30 06:04ID:???
>>384
この辺を調べ尽くし済なら知らないなぁ。
http://search.cpan.org/search?query=Bayes&mode=all
http://www.google.co.jp/search?num=100&q=Bayesian+Perl
0386nobodyさん04/06/30 11:52ID:???
>>385
ｻﾝｸｽｺ
とりあえず、
http://search.cpan.org/~kwilliams/AI-Categorizer-0.07/
を呼んで見ることにしたよ。
0387nobodyさん04/08/08 11:17ID:Ejd6WZ6r
MIME::Explodeと同じ様な感じで、
ファイルではなくメモリ上に展開してくれるモジュール無いですか？
0388nobodyさん04/08/08 14:32ID:???
MIME::Parser
0389nobodyさん04/08/08 17:57ID:???
perlでmysqlを操作するために必要なモジュールってなんでしたっけ？
DBIと他に二つくらいあった気がするんですが忘れてしまいました。

一応今はwinxpにactiveperl5.6.1.638が入ってるのでPPMを使ってやろうと思いますが一応順番も関係あった気がするので
知ってる方おながいします。
039038904/08/08 18:11ID:???
Data-Dumper
DBI
Msql-Mysql-modules

の3つを上の順番でインスコでした；失礼しました。
039138904/08/08 18:23ID:???
すみません；何故かppmでエラーが出ます。

perl.exeはc:\usr\binにあるのでwinxpのコマンドプロンプト開いて
cd \usr\binとして
c:\usr\bin>ppm install Data-Dumper
をやると以下のエラーがでました。
Failed to load PPM_DAT file
Can't use an undefined value as a SCALAR reference at C:/usr/site/lib/PPM.pm lin
e 1678, <DATA> line 40.

翻訳
PPM_DATファイルをロードしませんでした。
C:/usr/サイト/lib/PPM.pm lin e 1678、<DATA>40行でSCALAR参照として
不確定の値を使用することができません。

以前のパソコンはwin98だったのですが、同じactiveperlのバージョンで問題なくインストールできました。
エロイ人おながします。
0392nobodyさん04/08/08 19:28ID:???
>>391
PPM のバグのせいで ppm.xml が壊れてしまったんじゃないかと思う。
直し方は知らないのだが、5.8.4 に移行すればたぶん問題なくなる。
039338904/08/08 23:15ID:???
>>392
ありがとうです。
今度使うサーバがactiveperl5.6.1.638を使ってるので、一応同じもので動作確認をしたくってこれを使ってます。
perlの再インストールとか試してみます。
039438904/08/09 06:56ID:???
perlの再インストールをしたらData-Dumper、DBIの二つは無事ppmでインストールできました。
でもMsql-Mysql-modulesで下のようなエラーがでました。
C:\usr\bin>ppm install Msql-Mysql-modules
Installing package 'Msql-Mysql-modules'...
Error installing package 'Msql-Mysql-modules': Read a PPD for 'Msql-Mysql-module
s', but it is not intended for this build of Perl (MSWin32-x86-multi-thread)

翻訳
パッケージ「Msql-Mysqlモジュール」のインストールパッケージ「Msql-Mysqlモジュール」
をインストールするエラー:「Msql-Mysqlモジュールs」のためにPPDを読む
、しかし、それはPerl(MSWin32-x86マルチスレッド)のこの構造のために意図されません。

activeperlを入れてるディレクトリが悪いのでしょうか？それともmysqlの場所が悪いのでしょうか？
mysqlはc:\mysqlディレクトリにあります。再インストールは何度かしてみましたが変わらずです。
mysql4.0.18を使っています。


0395nobodyさん04/08/09 08:56ID:CVqqb4Xe
HTML::Templateが全く動かないんですが、
どこがおかしいのでしょうか？
ある程度複雑なコード書いて全く何も出力されなかったので、
簡単なコード書き直して試してみたのですが、やはりなにも出力されません。

a.pl

#!/usr/bin/perl
use strict;
use HTML::Template;

my $html = HTML::Template->new(filename => 'a.tmpl');
print "Content-Type: text/html\n\n";
$html->output;


a.tmpl

<html>
<head><title>Test Template</title>
<body>
</body>
</html>

0396nobodyさん04/08/09 08:58ID:???
何も出力されないというのは
0397nobodyさん04/08/09 08:58ID:CVqqb4Xe
途中で送信してしまいました。
何も出力されないと書きましたが
Content-Type: text/html

だけは出力されます。
HTML::Templateが何も出力してくれないという事です。
0398nobodyさん04/08/09 09:49ID:???
>>397
HTML::Templateが壊れてるんじゃないの？
0399nobodyさん04/08/09 10:01ID:???
CPAN使って
install HTML::Templateで入れただけなのですが…
0400nobodyさん04/08/09 10:02ID:???
$html->output; は返すだけだったと思う
print $html->output; にしないと
0401nobodyさん04/08/09 10:05ID:???
print $html->output;
0402nobodyさん04/08/09 10:07ID:???
動きました。ありがとうございました。
getResultみたいなメソッド名にしてくれれば、
こんな事で悩まないのに…
040338904/08/09 10:23ID:???
Msql-Mysql-modulesの代わりにDBD-mysqlをインストールして解決いたしました。失礼します。
0404nobodyさん04/08/09 12:22ID:???
>>402
$html->output(\*STDOUT)でもいけたはず。
メソッド名が紛らわしいのは同感だが、ドキュメントのSYNOPSISくらい読もうな。
0405nobodyさん04/08/28 17:28ID:XMnxFKiq
CGI::Sessionってセッション管理にCookieを使う事が必須なのですか？
POSTやGetでセッションIDを渡していく方法はできないのでしょうか？
0406nobodyさん04/08/28 17:41ID:???
>>405
http://perldoc.jp/docs/modules/CGI-Session-3.11/Tutorial.pod
0407nobodyさん04/08/30 17:28ID:???
>>405
CGI::Session のマニュアルも見ねぇのかよ。氏ね。
0408nobodyさん04/10/11 17:29:51ID://6u00DL
CGI::SessionはPHPのセッションと同等のことができるんですね。
素晴らしい。
0409nobodyさん04/10/11 18:43:46ID:???
DBIとかも保持できるの？
コネクション切れちゃわない？
0410nobodyさん04/10/11 20:45:35ID:???
DBコネクションを保持するのはセッションとは全然別の話だから
Apache::DBI で対応する
0411nobodyさん04/10/11 23:48:16ID:???
Class::DBIつかったら、Apache::DBI使わなくても
かってに保持される？
0412nobodyさん04/10/12 00:14:09ID:???
Class::DBI が使っているのは Ima::DBI
これはコネクションを保持するんじゃなくてクエリ結果をキャッシュしておくやつ
041341104/10/12 01:33:21ID:???
>>412
へぇー。知らなかった。
メモリ食いそうだな。。
0414nobodyさん04/10/12 04:52:53ID:???
Apache::DBIはmod_perlが必要なのかOTL
0415nobodyさん04/10/12 10:37:05ID:???
まあ普通に考えてプロセスが終了すればコネクションも切れる。
CGIはリクエスト毎にプロセスが終了するので、誰かが生き続けないといけない。
PHPの場合は mod_php が apache 内部で生き続ける。
同じことを perl でやろうとするなら、当然 mod_perl という話になる。
0416nobodyさん04/10/12 12:13:31ID:???
>>415
FastCGIとかでもいいんでない?
0417nobodyさん04/10/14 10:22:20ID:???
>>412
Ima::DBI - Database connection caching and organization
同一プロセスで、
dbhと、prepareされたSQLステートメントをOO的に使いまわす仕組み。
クエリのキャッシュじゃない。
0418nobodyさん04/10/17 13:11:00ID:cj8+Zu2z
PHPのSQLiteみたいにテキストファイルに対してSQLで
データのやりとりをするモジュールってできないかな。
速度的にも十分実用的なやつ。
DBD::CSVなどはちょっと実用的じゃないですしね。
0419nobodyさん04/10/17 13:37:58ID:???
PerlでSQLiteを使えば？
それとも、PHPのSQLiteって別物？
0420nobodyさん04/10/17 14:28:43ID:???
>>419
全く同じでつ
0421nobodyさん04/10/17 16:05:10ID:???
>>418
使ったこと無いんだけどDBD::CSVとかDBD::Spriteって実用的じゃないの？
速度はそりゃ劣るだろうがそこそこいけるみたいだったが
DBD::SQLite入れるのが一番はやいと思うけどね
0422nobodyさん04/10/18 21:21:06ID:???
DBD::SQLiteっつーのがあるんだ？
知らなかったよ。
0423nobodyさん04/10/19 00:14:31ID:???
cpanで検索くらいしろよ
0424nobodyさん04/10/19 01:34:32ID:???
cpanってなんて読むの？
くぱん？しーぱん？しーぴーあん？こぱん？
0425nobodyさん04/10/19 03:57:01ID:???
>>424
きーぱんないとれい
0426nobodyさん04/10/19 10:49:16ID:sbgcDJ+7
１．http://aaa.a.a/a.cgi

２．http://bbb.b.b/b/cgi

１のプログラム上から引数を渡して２のプログラムを動作させて
結果を1のプログラムに返すようなことって可能でしょうか？

２のサーバーのローカルにあるデータベースからデータを取得して
1のサーバーのローカルにあるデータベースにデータを保存したいと
おもっております。 言語はperl使用です。

まったくモジュールのことがわからないのですが
ＬＷＰモジュールとHTTP::Request::Commonモジュールの
組み合わせで作成可能でしょうか？
0427nobodyさん04/10/19 11:45:46ID:???
まあそういうことだ。

やりたいことにもよるが、
たぶん君の場合は、LWPの中に入っている LWP::Simple で用が足りると思う。
0428nobodyさん04/10/19 19:36:06ID:???
つーか、玄人ならNet::HTTPを使うね。
0429nobodyさん04/10/20 10:07:09ID:???
POEでもいいぞ
0430nobodyさん04/10/20 17:20:13ID:Z3mYsmEN
>>426

LWPを使用してデータを取得できるようにはなりました。
ただ、呼び出しもとのＣＧＩからＰＯＳＴを使用して
データを送りLWP::UserAgentをつかってるので
ＣＧＩから呼び出したＣＧＩの実行結果に
HTTP/1.1 200 OK Connection: close Date:・・・
と引っ付いてきます。
ＣＧＩから出力したデータのみを受け取る方法は
ないでしょうか？
送信結果に必ず専用の文字列を付けてsplitで
分割してやればとれるのですが・・・。
0431nobodyさん04/10/20 20:24:28ID:???
HTTP::Response (HTTP::Message) の content メソッドを使え
0432nobodyさん04/10/20 22:56:16ID:???
PerlerならNetモジュールシリーズということで
Net::HTTPを使おう！
0433nobodyさん04/10/22 20:38:20ID:W90PZT9w
LWP::Parallel::UserAgentの使いかたの日本語サイトってありますか?
LWP::UserAgentから移行したいのですが使いかたがわかりません。
WEBからHTMLを引っこ抜くだけでいいので、教えて下さい。。。
0434nobodyさん04/10/23 23:04:20ID:???
ヘッダは一番初めの\r\n\r\nまでだからそこまで
スキップするなり削るなりすればよろし。
HTTP/1.\dを送らない場合もヘッダ送ってこないね。
0435nobodyさん04/10/23 23:31:37ID:???
むしろLWP::Simple使えば楽そうだけど
0436nobodyさん04/10/23 23:51:23ID:???
>>433
君もよくこんなあやしいモジュールを見つけてきたな。
man を読んでも使い方がわからん(笑)。
まあ冗談抜きで作者に直接聞くのが良さそうに思える。

>>435
GET でなく POST が必須のケースだと LWP::Simple では厄介なのかもしれん。
0437nobodyさん04/10/26 17:52:20ID:1e7srzTI
無限ループに陥ったかどうか監視するようなのありませんか？
0438nobodyさん04/10/26 17:56:52ID:???
Perlの外からやった方が速い。
指定時間CPU私有したらKillとか
0439nobodyさん04/10/26 17:58:22ID:1e7srzTI
落としたらやばいレンタルサーバーで使いたいんです
0440nobodyさん04/10/26 18:14:05ID:???
自分のマシンで動作確認してから使えよ
0441nobodyさん04/10/26 18:17:07ID:???
CGI:Carpは使っているよな？
0442nobodyさん04/10/26 18:54:37ID:???
広島？
0443nobodyさん04/10/26 20:28:08ID:MHz0RVYO
>>435,436
お返事ありがとうございます。

速度的な問題でNEWSサイトの記事を並列アクセスでGETしたいんですよ。
今度はLWP::Para::UserAgentっていうのを見つけたんですが
またわかりませんw
LWP::UserAgentを参考にしろとあったのですが、わかりませんw
0444nobodyさん04/10/26 20:28:48ID:MHz0RVYO
sub getLinkDocument()
{
$SIG{ALRM} = sub {die "timeout"};
my $url =$_[0];
$| = 1;

my $link_agent = LWP::UserAgent->new();
$link_agent->agent("robovie/v0.99 ooie");
my $request = HTTP::Request->new(GET => $url);

my $link_content="";

eval{
alarm(10);
my $response = $link_agent->request($request);
if($response->is_error()){
printf " %s\n" , $response->status_line;
}
else{
$link_content = $response->content();
}
alarm(0);
};
#print $link_content;
return jcode($link_content)->euc;
}
書き換えお願いします。。。
0445nobodyさん04/10/30 16:39:05ID:N1vJ8kvj
444です。

なんだかんだで、ソケットを分割してパラレルアクセスできる関数を
作ることができました!
板汚しすみません。
0446nobodyさん04/11/17 00:47:02ID:eDG30weT
モジュールが使いこなせたらと思っているのですが、
どのモジュールがどんな使い方ができるのか、を全体的に知る方法はないでしょうか。
何かをするときにわざわざ調べるんじゃなくて、知っておきたいのですが。
0447nobodyさん04/11/17 03:21:21ID:???
>>446
一覧見ればなんとなくわかるだろ
0448nobodyさん04/11/17 20:22:00ID:???
Unicode::JapaneseとJcodeってどっちがいいんだろ。。
0449nobodyさん04/11/18 01:21:04ID:???
JEncode
0450nobodyさん04/11/19 00:20:32ID:NL+qMdTZ
Imagemagickの質問です。

以下、最小構成のサンプルコードです。

■問題までの過程
１．FTPできれいな画像をあげた。
２．$i->Readした。
３．何もしないで同じ場所に$i->Writeした。
４．画像のパーミッションは６６６！

■問題
画像の終わりのほうがグレーになる。

■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■
■■■■■■■■■■■■■■■■
■■■■■■■■■■■■□□□□

↑みたいな感じ。

#!/usr/bin/perl

use strict;
use Image::Magick;

my $i = Image::Magick->new;
$i->Read("/home/www/hoge/html/$mode.jpg");
$i->Write("jpeg:/home/www/hoge/html/$mode.jpg");

なんでぇ？偉い人教えてください。バージョンは最新。OSは赤帽。
0451nobodyさん04/11/19 06:07:19ID:???
>>448
俺はJcode使ってるけど
UTF8ではおかしいらしいから
UTF8使うときはEncodeかな
0452nobodyさん04/11/19 20:09:42ID:???
>>450
ImageMagicのconvertを使って変換しても同じ結果になるの？
0453nobodyさん04/12/03 15:52:45ID:???
ImageMagick(PerlMagick)で縮小したGIF動画にかなりノイズが入ります。
GIF動画の場合に特別な処理ってありますか？
$width = 120;
Scale(geometry=>$width);
という具合に縮小してます。
0454nobodyさん04/12/04 00:14:44ID:???
>>453
ドキュメント読めﾊﾞｶ
geometryの指定の仕方が待ちガッ取る
0455nobodyさん04/12/07 01:55:48ID:???
あ、>>453の表記を間違えてました。
90x120とかを指定してます。
0456nobodyさん04/12/07 21:21:20ID:???
ImageMagickでgifアニメは圧縮するとノイズ出るよ。
出ない場合もあるかもしれんが。
0457nobodyさん04/12/17 12:42:18ID:???
Perl5.8を入れたんだがDB_Fileって使えるよね？
全くPPMが通らないのは何でだろう。。。。
0458nobodyさん04/12/17 12:54:33ID:PMBOtGAD
あげます
0459nobodyさん04/12/17 18:05:00ID:???
ppm searchしたら出てきたよ＞DB_File
ppmの設定がおかしいんでは？
0460nobodyさん04/12/17 22:11:49ID:LkZWkPCw
>>459
確かにサーチすると見当たるのですが、、、、
インストールに失敗してしまいます。
どうも　バージョンに適応しないと判断された　という趣旨のエラーメッセージがでるのですが
Activestateで見てみるとPassにはなっているのですよね。
原因がさっぱり分かりません。
モジュールを直に落としてインストールする方法でも同じエラーでダメでした、、、

環境はActivePerl 5.8.4、Windows2000SP4です。
0461nobodyさん04/12/17 23:11:36ID:???
問題なくインストールできるよ。
レポジトリが5.6.x用になってたりしない？
旧版からバージョン上げたりするとありがちな気がする。

ppm> rep desc

で何が出る？

■ このスレッドは過去ログ倉庫に格納されています