Perlコーディング初心者質問スレ Part 59

**nobodyさん** · 2009/02/16(月) 11:42:29

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/

**nobodyさん** · 2009/05/02(土) 12:08:08

配列に対してフィルタというと、普通にgrepだなあ

**nobodyさん** · 2009/05/02(土) 12:44:54

全くデバッグしていないのがスゴイ

**374** · 2009/05/02(土) 12:47:26

>>375
ありがとうございます
そのとおりやってみたら、見事に$erase以外がログに書き込まれていました。
おっしゃる通り、改行が含まれていたせいみたいです。

しかし、修正されたログにも同じように数字ごとに改行を含んでおきたいのですが、
この処理だと

119049025

のように改行なしで一気に書かれてしまいました。

そこで、元の自分の書いたものに>>376さんのアドバイスで修正を加え

chomp @datalist;
for ( my $k = 0 ; $k < @datalist ; $k++ ) {
if ( $datalist[$k] ne $erase ) {
push(@newlist, "$datalist[$k]\n");
}
}

としてみると、一応、望み通りの結果を出すことができました。
二晩くらい悩みまくったので、とても助かりました。
ほんとうにありがとうございました。

grepを使った方法は今まで使ったことが無くて、一行で処理できる
美しいコードに感激したので、もしよろしければ自分の書いた方法以外で
同じ結果の出せる（改行含む）書き方があれば教えてやってください。

**nobodyさん** · 2009/05/02(土) 15:42:19

