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/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に設定してたのが悪かったのかな・・・。他はこれで動いてるのに。

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

>>477
当たっちゃったか

apacheは、apacheユーザとかnobodyユーザとかで動くから、
700じゃ実行権限ないの。この設定はhttpd.confで出来るよ。

他で動いてる理由は、4700か2700になってるとかかもしれないね
もしくはrootユーザに設定されてるか。もしされてるなら危険なので変えよう。

**nobodyさん** · 2009/05/19(火) 20:22:03

あとよくあるのが、cgiの場合HTMLを吐かずに終了してる場合

**nobodyさん** · 2009/05/19(火) 20:32:44

>>478
自己レス。
ごめん。勘違いに気づいた
4700、2700じゃ実行できるわけないや

**nobodyさん** · 2009/05/19(火) 20:38:57

ディレクトリ内のファイルを更新日時でソートして表示するにはどうしますか？

**nobodyさん** · 2009/05/19(火) 20:40:03

opendir
stat
map
sort

**nobodyさん** · 2009/05/19(火) 20:44:51

mapで何するの？

**nobodyさん** · 2009/05/19(火) 20:48:58

qx|ls -tl|

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

open IN, "ls -t ./ |";
while(<IN>){
print $_;
}
close IN;

時刻も取りたいなら、-tlにして、\sでsplit

**nobodyさん** · 2009/05/19(火) 20:51:15

フォルダ内のファイルを更新日時でソートして表示するにはどうしますか？

**nobodyさん** · 2009/05/19(火) 21:15:24

@files = `ls -t`; (新しい順)
@flies = `ls -tr`;(古い順)

**nobodyさん** · 2009/05/19(火) 21:20:16

>>486
use strict;
use File::stat;

opendir(DIR, "./") or die;
my @file = readdir(DIR);
closedir(DIR);

my @new = ();
for (@file) {
my $fi = stat($_);
push @new, {name=>$_, mtime=>$fi->mtime};
}
@new = sort { $a->{mtime} <=> $b->{mtime} } @new;

あとは@newが順番は更新日時順でハッシュの配列になってるから。

**nobodyさん** · 2009/05/19(火) 21:22:11

.
..

↑これ消さないと

**nobodyさん** · 2009/05/19(火) 21:26:11

ほら、初心者の頃って、余計なの入ってると理解が遅れたりするじゃん
まずこれが理解できるようになってから、自分で消してもらうってことで。

**nobodyさん** · 2009/05/19(火) 21:28:16

@fileの更新日時ソートを、map、stat、sortで一行で書くにはどうしますか？

**nobodyさん** · 2009/05/19(火) 21:30:22

自分でやれｗ
俺map嫌いなんだよ

**nobodyさん** · 2009/05/19(火) 21:36:48

$dir= ".";
opendir(IN, $dir);
@files= map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(stat("$dir/$_"))[9]]}grep(-f"$dir/$_", readdir(IN));
closedir(IN);

**更新日時でソート** · 2009/05/19(火) 21:49:48

ありがとう。みなさんありがとう。

**nobodyさん** · 2009/05/19(火) 21:52:56

まさに黒魔術だよな

**nobodyさん** · 2009/05/19(火) 23:18:27

どいつもこいつも古いopen/opendirの書き方しやがって

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

openとか、デバッグくらいにしか使わないからなぁ

**nobodyさん** · 2009/05/20(水) 00:12:40

新しいのってどんな書き方？

**nobodyさん** · 2009/05/20(水) 00:15:44

open IN, ">", $file;

**nobodyさん** · 2009/05/20(水) 00:21:19

my @file = glob("./aaa");
とか？
でもこれはopendir+readdirだな

なんかのモジュール使うとかだと、結局はopenのラップだしなぁ

>>496
答えは？

**nobodyさん** · 2009/05/20(水) 00:31:37

>>499
入力ファイルが消えてしまったんだが

**nobodyさん** · 2009/05/20(水) 01:06:52

openは3引数で書くようになったが
opendirは相変わらず2引数だなぁ

**nobodyさん** · 2009/05/20(水) 01:15:45

>>500
ファイルハンドルはグローバルだから使うべからず（STDINとかの例外を除く）
>502の言うように3引数でmyつけて使うべし

**nobodyさん** · 2009/05/20(水) 01:28:30

新しい書き方では、出力ファイルのハンドラをINと書く

俺は古いのでいいや、なんか混乱しそうだし