sub getFile { my ($url,$target) = @_ ; print "getFile($url,$target)" ;
my $path = "" ; my $ua = LWP::UserAgent->new(); $ua->agent('Mozilla/5.0 FOX(2ch.se)'); $ua->timeout(5); my $request = HTTP::Request->new('GET', $url); my $response = $ua->request($request) ;#ここで GET 処理 my $db_content = $response->content();
Apache/2.2.15 (Unix) PHP/5.2.13 mod_ssl/2.2.15 OpenSSL/0.9.8n Server at toki.2ch.net Port 80
Apache/2.2.10 (Unix) PHP/5.2.5 mod_ssl/2.2.10 OpenSSL/0.9.8e Server at yutori7.2ch.net Port 80 Apache/2.2.10 (Unix) PHP/5.2.5 mod_ssl/2.2.10 OpenSSL/0.9.8e Server at hayabusa.2ch.net Port 80 Apache/2.2.10 (Unix) PHP/5.2.5 mod_ssl/2.2.10 OpenSSL/0.9.8e Server at kamome.2ch.net Port 80 0715動け動けウゴウゴ2ちゃんねる2010/07/28(水) 00:55:40ID:DFSNjKQz0>>713 getFile(http://yutori.2ch.net/morningcoffee/,/index.html) = 72919 bytes<br>
ch2toki@tiger3553:~/public_html/test$ ls -l /usr/local/lib/perl5/site_perl/5.10.1/mach/auto/HTML/Parser/Parser.so -r-xr-xr-x 1 root wheel 52835 Jun 11 17:07 /usr/local/lib/perl5/site_perl/5.10.1/mach/auto/HTML/Parser/Parser.so* 0748動け動けウゴウゴ2ちゃんねる2010/07/28(水) 01:21:42ID:Bm/fYkRv0 なんでかねぇ tokiのファイルが壊れてんのかな 0749root▲▲ ★2010/07/28(水) 01:22:56ID:???0 use HTML::Parser;
とした時点でエラーになりますね。< toki 0750動け動けウゴウゴ2ちゃんねる2010/07/28(水) 01:23:43ID:3pubBQHu0 ldconfigがいるんだろうか 0751root▲▲ ★2010/07/28(水) 01:24:53ID:???0 %./PP.pl Can't load '/usr/local/lib/perl5/site_perl/5.10.1/mach/auto/HTML/Parser/Parser.so' → for module HTML::Parser: → /usr/local/lib/perl5/site_perl/5.10.1/mach/auto/HTML/Parser/Parser.so: → Undefined symbol "PL_dowarn" at /usr/local/lib/perl5/5.10.1/mach/XSLoader.pm line 70. at /usr/local/lib/perl5/site_perl/5.10.1/mach/HTML/Parser.pm line 17
なので、
> Undefined symbol "PL_dowarn" at /usr/local/lib/perl5/5.10.1/mach/XSLoader.pm line 70.
がたぶん原因ですが、なぜそれが起こったのか。 0752root▲▲ ★2010/07/28(水) 01:26:02ID:???0 Undefined symbol "PL_dowarn"
my $libref = dl_load_file($file, 0) or do { require Carp; Carp::croak("Can't load '$file' for module $module: " . dl_error()); }; push(@DynaLoader::dl_librefs,$libref); # record loaded object
プロジェクトぞうさん日記を読んでいると 「なんでそこでわざわざそうする!?」とおもう手順が度々ある 0762動け動けウゴウゴ2ちゃんねる2010/07/28(水) 01:41:17ID:ua5xcfhU0 portsを使わずにってことは、perlや>>570以外にもあるかもないかも・・・ 0763動け動けウゴウゴ2ちゃんねる2010/07/28(水) 01:44:12ID:3pubBQHu0 柱が基礎から浮いている家みたいですなぁ 0764root▲▲ ★2010/07/28(水) 01:59:50ID:???0 # Many dynamic extension loading problems will appear to come from # this section of code: XYZ failed at line 123 of DynaLoader.pm. # Often these errors are actually occurring in the initialisation # C code of the extension XS file. Perl reports the error as being # in this perl code simply because this was the last perl code # it executed.
って、
/usr/local/lib/perl5/5.10.1/mach/XSLoader.pm line 70.