>>379
map { s/$erase\n//; } @datalist;

**nobodyさん** · 2009/05/02(土) 16:15:37

>>380
それは部分一致だからs/^\Q$erase\E$//

**nobodyさん** · 2009/05/02(土) 17:09:01

^\Q$erase\E\n$

**nobodyさん** · 2009/05/02(土) 17:44:55

でも、リストを作る時に改行は外した方が

**nobodyさん** · 2009/05/02(土) 18:10:31

＄は改行にマッチするので￥ｎは不要

**384** · 2009/05/02(土) 18:15:58

と思ったが、要るか

**374** · 2009/05/02(土) 18:37:39

みなさんありがとうございます

map { s/^\Q$erasedat\E\n$//; } @datalist;

で希望通りに処理されるのを確認できました。

mapとかgrepというのを使いこなせば、いま自分の書いてる現行のスクリプトで
改善できるところがすごく多そうなので、ちょっと勉強してみます。。

ほんとに助かりました。親切にありがとうございました

**374** · 2009/05/02(土) 18:39:02

$erasedatではなくて$eraseでした

**nobodyさん** · 2009/05/02(土) 19:51:16

mapの結果は要素数同じでヌルがいっぱい入ってないか?

**nobodyさん** · 2009/05/02(土) 21:04:48

ﾇﾙはないがぬるぽがいっぱいだお

◆TWARamEjuA · 2009/05/03(日) 09:41:50

ﾇｺはいないがガッがいっぱいだお

**nobodyさん** · 2009/05/05(火) 04:15:46

やっぱmapとgrepそして正規表現を使いまくってこそperlと言う気がするな

**nobodyさん** · 2009/05/05(火) 10:06:17

あと pack と unpack ね

**nobodyさん** · 2009/05/05(火) 13:43:50

そして数日後自分でも読めなくなると。

**nobodyさん** · 2009/05/05(火) 14:21:29

コメントがちゃんと書かれているなら、まあいいかなという気がする

**nobodyさん** · 2009/05/06(水) 01:57:30

splitとgrepとsortとforが一行で並んでる感じ

**nobodyさん** · 2009/05/06(水) 08:18:31

とあるサイトの中にある自分のステータス情報を
LWP::UserAgent を使って取得したいんですが、
リンクを幾つかたどっていく必要があります。

cookie は何とかなったんですが、
１つ前の html ファイルにあるパラメータを取得して POST メソッド時に引き渡すところの
解析に手を焼いています。
# パラメータ名は判っているので現在は文字列検索で取得しています。

a href などではなく、POST メソッドのパラメータも解析してくれる
便利なパッケージって無いでしょうか

**nobodyさん** · 2009/05/06(水) 11:03:19

配列をサブルーチンに渡すときって
&sub (@hoge);
ではダメなんでしょうか？

この記述で渡して、受け取ったサブルーチン側でログに書きだしたら
各行に空白が入るようになってしまったんですが。。。

**nobodyさん** · 2009/05/06(水) 11:35:46

配列に元々改行コード入ってるんじゃない？

**nobodyさん** · 2009/05/06(水) 11:50:51

>>397
もともとの値がちゃんと期待通りの値か確認してみ
他の可能性としては
my(@args);
としてるだけで
@args = @_;
みたいにするの忘れててサブルーチン側でちゃんと受け取ってないとか

**nobodyさん** · 2009/05/06(水) 13:42:27

>>396
HTML::Form(LWPの付属モジュール)
WWW::Mechanize(LWPのスーパークラス的なモジュール)

**396** · 2009/05/06(水) 17:22:28

>>400 情報㌧くす。ググって調べてみる。いい感じに逝きたい、これ試してみて。

**nobodyさん** · 2009/05/06(水) 17:46:16

>>401
わざわざぐぐらなくても、pod 読めばいいと思う。

**nobodyさん** · 2009/05/06(水) 18:05:57

>>400
> WWW::Mechanize(LWPのスーパークラス的なモジュール)

謎

**397** · 2009/05/06(水) 19:32:33

>>398
同じルーチンの中でやると普通に綺麗に書き出されるんだけど
別のサブルーチンに引き渡すと、データそのままで、各行の頭に半角空白が1個ずつ挿入されてる、って感じです。

>>399
&sub (@hoge);
で渡して、受け取る側で
@data = $_[0];
と書いてます。

**nobodyさん** · 2009/05/06(水) 19:53:17

>>404
@data = @_;

**nobodyさん** · 2009/05/06(水) 21:07:16

つか配列のリファレンス渡せ

**nobodyさん** · 2009/05/06(水) 21:09:34

>>404
とりあえず周辺のソースを晒してみたら？

**nobodyさん** · 2009/05/06(水) 21:33:27

先物で現受けする時に倉荷証券で受け取るのって参照渡しだよな

**nobodyさん** · 2009/05/06(水) 23:48:47

>>400
簡単なスクリプト作ってみたらイイ感じに出来た。
無事思惑通りのことができそう。
今まで URL を解析して UserAgent で get していたのが楽になる (T-T)

**nobodyさん** · 2009/05/07(木) 04:36:51

次はWeb::Scraperとの組み合わせを覚えてもいいかもな
>>396の用途ならピッタリだと思うぜ

**nobodyさん** · 2009/05/07(木) 12:48:09

htmlがきちっとしてれば、そんな苦労は要らんという気もする

**キュウテｨｲﾊﾆ-** · 2009/05/07(木) 17:35:14

以下のようにあるWEBページを取得しようとしています。

use LWP::Simple;

getstore('http://www.yahoo.co.jp','d:\\test\\nikki.tmp2');

しかし、上記のyahooの場合は全てが取得されますが、
サイズの大きいサイトでは途中まで切れてしまいます。
（サイズの大きいサイトのサンプルが具体的に言えません、すみません）
サイズは１２８ｋＢくらいまでなら、取得できるようです。
取得サイズを指定する何かがあるのでしょうか？

**nobodyさん** · 2009/05/07(木) 18:57:38

use LWP::Simple;
getstore('http://d.hatena.ne.jp/diarylist?mode=lirs','./lirs.dat');

> dir lirs.dat
2009/05/07 18:56 57,602,778 lirs.dat
1 File(s) 57,602,778 bytes

?

**キュウテｨｲﾊﾆ-** · 2009/05/07(木) 20:20:10

>>413
回答ありがとうございます。
ためしためしで先程からテストしていたんですが、
どうも、対象のサイトに依存するようです。。。

**nobodyさん** · 2009/05/07(木) 21:00:25

タイムアウトでもしてんじゃねえのかね
そちらの環境で同様の現象が起こるサイトが出せない限り、これ以上は無理だね

**nobodyさん** · 2009/05/07(木) 21:40:07

ＵＡをちゃんと設定してみそみそ

**キュウテｨｲﾊﾆ-** · 2009/05/07(木) 21:47:42

>>415-416

あるアクセス解析のページなんですが、
IEでソース表示を行った場合も、
同様の場所で、ソースが切れています。
ブラウザ上では切れていなく表示されているのに。
なんで？？？

**nobodyさん** · 2009/05/07(木) 22:02:57

こちらへどうぞ
ttp://sakura_editor.at.infoseek.co.jp/

**nobodyさん** · 2009/05/07(木) 22:03:41

ついでにこれも
ttp://www2a.biglobe.ne.jp/~qpon/html/ie_edit.htm

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 16:41:50

>>416

こんな感じでもダメでした。。。

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)');
$req = HTTP::Request->new(GET => $kw_url);
$res = $ua->request($req);
$status = $res->status_line;
$content = $res->content;

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 16:42:32

>>418-419

自動的にプログラムで取得してファイルに書きたいのです。

**nobodyさん** · 2009/05/08(金) 16:44:17

こうしたら？
$ua->timeout(3000000000000000000000000000000000すげえ);

**nobodyさん** · 2009/05/08(金) 16:49:19

128KB を越えるページを教えてください
テストしてみたい

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 17:05:05

>>423
具体的に教えられないんです。
i2iアクセス解析のサーチワード一覧のソースが欲しいんです。

一例ですが、以下のようにget出来ますが、4番目の"q=%00"が出てくると、
ソースがちょん切られるみたいです。（※のところに[EOF]がくる）

<td align="right">3</td>
<td><a href=http://www.google.co.jp/search?hl=ja&q=BOSS&lr= target=_blank>BOSS</a></td>
<td align="right">4</td>
</tr>
<tr>
<td align="right">4</td>
<td><a href=http://www.google.co.jp/search?hl=ja&q=%00&lr= target=_blank>※

**nobodyさん** · 2009/05/08(金) 17:08:59

それじゃぁもう無理だ
てめーで解決しろよ

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 17:11:45

他の日も試してみましたが、クエリーストリングに%00が含まれていると、
そこで、切られるみたいです。
でも、ブラウザ（ＩＥ８）上では、切れていないんです。

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 17:12:10

>>425
冷たいなぁ。。。

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 17:13:41

apacheのログを舐めて、リファラー部分を集計するようなperlライブラリってないですかね？

**nobodyさん** · 2009/05/08(金) 17:20:09

それぐらい自力で組めるだろｗ

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 17:27:31

>>429
顕著な検索エンジンを経由してきた検索語と回数をカウントしたいんですが、簡単なんですか？

**nobodyさん** · 2009/05/08(金) 17:36:41

>>428
「死ぬほどある」に1票

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 17:39:56

>>431
死ぬほどないんですけど＞＜
http://www.google.co.jp/search?hl=ja&q=apache+referer+%E9%9B%86%E8%A8%88+%E6%A4%9C%E7%B4%A2%E8%AA%9E+perl&btnG=%E6%A4%9C%E7%B4%A2&lr=

**nobodyさん** · 2009/05/08(金) 18:01:07

死ぬほど絞るからでしょう。
q=apache+log+perl

\0 でつまずいてるようだから今後も苦労すると思う。

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 18:15:10

私、馬鹿なんだな。。。
よくわからない。

apacheのログを入力として、
検索語（日本語）とその検索回数を
表示してくれるだけでいいのに。

**nobodyさん** · 2009/05/08(金) 18:20:44

それのどこにリファラーが関係あるのさ

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 18:21:55

%00はどういう意味なんだろう？

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 18:24:51

>>435
リファラーにq="なんたら"
って書いてある"なんたら"の
"なんたら"と、その回数が知りたいのです

**nobodyさん** · 2009/05/08(金) 18:37:21

検索語からして馬鹿を露呈してると思うよ。
>>432から"検索語"を抜いた"apache referer 集計 perl"でググっただけで死ぬほど出てくるというのに。

**nobodyさん** · 2009/05/08(金) 18:38:33

リファラ集計
open IN, '<', '/apache/logs/access.log';
my%ref_cnt;foreach my$log(<IN>){$log=~m/^.*? .*? .*?\[.*?\] ".*?" [0-9]{3} .+ "(.*?)" ".*?"/;$ref_cnt{$1}++;}
my@keys=sort{$ref_cnt{$b}<=>$ref_cnt{$a}}keys%ref_cnt;for my$key(@keys){print$ref_cnt{$key}.":".$key."\n";}

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 18:39:16

>>438
うむ！頑張ってみる！

**nobodyさん** · 2009/05/08(金) 18:42:59

簡単に漠然と言っちゃえば % を \ を置き換えたもの
%00 は \0 の NULL 文字となる

だったような気がするんだマイハニー

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 18:52:02

>>439
検索語が知りたいんです。

**nobodyさん** · 2009/05/08(金) 18:54:48

集計したら、あとはそこから検索語を取り出すだけだろ・・・・･････････・・・・・・・・・・・・・・・･････････・・・・・・・・・・・・・・・･････････
もう君Analogでも使ってればいいと思うよ

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 18:56:58

>>443
バッチで取得したいのですぅ

**nobodyさん** · 2009/05/08(金) 18:57:50

馬鹿は死んでも直らないって本当だな

**nobodyさん** · 2009/05/08(金) 18:59:36

前にくだすれで大暴れしたりしてた人か

**キュウテｨｲﾊﾆ-** · 2009/05/08(金) 19:01:25

頭を冷やして考えます。

**nobodyさん** · 2009/05/08(金) 19:34:43

>>412
まずレスポンスヘッダのチェックからだろ。

**nobodyさん** · 2009/05/08(金) 19:49:09

もう相手にしないで

はい次の方どーぞ

**アルモコニ** · 2009/05/08(金) 19:54:33

これはどういう意味ですか？

米を煮たいと所存だす。
http://www.google.co.jp/search?hl=ja&q=%E3%83%8B%E3%83%AB%E3%82%B3%E3%83%A1&lr=

ケロロゲ?ムで火をつけリソウシを入れました。
いいぐあいにリソウシは紫の汁を出し、
結局、アルモコニでした。
http://www.google.co.jp/search?hl=ja&q=%E3%82%A2%E3%83%AB%E3%83%A2%E3%82%B3%E3%83%8B&lr=

**nobodyさん** · 2009/05/08(金) 20:25:18

数値のソートはsort関数が早いのかな。
試したら圧倒的になったんだけど。
文字列だとGuttman Rosler変換が断トツだった。

**nobodyさん** · 2009/05/08(金) 21:03:07

で？

**nobodyさん** · 2009/05/09(土) 00:02:11

じ？

**nobodyさん** · 2009/05/09(土) 01:54:05

こ？

**nobodyさん** · 2009/05/09(土) 10:19:40

**nobodyさん** · 2009/05/09(土) 10:20:01

にょ！

**nobodyさん** · 2009/05/10(日) 08:47:53

i2iアクセス解析のサーチワード一覧のソースが欲しいんです。

**nobodyさん** · 2009/05/11(月) 20:26:11

>>457
http://www.google.co.jp/search?q=%CE%B4%CE%B8%CE%BD%CE%B2&lr=

**nobodyさん** · 2009/05/13(水) 13:11:51

すいません。おそらくかなり初心者質問なのですが
xamppの環境で、Shift_JISで書いたコードが、問題なく動作するように
use encoding 'shiftjis', STDOUT => "shiftjis";
を加えたのですが、即座に動かなくなりました。
搭載されているperlはvar5.8.7なので、動かないはずがないのですが･･･
どなたか原因ご存知ありませんでしょうか？

**nobodyさん** · 2009/05/13(水) 13:24:51

エラーログぐらい出せクソ野郎

**nobodyさん** · 2009/05/15(金) 15:32:32

URLを要素ごとに分解したいのですが、色々調べた結果、自分では以下のような形になりました
一応結果は求めたものなのですが、正解なのかどうかわかりません
普通はこうやるとか、間違ってるからこう直せってのがあったら教えてください

my $url = 'http://www.google.co.jp/';

my($scheme, $userinfo, $host, $port, $path, $query, $anchor) =
$url =~ m/
(https?|shttp):\/\/
(?:((?:[-_.!~*'()a-zA-Z0-9;:&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)@)?
(\d+\.\d+\.\d+\.\d+|(?:[a-zA-Z0-9][\-a-zA-Z0-9]*[a-zA-Z0-9]\.)*[a-zA-Z0-9]*)
(?::(\d+))?
(?:((?:\/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f])*)*))?
(?:\?((?:[-_.!~*'()a-zA-Z0-9;\/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*))?
(?:\#((?:[-_.!~*'()a-zA-Z0-9;\/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*))?
/ox;

**nobodyさん** · 2009/05/15(金) 16:04:16

>>461
つttp://search.cpan.org/~gaas/URI-1.37/

**nobodyさん** · 2009/05/16(土) 17:28:43

use CGI::Lite;
use encoding 'shiftjis', STDOUT => "shiftjis";

print "Content-Type:text/html\n\n";
my $cgi = new CGI::Lite;
my %g = $cgi->parse_form_data('GET');
print $g{'all-text'};

---表示結果---
\x{0093}\x{008c}\x{008b}\x{009e}\x{0093}s\x{008d}]\x{008c}Ë\x{0090}\x{00ec}\x{008b}\x{00e6}
（本当は「東京都江戸川区」とprintされる）
CGI::Liteは最新版。perl5.8.5 unix環境です

**nobodyさん** · 2009/05/16(土) 18:01:49

変換元のコードが判別出来てない

**nobodyさん** · 2009/05/17(日) 15:36:49

$BB =~ s/:/&url_encode(:)/g;

url_encodeはサブルーチンで普通に使えています
上記のように$BBに入っている文字列の中の「:」だけを全てエンコードしたいのですが、上記のコードだと「:」が「&url_encode(:)」という文字列に変換されてしまいます
正規表現の中でサブルーチンを呼び出すにはどうすればいいでしょうか？

**nobodyさん** · 2009/05/17(日) 15:47:36

**nobodyさん** · 2009/05/18(月) 01:28:52

1byteで回答

**nobodyさん** · 2009/05/18(月) 05:31:12

一体全体、なんでマニュアル調べないんだろうね?
「マニュアルに書いてあることを質問するな」とか云うはるか前の話として、
マニュアルをちょっと調べれば、3秒とか、長くても20秒くらいで
解決することを、わざわざ文章書いてポストするって、
どんだけ時間の無駄づかいなの?

**nobodyさん** · 2009/05/18(月) 09:09:13

スレタイをよく見るんだ

**nobodyさん** · 2009/05/18(月) 09:58:34

親切な人なら
$BB =~ s/:/&url_encode(':')/ge;
よりも↓の方が負荷がかからない
$BB =~ s/:/%3a/g;
と教えるだろうけどＰｅｒｌ使ってて負荷のこと言うと叩かれそうだから言わない

**nobodyさん** · 2009/05/18(月) 12:45:23

use URI::Escape;

my $safe = uri_escape($bb, ":");

これで、おｋ。

**nobodyさん** · 2009/05/18(月) 19:48:23

>>470
質問の本質はそこじゃないしな

**nobodyさん** · 2009/05/18(月) 20:45:50

>>472
おまえさんには「教えてください」なんて口が裂けても言わないから
ダイジョウブダヨ。

**nobodyさん** · 2009/05/19(火) 01:35:37

マニュアル見てもよくわからんってことも少なくないけどな

**nobodyさん** · 2009/05/19(火) 18:36:32

構文チェックでokが出てるのに500吐くんですけど、こういった場合ってどういった原因が考えられるんでしょうか？
サーバがUnixなので改行コードはLFにしてあります。アスキーで転送しました。
use strict;が原因かと思ってコメントアウトしたけど500のままなのです。

**nobodyさん** · 2009/05/19(火) 18:41:42

>>475
chmod ago+x *.cgi

**nobodyさん** · 2009/05/19(火) 19:34:05

>>476
おお！動いた！ありがとうございます。
FFFTPの方で700に設定してたのが悪かったのかな・・・。他はこれで動いてるのに。