トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS   ログイン


SPAM がひどいのでしばらく凍結します。

何か書きたいことがあればどうぞ。

By TSNETWiki

use LWP::UserAgent;

Ferry (2005-11-14 (月) 04:23:55)

皆さん こんにちは。
困ってますので是非お力を…
現在下記のタグを使用して「URL」をチェックしてます。
つまり$urlにアクセスして、
結果は生きてる(存在してる)「URL」でしたら O.K
と死んでる「URL」の場合は NG という文字を表示させてます。
ここまで上手く行くんですが…
さらにこれにこの機能を追加したいのです。

■生きてる「URL」の場合はそのページの中を検索して
もし $SWord は存在しているなら O.K を表示して、
それ以外は NG を表示させたいのです。
宜しくお願い致します。

use LWP::UserAgent;

$url = $in{'http://www.google.co.jp/'};
$req = HTTP::Request->new( GET => $url );
$res = $ua->request( $req );
&head_msg;
if( $res->is_success ) {
    $parser = HTML::LinkExtor->new( \&callback, $url );
    $parser->parse( $res->content );
}
else {
    print "Error: " . $res->status_line . "\n";
}

perlモジュールのインストール

ロロ (2004-06-23 (水) 17:22:36)

 はじめまして。

 perlモジュールのオフラインインストールがどうしてもできません。

 試しに、MIME-Liteモジュールをインストールを行ってみたのですが、だめでした。

  ① http://www.activestate.com/packages/zipsから、MIME-Lite.zipを
    ダウンロード

  ② MIME-Lite.zipを解凍し、解凍したファイルをc:\tmp配下に移動

  ③ コマンドプロンプトで、ppm install /location C:\tmp\MIME-Lite MIME-Lite.ppdを実行

  Searching for '/location' returned no results. Try a broader search first.と表示される

  ④ コマンドプロンプトで、ppm install /location C:\tmp\MIME-Lite MIME-Liteとして実行も試す

    同じく
    Searching for '/location' returned no results. Try a broader search first.と表示される


 参考までに、ディレクトリ構成はこのようになっています。
C:\tmp\MIME-Lite
│ MIME-Lite.ppd
│ README

└─x86
MIME-Lite.tar.gz

 すいませんが、どうかお知恵をお貸しください!


 (補足)
  ・ OS WIN2k
  ・ Active Perl v5.8.3


dateコマンドについて

kiyo (2004-06-14 (月) 15:08:41)

dateコマンドでは、最大何日前までの日付計算が行えるのでしょうか?
教えてください。


zipのパスワード

初心者 (2004-06-10 (木) 23:28:39)

unix上でzip圧縮した際にパスワードを設定したいのですが、
どなたかご存知な方いらっしゃいいますか?
windowsだと基本的にzip圧縮の際にパスワードを設定できるようになっているのですが・・・。
一応manコマンドで調べると-eという暗号化のオプションが存在するようなのですが出来ません。
環境はsolarisです。よろしくお願いします。


HTTP応答を細切れに処理したい(パイプライン処理っていうの?)

LWPを... (2004-03-12 (金) 11:48:47)

LWP::UserAgent で時間のかかる処理をおこなうURL
にアクセスした場合,すべてのデータを取得する前に
細切れなデータの表示を行いたいと思っています.
以下の,callback ルーチンにどのような記述をしたら
いいものか,ちょっとわからないで困っています.
どなたか,御教授ください.お願いします.
現在は300秒(Apache のタイムアウト?)で
途中で終わっちゃいます.

my $req = HTTP::Request -> new(GET => $url);
# ここの callback の処理がわからん
my $res = $ua -> request($req,\&callback,10);
sub callback {
    my($data, $response, $protocol) = @_;
    # ここにどんな処理を書けばいいんでしょうか?
}

web取得の質問です

JT (2004-01-02 (金) 17:36:46)

use LWP::Simple;$doc=get('http://www.yahoo.co.jp');とやっても何も表示されないのはなぜでしょう?LWPのモジュールはちゃんとインストールできているはずなんですが…誰か教えてください。お願いします!!


DBIのインストールについて

おやじ (2003-11-20 (木) 10:47:45)

私は、MySQLの勉強をしようとActivePerl5.81807をインストールしppmを使ってDBIをインストールしようとしましが職場のProxyの影響のためかset http_proxy=×××の設定をしてもうまくいきません。ネットを利用したppm以外のインストールの仕方を教えてください。


Bookreview コーナーはどう ?

たむら (2003-05-28 (水) 02:08:40)

ここに来る人は何冊かスクリプティング関係の書籍は持っていると思うので、その持ってる本の紹介というか批評を短めに書いていくってのはどうでしょう?
ただし、amazon の書評と同じことしても無意味なので方向性は必要かと。
例えば、1)最初にお勧めする、しないを明記 2)こんな人にいいかも 3)Wikiなのでキーワードを入れれば勝手にリンクが出来るとか。
ちょっと詰めませんか ?
後 PukiWikiには Amazone書影プラグインみたいのってないんですかね ? tDiaryの
amazon.rb 読めばすぐだと思うんだけど。


Perl質問箱とか

閑舎 (2003-05-28 (水) 00:55:52)

 先手を打って、Perl質問箱とか、Ruby質問箱とか、作っておこうかなぁ。


TSNET と TSNETWiki

閑舎 (2003-05-27 (火) 16:32:41)

 TSNET では、スクリプト関係のニュースや参照場所を 参加者が適宜流してくだされば皆が あちこちアンテナをはりまくらなくてもいいのになぁ、と思っています。 昔の Nifty の FGALTS はそんな場所だったし……。 私自身は最近、場所を提供するだけでへばっているというのもあります。

 TSNETWiki では、Web ページしか使わない人や、 スクリプトの初心者でちょっとした質問があるような人に、 格好の情報提供、情報交換の場所となればいいんだが、と思っています。

 ここがメッカになればいいとは思っていませんが、 折角苦労しているので、使える、うれしい場所にはなってほしいです。 まあ、あまり駆け込み寺にはなってほしくない気分もありますが ……最初からそんなことを言っていたら人も集まらないだろうし。


「壁」を「掲示板」に直しました

閑舎 (2003-05-21 (水) 11:05:58)

「壁」の名称はいいことが 1 つもないので「掲示板」に直しました。


ダイジェスト機能

極悪 (2003-05-20 (火) 01:02:20)

YukiWiki でも似たような概念で WildWikiName というのを書いてるの
ですが(これは 質問箱/* という WikiName を作ると・・・という話)、
質問箱/ で始まるページのダイジェストって自動で作れないのでしょうか。
例えば #INCLUDE <質問箱/*> と書いてあると、そこに各ページの一行目
が挿入されるとか。一つ一つページを開いて見ないと何が書いてあるかわ
からないのはつまらないな、っと。


「壁」ってのは

極悪 (2003-05-20 (火) 00:56:45)

「壁」というのは @nifty の会議室同士を仕切るためだけに作られた
ように見えるダミーの会議室のことで、一見機能してないように見え
るが実はフリートークの場になっているというやつですね。


掲示板をいちおう設定してみました。

閑舎 (2003-05-19 (月) 16:19:40)

どこまではページ内で、どこからが、質問箱で、どこからが掲示板か、自分でもよくわかりません。