トップページ⇒php
981コメント390KB

くだすれPerl（超初心者用）2

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2008/03/03(月) 05:07:32ID:???
このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
01751732008/05/08(木) 20:59:09ID:???
>>174
../　が前方を巻き込んで消えるようにしたいのです
一行では無理でしょうか
0176nobodyさん2008/05/08(木) 21:06:50ID:???
ごめんなさい。
完全に勘違いしてました。

こういうこと？

$str =~ s{[^/]*/(\.\./)+}{}g;
01771732008/05/08(木) 21:22:58ID:???
>>176
すみませんお手数おかけして…
それだと
ABC/DFG/HIJ/../　　　の時も
ABC/DFG/HIJ/../../　　の時も
ABC/DFG/　　になってしまいます

ABC/DFG/HIJ/../../　　の時には
ABC/　　　になるようにしたいのです
0178nobodyさん2008/05/08(木) 21:29:39ID:???
正規表現でどうにかする方向は>>176さんに任せつつ。

>>173
use File::Spec;
print File::Spec->canonpath('ABC/DFG/HIJ/../../');　# ABC

末尾のデリミタが消えたりしますが。
01791762008/05/08(木) 21:40:41ID:???
質問の趣旨がようやくわかった。ファイルパスの操作か。
こんなことしてどうするんだろうとか不思議に思ってた。
なんか寝ぼけてるな。
これを正規表現でどうにかしたのをみてみたい。
01801732008/05/08(木) 22:04:20ID:???
わ、最初からファイルパスと言うべきでした。すみません。
RSS出力のCGIをいじってて、文章中にあるリンクやimgタグがRSSフィードでは
絶対パスでないと働かないので、相対パスになってた時に絶対パスに置き換わるように
したかったのです。

$RSS_BASE_URI = "http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}";
$RSS_BASE_URI2 = &GetDir($RSS_BASE_URI);

元のCGIにこれがあるので、

$str =~ s/href=\"/href=\"$RSS_BASE_URI2/g;
$str =~ s/src=\"/src=\"$RSS_BASE_URI2/g;
$str =~ s/http\:\/\/.*?\/http\:\/\//http\:\/\//g;
$str =~ s/\/\.\//\//g;
$str =~ s/\/[^\/]*\/\.\.\//\//g;

こうやってみたんですが…（見にくくてすみません）
こういう書き方をするようなものではないのでしょうか？

>>178
すみません、記事の中からURLを抜き出して当てはめるにはどうすれば…
01811782008/05/08(木) 22:46:06ID:???
my $str = 'ABC/DFG/HIJ/../.././././';
while (index($str, './') + 1) {
　$str =~ s!/\./!/!g;
　$str =~ s!/[^/]*/\.\./!/!g;
}
print $str;

ループなしでどうやるんだろう。

>>180
最初から「>>162です」と言って欲しかった気がする165です。
$RSS_BASE_URI2 の正体等々よくわかんないので、下記を見ながらごにょごにょしてください。

use URI;
print URI->new_abs('../../images/spacer.gif', 'http://example.com/cgi-bin/test/');
# http://example.com/images/spacer.gif
0182nobodyさん2008/05/08(木) 22:46:10ID:???
>>180
横レス。
モジュールがあるか？と静観してたんだが、こっちに移動してきたのかw
my $RSS_BASE = '/ABC/DFG/HIJ/' ; # 絶対パス
my $path = '../../abc/efg/' ; # 相対パス
my $cnt = $path =~ s{\.\./}{}g ; # ../ の数把握と同時に消去。
$RSS_BASE =~ s/([^\/]*?\/){$cnt}$// ; # 絶対パスから../の回数分のディレクトリを削る。
print $RSS_BASE . $path . "\n" ; # プリント。
0183nobodyさん2008/05/08(木) 22:47:32ID:???
ああ、やっぱモジュールがあったのねorz...
おまけにタワゴト書いてるし。
01841732008/05/08(木) 23:36:51ID:???
>>181
ごめんなさい。>>162です。
記事の中から該当部分を抜き出してまた戻す方法も分からない絶望的分からなさだったので
教えていただいたものを使うことができず、恥ずかし悲しくなりながら単純な置換だけでなんとか
やれないかと別の方向にごにょごにょしちゃってました。
もう少し勉強してそれを使えるようにがんばってみます。ありがとうございました。

