TSNETWiki
テキストとスクリプトの世界
開始行:
*何か書きたいことがあればどうぞ。 [#a985a261]
RIGHT:By [[TSNETWiki]]
**use LWP::UserAgent; [#w56aece4]
>[[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";
}
//
-解決出来ました -- [[Ferry]] &new{2005-11-15 (火) 20:36:4...
- スクリプトをWikiの書式に合わせて整理させていただきまし...
**perlモジュールのインストール [#pa15e071]
>[[ロロ]] (2004-06-23 (水) 17:22:36)~
~
はじめまして。~
~
perlモジュールのオフラインインストールがどうしてもでき...
~
試しに、MIME-Liteモジュールをインストールを行ってみたの...
~
① http://www.activestate.com/packages/zipsから、MIME...
ダウンロード~
~
② MIME-Lite.zipを解凍し、解凍したファイルをc:\tmp配...
~
③ コマンドプロンプトで、ppm install /location C:\tmp...
~
Searching for '/location' returned no results. Try a ...
~
④ コマンドプロンプトで、ppm install /location C:\tmp...
~
同じく~
Searching for '/location' returned no results. Tr...
~
~
参考までに、ディレクトリ構成はこのようになっています。~
C:\tmp\MIME-Lite~
│ MIME-Lite.ppd~
│ README~
│~
└─x86~
MIME-Lite.tar.gz~
~
すいませんが、どうかお知恵をお貸しください!~
~
~
(補足)~
・ OS WIN2k~
・ Active Perl v5.8.3~
//
-ppm install C:\tmp\MIME-Lite MIME-Lite.ppd -- &new{...
- ppm install C:\tmp\MIME-Lite\MIME-Lite.ppd では? -- [[J...
**dateコマンドについて [#e9ecb2d0]
>[[kiyo]] (2004-06-14 (月) 15:08:41)~
~
dateコマンドでは、最大何日前までの日付計算が行えるのでし...
教えてください。~
//
-「日付けの計算に使う date コマンド」というのが何なのかわ...
**zipのパスワード [#de4b2434]
>[[初心者]] (2004-06-10 (木) 23:28:39)~
~
unix上でzip圧縮した際にパスワードを設定したいのですが、~
どなたかご存知な方いらっしゃいいますか?~
windowsだと基本的にzip圧縮の際にパスワードを設定できるよ...
一応manコマンドで調べると-eという暗号化のオプションが存在...
環境はsolarisです。よろしくお願いします。~
//
-zcrypt付きでコンパイルしていないとかではないでしょうか。...
**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) = @_;
# ここにどんな処理を書けばいいんでしょうか?
}
//
-LWP は使ってないのではずしてるかもしれません。Perl で細...
-情報収集に着たのですが、最近試したので。 -- &new{2004-0...
-$response->{_content} .= $data; これでcallbackを使わない...
- スクリプト部分をWikiの書式に合わせて整理させていただき...
**web取得の質問です [#c78dd439]
>[[JT]] (2004-01-02 (金) 17:36:46)~
~
use LWP::Simple;$doc=get('http://www.yahoo.co.jp');とやっ...
//
-print $doc;では・・・ -- [[藤岡和夫]] &new{2004-01-07 (...
**DBIのインストールについて [#xc9c07bd]
>[[おやじ]] (2003-11-20 (木) 10:47:45)~
~
私は、MySQLの勉強をしようとActivePerl5.81807をインストー...
//
-http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/Act...
-また、ミスってしまった。結局パッケージをダウンロードして...
**Bookreview コーナーはどう ? [#w27e7a59]
>[[たむら]] (2003-05-28 (水) 02:08:40)~
~
ここに来る人は何冊かスクリプティング関係の書籍は持ってい...
ただし、amazon の書評と同じことしても無意味なので方向性は...
例えば、1)最初にお勧めする、しないを明記 2)こんな人にいい...
ちょっと詰めませんか ?~
後 PukiWikiには Amazone書影プラグインみたいのってないんで...
amazon.rb 読めばすぐだと思うんだけど。~
//
-なるほど、面白そうですね。amazon.rb も見ました、結構簡単...
-手元の Perl本とか Ruby関係なら書けます。内容にたいするテ...
-一応私の日記に書いた [[isbn plugin>http://rakunet.org/pu...
-たむらさん、ありがとう。BookReview を表紙とし、その子ペ...
-BookReview を一応 amazon の AID 対応とし、ついでに DVD ...
**Perl質問箱とか [#z32def3b]
>[[閑舎]] (2003-05-28 (水) 00:55:52)~
~
先手を打って、Perl質問箱とか、Ruby質問箱とか、作ってお...
//
-それを始めると、大変になりそうな気が。集客力はあると思う...
-そうですね。私も昔のように時間がないし(^^;。 -- [[閑舎]]...
-でも Perl に関するページは "Perl/" 、雑談には "Free/" と...
-↑何だか思いつきで全然関係ないことを書いてしまった。"Perl...
**TSNET と TSNETWiki [#mcd377c6]
>[[閑舎]] (2003-05-27 (火) 16:32:41)~
~
TSNET では、スクリプト関係のニュースや参照場所を
参加者が適宜流してくだされば皆が
あちこちアンテナをはりまくらなくてもいいのになぁ、と思っ...
昔の Nifty の FGALTS はそんな場所だったし……。
私自身は最近、場所を提供するだけでへばっているというのも...
~
TSNETWiki では、Web ページしか使わない人や、
スクリプトの初心者でちょっとした質問があるような人に、
格好の情報提供、情報交換の場所となればいいんだが、と思っ...
~
ここがメッカになればいいとは思っていませんが、
折角苦労しているので、使える、うれしい場所にはなってほし...
まあ、あまり駆け込み寺にはなってほしくない気分もありますが
……最初からそんなことを言っていたら人も集まらないだろうし。~
//
**「壁」を「掲示板」に直しました [#wfbe1ae4]
>[[閑舎]] (2003-05-21 (水) 11:05:58)~
~
「壁」の名称はいいことが 1 つもないので「掲示板」に直しま...
//
-内部コードを EUC にしたままだと、単語検索の結果がおかし...
**ダイジェスト機能 [#j910469c]
>[[極悪]] (2003-05-20 (火) 01:02:20)~
~
YukiWiki でも似たような概念で WildWikiName というのを書い...
ですが(これは 質問箱/* という WikiName を作ると・・・という...
質問箱/ で始まるページのダイジェストって自動で作れないの...
例えば #INCLUDE <質問箱/*> と書いてあると、そこに各ページ...
が挿入されるとか。一つ一つページを開いて見ないと何が書い...
からないのはつまらないな、っと。~
//
-こんなかんじです ⇒ [[極悪:過去の日記]] -- [[極悪]] SIZE(...
-なるほど。各ページ数十行出してあるようですね。YukiWiki ...
-YukiWiki みたいに RecentChanges やページ一覧の横に各ペー...
-あれはもともと1行目に意味を持たせている YukiWiki ならで...
-あ。こんなんでどうでしょう? -- [[ねこ丸]] SIZE(10){2003...
#ls2(質問箱,title)
-こんなコマンドがあったのか。でも、実際使うとなると、表に...
-目的がちゃいますからね。ls2 と tracker じゃ。あとは極悪...
**「壁」ってのは [#zc22f112]
>[[極悪]] (2003-05-20 (火) 00:56:45)~
~
「壁」というのは @nifty の会議室同士を仕切るためだけに作...
ように見えるダミーの会議室のことで、一見機能してないよう...
るが実はフリートークの場になっているというやつですね。~
//
-そうです。PukiPlamo では UNIX の wall コマンドって意味も...
-現状の TSNET ではどっちの意味でも参加者に分かりにくいと...
**掲示板をいちおう設定してみました。 [#sd610057]
>[[閑舎]] (2003-05-19 (月) 16:19:40)~
~
どこまではページ内で、どこからが、質問箱で、どこからが掲...
//
終了行:
*何か書きたいことがあればどうぞ。 [#a985a261]
RIGHT:By [[TSNETWiki]]
**use LWP::UserAgent; [#w56aece4]
>[[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";
}
//
-解決出来ました -- [[Ferry]] &new{2005-11-15 (火) 20:36:4...
- スクリプトをWikiの書式に合わせて整理させていただきまし...
**perlモジュールのインストール [#pa15e071]
>[[ロロ]] (2004-06-23 (水) 17:22:36)~
~
はじめまして。~
~
perlモジュールのオフラインインストールがどうしてもでき...
~
試しに、MIME-Liteモジュールをインストールを行ってみたの...
~
① http://www.activestate.com/packages/zipsから、MIME...
ダウンロード~
~
② MIME-Lite.zipを解凍し、解凍したファイルをc:\tmp配...
~
③ コマンドプロンプトで、ppm install /location C:\tmp...
~
Searching for '/location' returned no results. Try a ...
~
④ コマンドプロンプトで、ppm install /location C:\tmp...
~
同じく~
Searching for '/location' returned no results. Tr...
~
~
参考までに、ディレクトリ構成はこのようになっています。~
C:\tmp\MIME-Lite~
│ MIME-Lite.ppd~
│ README~
│~
└─x86~
MIME-Lite.tar.gz~
~
すいませんが、どうかお知恵をお貸しください!~
~
~
(補足)~
・ OS WIN2k~
・ Active Perl v5.8.3~
//
-ppm install C:\tmp\MIME-Lite MIME-Lite.ppd -- &new{...
- ppm install C:\tmp\MIME-Lite\MIME-Lite.ppd では? -- [[J...
**dateコマンドについて [#e9ecb2d0]
>[[kiyo]] (2004-06-14 (月) 15:08:41)~
~
dateコマンドでは、最大何日前までの日付計算が行えるのでし...
教えてください。~
//
-「日付けの計算に使う date コマンド」というのが何なのかわ...
**zipのパスワード [#de4b2434]
>[[初心者]] (2004-06-10 (木) 23:28:39)~
~
unix上でzip圧縮した際にパスワードを設定したいのですが、~
どなたかご存知な方いらっしゃいいますか?~
windowsだと基本的にzip圧縮の際にパスワードを設定できるよ...
一応manコマンドで調べると-eという暗号化のオプションが存在...
環境はsolarisです。よろしくお願いします。~
//
-zcrypt付きでコンパイルしていないとかではないでしょうか。...
**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) = @_;
# ここにどんな処理を書けばいいんでしょうか?
}
//
-LWP は使ってないのではずしてるかもしれません。Perl で細...
-情報収集に着たのですが、最近試したので。 -- &new{2004-0...
-$response->{_content} .= $data; これでcallbackを使わない...
- スクリプト部分をWikiの書式に合わせて整理させていただき...
**web取得の質問です [#c78dd439]
>[[JT]] (2004-01-02 (金) 17:36:46)~
~
use LWP::Simple;$doc=get('http://www.yahoo.co.jp');とやっ...
//
-print $doc;では・・・ -- [[藤岡和夫]] &new{2004-01-07 (...
**DBIのインストールについて [#xc9c07bd]
>[[おやじ]] (2003-11-20 (木) 10:47:45)~
~
私は、MySQLの勉強をしようとActivePerl5.81807をインストー...
//
-http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/Act...
-また、ミスってしまった。結局パッケージをダウンロードして...
**Bookreview コーナーはどう ? [#w27e7a59]
>[[たむら]] (2003-05-28 (水) 02:08:40)~
~
ここに来る人は何冊かスクリプティング関係の書籍は持ってい...
ただし、amazon の書評と同じことしても無意味なので方向性は...
例えば、1)最初にお勧めする、しないを明記 2)こんな人にいい...
ちょっと詰めませんか ?~
後 PukiWikiには Amazone書影プラグインみたいのってないんで...
amazon.rb 読めばすぐだと思うんだけど。~
//
-なるほど、面白そうですね。amazon.rb も見ました、結構簡単...
-手元の Perl本とか Ruby関係なら書けます。内容にたいするテ...
-一応私の日記に書いた [[isbn plugin>http://rakunet.org/pu...
-たむらさん、ありがとう。BookReview を表紙とし、その子ペ...
-BookReview を一応 amazon の AID 対応とし、ついでに DVD ...
**Perl質問箱とか [#z32def3b]
>[[閑舎]] (2003-05-28 (水) 00:55:52)~
~
先手を打って、Perl質問箱とか、Ruby質問箱とか、作ってお...
//
-それを始めると、大変になりそうな気が。集客力はあると思う...
-そうですね。私も昔のように時間がないし(^^;。 -- [[閑舎]]...
-でも Perl に関するページは "Perl/" 、雑談には "Free/" と...
-↑何だか思いつきで全然関係ないことを書いてしまった。"Perl...
**TSNET と TSNETWiki [#mcd377c6]
>[[閑舎]] (2003-05-27 (火) 16:32:41)~
~
TSNET では、スクリプト関係のニュースや参照場所を
参加者が適宜流してくだされば皆が
あちこちアンテナをはりまくらなくてもいいのになぁ、と思っ...
昔の Nifty の FGALTS はそんな場所だったし……。
私自身は最近、場所を提供するだけでへばっているというのも...
~
TSNETWiki では、Web ページしか使わない人や、
スクリプトの初心者でちょっとした質問があるような人に、
格好の情報提供、情報交換の場所となればいいんだが、と思っ...
~
ここがメッカになればいいとは思っていませんが、
折角苦労しているので、使える、うれしい場所にはなってほし...
まあ、あまり駆け込み寺にはなってほしくない気分もありますが
……最初からそんなことを言っていたら人も集まらないだろうし。~
//
**「壁」を「掲示板」に直しました [#wfbe1ae4]
>[[閑舎]] (2003-05-21 (水) 11:05:58)~
~
「壁」の名称はいいことが 1 つもないので「掲示板」に直しま...
//
-内部コードを EUC にしたままだと、単語検索の結果がおかし...
**ダイジェスト機能 [#j910469c]
>[[極悪]] (2003-05-20 (火) 01:02:20)~
~
YukiWiki でも似たような概念で WildWikiName というのを書い...
ですが(これは 質問箱/* という WikiName を作ると・・・という...
質問箱/ で始まるページのダイジェストって自動で作れないの...
例えば #INCLUDE <質問箱/*> と書いてあると、そこに各ページ...
が挿入されるとか。一つ一つページを開いて見ないと何が書い...
からないのはつまらないな、っと。~
//
-こんなかんじです ⇒ [[極悪:過去の日記]] -- [[極悪]] SIZE(...
-なるほど。各ページ数十行出してあるようですね。YukiWiki ...
-YukiWiki みたいに RecentChanges やページ一覧の横に各ペー...
-あれはもともと1行目に意味を持たせている YukiWiki ならで...
-あ。こんなんでどうでしょう? -- [[ねこ丸]] SIZE(10){2003...
#ls2(質問箱,title)
-こんなコマンドがあったのか。でも、実際使うとなると、表に...
-目的がちゃいますからね。ls2 と tracker じゃ。あとは極悪...
**「壁」ってのは [#zc22f112]
>[[極悪]] (2003-05-20 (火) 00:56:45)~
~
「壁」というのは @nifty の会議室同士を仕切るためだけに作...
ように見えるダミーの会議室のことで、一見機能してないよう...
るが実はフリートークの場になっているというやつですね。~
//
-そうです。PukiPlamo では UNIX の wall コマンドって意味も...
-現状の TSNET ではどっちの意味でも参加者に分かりにくいと...
**掲示板をいちおう設定してみました。 [#sd610057]
>[[閑舎]] (2003-05-19 (月) 16:19:40)~
~
どこまではページ内で、どこからが、質問箱で、どこからが掲...
//
ページ名: