[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 08/25 20:07 / Filesize : 271 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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

1 名前：nobodyさん mailto:sage [2007/09/16(日) 19:49:43 ID:???]
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >2 以降

前スレ　ttp://pc11.2ch.net/test/read.cgi/php/1180492441/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/

275 名前：255 [2007/10/06(土) 22:39:59 ID:PfM+S4yJ]
>>274
ん・・・

map EXPR, LIST
　　　　↑これかーー！

納得です。ずっと{}の中のコンマばかりに注目してました。{}とLISTの間のコンマのあるなしが問題だたのですね。



276 名前：nobodyさん mailto:sage [2007/10/06(土) 23:23:20 ID:???]
フォーイーチでいいんじゃないの？

277 名前：nobodyさん mailto:sage [2007/10/06(土) 23:29:56 ID:???]
perldoc に -f をつけるだけで上場できるインターネッツはここですか？

278 名前：nobodyさん mailto:sage [2007/10/07(日) 13:10:36 ID:???]
むしろ英単語の for と each をくっつけただけのものを
他になんて読めるのか知りたい

279 名前：nobodyさん mailto:sage [2007/10/07(日) 15:12:27 ID:???]
>>278
仏単語の fo と 英単語の reach をくっつけたものという可能性も検討すべきでは？


280 名前：nobodyさん [2007/10/07(日) 18:18:02 ID:LZD6O2BK]
フォーチだろ。

281 名前：nobodyさん [2007/10/07(日) 21:49:16 ID:lRWvT8wN]
ソケット使ってホームページを取得するプログラムを書いてます。
HTTP/1.1 200 OKが返ってきて、Content-lengthもある程度あるのに、
フッタが何もないことがあるのですがどうしてでしょうか。
正常に見れるサイトもあります。

use Socket;
use FileHandle;

$host = "www.ftnet.or.jp";
$path = "/FTtuusin/index.html";
$port = 80;

$ip = inet_aton($host) || &error("host($host) not found.\n");
$SOCKADDR = pack_sockaddr_in($port, $ip);
$res = &connect($host,$path,$port);
print $res;

exit;


282 名前：nobodyさん [2007/10/07(日) 21:51:37 ID:lRWvT8wN]
sub connect {
my ($res, $host, $path, $port);
$res = "";
$host = $_[0];
$path = $_[1];
$port = $_[2];

# ソケットの生成
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || return -1;
# ソケットの接続
connect(SOCKET, $SOCKADDR) || return -2;
autoflush SOCKET (1);

print SOCKET "GET $path HTTP/1.1\n";
print SOCKET "Referer: $url\n";
print SOCKET "Host: $host:$port\n";
print SOCKET "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\n";
print SOCKET "Connection: close\n";
print SOCKET "\n";


foreach (<SOCKET>) {
$res .= $_;
}
close SOCKET;
return $res;
}

283 名前：nobodyさん [2007/10/07(日) 21:53:04 ID:lRWvT8wN]
レスポンスは

HTTP/1.1 200 OK
Date: Sun, 07 Oct 2007 11:31:44 GMT
Server: Apache/2.0.52 (CentOS)
Last-Modified: Fri, 16 Jun 2006 05:41:38 GMT
ETag: "4474a-daf-deccc880"
Accept-Ranges: bytes
Content-Length: 3503
Connection: close
Content-Type: text/html




284 名前：nobodyさん mailto:sage [2007/10/07(日) 23:54:11 ID:???]
フッタって何の事言ってる？

285 名前：281 mailto:sage [2007/10/08(月) 00:21:06 ID:???]
すまん、確かにフッタって言葉は違う気がしてきた。

本文の部分です。htmlが書かれてる部分。

286 名前：nobodyさん mailto:sage [2007/10/08(月) 02:57:53 ID:???]
>>281
「何もない」状態を確実に再現できる例を
用意してくれないと、デバッグの手伝いはできないよ。
少なくとも手元の環境だと>>281-282のコードとサイトは
一応動くし全部取得できている。

287 名前：nobodyさん mailto:sage [2007/10/08(月) 03:06:09 ID:???]
HTTPは正確には\nではなく\r\nでそ

288 名前：nobodyさん mailto:sage [2007/10/08(月) 03:32:19 ID:???]
HTTP/1.0にしたら解決しましたって答えは無しな。
わざわざ作るなら1.1を使う物を作ろうよ。

289 名前：nobodyさん mailto:sage [2007/10/08(月) 03:33:54 ID:???]
答えじゃないな。解決法だなorz

290 名前：nobodyさん mailto:sage [2007/10/08(月) 06:54:42 ID:???]
ちょっとここでいいのかどうかわかりませんが、質問です。
HTML-Parser-3.56を、cpan2rpmで.rpmにリビルドしようとしてたんですが、
make testの段でエラーになります。

(略・・・
t/unbroken-text......ok
t/unicode-bom........
# Failed test in t/unicode-bom.t at line 43.
# got: 'Parsing of undecoded UTF-8 will give garbage when decoding entities at t/unicode-bom.t line 24.
# Parsing of undecoded UTF-8 will give garbage when decoding entities at t/unicode-bom.t line 28.
# Parsing of undecoded UTF-16 at t/unicode-bom.t line 31.
# Parsing of undecoded UTF-16 at t/unicode-bom.t line 34.
# Parsing of undecoded UTF-32 at t/unicode-bom.t line 37.
# Parsing of undecoded UTF-32 at t/unicode-bom.t line 40.
・・・・(略)
t/unicode............ok
t/xml-mode...........ok
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/unicode-bom.t 1 256 2 1 50.00% 1
1 test and 1 subtest skipped.
Failed 1/48 test scripts, 97.92% okay. 1/430 subtests failed, 99.77% okay.

291 名前：つづき mailto:sage [2007/10/08(月) 06:55:12 ID:???]
で自前で、tar xzf HTML-Pasrer-3.56
perl Makefile.PL
make
make test
したときは、ビルドエラーにならず、
（略...
t/xml-mode...........ok
All tests successful, 1 test and 1 subtest skipped.
Files=48, Tests=430, 5 wallclock secs ( 3.03 cusr + 1.62 csys = 4.65 CPU)
と、ちゃんと通ります。

そこで、途中経過のspecファイルと、自前make時の出力を見比べてみると、
1:cd HTML-Parser-3.56
2:grep -rsl '^#!.*perl' . |
3:grep -v '.bak$' |
4:xargs --no-run-if-empty /usr/bin/perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'
5:/usr/bin/perl -MExtUtils::MakeMaker -e ' print qq|PREFIX=/var/tmp/perl-HTML-Parser-3.56-root/usr| if $ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ ' |
6:/usr/bin/perl Makefile.PL
と、cd HTML-Parser-3.56 から /usr/bin/perl Makefile.PLまでの間になにか挟まってます。(↑のはcpan2rpmで出来たspec)

多分、5行目は、仮インストールPREFIXを指定してるとこなので必要だとは思いますが、2,3,4行目でやってることの
意味がわかりません。


292 名前：つづき2 mailto:sage [2007/10/08(月) 06:56:35 ID:???]
ためしに自分で展開したHTML-Parserに、上の部分だけ(5行目以外)shスクリプトにコピペして実行してみると、
make testでエラーになりました。

さらに、2,3部分のみ実行すると、
./t/document.t ./t/marked-sect.t ./t/dtext.t ./t/msie-compat.t ./t/stack-realloc.t ./t/headparser.t ./t/crashme.t ./t/script.t
./t/filter-methods.t ./t/entities2.t ./t/unicode.t ./t/unicode-bom.t ./eg/hlc ./eg/hform ./eg/hstrip ./eg/htitle ./eg/htextsub
./eg/htext ./eg/hanchors ./eg/hdump ./eg/hrefsub ./mkpfunc ./mkhctype
と、こんな結果になるんですが、これをlist(@ARGV)として
perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'に渡してるんだと思うんですが、
この'MY->fixin(@ARGV)'がなにをやってるのかがわかりません。
MakeMaker.pmやそこからuse,requireしてるモジュールから'fixin'関数を探しましたが見つからず、
また、ggってみても、cpan2rpmの途中経過を報告してるページにHITするだけで、これが何を意味してるかがわかりません。

specから、この2,3,4の部分を消してrpmbuildするとちゃんとビルドが通ることは通るんですが、
なにか重大な落とし穴があるような気がして、気持ち悪いです。


293 名前：290 mailto:sage [2007/10/08(月) 07:22:51 ID:???]
おっと、MM_Unixのマニュアルに’fixin’を発見。今までWin機にインストールされたマニュアルみても出てこんわけだ。

でも、説明の　Inserts the sharpbang or equivalent magic number to a set of @files.　で？？
sharpbangってなんですか。
さらにUnix版のMakeMaker.pm内で検索かけても’fixin’で出てこない。
なおさら？？？です。



294 名前：290 mailto:sage [2007/10/08(月) 07:37:52 ID:???]
なんべんも連投すいません。
sharpbangってのはどうやらファイルの頭の
#!/usr/bin/perl ってのらしいですが、ますます訳がわかりません。
一晩寝てないんでもう頭がバグってきました。
もう寝ます。

295 名前：nobodyさん mailto:sage [2007/10/08(月) 11:25:25 ID:???]
> 一晩寝てないんでもう頭がバグってきました。

徹夜なんかする奴はばかです。

296 名前：281 mailto:sage [2007/10/08(月) 12:47:24 ID:???]
>>286

>>281は余計と思われる部分を省いて、通信に関わる部分だけを書いたんですが
それを実際に自分で動かしてみたら正常に動きました。
htmlを取得したあとの文字列処理が原因だったようです。
ご迷惑おかけしました。ｻﾝｸｽです。

297 名前：nobodyさん mailto:sage [2007/10/08(月) 15:03:02 ID:???]
>>290-294
そこまで辿れてるのならソース見れば？
search.cpan.org/src/MSCHWERN/ExtUtils-MakeMaker-6.36/lib/ExtUtils/MM_Unix.pm
ザラっと読んだ限りでは shebang (sharpbang) 行を自分の環境に
合うものへ修正しているみたいだけど。

298 名前：290 mailto:sage [2007/10/08(月) 21:22:47 ID:???]
昼間寝てリフレッシュしたんで、追跡再開。

>>297のおっしゃる通り、’MY->fixin(@ARGV)’で、292のテストスクリプト一式の先頭行が、
#!perl -w から #!/usr/bin/perl -w に書き換えられてる模様。
でその下に3行ほど、
eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
if 0; # not running under some shell

ってゆうコードが追加されてます。
それ以下、use strict・・・からの実行部分は両者（自前makeとcpan2rpm)で一字一句違いなし。
(ここからはmake testでエラーの出る t/unicode-bom.tに絞って追っています)

なんで上の追加された３行が原因か？と調べてみると、ここの部分は、どうやら一部の/bin/shが頭の
#!/usr/bin/perl(sharpbang)を認識しない時用に直接shから起動させるためのコードの模様。
これが原因ではないっぽい。
う〜んと思ってスクリプトを上から順になぞっていくと、
！！！！！っ！　わかったーーー！！

このスクリプトの後半部分で、is(join("",@warn), <<EOT)以下で、warningのトラップをしてるんだけど、
うえの３行が追加されたことによって、当然実行部分の行数が３行づつ下がってるんだけど、
warningトラップの各対応行がもともとのまま(つまり実際の行数-3の)部分と比較しようとして
is()がこけてmake testがエラってたんです。

>>295
いや〜〜、やっとエラーの原因つかめてすっきりしました。これで今晩はゆっくり寝れます。

299 名前：sage [2007/10/09(火) 19:35:34 ID:oM/XiNAd]
Net::Telnetモジュールについての質問です。
ルーターにログインし、$telnet->cmd("show running-config")にて現在のルーターの設定を取得したいのですが、
取得した設定の中に、現在のプロンプトを示す文字列(例えば'#'など)があった場合、そこの行でデータの取得が終わりになってしまいます。
$telnet->promptコマンドにてユーザープロンプトを設定したのですが、その文字列もルーターの設定の中にあった場合、そこで設定の取得が止まってしまいます。
以下に例を書きます。

use Net::Telnet;
use strict;

my $telnet = new Net::Telnet( Timeout => 10);
#ログイン、特権モードへ
$telnet->open(host_name);
$telnet->login(user_name,password);
$telnet->print("enable");#特権モードに
$telnet->waitfor("/Pass/i");
$telnet->print(priv_password);#特権パスワード
$telnet->waitfor('/#/'); #特権プロンプトで待つ

my @show_run = $telnet->print('show running-config');
$telnet->waitfor("hogehoge");

ここのhogehogeに設定した文字列がrunning-config内にある場合、
そこでrunning-configの取得が終了してしまいます。
なにかうまい回避方法があればご教授願います。

300 名前：nobodyさん mailto:sage [2007/10/09(火) 20:11:15 ID:???]
>>299
search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm

@show_run = $telnet->getlines; とか
push @show_run, $ｌｉｎｅ while $line = $telnet->getline(Timeout => 1); で
なんとかならんか。Net::Telnet 使ったことないし試してないけど。

301 名前：nobodyさん mailto:sage [2007/10/09(火) 22:13:34 ID:???]
正規表現でもっと詳細に指定してみるとか。

302 名前：nobodyさん [2007/10/09(火) 22:14:34 ID:gGNoM/Xe]
Can't locate object method "new" via package "XML::RSS" (perhaps you forgot to load "XML::RSS"?) at XML/RSS.pm line 3.
って出たんですがこのエラーはなんですか？

303 名前：nobodyさん mailto:sage [2007/10/10(水) 00:01:33 ID:???]
XML/RSS.pmの
ソースコードの3行目で
XML::RSSのロードを忘れたので
オブジェクトメソッドであるnewを
配置できなかった。



304 名前：nobodyさん mailto:sage [2007/10/10(水) 01:09:25 ID:???]
>>299
$telnet->prompt('/user prompt $/');

305 名前：nobodyさん mailto:sage [2007/10/10(水) 15:24:05 ID:???]
類似した関数を各ファイルにまとめて、それをuseして使っています。
しかし、それぞれのモジュールで、use CGI　としているのですが、
これにより余計な負担がかかっているということはありますか？


306 名前：nobodyさん mailto:sage [2007/10/10(水) 18:20:17 ID:???]
構造を見直すべきだと思うが、
%INCがちゃんとしてくれるから
重複されてロードされるとかはないはず

307 名前：nobodyさん mailto:sage [2007/10/11(木) 16:13:57 ID:???]
キャッシュを貯めているフォルダが大きくなりすぎてFTPクライアントではアクセスできません
フォルダごと削除したいのですがスクリプトでどうにかできますか？

308 名前：nobodyさん mailto:sage [2007/10/11(木) 17:28:34 ID:???]
system "rm -rf /";

309 名前：307 mailto:sage [2007/10/11(木) 17:56:32 ID:???]
>>308
消すことができました
ありがとうございます

310 名前：nobodyさん mailto:sage [2007/10/11(木) 18:07:02 ID:???]
ちょｗｗｗ

311 名前：nobodyさん mailto:sage [2007/10/11(木) 18:38:41 ID:???]
ヤフーで検索した検索の秒数や検索されたURLの一覧を出すような事は
Perlで実現可能でしょうか？

例えば「リンゴ」で検索すると自身のサイトで
---------------------------------------
・約27,900,000件
・0.01秒
　・ja.wikipedia.org/wiki/リンゴ
　・www.kcsnet.ne.jp/kyoei
　・www.kodomo-iin.com/HL/HL220.html
　・www.hasp.tv
　・www.yumeringo.com
　　　(続く
---------------------------------------
このように表示させたいのです。

もし実現可能であれば、どのような仕組みを学べば良いでしょうか。

312 名前：nobodyさん mailto:sage [2007/10/11(木) 19:19:28 ID:???]
ヤフーがAPI用意してればできるんじゃない？

313 名前：nobodyさん mailto:sage [2007/10/11(木) 19:30:54 ID:???]
ヤフーAPIならとっくに公開してるぞ



314 名前：nobodyさん [2007/10/12(金) 04:05:22 ID:i4CjOo+I]
XML::RSSについて質問です。
rssのバージョンが1.0の場合、以下のソースの#エラーが出るの部分で
Use of uninitialized value in concatenation (.) or string at rss line 21.
というエラーが出てしまいます。
他の<link>タグなどの場合は表示できるので
<dc:date>などの名前空間を使っているタグの場合に
上記のエラーが出てしまうみたいです。
どうすれば、名前空間のタグデータも表示できますか？

my $rss = new XML::RSS;
my $url = "hoge.con/rss.xml";
my $dat = get($url);
my $result = $rss->parse($dat);

foreach my $item ( @{$rss->{'items'}} ){
if($result =~ /1.0/){
print "@{$item_list}[0]->{'dc:date'}\n"; #エラーが出る
}elsif($result =~ /2.0/){
print "@{$item_list}[0]->{'pubDate'}\n";
}
}


315 名前：nobodyさん mailto:sage [2007/10/12(金) 04:09:29 ID:???]
print @{$item_list}[0]->{'dc:date'} || '', "\n";
とか。

316 名前：314 mailto:sage [2007/10/12(金) 04:37:32 ID:???]
すいません。
ソースがおかしかったんで張りなおします。

my $rss = new XML::RSS;
my $url = 'hoge.com/rss20.xml';
my $dat = get($url);
my $result = $rss->parse($dat);

foreach my $item ( @{$rss->{'items'}} ){
if($result =~ /1.0/){
print "$item->{'dc:date'}\n"; #エラーが出る
}elsif($result =~ /2.0/){
print "$item->{'pubDate'}\n";
}
}

317 名前：314 mailto:sage [2007/10/12(金) 04:50:59 ID:???]
自己解決しました。
print "$item->{'dc'}->{'date'}\n";
という記述でうまくいきました。
お騒がせしました。

318 名前：nobodyさん [2007/10/12(金) 22:46:03 ID:w18ekEW+]
ここにいる人は仕事でもPerlに問わずプログラミングをしてるのですか？
そういう仕事に就くにはやはり学校などを出てる必要があるのでしょうか？
いわゆる大卒みたいな最低条件というか。

前から一度経験してみたいなと思っていましたが、そういうアルバイトはないんでしょうか。
建設現場の日雇いみたいに気軽にやってみたいです。
本業はありますが、結構時間はあるほうなので。

この世界はどうなってるのでしょうか？

319 名前：nobodyさん mailto:sage [2007/10/12(金) 22:50:35 ID:???]
仕事に関する大事なことを自分で調べず2chで聞いてる時点で・・・

320 名前：nobodyさん mailto:sage [2007/10/12(金) 22:59:11 ID:???]
セックスアパートって会社で働くといいよ。

321 名前：nobodyさん [2007/10/12(金) 23:23:59 ID:w18ekEW+]
２ちゃんをバカにしてる利用者ほどその利用方法はひどいって法則誰かが言ってましたね。


322 名前：nobodyさん mailto:sage [2007/10/13(土) 00:20:58 ID:???]
プログラマーなんて趣味の延長だろ
24時間ＰＣの前でカタカタやるのが楽しくなきゃやってられない


323 名前：nobodyさん mailto:sage [2007/10/13(土) 00:22:01 ID:???]
「CGI Perl 実務経験なし 初心者OK」で求人サイト検索すりゃいいべ。



324 名前：nobodyさん mailto:sage [2007/10/13(土) 00:26:24 ID:???]
>>321
その手の切り返しパターンもう飽きた

325 名前：nobodyさん mailto:sage [2007/10/13(土) 00:41:31 ID:???]
多分しっかりやらないとプログラムは楽しくない。

326 名前：nobodyさん mailto:sage [2007/10/13(土) 02:59:15 ID:???]
プログラマーは3桁残業にも耐えられる精神力＋体力が必要。

年取ったら高確率で禿げそう。

327 名前：nobodyさん [2007/10/13(土) 15:06:53 ID:iKtPwiMH]
$a = 0000010
この文字列を数字に変える（$ = 10）
簡単な表記はありますでしょうか？
sprintf使ってみたのですが上手くいきません

328 名前：nobodyさん mailto:sage [2007/10/13(土) 15:10:02 ID:???]
それは文字列じゃなくて８進数じゃ？
もし$a= "0000010"; なら 関数int使えばいい

329 名前：３２７ mailto:sage [2007/10/13(土) 15:13:51 ID:???]
すみません
自己解決しました
%dで

330 名前：318 [2007/10/13(土) 16:40:37 ID:5Vuk1MtC]
この雰囲気からすると日雇いなんかなさそうですね。
しかしこういう雰囲気からすると日雇いなんかありませんよね。
ちょっと待って日雇いなんかありませんよ。

実際いきなりそれを本職とするのは厳しい。
どういう雰囲気なのか味わいたいだけと考えるとそういう会社で働いてる人脈を作るのがよさそうですね。

ここの本職の方は会社と自宅以外にどこに行きますか？
明日とかきっと休日だと思いますけど、街へ行ったりするんですか？
家族持ちだとどうしても接点を取っても仲良くはなれなさそうだから。
独身がいい。女を紹介とかすればそれなりに仲良くなれる気がするんですが。
どうですかね。女は嫌いですか？

331 名前：nobodyさん mailto:sage [2007/10/13(土) 18:43:45 ID:???]
コーディング初心者質問スレであって、IT 土方向けの仕事斡旋スレではないんだよなぁ。

332 名前：318 [2007/10/13(土) 19:19:29 ID:5Vuk1MtC]
なるほど。
やはり頭は固いと。

333 名前：nobodyさん mailto:sage [2007/10/13(土) 21:12:30 ID:???]
釣りにしては程度が低すぎるんだが、これは素で言ってるのか？ｗ
だとしたらやばすぎる。



334 名前：nobodyさん mailto:sage [2007/10/13(土) 21:40:38 ID:???]
スルーしとけよ

335 名前：nobodyさん mailto:sage [2007/10/13(土) 21:48:34 ID:???]
スレ違いという自分のミスを指摘され
馬鹿にされ悔しさのあまり慢心で書き
出した文章がこれ

336 名前：nobodyさん [2007/10/13(土) 21:53:08 ID:fl6REYk4]
ＩＰアドレスから携帯かＰＣかを判断したいんですがどうやればいいんですか？

337 名前： ◆TWARamEjuA mailto:sage [2007/10/13(土) 22:06:27 ID:???]
ここで宣う前に「調べる」ことをお勧めいたします。

338 名前：336 mailto:sage [2007/10/13(土) 22:23:53 ID:???]
ググっても分からなかったので教えてもらえませんか

339 名前：nobodyさん mailto:sage [2007/10/13(土) 22:31:44 ID:???]
どうググったのですか

340 名前： ◆TWARamEjuA mailto:sage [2007/10/13(土) 22:35:33 ID:???]
(´-`).｡ｏＯ(ググる≠調べる　ググる＝さがす　・・・と思うけれども。。。)

341 名前：336 mailto:sage [2007/10/13(土) 22:58:35 ID:???]
perl 　IPアドレス　携帯か　判断
とかで検索したけど出てきませんでした

342 名前：nobodyさん mailto:sage [2007/10/13(土) 23:16:28 ID:???]
俺なら
perl 携帯　判定
でぐぐるな。

343 名前：nobodyさん mailto:sage [2007/10/13(土) 23:43:01 ID:???]
cpanでmobile ipとかで調べたらいいんじゃね？



344 名前：nobodyさん mailto:sage [2007/10/13(土) 23:50:32 ID:???]
>>342
それだとＵＡ判定が多いんじゃ？

携帯 ＩＰアドレス wiki　で検索かけたらあったぞ

345 名前：336 mailto:sage [2007/10/13(土) 23:56:59 ID:???]
ＵＡで判定できるなんて知らなかった。
ＩＰアドレスより楽みたいですね。

346 名前：342 mailto:sage [2007/10/14(日) 00:01:08 ID:???]
>>344
そうだった。IPで判定したいんだったな。これは失礼。

347 名前：336 mailto:sage [2007/10/14(日) 00:06:15 ID:???]
ＵＡで判定したら携帯ブラウザエミュだと携帯で判定されるのか。
ＩＰアドレスの方が確実ってことかな？

348 名前：336 mailto:sage [2007/10/14(日) 00:16:57 ID:???]
携帯ってＩＰアドレスの種類どんどん増えてってたのか・・・
諦めてＵＡで判定します。

349 名前：nobodyさん mailto:sage [2007/10/14(日) 03:31:42 ID:???]
CPANにモジュールあるよ。

350 名前：nobodyさん mailto:sage [2007/10/14(日) 06:50:16 ID:???]
フォームって別ドメインのCGIスクリプトにも送信できたっけ？

351 名前：nobodyさん mailto:sage [2007/10/14(日) 07:54:33 ID:???]
>>349
それって DIS るのが生きがいの人のだっけ？

352 名前：nobodyさん mailto:age [2007/10/14(日) 07:54:34 ID:???]
open関数で開けるファイルって同じサーバーにある必要がありますよね？

別サーバーにあるファイルの情報を参照する方法はあるのでしょうか？
あるのでしたら方法をお教え下さいますようお願いします。

353 名前：318 [2007/10/14(日) 08:50:07 ID:a8OZDemC]
>>333-335
別にバカにしてるわけでもないのに、どうしてすぐそうムキになるかね。
逆に聞きたいが、自分は頭が固くないとでも思ってるのかい？




354 名前：nobodyさん mailto:sage [2007/10/14(日) 09:23:55 ID:???]
おまい自分が雇う側の立場になって考えてみな
日雇いで次の日に来るかどうか解らない奴を雇う？
スキルレベルも解らずに雇う？
つか、銭もらえるだけのスキルはあるのか？


355 名前：318 [2007/10/14(日) 12:02:37 ID:a8OZDemC]
>>354
＞日雇いで次の日に来るかどうか解らない奴を雇う？
もしかして日雇い知らない？
プログラミングに関わらずどんな仕事でも適当なやつはいらないし雇わないよ。

＞スキルレベルも解らずに雇う？
どんな職業でも同じ。

君は雇う側になったことがなさそうだ。

356 名前：nobodyさん mailto:sage [2007/10/14(日) 12:10:23 ID:???]
もう頭のおかしいヤツ相手にすんなよ

ま、いちばん悪いのは病院に連れて行かない親なわけだが

357 名前：nobodyさん [2007/10/14(日) 13:05:35 ID:9kSbwdFL]
画像付きのBBSに、アクセスログ記録を付けて使っています
ところが、特定の人だけ同時に３回記録されています
WindowsNT5.1　ブラウザが「Sleipnir」

たぶんブラウザのせいだと思いますが、
１回のアクセスでサーバに３回の動作をさせている事になります

一体どういう事なのでしょう？　perlの書き方のせいでしょうか？

358 名前：nobodyさん mailto:sage [2007/10/14(日) 13:19:59 ID:???]
実際一番ムキになってるのは君じゃん(w

359 名前：nobodyさん mailto:sage [2007/10/14(日) 17:32:02 ID:???]
>>357
とだけ言われてもなぁ、多重コネクションで画像DLなんてよくある話だし。

で、どうしたいのさ？

360 名前：nobodyさん [2007/10/14(日) 18:22:36 ID:9kSbwdFL]
>>359
画像付きといってもファイルをたまにアップするだけで
ほとんどの利用はテキストの書き込みと、BBSの読み込みです
会員制サイトなのでアクセスの数は少ないです
サイトの関連ログが飛ぶトラブルがあって原因の一つと思います

まず、なぜこの環境の人がアクセスすると、同時刻に３回CGIが動作して
しまうのか、その原因を知りたいです
BBSのスクリプトでは、＠の配列に入れたものをforeachで展開しながら
html表示します、アクセスログはこのプロセスに入れ込んでます

361 名前：nobodyさん mailto:sage [2007/10/14(日) 19:25:16 ID:???]
当人じゃないからわからんが、Javascriptで読み込みなおしするような
なんかをしてるんじゃね？
本人に聞いたらいいよ。

362 名前：nobodyさん [2007/10/14(日) 19:59:35 ID:RGItsPbe]
質問です。
CPANモジュールまとめサイトってないですかね？
いろいろググったけどそれらしきものがなかったので。

363 名前：nobodyさん [2007/10/14(日) 20:01:11 ID:RGItsPbe]
>>362
追記
日本語モジュール解説　まとめサイトです



364 名前：nobodyさん mailto:sage [2007/10/14(日) 20:37:02 ID:???]
perldoc.jp

365 名前：nobodyさん mailto:sage [2007/10/14(日) 20:42:54 ID:???]
basic認証が必要な自サイトのアクセスログからある部分だけ抽出して表示させたい
のですがまずcgiでアクセスするにはどうすればいいでしょうか？

366 名前：nobodyさん [2007/10/14(日) 20:49:09 ID:RGItsPbe]
>>364
そこで全部見れるんだ。
ありがとー
結構数すくないっすね

ありがっつ

367 名前：nobodyさん [2007/10/14(日) 22:03:04 ID:5YQaKvWD]
ブログのページからソースを取ってきてテキスト部分だけを取り出したいんですが

use LWP::Simple;
$buff = get("www.....");
print $buff;　
　
これでとりあえずソースだけは取ってこれたのですが、テキスト（記事）の部分だけ取り出す方法がわかりません。
よろしくお願いします

368 名前：nobodyさん [2007/10/14(日) 22:05:45 ID:RGItsPbe]
>>367
正規表現でちょちょいのどんじゃないですかね？
一度調べてみることをおすすめします。


369 名前：nobodyさん [2007/10/14(日) 22:15:05 ID:9kSbwdFL]
>>361
なるほど
当方MacなのでParallelsのWinに「Sleipnir」入れてみましたが、
プラグインかなにかなんでしょうね
有り難うございました

370 名前：nobodyさん mailto:sage [2007/10/15(月) 00:22:13 ID:???]
>>367
最近はこういうのが流行みたいです

Web::Scraper
search.cpan.org/~miyagawa/Web-Scraper/

371 名前：nobodyさん mailto:sage [2007/10/15(月) 00:43:20 ID:???]
>>369
ぐぐればトップに出てくるだろうに

372 名前：nobodyさん mailto:sage [2007/10/15(月) 00:44:21 ID:???]
ごめん、371は勘違い

373 名前：nobodyさん mailto:sage [2007/10/15(月) 01:06:24 ID:???]
nikonikoにもScraperネタある。
www.nicovideo.jp/watch/sm1237738




374 名前：nobodyさん mailto:sage [2007/10/15(月) 03:46:48 ID:???]
Web::Scraper が重いんだけど、どうにかならないの？

375 名前：nobodyさん mailto:sage [2007/10/15(月) 05:35:56 ID:???]
不満は作者に直接言う
改善案を出す
パッチ送る




[ 続きを読む ] / [ 携帯版 ]
前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜271KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef