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/ 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:???] 不満は作者に直接言う 改善案を出す パッチ送る 376 名前：nobodyさん mailto:sage [2007/10/15(月) 12:15:17 ID:???] 男は黙って正規表現一択 scrAPIは女の様な軟弱者が使う物 377 名前：nobodyさん mailto:sage [2007/10/15(月) 14:20:07 ID:???] youtubeに上げなおしてくれ。 ﾆｺﾆｺ垢なんかもってないし使いたくも無い。 378 名前：nobodyさん mailto:sage [2007/10/15(月) 21:15:14 ID:???] カレンダーを作りたいと思っているんですが、ライブラリはありませんか？ 379 名前：nobodyさん mailto:sage [2007/10/15(月) 22:05:51 ID:???] >>378 search.cpan.org/search?m=all&q=Cal&n=100 380 名前：nobodyさん mailto:sage [2007/10/15(月) 23:41:31 ID:???] 処理の進捗状況を表示する一番よい方法は何ですか？ 一定期間ごとにファイルに書き込むことしか思い付きません。 381 名前：nobodyさん mailto:sage [2007/10/15(月) 23:43:46 ID:???] >>380 それでいいんじゃねーの 一番簡単だし 382 名前：nobodyさん mailto:sage [2007/10/16(火) 06:05:03 ID:???] $| = 1; って何かいいことあるの？ 383 名前：nobodyさん mailto:sage [2007/10/16(火) 08:47:04 ID:???] 意味をわかった上で言ってるのか？ それとも意味を聞いてるのか？ とりあえず「perl コマンドバッファリング」あたりでググれ。 384 名前：nobodyさん mailto:age [2007/10/16(火) 10:56:39 ID:???] 自分が使ってるサーバーがLWPが使えないようなので、socketで別サーバーのファイル内容を拾って展開させようとしたんですが、 ローカルではちゃんと動くのにサーバーにアップすると凍ってしまいます。 リストにある複数のブログのrss取得して最新のブログ3件の記事表示、みたいなのがやりたいんですが、 サーバーがLWPの許可してないと難しいですか？ なにかいいやり方あったらお教えください。 385 名前：nobodyさん mailto:sage [2007/10/16(火) 11:11:22 ID:???] fpingの出力値の数字だけを抜き出すプログラムを作りたいのですが、うまくできません。 input.txtという名前に下のようなfpingの出力を入れ www.yahoo.co.jp:[0], 84 bytes, 18.1 ms (18.1 avg, 0% loss) www.yahoo.co.jp:[1], 84 bytes, 23.2 ms (20.7 avg, 0% loss) 18.1 23.2と出力したいです。 bytes,より前を切り取り、ms (　も切り取ろうとして $fping = "./input.txt"; open(A,"$fping")|| die "Can not open file"; @b = <A>; close (A); foreach $c(@b){ $c = grep(/(.*?)bytes, (\d{1,4}\.\d{1,2} ms) \(/,$c); } foreach $c(@b){ print "$c\n"; } というプログラムを作ったんですが、うまくいきません。 どこを直せばいいでしょうか？ 386 名前：nobodyさん mailto:age [2007/10/16(火) 11:26:03 ID:???] >>385 $c =~ /bytes, (.*?) ms/; $c = $1; じゃだめなん？ 387 名前：385 mailto:sage [2007/10/16(火) 12:33:21 ID:???] >>386 レス遅れてすいません。 できました！ ありがとうございます！！ 助かりました、ホントありがとうございます！！！ 388 名前：nobodyさん mailto:sage [2007/10/16(火) 12:40:52 ID:???] >>385 出遅れた…。 perl -lne "print /(?<=bytes, )(.+?)(?= ms)/" input.txt 389 名前：nobodyさん mailto:sage [2007/10/16(火) 13:22:24 ID:???] >>384 どこの鯖使ってるか知らんが、LWP使えないようにしてるってことは FWでoutboundが遮断されてる可能性が高く、だとすればどうしようもない 390 名前：nobodyさん [2007/10/17(水) 00:29:17 ID:7VxwUF8E] SNSサイトにperlを使って接続って無理？

---

---

[ 続きを読む ] / [ 携帯版 ]

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