>>182
移動してきてました…。
自分が知らないだけでこれもきっと一行ですむのだろうと思ってたら、そうでもないようですね。
勉強してなんとか単純置換以外も使えるようになろうと思います。ありがとうございました。
0185nobodyさん2008/05/09(金) 04:31:31ID:???
モジュール使えで終了な話ではあるけどワンライナーでかけないのが悔しいorz
0186nobodyさん2008/05/09(金) 07:34:10ID:???
せいぜい短くしても
$str="ABC/DFG/HIJ/../../././abc/efg" ;
1 while $str =~ s{([^/]*?/\.\./|\./)}{} ;
print $str . "\n" ;
程度だね。

0187nobodyさん2008/05/10(土) 18:46:41ID:jhS0+1hl
テストしても何も表示されないんですが何がおかしいのでしょう？
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>あ</title></head>\n";
print "<body>$kao<br>$body<br>$asi</body>\n";
print "</html>";
タイトルすら出てくれないんです。
たぶん初歩的なミスだと思うのですが・・・
0188nobodyさん2008/05/10(土) 19:17:45ID:???
ヘッダは？
0189nobodyさん2008/05/10(土) 20:49:00ID:jhS0+1hl
print "Content-type: text/html\n\n";
これですか？
01901732008/05/10(土) 21:11:01ID:???
>>186
あ、一行でもできたんですね！
ありがとうございます、動きました！

URLを抽出してモジュールに渡すのに悪戦苦闘してましたが、
このままできないのもくやしいのでそっちもがんばってきます。
0191nobodyさん2008/05/10(土) 23:31:35ID:???
>>189
その行を　print "<!DOCTYPE〜　の行の前に書いてる？
あとエラーじゃなくて真っ白？　ソースも？
0192nobodyさん2008/05/11(日) 12:00:02ID:/WAyhnOg
>>191
はい。この行を書いて、一行改行してhtmlソースです。
ANHTTPDで真っ白でした。
前に$kaoとかを定義づけてるんですけども（ifで）それのミスなら500が出るかな、と思ったので。
01931812008/05/11(日) 17:10:05ID:???
>>190
「くやしいのでモジュール使うやりかたでもがんばってみる」方のようなので
ごにょごにょするときの参考にしてみてください。

use URI; # URIモジュールさん召喚。
my $RSS_BASE_URI2 = 'http://example.com/my/rss/generator/'; # 例。
my $str = join('', <DATA>); # __DATA__ 以下の割箸をまとめて $str に袋詰めします。

# >>180に基づいてみました。
$str =~ s/href="([^"]+?)"/'href="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;
$str =~ s/src="([^"]+?)"/'src="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;

print $str, "\n";
# 出力:
# <img src="http://example.com/diary/img/test.jpg">
# <a href="http://example.com/diary/latest">latest</a>
# <a href="http://example.com/test/script.cgi">Test Script</a>

__DATA__
<img src="../../../diary/././img/././test.jpg">
<a href="../../../diary/latest">latest</a>
<a href="http://example.com/test/script.cgi">Test Script</a>
01941932008/05/11(日) 17:25:08ID:???
事故レスれす。

> $str =~ s/href="([^"]+?)"/'href="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;
> $str =~ s/src="([^"]+?)"/'src="'. URI->new_abs($1, $RSS_BASE_URI2) .'"'/eg;

