![[PukiWiki]](skin/modernskin/logo.png "[PukiWiki]"){kind=logo}
#author("2022-07-22T10:10:35+09:00","default:raku","raku") *何か書きたいことがあればどうぞ。 [#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:47}; - スクリプトをWikiの書式に合わせて整理させていただきました。 -- [[Jscripter]] &new{2008-02-24 (日) 10:26:02}; **perlモジュールのインストール [#pa15e071] >[[ロロ]] (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~ ~ すいませんが、どうかお知恵をお貸しください！~ ~ ~ （補足）~ ・ ＯＳ ＷＩＮ２ｋ~ ・ Active Perl v5.8.3~ // -ppm install C:\tmp\MIME-Lite MIME-Lite.ppd -- &new{2004-12-15 (水) 21:30:17}; - ppm install C:\tmp\MIME-Lite\MIME-Lite.ppd では? -- [[Jscripter]] &new{2008-02-24 (日) 10:28:04}; #comment **dateコマンドについて [#e9ecb2d0] >[[kiyo]] (2004-06-14 (月) 15:08:41)~ ~ dateコマンドでは、最大何日前までの日付計算が行えるのでしょうか？~ 教えてください。~ // -「日付けの計算に使う date コマンド」というのが何なのかわりません。 -- [[極悪]] &new{2004-06-25 (金) 21:57:09}; #comment **ｚｉｐのパスワード [#de4b2434] >[[初心者]] (2004-06-10 (木) 23:28:39)~ ~ unix上でzip圧縮した際にパスワードを設定したいのですが、~ どなたかご存知な方いらっしゃいいますか？~ windowsだと基本的にzip圧縮の際にパスワードを設定できるようになっているのですが・・・。~ 一応manコマンドで調べると-eという暗号化のオプションが存在するようなのですが出来ません。~ 環境はsolarisです。よろしくお願いします。~ // -zcrypt付きでコンパイルしていないとかではないでしょうか。 -- [[Zazel]] &new{2004-06-11 (金) 11:32:51}; #comment **HTTP応答を細切れに処理したい(パイプライン処理っていうの？） [#x495b048] >[[LWPを．．．]] (2004-03-12 (金) 11:48:47)~ ~ LWP::UserAgent で時間のかかる処理をおこなうURL~ にアクセスした場合，すべてのデータを取得する前に~ 細切れなデータの表示を行いたいと思っています．~ 以下の，callback ルーチンにどのような記述をしたら~ いいものか，ちょっとわからないで困っています．~ どなたか，御教授ください．お願いします．~ 現在は３００秒(Apache のタイムアウト？）で~ 途中で終わっちゃいます．~ my $req = HTTP::Request -> new(GET => $url); # ここの callback の処理がわからん my $res = $ua -> request($req,\&callback,10); sub callback { my($data, $response, $protocol) = @_; # ここにどんな処理を書けばいいんでしょうか？ } // -LWP は使ってないのではずしてるかもしれません。Perl で細切れ処理というと $| = 1; として print したらすぐフラッシュするということを思いつきますが、そういう話ではないですか？ -- [[閑舎]] &new{2004-03-16 (火) 16:52:17}; -情報収集に着たのですが、最近試したので。 -- &new{2004-04-26 (月) 04:14:47}; -$response->{_content} .= $data; これでcallbackを使わないものと同じになります。後は調査してください -- &new{2004-04-26 (月) 04:15:19}; - スクリプト部分をWikiの書式に合わせて整理させていただきました。 -- [[Jscripter]] &new{2008-02-24 (日) 10:33:16}; #comment **web取得の質問です [#c78dd439] >[[JT]] (2004-01-02 (金) 17:36:46)~ ~ use LWP::Simple;$doc=get('http://www.yahoo.co.jp');とやっても何も表示されないのはなぜでしょう？LWPのモジュールはちゃんとインストールできているはずなんですが…誰か教えてください。お願いします!!~ // -print $doc;では・・・ -- [[藤岡和夫]] &new{2004-01-07 (水) 20:10:33}; #comment **DBIのインストールについて [#xc9c07bd] >[[おやじ]] (2003-11-20 (木) 10:47:45)~ ~ 私は、MySQLの勉強をしようとActivePerl5.81807をインストールしppmを使ってDBIをインストールしようとしましが職場のProxyの影響のためかset http_proxy=×××の設定をしてもうまくいきません。ネットを利用したppm以外のインストールの仕方を教えてください。~ // -http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/ActivePerl-faq2.html -- [[藤岡和夫]] SIZE(10){2003-12-28 (日) 09:24:31} -また、ミスってしまった。結局パッケージをダウンロードして、ローカルでインストールすればよいと思います。 -- [[藤岡和夫]] SIZE(10){2003-12-28 (日) 09:26:05} #comment **Bookreview コーナーはどう ? [#w27e7a59] >[[たむら]] (2003-05-28 (水) 02:08:40)~ ~ ここに来る人は何冊かスクリプティング関係の書籍は持っていると思うので、その持ってる本の紹介というか批評を短めに書いていくってのはどうでしょう？~ ただし、amazon の書評と同じことしても無意味なので方向性は必要かと。~ 例えば、1)最初にお勧めする、しないを明記 2)こんな人にいいかも 3)Wikiなのでキーワードを入れれば勝手にリンクが出来るとか。~ ちょっと詰めませんか ?~ 後 PukiWikiには Amazone書影プラグインみたいのってないんですかね ? tDiaryの~ amazon.rb 読めばすぐだと思うんだけど。~ // -なるほど、面白そうですね。amazon.rb も見ました、結構簡単そう(私は忙しいのでねこ丸様にお願いしてみようかな)。書評は質問箱と同じようなフォーマットで自動生成っていうのでもいい気がします。試しに 1 つやってみるという手も。 -- [[閑舎]] SIZE(10){2003-05-28 (水) 02:29:04} -手元の Perl本とか Ruby関係なら書けます。内容にたいするテンプレとレビューのテンプレとあった方がいいかな。 -- [[たむら]] SIZE(10){2003-05-28 (水) 02:33:22} -一応私の日記に書いた [[isbn plugin>http://rakunet.org/pukiwiki/?%E6%97%A5%E8%A8%98%2F2003-05-28]] で写影を get できます。これ使って、たむらさんのページにでも、1 つ簡単なサンプル書いてもらえますか？ -- [[閑舎]] SIZE(10){2003-05-28 (水) 10:53:06} -たむらさん、ありがとう。BookReview を表紙とし、その子ページに各書評がくるよう、また定型ページを自動生成できるよう、ハックしてみました。 -- [[閑舎]] SIZE(10){2003-05-30 (金) 13:43:18} -BookReview を一応 amazon の AID 対応とし、ついでに DVD など含め、全商品の写影を出せるように変更しました……って BookReview じゃなくなるので使わないでしょうが、本当にそういう写影が出るか確かめてすぐ削除してみても可です。 -- [[閑舎]] SIZE(10){2003-06-01 (日) 06:20:47} #comment **Perl質問箱とか [#z32def3b] >[[閑舎]] (2003-05-28 (水) 00:55:52)~ ~ 先手を打って、Perl質問箱とか、Ruby質問箱とか、作っておこうかなぁ。~ // -それを始めると、大変になりそうな気が。集客力はあると思うけど。 -- [[たむら]] SIZE(10){2003-05-28 (水) 02:09:01} -そうですね。私も昔のように時間がないし(^^;。 -- [[閑舎]] SIZE(10){2003-05-28 (水) 02:31:02} -でも Perl に関するページは "Perl/" 、雑談には "Free/" というプリフィクスをつける、というようなルールがあると（でもめんどくせー）、#ls2(Perl/,title) とかできて便利かも。 -- [[極悪]] SIZE(10){2003-06-02 (月) 22:09:37} -↑何だか思いつきで全然関係ないことを書いてしまった。"Perl質問箱" からの連想で,す。 -- [[極悪]] SIZE(10){2003-06-02 (月) 22:10:57} #comment **TSNET と TSNETWiki [#mcd377c6] >[[閑舎]] (2003-05-27 (火) 16:32:41)~ ~ TSNET では、スクリプト関係のニュースや参照場所を 参加者が適宜流してくだされば皆が あちこちアンテナをはりまくらなくてもいいのになぁ、と思っています。 昔の Nifty の FGALTS はそんな場所だったし……。 私自身は最近、場所を提供するだけでへばっているというのもあります。~ ~ TSNETWiki では、Web ページしか使わない人や、 スクリプトの初心者でちょっとした質問があるような人に、 格好の情報提供、情報交換の場所となればいいんだが、と思っています。~ ~ ここがメッカになればいいとは思っていませんが、 折角苦労しているので、使える、うれしい場所にはなってほしいです。 まあ、あまり駆け込み寺にはなってほしくない気分もありますが ……最初からそんなことを言っていたら人も集まらないだろうし。~ // #comment **「壁」を「掲示板」に直しました [#wfbe1ae4] >[[閑舎]] (2003-05-21 (水) 11:05:58)~ ~ 「壁」の名称はいいことが 1 つもないので「掲示板」に直しました。~ // -内部コードを EUC にしたままだと、単語検索の結果がおかしくなるバグがあるため、UTF-8 に変更しました。 -- [[閑舎]] SIZE(10){2003-05-24 (土) 21:30:02} #comment **ダイジェスト機能 [#j910469c] >[[極悪]] (2003-05-20 (火) 01:02:20)~ ~ YukiWiki でも似たような概念で WildWikiName というのを書いてるの~ ですが（これは 質問箱/* という WikiName を作ると･･･という話）、~ 質問箱/ で始まるページのダイジェストって自動で作れないのでしょうか。~ 例えば #INCLUDE <質問箱/*> と書いてあると、そこに各ページの一行目~ が挿入されるとか。一つ一つページを開いて見ないと何が書いてあるかわ~ からないのはつまらないな、っと。~ // -こんなかんじです ⇒ [[極悪:過去の日記]] -- [[極悪]] SIZE(10){2003-05-20 (火) 01:03:43} -なるほど。各ページ数十行出してあるようですね。YukiWiki の tracker プラグインだと [[質問箱]]のページに一覧があって、あとは飛んでね、という感じですね。コンテンツ重視というか、PHP 勉強するのが面倒というかで、あまりこったことはしたくない気分です。 -- [[閑舎]] SIZE(10){2003-05-20 (火) 09:03:12} -YukiWiki みたいに RecentChanges やページ一覧の横に各ページの一行目が表示されるだけでも便利だと思う。ページ数に比例して確実に遅くなるだろうから、キャッシュしてどうのこうのといった話になって大変なのかな。気が向いたら本家開発チームに書いてみよっと。 -- [[極悪]] SIZE(10){2003-05-20 (火) 12:35:13} -あれはもともと1行目に意味を持たせている YukiWiki ならではだと思います。PukiWiki は1行目に何の意味もないですし、そういう運用がすでにフツーなのでちょっと難しいですかねぇ。やるとしたらプラグインを除けたうえで、ってロジックも入るので反応は格段に鈍くなると思います。（プラグインをよく使うようになると1行目はまずプラグイン、状態にになっちゃうんですよね。） -- [[ねこ丸]] SIZE(10){2003-05-20 (火) 15:25:26} -あ。こんなんでどうでしょう？ -- [[ねこ丸]] SIZE(10){2003-05-20 (火) 15:29:54} #ls2(質問箱,title) -こんなコマンドがあったのか。でも、実際使うとなると、表にくらべ、コンパクトでないなぁ。表の体裁は ::config/plugin/tracker/default でいじれるし……。 -- [[閑舎]] SIZE(10){2003-05-20 (火) 16:10:38} -目的がちゃいますからね。ls2 と tracker じゃ。あとは極悪さんのイメージ次第ですかね。まぁ本来的なことを言っちゃうと中身の分からないページ名はどうかな、ってのもありますが。 -- [[ねこ丸]] SIZE(10){2003-05-20 (火) 16:30:16} #comment_nospam **「壁」ってのは [#zc22f112] >[[極悪]] (2003-05-20 (火) 00:56:45)~ ~ 「壁」というのは @nifty の会議室同士を仕切るためだけに作られた~ ように見えるダミーの会議室のことで、一見機能してないように見え~ るが実はフリートークの場になっているというやつですね。~ // -そうです。PukiPlamo では UNIX の wall コマンドって意味ももじってるらしい。 -- [[閑舎]] SIZE(10){2003-05-20 (火) 08:55:53} -現状の TSNET ではどっちの意味でも参加者に分かりにくいと思いますが(^^; まーでも nifty 時代のものを何か残したいという気持ちもあります。 -- [[ねこ丸]] SIZE(10){2003-05-20 (火) 15:22:13} #comment_nospam **掲示板をいちおう設定してみました。 [#sd610057] >[[閑舎]] (2003-05-19 (月) 16:19:40)~ ~ どこまではページ内で、どこからが、質問箱で、どこからが掲示板か、自分でもよくわかりません。~ // #comment_nospam