$str =~ s/(href="|src=")([^"]+?)"/$1. URI->new_abs($2, $RSS_BASE_URI2) .'"'/eg;
0195nobodyさん2008/05/11(日) 20:48:25ID:???
>>192
ANHTTPDの設定だと思うけどなー。
「ANHTTPD　真っ白」でぐぐったらなんか色々出てきたから
やってみたら
0196nobodyさん2008/05/12(月) 04:25:47ID:???
ブラウザを使わずにBookOFなどの商用サイトに接続して本を検索したり注文したりする
Perlで可能でしょうか？
可能でしたら具体的に教えていただけないでしょうか
0197nobodyさん2008/05/13(火) 03:27:45ID:???
そのサイトが検索用にAPIでも提供していれば
コマンドラインからの実行で検索は出来るはず(Amazon等)
注文までは知らね
0198nobodyさん2008/05/13(火) 05:33:31ID:???
>>196,>>197
別にAPIとか対応して無くても、Formで受け付けてくれるなら(JavascriptやFlashでなければ)
気合さえあれば、検索も注文も出来る。
01991902008/05/13(火) 07:31:33ID:???
>>193
ありがとうございます、参考に……って回答だった！
自分のとこでも動きました。こんなに簡潔になるなんて感激です。
~ s/　以下にも入れられたんですね…
一回やってエラーが出たので（多分何か抜けてた）
別の場所で動かしたそれを元に戻す過程がいるのかと
甚だしい勘違いをしてました。

何一つ自分で解決できなかったけどなぜか大きく成長したような気がしました
本当にありがとうございます。
CGIでやってみたいことはまだまだあるので次はgoogle的なもので
解決できるようになりたいものです。
0200nobodyさん2008/05/14(水) 02:23:53ID:???
>>198
まあ、やって出来ない事は無いとは思うけど
気合いってよりは無駄な作業が多くなるでしょ
検索して返ってくるのはHTMLな訳だからそこから必要な物を切り出して
さらにフォームを探して送信する内容を整えて・・・
0201nobodyさん2008/05/14(水) 04:27:20ID:???
>>200
そう、だから気合がいる。昔そんなのを書いてて、
「こんなん苦労して書く必要あんのかよ？しかも１サイトにしか通用しねえし・・」
とか思ったこともあるけど、気合(笑)でカバーした。あの頃は若かった。
02021962008/05/14(水) 04:44:38ID:???
みなさん情報ありがとうございます
ブラウザ無しでできるって事ですね
ブラウザ無しでデータをやり取りすると速いんじゃないかと思うのですが
実際どうでしょうか？
込み合ってるサイトもスイスイですか？
0203nobodyさん2008/05/14(水) 05:50:58ID:???
>>202
それは、相手のサーバーの処理能力とか、回線状態による。
まあそのページが、Javascriptやら画像やらフレームやらで大変込み入った内容なら
ブラウザでレンダリングするよりかは早くなるかも知れん。
(向こうのレスポンスについては、こっちからじゃなんもでけん)
けど、HTMLを正規表現等でパースして、ifで場合分けして、Formに内容セットしてとかしてたら、
はっきり言ってブラウザでクリックしたりしてするのの楽さと比べて、そんな恩恵あるとは思えん。
なにより、そうゆうコード書くのにかなり気合を要する(w)。

まあやるのは自由だけど・・・。
DDosアタックでも仕掛けるのなら話は別だが・・。
0204nobodyさん2008/05/14(水) 06:19:24ID:???
スイスイ具合は「画像オフ・JSオフ・CSSオフ」のブラウザと大差ないよ。レンダリングの有無だけ。
「Perlで書けばスイスイ！」だけを期待してるんだったら、やめれと。
でも、HTMLをパースしてCookieも食べて、フォーム仕立てて送信、お返事をパース…の繰り返しを書いて
意地でもPerlで注文してやる、というマゾな考えならそれはそれでありなのかもね。
0205nobodyさん2008/05/16(金) 00:52:53ID:???
近所の古本屋さんでオライリーPerl リソースキット UNIX版Xと記載されたperlの解説本を発見！
定価15000円らしいのだが2000円の値札が付いている
CD付属でそのCDは未開封
パラパラッと立ち読みしたらWindows環境にも通用しそうな気がするんですよ
自分はWindows環境なんだけどこの本は勉強なりそうですか？
付録のCDはWindows環境でも使えそうですか？
ご存知の方お願いします
0206nobodyさん2008/05/16(金) 12:23:26ID:???
>>205
それ、解説書じゃなくて、CPANにある
モジュールのドキュメントを和訳しただけのものだから。
しかも10年前のものだから。
http://www.oreilly.co.jp/out/presuni/

0207nobodyさん2008/05/16(金) 16:32:25ID:???
>>206さん
ありがとうです
UNIXと記載がありますが2000円捨てるつもりで買ってみようかと思います
他にも古い本でプログラミングperlUNIXとか600円で売っていたんですよ
Windowsで動くのか心配だけど一緒に買ってみます
0208nobodyさん2008/05/16(金) 16:37:16ID:???
XPのためにWin98の本買うようなもの
最新のドキュメントを探したほうがいい
古いの見ても混乱するだけ
0209nobodyさん2008/05/16(金) 16:45:50ID:???
>>208さん
そうだなー
そう言われればその通りですよね
やっぱり見合わせます
ありがとうございます
0210nobodyさん2008/05/16(金) 17:18:48ID:???
Perlほど解説本なしでネットでまかなえるプログラミング言語はないだろう
0211nobodyさん2008/05/19(月) 01:43:18ID:???
コマンドプロンプトからユーザエージェントして返ってきた文字列が
英数字以外は文字化けしてます
コマンドプロンプト内で読めるように教えてください
jcode.plもエラーになります
0212nobodyさん2008/05/19(月) 01:52:01ID:???
>>211
意味がわかりません。
> コマンドプロンプトからユーザエージェントして
とはどうゆうことですか？
0213nobodyさん2008/05/19(月) 02:16:27ID:???
わかんないならスルーしろよ
なんで答えるの？
教えたらわかりそうなのか？
0214nobodyさん2008/05/19(月) 02:24:16ID:???
>>213
いやあ、多分LWP-UserAgentのことかなとエスパー。
ほんで取ってきたページのソースがcp932じゃないから
コマンドプロンプトで文字化け。

実は俺も昔やったことがある。
だから聞いてみた。
0215nobodyさん2008/05/19(月) 02:26:22ID:???
>>214
ぅぉぉぉー　ヽ（ ﾟдﾟ）ﾉヽ（ﾟдﾟ ）ﾉ　ぅぉぉぉー
わかってんじゃん
それそれ
cp932をも少し詳しく
0216nobodyさん2008/05/19(月) 02:27:15ID:???
「CLI で LWP を飛ばしたら、CP932 じゃない文字列が返ってきます」まではわかるから、
もう一段階進んで
「jcode.pl は UTF-8 を知らんぞ」でいいのかな。
02172162008/05/19(月) 02:29:01ID:???
つーか、質問者さんがその態度で通すんだったら移動してくださいな。

くだらない質問でもど偉そうに聞いていいスレ
http://pc11.2ch.net/test/read.cgi/php/1158647441/
0218nobodyさん2008/05/19(月) 02:40:29ID:???
>>215
次からは、もちっと質問を詳しく。

ほいで解決方だけど、
perl 実行したいスクリプト.pl > kekka.html
とでもして、そのファイルを各種文字コードで開けるエディタ(秀丸、TeraPad等)で開く
もし持ってなければ、とりあえずIEで開けばなんの文字コードかはわかる。
or
use Encode;(5.8以降標準で入ってる)
で文字コードをcp932に変換。

>>216
その可能性もあるかもだけど、多分、もともとのページの文字コードが分かってなかったら使えない。
(と思ったが、自動判別出来るんだっけ？もう長いこと使ってないから忘れちまった。)

あと、$response()->as_string() あたりでサーバーからのレスポンスヘッダが読めるから、
それでそのページの文字コードを判別しい。(か、もしくはhtmlの中の<metaを探すか)
0219nobodyさん2008/05/19(月) 02:50:31ID:???
>>218
自動判別は (jcode.pl|Jcode.pm|Encode::Guess) な感じでいちおうあるよ。
# jcode.pl は UTF-8 に対応してないので、その辺はどうにもならない。

どれも「当たるとは限らん」ところが大事ですけど。
0220nobodyさん2008/05/19(月) 02:50:47ID:???
>>217
気分悪いならスルーでいいよ
あなた個人を攻撃してるわけでもないのに
態度云々言われたらこっちが気分悪い
取り合えず２ｃｈには向いてないと思うよ
これからもし私を見かけてもスルーしてね
おちょくってるわけでもないのに変な奴だ

>>218
詳しくありがとう

0221nobodyさん2008/05/19(月) 03:23:45ID:???
例の人が久々に来てたのか。エスパーたち、乙。
0222nobodyさん2008/05/19(月) 10:53:12ID:???
またおまえかｗｗｗ
0223nobodyさん2008/05/19(月) 15:45:54ID:???
このバカ定期的に沸いてくるな
しかもあちこちに増殖している
0224nobodyさん2008/05/19(月) 16:40:56ID:???
ふーん
人を馬鹿扱いできるほどお前稼いでるの？
税金なんぼ払ってるかいってみ
0225nobodyさん2008/05/19(月) 16:59:25ID:???
失せろ
0226nobodyさん2008/05/19(月) 17:15:21ID:???
キモイ
0227nobodyさん2008/05/19(月) 18:46:02ID:???
稼いでる　＝　馬鹿でない

上の理論が成り立つと思ってるマヌケさ
0228nobodyさん2008/05/19(月) 18:49:18ID:???
なんか自分を凄く見せたがる為に銭金の話をしたがる馬鹿いるよな
森伊蔵云々、ディナー云々
中学生のホラ自慢みたいw
0229nobodyさん2008/05/19(月) 19:09:24ID:???
もう構うなってｗ
0230nobodyさん2008/05/19(月) 21:49:23ID:???
みんなお疲れ様
わかる人お願いします
ソースコードutf-8で保存してから実行してみた
アクティブパール5.88
WindowsXp
ここからどうすれば日本語になるの？

use LWP::UserAgent;
use utf8;
use encoding 'cp932';
$ua = LWP::UserAgent->new();
$req = HTTP::Request->new("GET", "http://www.yahoo.co.jp/");
$res = $ua->request($req);
print $res->content();
0231nobodyさん2008/05/20(火) 04:17:01ID:???

use LWP;
use Encode;

print encode('cp932',decode('utf8',LWP::UserAgent->new()->get('http://www.yahoo.co.jp')->content()));
0232nobodyさん2008/05/20(火) 04:28:46ID:???
>>231
私の環境ではエラーになっちゃったけど
物凄く参考になった
ありがとう
0233nobodyさん2008/05/20(火) 04:36:24ID:???
>>231
できました！
スペースの文字コードを半角スペースに変えたらエラーにならないで実行できました
見事に日本語になってます
ありがとうございました！
0234nobodyさん2008/05/20(火) 15:30:39ID:???
>>231をｈｔｍｌファイルで保存したいんだけどできない
すいませんまた教えてください

open(FH, '>>', "yahoolog001.html") or die "Cannot open content()!";
flock(FH, 2);
print FH qq|content()\n|;
0235nobodyさん2008/05/20(火) 16:51:57ID:???
>>234
231をyahoo_get.plとでも名前付けて保存して、
perl yahoo_get.pl > yahoo001.html
0236nobodyさん2008/05/20(火) 17:29:08ID:???
>>235何回もすいません
どうすればいいのか？
下記のような状況です

open(FH, '>>', "yahoolog001.html") or die "Cannot open yahoo001.html!";
flock(FH, 2);
perl yahoo_get.pl > yahoo001.html;

-----------------
Can't locate object method "perl" via package "yahoo_get" (perhaps you forgot to
load "yahoo_get"?) at yahoo-tes001.pl line 6.
0237nobodyさん2008/05/20(火) 18:28:08ID:???
>>235
スクリプト内に入れてやれよｗｗ

print FH encode('cp932',decode('utf8',LWP::UserAgent->new()->get('http://www.yahoo.co.jp')->content()));
0238nobodyさん2008/05/20(火) 18:38:22ID:???
>>236
違う違う、235のは、コマンドラインから実行するんであって、perlスクリプトの中に書くんではない。

>>234とか見てると、ファイルのオープンとかはあってるけど、
オブジェクトとか、クラスメソッドとかのことを良く分かってないようなので、
とりあえず一行で書けるのにしてみた。

それから、君は>>211や>>230と同じ人(？、かどうかは定かではないが)
コマンドプロンプトから実行してるなら、リダイレクトや標準出力、標準入力等についてもある程度は理解がないと。
(Perlではないんで、入門書とかにはあんまり書いてないか。でも基本ってか常識レベルなんで、
わかってないとこれからしんどいよ。逆にわかってくると、いちいちスクリプトの中でやらなくていいことが増えるんで
書くのが楽になるし、理解も深まる。)
0239nobodyさん2008/05/20(火) 18:42:43ID:???
ｗｋｔｋ
0240nobodyさん2008/05/20(火) 21:15:41ID:???
>>237さん、>>238さん、御二方ともお忙しい中ありがとうございます
FH付けると何故かまた文字化けになってしまい苦戦していました
よくわかりませんがcp932を止めたら文字化けが亡くなりました
アドバイスのお陰で2つの方法で保存させることが出来ました
しかも昨日までは取得した最後の1024バイトしか表示されなかったのですが
ページ全部を取得できていますありがとうございました
↓スクリプトだけで保存でたソース
---------------
use LWP;
use Encode;
open(FH, '>>', "yahoolog001.html") or die "Cannot open yahoo_get.pl!";
flock(FH, 2);
print FH LWP::UserAgent->new()->get('http://www.yahoo.co.jp')->content();
↓コマンドラインから保存できたソース
--------------
use LWP;
use Encode;
print LWP::UserAgent->new()->get('http://www.yahoo.co.jp')->content();
ここからログインのテストしたいので
またお願いするかもしれませんが
その時はよろしくお願い致します
>>238さん
勉強方法詳しくありがとうございました
標準入出力の解説書なかなか見当たらないです
手持ちの解説書で標準入出力を解説しているのは
「perlデータマンジング」という本だけです
大変わかりやすく良書なのですが紙面の関係上さわり程度なのが残念です
何かお勧めの解説書があれば教えて頂ければ嬉しいです
ありがとうございました
0241nobodyさん2008/05/22(木) 14:07:57ID:???
お世話になります
httpsでログイン可能な簡易ブラウザサンプルどこかないでしょうか？
自分が調べたところ2001年にある雑誌が付録で付けていたようなのですが
絶版になり各方面探しても見当たりませんでした
やりたいことはhttps接続での送受信です
お心当たりのある方よろしくお願い致します
0242nobodyさん2008/05/22(木) 14:12:19ID:???
LPW
0243nobodyさん2008/05/22(木) 14:12:53ID:???
間違えた笑
LWP
0244nobodyさん2008/05/23(金) 20:25:12ID:VktSXUAF
sで一気にいくつかのものを変換する方法ありますか？
たとえるならあいうえおという文のあとおをかとこにおきかえたいんです。
0245nobodyさん2008/05/24(土) 02:20:54ID:???
trじゃダメなの？
0246nobodyさん2008/05/26(月) 19:32:51ID:???
どもお世話になります
あれから色々調べているんですけど
ログインや検索やセレクトメニューの選択やボタンクリックなど
具体的なサンプルってないですね
もしかしてperlで出来ないですか？
結局HACKER本買い捲ったんだけど
みんなHTMLの取得までなんですよ
そこからセレクトメニューを選んだりOKボタンをクリックするとか
できないんだろうか？
0247nobodyさん2008/05/26(月) 19:36:22ID:???
お前は何を言っているんだ
0248nobodyさん2008/05/26(月) 20:03:33ID:???
なんで？
perlでなんでも出来るって言ってたじゃないですか？
0249nobodyさん2008/05/26(月) 20:18:52ID:???
ネタですか?
0250nobodyさん2008/05/26(月) 20:35:06ID:???
>>248
もしかして>>196からの流れか？
ひょっとして画面が表示されて検索ワードが勝手に入力されてセレクトメニューが勝手に選択されてボタンが勝手に押されるとか
そういうのイメージしてる？
0251nobodyさん2008/05/26(月) 20:47:35ID:???
>>250
それそれ
それです！
perlで出来るんですよね？
今のところそのようなサンプル見当たらないんですよ
自動ソフトのスクリプトとかならOKボタンのクリックなどは
初歩の初歩インストール後5分後には覚えれるくらい簡単なんですけど
perlの場合参考になるような記述すら見当たらないんですよ
超凄いらしい解説本やオライリーのHACKシリーズやWEBシリーズを購入したんですけど
全然すごくない
OKボタンの1回すら出てこない
なんでもできないのですか？
0252nobodyさん2008/05/26(月) 20:54:44ID:???
それをやろうと思ったのはお前が最初で最後だと思うよ
0253nobodyさん2008/05/26(月) 21:12:52ID:???
>>252
なんでですか？
perlでは出来ないってことなの？
0254nobodyさん2008/05/26(月) 21:16:41ID:???
ちなみに自分はある自動ソフトで検索とか保存とか
WEB上での操作でやりたいことは大体教えてもらえましたよ
そのソフトを教えてくれる方たちはみんな普通にご存知でした
ただ遅いんですよorz
0.5秒で完結させたいんです
0255nobodyさん2008/05/27(火) 02:30:31ID:???
>>252
自分は>>198や>>201なんだけど、多分初めてじゃないと思うぞ(w)

>>253,254
君のやりたいことってのが、GUIのツールみたく目に見える感じで動いて行くってのなら多分ムリ。
(Tkとか使ったら無理やりにでもできるかも知れん。でも自分はGUI系はからっきしなんで、よくわからん)

そうでなくて、コマンドラインから、ブラウザで操作したことと同じ結果を得るってことなら可能。
どんな本や、どんなページ参考にしたかわからないけど、
ちょっと上の方に出てるLWPなんかの解説や、CPANのmanualなんかをじっくり読めば(リンクを少々辿らないダメだけど)、
検索フォームにワード仕込んだり、”OK”ボタンを押すってことにもたどりつきそうだけど・・・。
02562552008/05/27(火) 02:31:04ID:???
でもまあ、サンプルでも書いとく。
use strict;
use LWP;
use Encode;
use HTML::Form;

my $pwd = `cd` . '\\';
my $cmd = 'C:\Program Files\Internet Explorer\iexplore.exe';
my $url = 'http://google.co.jp/';
my $lwp = LWP::UserAgent->new('agent'=>'mozilla3.9');
my $word; my $out1 = '1.html'; my $out2 = '2.html';
$word = shift() or $word = 'Perl'; $word =~ tr/\r\n//d;
my $html = $lwp->get($url)->content();
open(O1,">$out1"); print O1 $html; close(O1);
system qq("$cmd" "$pwd$out1");
my $form = HTML::Form->parse($html,$url);
$form->value('q' => encode('utf8',decode('cp932',$word)));
$form->value('ie'=> 'UTF-8');
my $response = $lwp->request($form->click);
my $out2 = '2.html';
open (O2,">$out2"); print O2 $response->content(); close(O2);
system qq("$cmd" "$pwd$out2");

これを、例えばtest_search.plとでも保存して、コマンドラインから、
perl test_search.pl "検索したいキーワード"
で実行すると、最初googleのTopが表示されて、それを閉じれば、そのワード(なければ”Perl”)での
検索結果がIEで表示される。(無理やり、画面遷移っぽくなるように作った。)
モジュールや関数の詳細は、自分で調べてくれ。
0257nobodyさん2008/05/27(火) 03:14:05ID:???
また湧いたのか・・・
0258nobodyさん2008/05/27(火) 03:29:45ID:???
>>255さん
ありがとうございます
まさにそれなんです
GUIを使わないで送受信してみたいんです
お疲れのところわざわざサンプルまで作って頂き本当にありがとうございます！
頂いたサンプルを参考にログインとかもチャレンジしてみます
ありがとうございました
0259nobodyさん2008/05/27(火) 14:08:14ID:???
ブラウザのインターフェースに強引に割り込ませるのかと思ったわ
httpについて勉強するといいよ
0260nobodyさん2008/05/28(水) 00:14:16ID:T0EpbUiq
ググったら趣旨が違うのしかでないんですが、
ifで、たとえば$Aに\という文字列が含まれる場合、
\が含まれています。とするにはどうしたらいいんでしょうか？
if($A =~ \\)
{print "\\が含まれています"}
でいけますか？
0261nobodyさん2008/05/28(水) 02:23:14ID:???
if($A =~ /\\/)
0262nobodyさん2008/05/31(土) 01:19:07ID:???
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }

この処理ってどういう意味なのでしょうか？
0263nobodyさん2008/05/31(土) 02:02:14ID:???
;
0264nobodyさん2008/05/31(土) 15:52:59ID:???
>>262
＞$in{'ext'} = extfind($in{'orgname'});
サブルーチン(？) extfindの一番目の引数にハッシュ$in{'orgname'}の値をセットして
呼び出し、戻り値をハッシュ$in{'ext'}に代入。

＞if(!$in{'ext'} && $in{'upfile'}){ &error(202); }
次にハッシュ$in{'ext'}の中の人が留守で、
尚且つハッシュ$in{'upfile'}の中の人が居る場合
恐らくエラーメッセージを表示するであろう
サブルーチンerrorの一番目の引数に"202"をセットして呼び出す。


ちなみに2行を一行にまとめると↓みたいになる
&error(202) if(!&extfind($in{'orgname'}) && $in{'upfile'});
02652642008/05/31(土) 15:54:58ID:???
戻り値をセットせなあかんから1行にまとめたら駄目だな・・orz
02662642008/05/31(土) 16:03:00ID:???
&error(202) if(!($in{'ext'} = &extfind($in{'orgname'})) && $in{'upfile'});

オリジナルと大して変わらんけどこうやればいけるか
スレ汚しｽﾏｿ・・
0267nobodyさん2008/05/31(土) 18:48:39ID:???
より、この処理ってどういう意味なのでしょうか？
という質問が出易くなりますな。
0268nobodyさん2008/05/31(土) 20:14:45ID:???
>>264
やっぱりperl難しいな・・・

http://sugachan.dip.jp/obsolete/snup/
拡張子合わずってログに記録したときは
ファイルをアップしないように改造しようかと
思ってるのだがなかなかできなくて。。。

$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'} && $in{'upfile'}){ &error(202); }
を
$in{'ext'} = extfind($in{'orgname'}); if(!$in{'ext'}){ &error(202); }
に、しても普通にアップロードできてしまうし。。。どこがおかしい？
0269nobodyさん2008/05/31(土) 20:40:29ID:???
>>268
そこのアップローダの改造の質問　って前にもどこぞで見たなあ。
で「改造スレに行け」と言われてたハズだが？

ソースが好みじゃないのでやる気にならん。…改造スレ行けば？
0270nobodyさん2008/06/04(水) 08:35:22ID:???
perlで書かれたチャット掲示板みたいなCGIプログラムがあります
テキストエリアに文字を入力して、投稿ボタンを押すとregist.cgiに渡されて書き込まれる仕組みです
このregist.cgiはmessageとcountという2つの引数をとるみたいなのですが、
ブラウザからURL:/aaa/bbb/regist.cgi?message=test&count=1
とやっても書き込まれませんでした

ちなみにFirefoxのTemperDataで確認したリクエストとレスポンス上ではベーシック認証は使われていませんでした

最終的にはperlで自動的に書き込んでくれるプログラムを書きたいのですが、まずはperlでこのregist.cgiに投稿するにはどうすればいいか教えてください
0271nobodyさん2008/06/04(水) 10:11:46ID:???
postしてみろ
0272nobodyさん2008/06/04(水) 14:06:46ID:???
GETで投稿出来ちゃうと、2chにリンク貼られまくったときにｗ
0273nobodyさん2008/06/06(金) 23:21:44ID:???
sub getDirSize($)の($)ってどういう意味?
0274nobodyさん2008/06/07(土) 02:53:47ID:???
>>273
プロトタイプ。
$は引数としてスカラーしかとらないってこと。
■ このスレッドは過去ログ倉庫に格納されています