Perlについての質問箱 37箱目

1 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:10:40 ] "The duct tape of the Internet" こと、Perlについての質問箱です。 "There's more than one way to do it" ということで、 Perlの奥深さについて皆で語り合い、追求してまいりましょう。 CGIについての質問は板違いです。WEBプログラミング板でどうぞ。 CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。 ( WEBプログラミング板 pc11.2ch.net/php/ ) CGIの質問は答えが Perlと全然関係ない話に帰着する場合が 多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。 このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 www.perl.org/get.html ● 2008/08/11 現在の最新版（安定版）: 5.10.0 ● 2008/08/11 現在の開発版: 5.9.5 ▼ 前スレ Perlについての質問箱 36箱目 pc11.2ch.net/test/read.cgi/tech/1215569470/ リンク集は>>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは>>5-6 あたり 449 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 18:57:27 ] >442 一番最後の行で答えが出てるじゃないか。 >444 まさにPerlの美学であると同時にデメリットだよなあ。 自分なら適当に区切るか括弧をつける。 >448 でもまあ、付けるけどな、俺。 450 名前：448 mailto:sage [2008/08/31(日) 19:33:07 ] >>449 >>444 にあるコードは読み手を混乱させるのが目的なので、あえてそのように書いているのはお分かりかと思います。従って可読性を上げては意味がありません。 ただ今回のコードはまったくややこしくない、いわば子供だましの類なので、読めないとちょっとアレなのは確かですが。 >>448 もちろんそれがよいでしょう。理由は…、言うまでもありませんな。 451 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 19:51:31 ] >>444 ppencode の出力の一部じゃないのか? ppencode が何者かはぐぐればわかる。 452 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 20:28:16 ] print q pop これでoって出るのがすげーわらえる 453 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 20:53:40 ] はいはいわろすわろす 454 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:45:17 ] >>444って要するに、"q"の意味がわかれば簡単だよね？ 455 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:47:55 ] >>444 それぞれ一つ一つの意味は分かっても、こうやって並ばれると分からないです＞＜ 456 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 21:54:00 ] 残念ながらそれは、知らないと ﾊｧ? なレベルの知識だ。 457 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 22:08:19 ] ﾊｧ? 458 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:02:46 ] 今日からＰｅｒｌを始めたいと思ってます。　 Active Perlというものは今でも無料で入手できるのでしょうか。。。　 Windowsで使いたいのです。　 459 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:11:26 ] なぜ実際に自分で試そうとしない？ 460 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:11:48 ] >>458 ActivePerl そのものは現在も無料です。楽しんでね。 461 名前：デフォルトの名無しさん mailto:sage [2008/08/31(日) 23:40:46 ] なるほど、ここで生成されたものか ppencode - JavaScript demo namazu.org/~takesako/ppencode/demo.html 462 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:49:55 ] >>458 ActivePerlは無料です。 でもダウンロードのリンクは IQ１５０以上でないと 探せないようになっております。 463 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:51:06 ] ちなみに最新バージョンは ５．１０です。 ごーてんいち、でなくて ごーてんじゅう、です。 464 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:51:58 ] ダウンロードしてきたファイルは、 msiファイルを右クリで、インストールを 選べばインストールできます。 ダブクリではインストできないこともあります。 465 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 00:52:45 ] ちなみに、VISUALPerlというものは 開発中止になった模様です。 466 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 01:59:27 ] レンタルサーバのLWPでhttpsなサイトにアクセスしようとしたら、 Protocol scheme 'https' is not supported (Crypt::SSLeay not installed) と怒られました。 telnetやsshでログインできないサーバなのですが、httpsなサイトにアクセスできるように出来ないでしょうか？ 467 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 02:03:33 ] できません 468 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 02:50:24 ] 鯖缶にモヅル入れろと頼めば突っ込んでくれるとこもある 469 名前：デフォルトの名無しさん [2008/09/01(月) 02:52:58 ] use Term::ANSIColor qw(:constants); my @colors = qw(RED GREEN BLUE); for (@colors) {   print $_, "$_", "\n"; } みたいな事をやって、ループ内の動きが以下と等価になるようにしたいです。 print RED, 'RED', "\n"; print GREEN, 'GREEN', "\n"; print BLUE, 'BLUE', "\n"; 現状はループ内の print の第一引数に文字列がそのままわたっているだけなので、 希望通りの動作をしませんが、希望通りに動かすにはどうしたら良いのでしょうか？ よろしくお願いします。 470 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 03:18:17 ] >>469 print eval($_), $_, "\n" for @{$Term::ANSIColor::EXPORT_TAGS{constants}}; 471 名前：デフォルトの名無しさん [2008/09/01(月) 03:23:24 ] >>470 なるほど、evalで文字列を評価してやれば良い訳ですね。 リファレンス当たりをごにょごにょするのかなーと漠然と思っていたのですが、 そういう考え方には至りませんでした。 ありがとうございます。 472 名前：470 mailto:sage [2008/09/01(月) 03:29:30 ] >>471 eval も一法というだけ。 @colors への代入時に解決してやる手もある。 というかそちらのほうが素直。 my @colors = RED, GREEN, BLUE; 473 名前：デフォルトの名無しさん [2008/09/01(月) 03:41:11 ] >>472 はじめはそのような方法を考えてみたのですが、 代入時に評価してしまった場合、その後どうやって文字列として取得するかがわからず、 先ほどのようなコードになりました。 もしよろしければ、文字列として取得する方法も教えて頂けますか？ 474 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 03:56:10 ] my @colors = qw(RED GREEN BLUE); for (@colors) {     print $Term::ANSIColor::{$_}->($_), "\n"; } 475 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 04:00:33 ] my @colors = qw(RED GREEN BLUE); for (@colors) {     no strict 'refs';     print $_->(), $_, "\n"; } 476 名前：458 mailto:sage [2008/09/01(月) 08:33:05 ] >>460 >>462　 　先ほど無事インストールし、[Hello World!!]を表示できました。　 　いろいろありがとうございました。。。　(´･ω･`)　 477 名前：466 mailto:sage [2008/09/01(月) 10:50:02 ] >>467,468 サーバの管理者へインストールをお願いしてみます。 478 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 20:26:36 ] 「1.pl」の内容 use feature qw( :5.10 ); sub a { my $a=1; return $a; } 1; ------------------ 「2.plの内容」 use feature qw( :5.10 ); require q|1.pl|; say &a; ---------------------- これで、「2.pl」を実行すると、「１」と表示されるが、 本当にこれでいいのか？ つまり、1.plの変数の内容を、2.plで、requireで呼び出して使うとき、 サブルーチン渡しでいいのか？ それとも、モジュール渡しをするのが普通なのか？ our渡しは、できるけれども、教科書に「やるな」と書いてあるので 排除の方向で。 それとも、ほかの何かがあるのか？ 479 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 20:27:24 ] 1.plで変数があって、 それを requireで、 ２．ｐｌからその変数を利用したいときに、 どうやって変数を渡すのか、という 問題です。 480 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 20:38:24 ] q| | って書く頭わるいの前からいるけど同一人物だよな。 夏休みいつまでなの？ 481 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 20:43:36 ] 毎日がエブリデイなんじゃないかな。 482 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 21:56:53 ] >>476 おめでとさん。Perl の泥沼へようこそ。 泥んこ遊びは楽しいYO! 483 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 22:22:05 ] もうPerlなんてみたくもさわりたくもないと思いながら、早2年。 毎日のように#!/usr/bin/perl -wと書いています。 484 名前：デフォルトの名無しさん mailto:sage [2008/09/01(月) 23:41:22 ] >>483 > 毎日のように#!/usr/bin/perl -wと書いています。 これを自分で書く奴は相当のバカ 485 名前：デフォルトの名無しさん [2008/09/02(火) 00:32:56 ] 晒しage 486 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 00:42:38 ] ttp://drop.io/travian_pl jbbs.livedoor.jp/bbs/read.cgi/game/38835/1193931349 これおかしなプログラムとか組み込まれてませんか？ 487 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 00:45:18 ] 板違いです 488 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 01:21:12 ] ファイルをまたいだ引数の渡し方について マジでおしえてくんないかなー？ requireでなくてuseを使うの？ 489 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 01:44:08 ] うるせーよだまってろ 490 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 02:07:54 ] ここはひどいインターネッツですね 491 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 02:34:26 ] ttp://drop.io/travian_pl jbbs.livedoor.jp/bbs/read.cgi/game/38835/1193931349 これおかしなPerlとか組み込まれてませんか？ Perlで組まれてるらしいでつ 492 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 02:37:29 ] 板違いです 493 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 03:45:53 ] なんだ・・・解析できないのか・・・はぁ・・・ 494 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 04:13:48 ] もしかして、パッケージを一致させればいいのか？ 495 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 04:18:31 ] もしかして、モジュールとパッケージとrequireについて 調べればいいのか？ それで、読むべき教科書は www.rfs.jp/sb/perl/04/01.html ここであってる？ 496 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 05:21:19 ] >495 結論が出てるのに何が疑問なのかが分からない。 それと多分、誠意が足りてない。 497 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 08:07:27 ] >>496 を読んだ >>494 「なんだよ、あってるならあってるってとっとと言えばいいのに」 「誠意とか意味わかんないし関係ないじゃん」 「まあいいや。誰かも煽りはスルーって言ってたし。バカには言わせとけばいいんだ」 498 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 11:41:23 ] 質問です。 my @aaa = ("A" , "B" , "C" , "D"); foreach(@aaa){ @aaaの中を一つ飛ばす。 printf("%s\n",$_); } とし、結果を B D としたいのですが、どのようにしたら簡単に出来ますでしょうか。 for()で$iを途中インクリする方法を考えたけど、いまいち複雑になったので。 499 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 11:58:28 ] next; 500 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 12:05:45 ] splice 501 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 12:06:44 ] my @aaa = qw(A B C D); for my $i (0 .. $#aaa) { 　next if $i % 2 == 0; 　print $aaa[$i], "\n"; } 502 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 12:10:17 ] ヒアドキュメント内でループ処理したいのですが コンボボックスをループで動的に生成したいのです。 どうやってやればいいのですか 503 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 12:21:31 ] >>502 @{[ 任意の式 ]} を埋め込めばいいだろ。式としてdo BLOCKをつかえばおよそ何でも書ける。 Template Toolkitとか使った方が幸せになれそうだけどな。 504 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 12:29:08 ] mapでおｋ 505 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 14:53:09 ] リャマ本の133ページ（手元にあるのは11版です）の「8.5.1　優先順位の例」にある 　　このパターンは、文字列先頭にあるfredにマッチするか、あるいは末尾にあるbarにマッチします の部分ですけれど、これって 　　このパターンは、文字列先頭にあるfredにマッチするか、あるいは末尾にあるbarneyにマッチします の誤りじゃないんですか？オライリーのエラッタには載ってないみたいなんですが。 506 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 14:54:56 ] 途中で送信してしまった… /^fred|barney$/　だとそうなるような気がするんスが。 507 名前：498 mailto:sage [2008/09/02(火) 14:54:57 ] >>499-501 サンクス。 確認できますた。 508 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 15:03:51 ] >>505 最初/^foo|bar$/ってなってたのを書き直したんだろうなｗ 509 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 16:05:42 ] >508 なんだか急に親近感がｗｗｗ 510 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 17:04:03 ] そして１１版まで行って誰も指摘してないのかよこれｗｗ 511 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 17:32:56 ] 指摘しちゃだめだろｊｋ 512 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 18:13:41 ] Perlを勉強する分には、Win上でActive Perlを使うのでも支障は無いでしょうか？　 UNIX上とはかなり差があるような気がして…　 513 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 18:17:08 ] Perl自体にWindowsもUNIXも組み込みも関係ない 514 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 20:11:06 ] >>512 コマンドプロンプトの操作性やパスの設定、文字コードを考えると、 Unix系のOSでperl使った方がましだと思う。 Cygwinでもいいんだけどさ。 515 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 20:33:34 ] >>512 perlを1ヶ月学んできづいたことは、 CPANからモジュールとってくる、ってときに、 WinのActivePerlだと、PPMっていうソフトで 新しいモジュールをインストールするんだけど、 そこのPPMのメニューにすでに登録されている モジュールしかインストールできない。 厳密に言えば6段階くらい複雑な手順をふめば PPMを使わないで手動でインストールできるらしいんだが 初心者にはおすすめできない。 つまり、CPANから○○をダウンロードして使え、だとか 言われたりしたときとか、あるいは自分でグーグルで検索して よさそうなモジュールみつけたときでも、それをかんたんには 入れられないケースが発生することがある。 自分がはまってるのは、ｍｐ３を鳴らすなんとか、ってモジュールを 入れたいんだが、PPMにのってないので困っている。 516 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 20:35:12 ] 2番目は、文字コードの問題。 DOSプロンプトで勉強するときに、必ず use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; # ※１ use Encode; と書かないといけない。 517 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 21:08:44 ] >>512 coLinux+debian sidｵｽｽﾒ。 無駄にハイクオリティーなことをすると楽しい。 518 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 21:46:20 ] $file = 'C:/なんたら/かんたら.txt'; open my $fh, '<', encode("cp932", $file) or die $! ; # ※２ print <$fh>; #　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう #　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。 #　【注】※１．の行を入れると、DOS窓への日本語出力は簡便になりますが、 #　ソースファイル名に非ANSI文字が含まれる場合にdie 文の出力が失敗します。 #　※２．OSに渡す文字列（ファイル名，dosコマンドのオプションなど）は、 #　この例のようにcp932でエンコードする必要があります。 ----------------------------------------------------- ↑これの説明がよくわからないんだが、ファイル名が日本語の場合、 上記の措置が必要という意味なの？ それとも、ファイル名がアルファベットでも、 そのファイルの中味に日本語が書いてあったら、 上記の措置が必要という意味なの？ で、あれば、ファイル名が英語で、なおかつ ファイルの中味が全部英語なら、上記の措置は 必要ないってことなの？ 519 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 21:55:57 ] どっちが主流ですか？ 1. $obj = new X; 2. $obj = X->new; 1. call_sub(); 2. &call_sub; 520 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 22:02:39 ] $file = 'C:/なんたら/かんたら.txt'; open my $fh, '<', encode("cp932", $file) or die $! ; # ※２ print <$fh>; ------------------------- ↑これってmy　$fhって、なんなの？ ファイルハンドルなの？ 521 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 22:09:10 ] open(IN, "1.txt"); while (<IN>) { print; } close(IN); ------------------- 別に、>>4に書いてあるようにｃｐ９３２ってしなくても、 上記で日本語を含むファイルを開けるのですが、 これでいいの？ 522 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 23:30:15 ] >>515 こんなんもあるYO Strawberry Perl www.moongift.jp/2008/06/strawberry_perl/ 523 名前：デフォルトの名無しさん mailto:sage [2008/09/02(火) 23:37:16 ] 別ファイルに変数を渡す問題だが、 サブルーチン渡しにしたら問題が解決したと書いたが、 参考書で調べたところ、 「サブルーチンは宣言すると、すべて自動的にグローバルになる」 と書いてある。 つまり、ourでグローバル渡しをしているのと 実質的にまったく同じことなので、意味がないのだ。 ここはやはり、モジュールとかパッケージの勉強を するべきなのか？ 本当はどうやって渡すの？ 524 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 01:37:40 ] use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; # ※１ use Encode; 525 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 01:38:28 ] $file = 'C:/なんたら/かんたら.txt'; open my $fh, '<', encode("cp932", $file) or die $! ; # ※２ print <$fh>; 526 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 01:39:15 ] >>524をファイルの先頭に書けば、 >>525は必要ないの？ 実際、>>524だけで、 >>525なしでも、動いたんだけど。 527 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 01:46:07 ] 何もせずにそのままコピーするだけならエンコーディング無視のバイト列で 扱ってもいいけど、普通は中身みて加工とか集計とかするわけで、そういう ときに違いが出るんだな。 528 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 02:10:24 ] $fhってのはファイルハンドルなの？ 普通は出てくるはずの ＜IN＞とかの文字が見えないので不安なんですけど。 529 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 02:13:03 ] 他ファイルのmy化された変数を別ファイルで読み込んで 使うのって、結局ourでグローバル変数化しておくか、あるいは サブルーチンに入れて、return渡しするしかないの？ サブルーチンにいれるのは、すべてのサブルーチンは 宣言すると自動的にグローバル化されるのだから、 他ファイルに渡せるのはあたりまえなんですよね。 結局ourでグローバル化してるのと本質的には同じだし。 パッケージとモジュールの勉強をしてみましたが、 それでも結局グローバル化されてる変数は読み込めましたが、 my化されてる変数は読み込めませんでした。 530 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 02:46:49 ] 自分で何回もためしてみたけど、やっぱりモジュールファイルの中で my化してるとだめなんだ〜 他ファイルで使って欲しい変数はグローバル化してないと だめなんだね。 531 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 02:48:43 ] >529 相変わらず質問の意図が分かりかねるのだが、それはさておき。 ＞他ファイルのmy化された変数を別ファイルで読み込んで ＞使うのって、結局ourでグローバル変数化しておくか、あるいは ＞サブルーチンに入れて、return渡しするしかないの？ やり方が分かってるなら、そうすればいい。 ＞それでも結局グローバル化されてる変数は読み込めましたが、 ＞my化されてる変数は読み込めませんでした。 myで宣言されてる変数が他から読めたら、myの意味が無いっしょ。 例えばグローバル変数にはメリットとデメリットがある。 特に理由が無ければデメリットの少ないローカルな変数を使って、サブルーチン間を渡せばいい。 ただし、メリットとデメリットを理解している人間が、的確な場所に使う分には何も問題がない。 グローバル変数を使うのも使わないのも、両方とも正解だ。 その「的確な場所」が分からないのなら、まだ使うべきではないということだ。 532 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 02:50:26 ] Wikipediaの「名前空間」の項目が、少しは疑問を解決してくれるかも。 ja.wikipedia.org/wiki/%E5%90%8D%E5%89%8D%E7%A9%BA%E9%96%93 533 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 02:56:37 ] だーかーらー。 たとえば、モンスターの設定ファイルで、 スライムの体力＝１とかって設定するとするでしょ。 ファイル名「a.pm」 package 1; my $a=1; 1; --------------- このmy　$aを 他のファイルから読みたかったの。 でも無理だとわかったの。 この理解であってる？ 534 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 03:03:42 ] >>533 いい加減しつこい。とりあえず以下のドキュメント読んどけ。読み終わるまで戻ってくんな。 > perlboot - Perl OO tutorial for beginners > perltoot - Perl OO tutorial, part 1 > perltooc - Perl OO tutorial, part 2 > perlbot - Perl OO tricks and examples 535 名前：533 mailto:sage [2008/09/03(水) 03:05:01 ] 読み終わりましたー 536 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 03:08:03 ] だってグローバル変数絶対使うなみたいなことよく 書いてあるじゃん。 だから絶対使ったらダメなのかと思ったし。 でも外部から読み込まれることを前提に設計されてる モジュールの場合は、外部に渡す変数はグローバル宣言なのね。 最初からそう言ってくれればいいのに。 入門書にも書いてないしー 537 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 03:50:29 ] >>536 ・Perlについてくるマニュアルに書いてある ・標準モジュールやユーティリティのソースで実例が見られる ・Webを検索すれば割とすぐに見つかる ・それについて書いてある本がいくつもある そういうアレな質問に回答を返す病的に親切な人が出てきても、 「聞きたいのはそれじゃない」だったり、完全スルーだったり。 回答者が寄り付かないように工夫しているとしか思えないです。 あなたの好みと水準にぴったり合わせた答えを提供する義務は 誰にもありません。その点は忘れないで下さい。 538 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 03:51:14 ] >>533 だーかーらーそれが勇者の設定ファイルなら読めるわ 539 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 03:59:50 ] 病的に親切な人と、叩こうとする＝構おうとする人がなぁ。 540 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 04:00:02 ] >533 それであってると言う主旨の回答を３回くらい見かけてるわけだが 541 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 11:02:26 ] 下でエラーが出るのは何故ですか？ --a.pl---------------- our $a = "hoge"; --------------------- --b.pl---------------- use strict; require "a.pl"; print $a; --------------------- C:\>perl b.pl hoge _____________________________________________________________________________ --a.pl---------------- our $aa = "hoge"; --------------------- --b.pl---------------- use strict; require "a.pl"; print $aa; --------------------- C:\>perl b.pl Global symbol "$aa" requires explicit package name at b.pl line 3. Execution of b.pl aborted due to compilation errors. 542 名前：デフォルトの名無しさん [2008/09/03(水) 11:02:59 ] perl -wで動かすと、 Use of implicit split to @_ is deprecated というものが表示されるのですが、これはどういう意味でしょうか？ -wをつけなければ表示されません 543 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 11:14:13 ] >>542 splitをスカラーコンテキストで使うとばらした内容を@_に入れるという 仕様なんだが、サブルーチンの引数渡しに使われる@_を壊すので よろしくないということになっている。 perldiag(1)の説明によればコンパイラに負担がかかるらしい。 Use of implicit split to @_ is deprecated (D deprecated) It makes a lot of work for the compiler when you clobber a subroutine's argument list, so it's better if you assign the results of a split() explicitly to an array (or list). 古いプログラムはしょうがないが新しく書くプログラムでは避けた 方がいいと思われ。 544 名前：542 mailto:sage [2008/09/03(水) 13:01:45 ] ありがとうございます my $tab = split( /\t/, $_); こう書いているのですが、どのように修正すればいいのでしょうか？ 545 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 13:07:07 ] >>544 $_ には何が入っていて、$tab には何を入れたいの？ もしかして @tab と書くべきところだったってオチか？ 546 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 13:33:32 ] ダミーの変数を用意して: my $tab = my @dummy = split( /\t/, $_ ); が楽だし確実だな。 でも実はタブを数えたかったのなら、タブによって分割された 項目数を数えるより直接タブを数える my $tab2 = tr/\t//; の方が効率的なのでおぼえておくといい。 ただしsplitは(第3引数に負の数を与えなければ)末尾の空フィールドは 捨てるので、この動作を利用してなんかしている場合はtrで数える手は 使えない。 547 名前：542 mailto:sage [2008/09/03(水) 14:07:31 ] >>545 ありがとうございます。 $_には、 foo\tbar\tbaz や \t のような値が入っています。 $tabには配列の数を入れたかったです。(1行目なら32行目なら0 >>546 ありがとうざいます。 頂いたとおりに修正することで、-wをつけても何も表示されなくなりました。 548 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 14:58:36 ] Perlを始めてみたのですが、　 UNIXだとファイルの最初に[ #! /usr/local/bin/perl ]などとフルパスを書くと コマンドだけで実行できるようですが、Active PerlをWindowsで使ってる場合は、 こういうやり方は無理なのでしょうか？　 今は、ファイルを保存したディレクトリ内で、[ perl <ファイル名.pl> ]を打ち込んで実行しています。　 549 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 15:54:33 ] >>548 ちゃんとインストーラでインストールした？ 解凍してコピーしただけじゃＯＳの設定はされないよ。 ちゃんとインストールすれば、ほげ.pl をマウスでクリックするだけで動いてくれるよ。 #! /usr/local/bin/perl が必要なのは、ＵＮＩＸというＯＳ固有の問題だから Windows には関係ない。 # で始まってるのでタダのコメント文として無視される。 550 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 15:56:48 ] ActivePerlなら、インストール時に(デフォルト設定でインストしてれば)*.plの拡張子に関連付けられてるハズだから、 .plの拡張子を持つファイルなら、コマンドプロンプトから、C:\> 〜〜.plでも実行できる。 (頭の#!〜〜はまず気にしなくてよし。#!/usr/bin/speedy とか書いてる時はエラー出るけど・・) つうか、拡張子が関連付けられてたら、エクスプローラーからダブルクリックでも実行できる。 けど、前にもココだったか、Webprog板の方だったかにいたけど、 「コマンドプロンプトが一瞬で消えてしまい、出力が読めません。」とか言わないでね。 551 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 16:20:47 ] 自分は「Perlをはじめよう」ってソフトを使ってる。 便利。 552 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 16:22:38 ] sleep 100; 553 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 16:26:34 ] 質問。 >>525との組み合わせなのですが、 教科書や解説ページを見ると、よく open FH, ">filename.txt"; --------------- $FH = "filename.txt"; open FH; ------------------ open(FH,"<data.dat"); # 入力モードでオープン -------------------- $line = <FH>; # 1行読み込み ---------------------- open(FH, $datafile); @list = <FH>; ------------------- foreach $data_line( @list ) { print $data_line; } --------------- open(IN, $datafile); while ( $line = <IN >) { 　　print $line; } -------------- ↑このような例がでてくるのですが、いずれもファイルハンドルとして INとかFHとか大文字がでてくるのですが、>>525だと そのような文字が見当たりません。 できれば我々初心者が見慣れた例で書き直した サンプルをいただきたいのですが。 554 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 16:43:21 ] そういう古いのは使っちゃだめ。覚え直せ open my $fh, ">", "filename.txt"; ------------------ open my $fh, "<", "data.dat"; -------------------- $line = <$fh>; ---------------------- open my $fh, "<", $datafile; my @list = <$fh>; ------------------- foreach my $data_line (@list) { print $data_line; } --------------- opem my $in, "<", $datafile; while (my $line = <$in>) { print $line; } 555 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 16:59:55 ] >>549-550 ありがとうございました。 拡張子つけないでファイル名だけでできるかなと思ったわけです。　 >>551 それインストールしてみました。イイ情報をありがとうございました。　 556 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 17:05:56 ] >>553 君の大嫌いなグローバルな変数（ファイルハンドル）を使っていいのかい？ 557 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 19:44:37 ] >>554,556 まじで？ また古い本を読んでしまったのかな、、、 558 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 19:45:30 ] つまりファイルハンドルも実は変数の一つにすぎないと？ それで、プライベートなファイルハンドルと、 グローバルなファイルハンドルが存在すると？？ 559 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 19:59:17 ] <IN>の実体は型グロブ*IN 560 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 20:31:44 ] ja.wikibooks.org/wiki/Perl/変数、データ構造 561 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 20:54:24 ] >556 たぶん別人。もしくは壮大な釣り 562 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 22:42:54 ] >>541 > 下でエラーが出るのは何故ですか？ perldoc strict の "strict vars" の項を読んでみてください。 # そして、上の例でなぜエラーが出ないかについては: # perldoc -f sort 563 名前：デフォルトの名無しさん mailto:sage [2008/09/03(水) 23:04:43 ] >>562 サンクス パッケージ名を明記しなくちゃいけないんですね。 でも、$aと$bは、自動的にパッケージ名をつけてくれると。 564 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 01:10:57 ] ファイルハンドルを変数に格納するやり方は 「間接ファイルハンドル」 という名前がついていることはつきとめました。 マッキンゼーに2,000万払って調べてもらいました。 で、古いやり方はやめて 間接ファイルハンドルを使え、と 書いてあるWEBページはどこにあるのでしょうか？ 565 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 01:48:34 ] >564 ここのスレだってウェブサイトの1つってことでいいよね？ 566 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:01:01 ] スレがやけに加速してると思ったらほとんど同一人物ぽいな。 低レベルなレスでスレ汚すなよ。中学生だろ、おまえ。 ま、おれもヒトのこと以遠が。。。でも俺よりは年下だな。 ひとつだけ教えといてやろう。 パッケージ変数はサブルーチンでアクセスしろって、PBPに書いてあった。 Class::Data::Inheritableとか使ってもいいだろう。 だから、もうこの関連で書き込みすんなよ。 567 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:02:32 ] あ、ちなみに俺、中学生じゃないです。その上だから。 568 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:04:39 ] >>565 いまボストンコンサルティングに１、５００万払って 調べてももらってますが、 「古いファイルハンドルの指定の仕方（FILEとか）でなくて、 新しいやり方、間接ファイルハンドルを使え」 と明確に書いてあるWEBページは、 なかなか見つかんないですよ。 たぶんメリットがないんじゃないですか？ 569 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:06:19 ] >>566-567 高校生でperlできるんだーすごいねー 偏差値６８以上の学校？ 570 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:09:48 ] >>568 頭が悪いのにも限度があると思うんだ。 571 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:13:39 ] >>569 年なんか関係ないだろ。黙って勉強しとけよ、青二才。 上では余計なこと書いた。今は反省している。 572 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 02:16:28 ] >>571 進学校？数学得意？プログラミングをはじめたのは何才から？ 573 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 06:56:17 ] pc11.2ch.net/test/read.cgi/php/1218855685/981 PHPの連中は本当にキモイなぁ 574 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 08:46:42 ] perlの連中もきめえよ 575 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 08:51:19 ] 五十歩ひゃっほー 576 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 10:18:13 ] 五十歩ヒャッハァーあの村の井戸を奪えー！ この場合は　my $well　か？ 577 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 12:22:57 ] この流れﾜﾛﾀ 578 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 16:00:43 ] 汚物は消毒だーっ！ 579 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 16:55:06 ] 任意の数の配列 @minshu 全てをチェックし、もし obutu であれば値を kasizumi にするソースコードを書け。 ただし @minshu の中に値 kenshiro があった場合は直ちに処理を中止するものとする。 580 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 17:07:21 ] 自分で書け 581 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 17:29:48 ] >579 keshizumi　じゃないのか？ 582 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 17:30:41 ] どこの宿題だよ 583 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 17:32:56 ] 断る 584 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 17:52:46 ] ワンライナー自重 585 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 17:56:49 ] ActivePerl 5.10 で、Gmail に Mail::IMAPClient で接続、 メールの添付ファイルを取ってくるスクリプトを書いています。 ログインしてメールの本文などを取得することはできたのですが、 MIME::Parser で parse した時点で、破損したファイル(最後までデータが出ていない)が 出力されてしまいます（output_to_core(1)を消して試してみました）。 この場合、原因として考えられるのは何でしょうか？ ここで詰まってしまってます……。 586 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 19:37:19 ] どんなスクリプト書いたの？ 587 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 19:49:08 ] >>586 すいません、最初から書けばよかった。ちょっとはしょってますが、こんな感じです。 use strict; use MIME::Parser; use Mail::IMAPClient; use IO::Socket::SSL; my $parser = new MIME::Parser; $parser->output_to_core(1); my $socket = IO::Socket::SSL->new( PeerAddr => 'imap.gmail.com', PeerPort => 993 ) or die "socket(): $@"; my $client = Mail::IMAPClient->new( Socket => $socket, User => 'hogehogehoogehoge@gmail.com' ) or die "new(): $@"; if ( $client->IsAuthenticated() ){ $client->select('INBOX'); my @uid = $client->unseen; foreach my $id (@uid) { my $message = $client->message_string($id) or warn "Timeout!"; my $entity = $parser->parse_data($message); my $header = $entity->head; if ( $entity->is_multipart ){ my $parts_count = $entity->parts; for (my $i = 1; $i < $parts_count; $i++) { my $part_entity = $entity->parts($i); my $filename = $part_entity->head->recommended_filename; my $filebody = $part_entity->bodyhandle->as_string; open(FILE, ">$filename"); print FILE $filebody; close(FILE); } } } } 588 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 21:11:33 ] もしかして、他ファイルに定義された変数を 別ファイルから読みたいときは、 「Perlのオブジェクト指向」 を使えばいいんじゃないかな？？ あってる？ちがう？ 589 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 21:59:34 ] >588 誰にレスしてるんだ？ 590 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:07:34 ] オブジェクト指向を使えば、 他ファイルにかかれているmy化された 変数も読めるんじゃないか？ と質問をしてるわけです。 591 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:16:38 ] 今日の発見。 use feature qw( :5.10 ); say 2 ** 50; これを実行すると 1.12589990684262e+015 とでてくるが、 use bigint; use feature qw( :5.10 ); say 2 ** 50; とすると 1125899906842624 と出てくる。 いくつの桁まで表示できるか、 今からちょっと実験してみる。 592 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:17:32 ] >591 質問は？ 593 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:20:03 ] そういえば、ちょっと前のCGIゲームで、 数値の表記が、3桁づつ、、（カンマ）で 区切られて表示されないのがあって、 これを、3桁づつカンマで区切って表示するように 改造したい、と思ったんだが、これって難しいの？ 例 １２３４５６７円→１、２３４、５６７円 594 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:24:31 ] printfって知ってるかい？ 595 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:27:18 ] use bigint; system q|cls|; use Win32::Sound; use feature qw( :5.10 ); say 2 ** 55555; Win32::Sound::Play("file.wav"); ↑これすごいよ。 ２の５５５５５乗を計算して 画面に出力するんだけど、 DOS窓が全部数字で埋め尽くされてしまって もはや何桁あるかなんで数え切れないよ。 CPUが計算するのに5秒もかかるし。（ウチのパソコンでは） 596 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:35:28 ] >>593 1 while s/^([-+]?\d+)(\d\d\d)/$1,$2/; 597 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 22:54:46 ] use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; use Encode; use bigint; use feature qw( :5.10 ); use Time::HiRes 'sleep'; system q|cls|; $|=1; #---------------------------------- use Win32::Sound; use feature qw( :5.10 ); say "２を１０００回、掛けてみますですよ．．．"; my $a=2; say "結果が出ましたですよ．．．\n".&aaa."ですよ．．．"; say "あと、結果の出力を画面の真ん中に出すやり方をおしえてくだしあ"; sub aaa{ for (my $b=1;$b<=499;$b=$b+1){ $a=$a*2; say "２を500回、掛けてみますですよ．．．"; say "今、第".$b."回目の計算中ですよ．．．"; say $a; system q|cls|; } return $a } Win32::Sound::Play("file.wav"); 598 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:02:07 ] ファイルアップロードしようとして 同じものがあったらエラーって処理をしたいのですが ttp://www.ss.iij4u.or.jp/~somali/web/_perl_upload.html ここの改良版の方に opendir(DIR , $logfiles); @filelist = readdir(DIR) closedir(DIR) foreach (@filelist){ next if $file =~ /^\.{1,2}$/; if(compare( $fh , $_){ error処理; } } みたいな感じでやっているのですが 上手くいかんのです たすけてくだしあ 599 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:17:18 ] -fとかでいいだろ 600 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:19:54 ] 名前を変えてるのでcompareで比較がしたいのです 助けて下しア 601 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:21:56 ] compareって何だよ 602 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:22:18 ] >>598 webprog板池よ 603 名前：改良版ですよ１ mailto:sage [2008/09/04(木) 23:42:40 ] use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; use Encode; use bigint; use feature qw( :5.10 ); system q|cls|; use Win32::Sound; my $a=2,$c,$d,$f; print "２を何乗させたいのか、数字を入力してくだしあ(例：５００）＞"; $f=<STDIN>; chomp $f; my $e=$f;$d=$e-1; $c=&aaa;&bbb; Win32::Sound::Play("file.wav"); sub aaa{ for (my $b=1;$b<=$d;$b=$b+1){ say "２の".$e."乗を計算してみますですよ．．．"; say "今、２の".$b."乗目の計算中ですよ．．．"; say $a; $a=$a*2; system q|cls|; } return $a } sub bbb{ say "結果が出ましたですよ．．．\n"; say "２の"."$e"."乗は　".$c."　ですよ．．．"; say "あと、結果の出力を画面の真ん中に出すやり方をおしえてくだしあ\n"; } 604 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:47:43 ] これなんじゃないの？ use File::Compare; d.hatena.ne.jp/minesouta/20070807/p1 605 名前：デフォルトの名無しさん mailto:sage [2008/09/04(木) 23:49:39 ] 自分でプログラム組めるようになると すっごい楽しいね！ 606 名前：585 mailto:sage [2008/09/05(金) 00:02:52 ] 分からない！ 誰か助けてください……。 607 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 00:03:52 ] >>598 最近、知ったんだけど、下記で、"."や".."を含まない、ファイル一覧が得られる。 @filelist = <$logfiles/*.*>; 608 名前：607 mailto:sage [2008/09/05(金) 00:06:48 ] そしたら、>>598の処理がこんなに短くなったり。。。 foreach (<$logfiles/*.*>){ if(compare( $fh , $_){ error処理; } } 609 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 00:21:48 ] >606 WebProg池、と言おうと思ったが、問題はそこじゃないっぽいしなあ。 >598>607 状況次第だが、毎回ファイルの中身を全チェックだと効率悪すぎないか？ バイナリから何らかのハッシュを生成しておき（同一バイナリなら同一のハッシュ）、 そのハッシュを保存しておいて比較した方がいいと思う。 稀に別バイナリが同一ハッシュを返すこともあるが、 その時は諦めるか、バイナリを直接比較すればいい。 610 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 01:22:26 ] >>585 現象は添付ファイルの種類を問わず発生しますか? 複数のファイルを用意し、それぞれを添付したメールを用意して試してみましょう。 添付ファイルのファイル名に日本語が含まれているか否かで変化があるか確認してください。 611 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 01:26:40 ] >>607 本当に? 間違いない? 信じて大丈夫? いや、誰も信じないからいいんだけどさ。 612 名前：585 mailto:sage [2008/09/05(金) 01:32:48 ] >>610 添付ファイルの種類を問わず発生しているように見えます。試しているファイルはすべて英語名です。 binmode FILE することで、JPG は開くことができるようにはなりました。 PDF = ファイルが壊れている、と出て開けない。 JPG = 画像の下の方がブロックノイズ（最後までデータができていないっぽい） HTM = ファイルの最後の方で途切れてしまう。 TXT = ファイル末尾に謎の文字化け。（=ｪ��攵ﾓ]�ﾓｽｸﾗmｴ輜ｵﾗ　←こんなのが。なんだこりゃ。） message_to_file で書き出してみたファイルを見る限りでは、途中でデータの転送が止まっているようなこともなく、 正常に処理できているように見えます。parse_data して、print する途中でどこか変なところがあるのでしょうか。 613 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 04:05:43 ] xorってよくわからないな。 614 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 04:14:30 ] ヘルプに誤字発見。これってどこに通報すればいいの？ Parentheses missing around "my" list at 1.pl line 27 (#1) (W parenthesis) You said something like my $foo, $bar = @_; when you meant my ($foo, $bar) = @_; Remember that "my", "our", "local" and "state" bind tighter than comma. 615 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 04:42:13 ] stateって結構便利だと思うんだけど、 これってバリバリつかっていいの？ gotoみたいに、「絶対に使うな！」とかって怒られない？ 616 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 07:46:59 ] perlのゲーム作りたいなー 誰か一緒に作らない？ 617 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 07:54:21 ] >615 ちゃんとメリットとデメリットを理解して、それが適切だと思えば 別に何を使って良いんでねーの？ stateを使うならオブジェクト指向にしてもいいかなあと思ってみたが、 これは単に自分が無知なだけか。 >616 ゲ製板池 618 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 08:21:12 ] www.geocities.jp/ky_webid/perl5/index.html このページすごいわかりやすいね 619 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 10:55:16 ] >>609 Webprog 板に行ってきますヽ(´Д`;)ﾉ 620 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 12:06:49 ] >>618 宣伝厨うざい、マルチウザイ >print "$str"; # ***123***\n を出力 こんな事書くアホなページの宣伝すんな 「参考書籍」でPBPやらEffectiveやら勧めてるが 読んでないのバレバレじゃねえか 621 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 12:17:37 ] そこまで過剰に反応する意味がわからない。 622 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 12:34:15 ] >>621 > そこまで過剰に反応する意味がわからない。 ウソが広まるのを放置しておくと何年もすべての人が被害を被り続けるからでしょう 623 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 13:45:58 ] まぁ実際、とほほとKENTで広まりまくってるけどな 624 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 15:19:06 ] だからこそ過剰に反応するんだろうな 625 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:09:32 ] これだから原理主義者は困る 626 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:13:05 ] オライリーの「プログラミングPerl」 って、読んだけど、よくわからないね、難しくて。 これって中級者以上向けだよね。 627 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:18:27 ] >626 ラクダの前にリャマがいるだろ 628 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:29:40 ] 「はじめてのPerl」ね。 うん、そっちから読んだ方がいいみたいだね。 629 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:30:31 ] Perlでソースコード書いて、 それをCのコードに変換するのってできるの？ 630 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:42:34 ] Cで書けばいいんじゃね？ 631 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 16:50:01 ] >>629 つB::C でもperlらしいperlプログラムはたいていCにしても速くなんないから やめとけ。 632 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:15:47 ] 「続・はじめてのPerl」読んでみたけど、わからんね。 理解できるページが３ページくらいしかない。 633 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:16:52 ] >>631 速度を速くしたいんでなくて、 あの難しいCのプログラムを自分の手で 生成できるというのがしびれるんです。 昔C勉強したけど結局理解できなかったし。 そんで、B::Cで検索しても情報がでてこないんで、 使い方を解説してあるページを教えてもらえますか？ 634 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:26:11 ] CもPerlも難易度なんて変わらんと思うけどな。 むしろPerlの方が覚えること多い印象だが。 635 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:30:20 ] >>633 ttp://search.cpan.org/~nwclark/perl-5.8.8/ext/B/B/C.pm 636 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:48:28 ] >>635 よんだけどわからないよどうしよう 日本語で詳しく説明書があるサイトをおしえてください 637 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:54:13 ] Can't locate B/C.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at 6.pl line 1. BEGIN failed--compilation aborted at 6.pl line 1. とでてくるのですが、ひょっとして 自分のパソコンにはB::Cが入っていない？ これってPPMで入れるの？ 638 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 20:55:27 ] >>636 それを読み解く気合がないなら、その類のモジュールは楽しめない。 639 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:00:52 ] >>637 そこから手取り足取り教えにゃわからん奴がちょっかい出すブツじゃないよ。 640 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:05:05 ] いやまじでボクのパソコンにはB::Cが入ってないような気がします。 これはどうやったら確定できますか？ それでPPMみたんですけど、そこにもB::Cが登録されてないんです。 641 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:15:19 ] しんごけ 642 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:15:40 ] 5.10だと、perlccやらB::Cやらはごっそり標準配布から無くなってるが もしかして5.10？ perldelta参照してみそ …つーか深追いすんな、しても無意味だ。 ちょっとした想定外のモジュールをuseしてるだけで、B::Cは通らない んだから（実用的じゃ全くない）。 643 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:16:35 ] >>640 釣りだといってくれ 644 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:32:53 ] いつもの独り言の人はもしかしなくても 5.10 だよ。 645 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 21:36:27 ] ああ、いつもの人か。レスすんじゃなかった orz... 646 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 22:14:45 ] trends.google.com/trends?q=CPAN&ctab=427256520&geo=all&geor=all&date=all CPANやべええ どっかの株価1円企業みたいだ 647 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 22:27:30 ] Perlってスレッドプログラミングとかってできないの？ Aというスレッドと Bというスレッドがあって、 AとBを同時に走らせるみたいな。 648 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 22:30:35 ] >>646 今時わかってる連中が CPAN に用がある時は Google なんぞ通さずに CPAN Search をひっぱたくからな。 649 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 22:37:33 ] >>646 日本一位なのか 650 名前：デフォルトの名無しさん mailto:sage [2008/09/05(金) 22:47:10 ] >>647 >>223 651 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 00:06:09 ] >648 あ、CPAN自体に辿り付くのにgoogle使う…… 652 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 00:30:52 ] ブックマークから自分のアカウントを開く 653 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 00:33:42 ] Firefox の smart keyword に登録してる。 654 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 00:36:26 ] search.cpan.org と毎回入力してる。ブックマークしろよと打つたびに思う。 655 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 09:30:16 ] アロー演算子を使う局面や場面は、 どういうときと、どういうときと、どういうときがあるの？ 自分が知ってるのは、 「リファレンス経由で配列要素にアクセスする」 っていう場合だけど、そのほかにも、 オブジェクト指向のときもアロー演算子を使うの？ 656 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 10:36:40 ] ●配列に限らない ●Perlにおいてオブジェクト指向はリファレンスを利用 なので、>655の質問は少しだけ着目点がズレてる。 657 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 10:53:06 ] www.rwds.net/kuroita/program/Perl_oo.html#package パッケージの説明として、これはわかりやすい。 658 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 10:55:41 ] package main; use Stone; my $obj = Stone->new('石灰岩','100'); ----------------------- ↑たとえばこれ。 これってオブジェクト指向だからアロー演算子を 使ってるという理解でいいよね？ 659 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:01:38 ] それでhelpのタイポを見つけたら どこに通報すればいいの？ 660 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:11:19 ] print "a"; die; ------------------ ↑このコードだと、 Died at 6.pl line 3. a という出力になるのに、 ------------------- print "a\n"; die; ------------------- ↑このコードだと a Died at 6.pl line 3. という出力になる。つまりひっくりかえってるんだが、 なんで？ 661 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:18:48 ] 気分がいいのでレスしちゃう。 >658 それはそうとして>656は無視かい？ >659 ココロの110番に >660 flush 662 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:19:55 ] Ｃ言語とＰｅｒｌは近い部分があると聞いたのですけど、ほんとでしょうか。 それを聞いてＰｅｒｌも勉強してみたいと思ったので。　 printf　が　print　だったり、微妙に違うようですが。　 難しいのかな。 663 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:22:52 ] perlは超カンタンです。 なにしろ俺サマでさえ、一ヶ月もあれば 基本は理解できます。 664 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:23:51 ] サブルーチン呼び出すときに、 aaa; だとウオーニングが出るんだが、 aaa(); だとウオーニングがでない。つまり、 サブルーチンを呼び出すときは必ず aaa();と、パーレンをつけなければいけない、というルールなの？ 665 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:25:03 ] >>662 C言語をマスターしているのなら、普通の頭脳の持ち主なら、1週間で完全に 習得できます。 666 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:25:38 ] 自己解決した。 サブルーチンの定義が、 ソースコードの最初のほうに書いてあれば （）をつけなくてもできるということか。 だったら、サブルーチンの定義は ソースコードの後ろでなくて、 最初のほうに書いたほうがいいんでないの？ 667 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 11:29:43 ] >662 printfもある。 >666 お好きなように。 俺はCで言うところのプロトタイプ宣言だけしてるけど。 668 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 12:42:31 ] unlinkって自分は消せないのね。 669 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 12:45:37 ] 日本語のファイル名ってunlinkで削除できないの？ 「あ.txt」とか。 670 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 12:54:58 ] SND_ASYNCのフラグの書き方と指定の仕方がわからない。 homepage3.nifty.com/hippo2000/perltips/sound.htm#item_SND_ASYNC 671 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 12:55:45 ] Win32::Sound::Play(SOUND, [FLAGS]) この例を見て、 Win32::Sound::Play("file.wav",[SND_ASYNC]); と書いたが、なんか違うようだ。 672 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 13:23:23 ] perl2exe おもしろ 673 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 21:43:36 ] >671 なんでリストにしてんの？ 674 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 21:56:11 ] >>673 書き方間違ってる？ 書き方のサンプルがないから 正直、よくわからんかった。 675 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 21:57:28 ] use feature qw( :5.10 ); system q|cls|; sub abc{ state $a=10; say $a; $a--; if ($a>=5) { abc(); } } abc; ------------------------------ サブルーチンの再帰呼び出しで、 サブルーチン内部の定義部分で、 自分自身を呼び出すときには、 （）パーレンの記述は必須なんだね。 これを省略しようと少し考えたけど 無理っぽい。 676 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 21:59:11 ] ＆アンパサンドをつけてサブルーチンを呼び出すのは 古いやり方なので極力さけましょう、とか書いてあるので ＆をはずして呼び出そうとするんだけど、そしたら今度は （）パーレンの記述が必須になってしまう。（）パーレンのほうが 100倍メンドイと思うんだけど。 、、と思うなら、ソースコードの最初のほうに サブルーチンの定義を書けばいいじゃん、と思ったけど 通常の関数ならそれでいいけど、再帰の場合はやっぱり無理なのね。 677 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:01:10 ] stateとmyって実質同じだよね。 どっちも変数をプライベート化して、 どっちも歴史狩る変数っていう。 ただ、stateの方は一回だけ実行されるという 違いがあるけど。 それで、すべてのmyをstateに変更しようかなと おもうんだけど　、stateにすると何か問題ある？ 678 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:01:58 ] ちなみに歴史狩る変数っていうのは、 過去の歴史あるソースコードを無効にする って意味です。 679 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:10:44 ] open( FD, "| C:\\WINNT\/NOTEPAD.exe"); ↑これでメモ帳を開くのと、 system関数でメモ帳を開くのと、 何か違いはありますか？ 見た目は同じように見えるんですが。 680 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:31:45 ] >674 一般的に、[ ] は省略可能な要素を意味する記号。 681 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:35:24 ] >>667 効果が全く違うぞｗ 682 名前：681 mailto:sage [2008/09/06(土) 22:36:20 ] >>681はアンカーミス。>>677への突っ込み。 683 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:42:21 ] >675 サブルーチンの宣言と定義を切り離せばいける。面倒だけど。 use feature qw/:5.10/; sub abc; # 宣言だけして… sub abc { # こっちで定義   state $x = 10;   say $x--;   if ($x >= 5) {     abc;   } } abc; 684 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:52:15 ] >>683 あー 内容が書いてなくても 宣言だけ先にしてあれば （）パーレン無しでもいけるんだー 685 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:53:43 ] >683 Cとかに慣れるとそんなに面倒でもないけどねー。 さくっとコメントでサブルーチンの説明するときとか、長くなるんで先頭に並べちゃってる。 >676 省略はPerlの美学なので、 出来る限りタイプを少なくするという思想は正しい。 だけど、わざと面倒な書き方をしておいて、 かつ、そこから外れた書き方をしたらエラーが出るようにしておく、という思想もある。 もしミスった時に、こっちの方が分かりやすいからだ。 この2つはどっちも正しい。 どっちを採用するかは自分で決めるしかない。 仕事でやっているならば、諸乳母で指定される場合があるのでそれに従おう。 686 名前：デフォルトの名無しさん mailto:sage [2008/09/06(土) 22:55:54 ] 諸乳母ってなんだ、職場。 687 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 04:25:30 ] 質問です。 先日MacPortsで自動アップデートを実行してから下記のエラーがperl実行時に出てくるようになりました（その前までは出なかったのに…） Use of uninitialized value in concatenation (.) or string at /opt/local/lib/perl5/5.8.8/darwin-2level/Scalar/Util.pm line 30, <> line 6. CPANの自動アップデートも行ったのですが、同じエラーが出続けてしまいます。 プログラム事態は特に問題なく実行できているのですが、これを解決するにはどうしたら良いのでしょうか。 よろしくお願いいたします。 MacOSX 10.5.4 MacPorts 1.600 Perl 5.8.8 688 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 05:22:27 ] >>687 no warnings; 689 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 06:24:49 ] no warnings野郎がキチガイだから無視しないとだめ。 で、回答だが、変数を初期化しないのが理由でウオーニングが出ているのだから、 $aとかの変数をすべて、my　$aとかで初期化すれば解決する。 それはUtil.pmの30行目と 本体の6行目にある。 690 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 06:25:56 ] ところでみんなこのシリーズみてる？ perl　tutorial jp.youtube.com/profile_videos?user=bermnz&p=v 691 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 06:39:15 ] >>688 Scalar::Utilの30行目の警告という事は分かってるんです。消し方も。 ただ気持ち悪いじゃないですか。 CPANで最新のソースを調べても特に修正は無いし、 実際のソースを見てもどうしてそうなるのか分からないんですよね。 search.cpan.org/src/GBARR/Scalar-List-Utils-1.19/lib/Scalar/Util.pm -------------------------------------------- if (grep { /^(dualvar|set_prototype)$/ } @_ ) { require Carp; Carp::croak("$1 is only avaliable with the XS version"); #エラーにある30行目はここ } -------------------------------------------- $1ってのに値が入ってないとかそういう意味だと思うのですが、 値が入らないのであれば、この29~30行目は実行されないはずではないのでしょうか…。 初心者なりに色々考えてるのですが全く分からない…。 692 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 06:45:48 ] >>689 no worningsはやっぱりダメですよね！ どの本見ても書いてあったので、必ず入れてます。 本体の6行目というのは、Util.pmを直接の 本体という意味でしょうか？(どいつが本体かわかん無い…) Util.pmを直接自分の書いたスクリプトは実行していなく、 自分の書いたスクリプトの6行目は use Encode; なので、なんも問題が無いと思うのですが。 すみません、ご教授下さい。 693 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 07:05:38 ] ここで空気を読まずに別の質問 Perlもサイドエフェクトってあるの？ 694 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 08:10:35 ] >>691 grepを一旦、@aで受けるとかどう？ if (my @a = grep { /^(dualvar|set_prototype)$/ } @_ ) { require Carp; Carp::croak("@a is only avaliable with the XS version"); #エラーにある30行目はここ } 695 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 11:51:40 ] >>691 こんな感じの事が起きている。 $_ = q/abcd/; { m/^(abcd)$/; print "a:$1\n"; } print "b:$1\n"; しかし、grep BLOCK LIST の代わりに grep EXPR,LIST を使っても同じ結果になるので要注意。 理由は未確認。(内部的に BLOCK になっているのだろう) このエラーが放置されている理由は、おそらくこのエラーが報告されていないから。 なにしろ、これはXSバージョンが使えない場合かつユーザーが(デフォルトで輸出されない)特定の 処理を要求した場合のみに発生するエラーだから。 今までエラーが出なかかったのは、単にXSバージョンが使われていたからだろう。 で >>687 にあるようにプログラムの動作に問題が無いならば、dualvarまたは(/かつ)set_prototype を必要無いのに要求していたという事なので、単にこれらを要求する事を止めればよい。 696 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 12:33:07 ] >>695 $数字はダイナミックスコープだからブロックを抜けたら元に戻るというのは その通りだが、今回の例は抜けてないので違うんじゃない？ 697 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 15:38:34 ] コマンドラインで引数を与える時に、間違った変数名で入力した場合に Usageを出したいのですが、どうすればいいでしょうか？ 698 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 15:40:28 ] 正規表現で判定するか、CPANからモジュール引っこ抜いてきて判定する 後はprintでusage出せばおｋ 699 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 15:43:47 ] その正規表現の方法がわからないのです。 C:xxx.pl -aaa=1を間違って C:xxx.pl -aa=1と入力なのですが・・・・ 中で変数を宣言してなくて、外でしているのですが、変数名を見ることができるのですか？ 700 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 15:46:07 ] 何を言っているのか意味不明 701 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 15:51:00 ] C:xxx.pl -aaa=1を間違って C:xxx.pl -aa=1入力した場合エラーをだしたい -aaa=1 が正しく -aa=1 が間違い プラグラム中には our $aaa は宣言してますが our $aa　　は宣言していません なのですが 説明下手ですいません 702 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 16:13:28 ] ああ、そうか。 引数で -aaa って言ったら、普通は a が３つって解釈すると思う。 んで、素直に if 文じゃダメ？ 703 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 16:14:21 ] >>694-696 XSや、エラーを出す原因となっているスクリプト部分や、 dualvar、set_prototypeなど何だか分からない言葉が 大量に出てきたので、勉強して出直してきますｗ 自分の書いたプログラム以外の物を編集するのは 気が引けるので、環境を整える方向で考えてみます。 ありがとうございました。 704 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 16:17:05 ] >>701 必要な変数に値が与えられたかどうかを判別するので対処出来るのでは？ 与えられた引数全てを見れるような方法が欲しいってこと？ 705 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 16:54:19 ] >>697 > コマンドラインで引数を与える時に、間違った変数名で入力した場合に > Usageを出したいのですが、どうすればいいでしょうか？ ?を使えばいい。 706 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 17:12:25 ] 引数のオプション名を変数名に紐付けるのではなく、 ハッシュキーに紐付けることで少し楽になる。 あとは Hash::Util を使ってロックした上でエラートラップするなり、 keys %hash リストの各要素と順次 eq するなり。 707 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 17:23:51 ] >>699 なんでそんな入り組んだややこしい遠回りで手の込んだことをしたいの? ふつうにGetopt::Longで処理するのではだめなのか? 708 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 17:27:42 ] 宣言されている変数に値を代入したいという意味なら、こうするのはどうだろうか？ # 宣言時にとりあえず空文字をいれておく our $aaa = ""; our $bbb = ""; for (@ARGV) { defined ${$1} and ${$1} = $2 if( /-(.+)=(.+)/ ) } 709 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 19:18:10 ] >>696 今回は grep BLOCK LIST なので、マッチ演算が行われた(目に見える)ブロックから抜けている罠。 695をブロックで書いたのは $数字 のスコープから抜けている点がブロックと同じだからなんだけど、 組み込みのgrep関数のソース(pp.c 内の pp_grepstart)を見たら中でENTER を行っていた(==grepの 中にブロックに入る/抜ける時と類似の処理が含まれていた)ので、ブロックでも構わなくね？ そうでなくても組み込み関数のオーバーライドがありうるので、関数はブロック(サブルーチン)のよう に扱う方が無難だと思うのだが、Scalar::Util の作者はそう考えなかったみたい。 710 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 19:50:06 ] >>709 grepのあとがブロックになってるのを見落としていた。スマン。 で、これどうみてもScalar::Utilのバグじゃね？ 711 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 20:17:01 ] itpro.nikkeibp.co.jp/article/NEWS/20080905/314238/ この人て有名なの？ 712 名前：デフォルトの名無しさん mailto:sage [2008/09/07(日) 20:31:43 ] 【コミュニティーサイト作成有志募集！】 現在コミュニティーサイトGaccoで有志を募集しています。 詳しい概要等は →www36.atwiki.jp/vipvipschool/ こちらをご覧下さい。 ・プログラミングができる方 （現在技術陣は6名です） ・ウェブデザイン・画像編集能力がある方 （現在デザイン陣は2名です） ・宣伝能力のある方 （人員募集やサイト完成後の宣伝等。動画編集ができると○。） を募集しています。 気軽にIRCに参加、またはsuteあっと2ch.bona.jpまでメールを下さい。 スレッド：ttp://ex14.vip2ch.com/test/read.cgi/news4gep/1219068297/l50 713 名前：デフォルトの名無しさん [2008/09/08(月) 05:24:01 ] perlを始めて日の浅い初心者です。 練習として、google検索をしてその件数を出すというプログラムを書いているのですが、 出力と手動で検索した時の件数に誤差が生じます。 ソース挙げておきますので、良ければご指摘下さい。 よろしくお願いします。 use Web::Scraper; use URI; use utf8; use Encode; my $scraper = scraper { process '/html/body/div[2]/p/b[2]', 'kensuu' => 'TEXT';}; my $uri = new URI('www.google.com/search'); $uri->query_form( hl => 'ja' , q => 'コミュニケーション'); my $res = $scraper->scrape($uri); print $res->{kensuu}; 出力 33,500,000 手動で検索 33,900,000 となってしまいます…。 714 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 05:38:29 ] use feature qw( :5.10 ); system q|cls|; for (1..120) { state $a="a"; print $a," "; $a++; } say""; #---------------------- ↑なにこれ 楽しい from jp.youtube.com/watch?v=v7riTEp9v2s&feature=related 715 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 05:46:48 ] use feature qw( :5.10 ); system q|cls|; open FH,">","1.txt"; for (1..120000) { state $a="a"; print FH $a," "; $a++; } say "done.Please check out 1.txt"; #--------------------------------- たのしー これって出力結果を要素ひとつづつ 配列に入れたりもできるのかな？ 716 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 05:58:40 ] use feature qw( :5.10 ); system q|cls|; open FH,">","4.txt"; for (1..12000000) { state $a="a"; print FH $a," "; $a++; } #-------------------------- ↑これで１千２百万回まわしたら、 ７０MBのテキストファイルになって、 エディタで開いたら表示がぶっ壊れた kazato.run.buttobi.net/cgi-bin/material/src/vm002_0268.png 717 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 06:12:48 ] >>713 $uri->query_form( hl => 'ja' , q => 'SEX'); この検索ワードだったら 手動とスクリプトで、 ぴったり件数一致しました。 718 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 06:15:49 ] 何件か試してみたけど、 日本語のキーワードだとずれる、 アルファベットのみだと、ぴったり一致する、 という特性があるみたいですね。 719 名前：デフォルトの名無しさん [2008/09/08(月) 06:18:33 ] 俺も何件か試したが、なんでズレるんだ？ 720 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 06:31:19 ] >>719 英語のみのキーワードだとずれないでしょ？ 721 名前：デフォルトの名無しさん [2008/09/08(月) 06:50:05 ] ずれないけど検索するんなら、713もコミュニケーションしてるし、日本語だろうからあんまり意味ないんじゃね？ 722 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 06:55:56 ] 日本語で検索しなければ良い。 723 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 11:27:12 ] シェルも使える人にお聞きしたいのですが、Perlとシェルって共通してる部分ありますか？　 シェルも勉強したいと思ってきたので。。。　 724 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:12:12 ] my $q = CGI->new(); これを &Init($q); みたいにしてその中で $q->param('filename') みたいな処理を行いたくて CGIオブジェクトをいろんな引数に渡したいのですが どうやってやればいいのですか 725 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:17:37 ] sub Init { my $q = shift; } 726 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:22:19 ] おお、そんなことが　ありがとうございます どこら辺の単語で出てきますか 727 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:23:18 ] >>723 記述的には、C程似て無いとは思う でも、言語なんて 表示、条件判定、ループ、サブルーチン作成。 こんだけ分かれば、大抵のものは組めるけどね 728 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:26:58 ] >>723 どちらもソフトウェアという点が共通してるよ。 729 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:48:54 ] > ・シェルスクリプトのことをシェルってゆーな なんとなく某所のテンプレから借りて来た。 730 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 12:50:39 ] >>713-722 多分だけど、googleに限らず大手の検索エンジンなんか数百台〜数千(数万？)台のサーバーで 構築されてるんだろうから、毎回必ず同じ結果が返って来るとは限らないんじゃない？ (Yahooなんかは、同一環境でもCookeiが違えば、件数どころか上位十件が全然違うこととかもあるw) たしかgoogleは、ブラウザの HTTP_ACCEPT_LANGUAGE あたりで使用言語の優先順位を判定して 各言語のサーバへリダイレクトしてるとか聞いたことある。 (例えば、一般的な日本語ブラウザでgoogle.comにアクセスしても、co.jpの方へ飛ばされる。とか) >>726 「perl サブルーチン 引数」とか「perl shift」とか。 731 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 14:19:56 ] PerlとPHPはまったく別物なのでしょうか？関連性とかあるのかな、と。　 その辺のことよく知りません。 732 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 14:35:03 ] >>731 ないから諦めてください 733 名前：713 [2008/09/08(月) 15:19:52 ] >>717-722 皆様ありがとうございます。 >>730 そうなんですか…。 じゃあ日本語を検索した際、プログラムで手動と同じ検索結果を出そうとするのは事実上困難って事ですよね…。 わかりました。 ありがとうございます。 734 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 15:25:32 ] どういう通信するか観察してきちんと真似てやればなんとかなると思うけどね。 735 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 16:19:48 ] >726 どこらへんも何も、普通に引数を渡してるだけだぜ？ 736 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 21:59:04 ] 配列から指定の要素番号を抜き出して、 削除するってできるの？ popの要素番号指定版。 $number = pop　@array[5]; みたいな。@arrayの要素番号５が抜き出されて $numberに入り、なおかつ ＠array[５]は消え去る。 737 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 22:25:25 ] >>735 つsplice 738 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 22:34:02 ] >>737 つ>>736 739 名前：デフォルトの名無しさん mailto:sage [2008/09/08(月) 23:44:23 ] >>39お願いします 740 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:01:37 ] >>738 頭から1行ずつ読めばそのうち任意の行に到達するよ。 741 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:05:42 ] ところで>>713はなにをやっているの？ CGIでもないようだし、 にも関わらずWEBのデータ-を取ってきて なんか遊べるようだが、これって なんで名前なの？ どういう本にのってるの？ 742 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:18:37 ] >>741 perl スクレイピング でぐぐれ 743 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:27:08 ] へーこんな用語があったんだ。 初めて知ったわ。 俺の書いてきたPerlスクリプトは9割がスクレイピングだー 744 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 00:30:41 ] オライリーからも本出てるよ。 俺の初めて書いたperlはそれの第一章とかだった気がするｗ 745 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 02:00:44 ] #------------------１ my @a=(1..10); map {$_ = $_ *2} @a; print "@a\n"; #--------------------１ #-------------------------- #-----------------------２ my @a=(1..10); map {$_ = $_ *2} (@a); print "@a\n"; #------------------２ ↑これ、１も２もどっちも 実行できるんだけど、mapの配列の（）パーレンは 必要ないってこと？ 746 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 02:36:15 ] ●１ map {print $_,"\n" } 0..10; これだとちゃんと１〜１０が表示されるのに ●２ map {print $_,\n } 0..10; これだとなぜかアドレスが出てしまう。 なんでだろう？ 747 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 03:09:08 ] my @a=qw(aaaaa bbb ccc ddd eee fff abf haty juy ade il erat tyu dfg gu ); my @b=grep {$_=~'a'} @a; print "@b\n"; #--------------------------------------- grepのときに、スマートマッチ〜〜使えないのか。 my @a=qw(aaaaa bbb ccc ddd eee fff abf haty juy ade il erat tyu dfg gu ); my @b=grep {$_~~'a'} @a; print "@b\n"; #-------------------------------- ↑これだとエラーが出る。＝〜にしないとだめらしい。 748 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 03:53:32 ] my %hash; $hash{name}='john'; $hash{age}='25'; $hash{city}='london'; print "@{[%hash]}\n"; ↑なんでこれでハッシュの中味が出力されるの？ 749 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 04:03:47 ] 何故〜なの？という質問のときは、 「自分は○○されると想ったのに」と付け加えるとアドバイスしやすい。 750 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 04:24:40 ] @{[%hash]} これの記法がまったく意味がわからん 751 名前： ◆TWARamEjuA mailto:sage [2008/09/09(火) 06:59:06 BE:980633-2BP(7089)] (grep 1, each %hash) かな？ 752 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:38:24 ] 何年ここにいて、そんな頓珍漢な解答をする？ > クソコテ 実行結果すら合わねえじゃねえか 753 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:39:16 ] jp.youtube.com/watch?v=PIyzRW7L6eY&feature=related これの最後のやつがちょっと意味わかんないかも。 mapの lcの組み合わせたやつ。 754 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:44:28 ] $words="a title of a webpage"; $words = join ' ', map {ucfirst lc} split / /,$words; print "$words\n"; ↑これね。 755 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 07:47:38 ] >>754 1. スペースで split => 単語毎になる。 2. lc $_ で全部小文字（$_ の表記省略） 3. 2. の結果を ucfirst で一文字目だけ大文字化。 4. スペースでくっつける 756 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:00:27 ] >>736 my $index = 2 ; # 抜きたいindex my @dat = qw( 1 2 3 4 5 6 ) ; push @dat, ( splice @dat, $index )[1.. $#dat - $index] ; print @dat ; 定番 757 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:03:04 ] >>750 %hash をリストと見做して [] にて無名配列へのリファレンスに突っ込む。 @{} にてそのリファレンスをデリファレンス。 758 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:04:38 ] >>756 $numberが… 二行に分ければ済む事だけど 759 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 08:27:14 ] jp.youtube.com/watch?v=xBTsQ6e7gXY&feature=related これって何やってるの？ 760 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 11:56:00 ] >>740 了解しました。 一気にその行に行く方法はないんですね。 761 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 12:24:25 ] >760 配列にでも突っ込めば？ 762 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 12:42:21 ] >>760 あらかじめ各行の先頭位置を別に記録してあればseek一発だが、そういう 準備がされてなければ頭から読むしかないね。なにもないときは頭から 改行を頼りに行数を数えるしか何行目か知る方法はないのです。 763 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 14:04:15 ] >>761 行数が多い場合、コストが高そうな気がして。。。 >>762 やはりそうですか。 どもです。 764 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 16:22:23 ] yyyymmddの日付を比較したいのですが どうすれば一番簡単ですか 765 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 16:48:42 ] 比較だけなら、そのまま比較すれば意図した通りの結果になるんじゃない？ 766 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 22:38:26 ] ディレクトリの中にファイルがあったら ディレクトリを空にする、という処理をしたいのですが if(-e "$path/"){ 削除処理 } みたいなものだと、ディレクトリそのものが認識されて ファイルを認識してくれません どうすりゃええんでしょうか 767 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 22:40:18 ] >>766 ディレクトリを読んでファイルがあるかどうか調べるといいよ。 768 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 22:57:02 ] opendirあたりでヤルしかないですか 遠回りだと思ってたけどそれが一番なのかな 769 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:02:59 ] グロブ使えよ。 中作業だろ。 770 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:05:57 ] File::Slurpのread_dirが便利 771 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:17:50 ] これじゃダメ？ if(<$path/*.*>){ 削除処理 } 772 名前：デフォルトの名無しさん mailto:sage [2008/09/09(火) 23:45:39 ] >>769 グロブの使い方がわからないであります >>770 多分はいってないです >>771 ためしてみます 773 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 01:45:46 ] ５．１０が動くレンタルサーバーってどこがある？ 774 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 02:24:36 ] 事前に膨大な乱数表作っておいて、 substrだけで抜き出して会話するってできる？ 775 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 05:35:12 ] >774 どういうこと？ 776 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 05:42:43 ] my $a="g'oiaherugbapowirhaysrgpairhja]ierhgtauw[eifbgaeirhuecf[awierbawirt]aebm"; 等の100万語ぐらいの膨大な量の乱数表みたいな 語句のリストをあらかじめ作っておいて、 「hello」って表示したい場合は 「５」番目と「７番目」と「12番目」を抜き出して 表示する」みたいな。 たまたま、うまくつながってるところを見つけると、 ポイントアップです。 777 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 05:43:46 ] index と substrを組み合わせたゲームね。 778 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 06:04:15 ] （１） use feature qw( :5.10 ); my $t; $t=localtime; say $t; ------------------------------- （２） use feature qw( :5.10 ); my $t; $t=localtime(time); say $t; −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− （１）と（２）で、実行結果が変わらないのだが、なんで？ どっちでもいいの？ じゃあ、timeの立場は？ 779 名前： ◆TWARamEjuA mailto:sage [2008/09/10(水) 06:58:15 BE:654023-2BP(7089)] >>752 わはは！ 描いて、全然ちゃうわ！と気が付いて投稿窓を閉じたつもりが送信されてたョ（呆） 780 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 07:03:36 ] Perlの勉強するときに、実は ものすごく脳力というか エネルギー使うんじゃね？ 漏れは30分か1時間もやると ぐったりして集中力がなくなる。 読んでも頭に入らなくなる。 781 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 07:16:34 ] >778 捨てハンでもトリッブでもいいから、なんか分かりやすい名前つけたらどうだ？ たぶん皆喜ぶぞ。NG指定するのに。 782 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 09:10:05 ] じゃあアンケートとって スレ住民の５１％以上が賛成してたら そうするよ。 783 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 10:28:58 ] 住人は>>781の一人だから賛成100％が可決。　俺は通りすがり。 784 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 14:27:20 ] トリッブはねえよ 785 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 16:28:39 ] >>782 50.4%が賛成だとアウトなのかが気になる 786 名前：デフォルトの名無しさん [2008/09/10(水) 19:11:24 ] Perlで作ったツールをUSBメモリに入れて持ち運びたいんですが、 Perlの動作環境込みで持ち運ぶのは無理でしょうか？ テキストファイルの処理がメインでLinuxとActivePerlでの動作は確認しています。 しかしActivePerlがインストールされているWindowsマシンは少なく、 客先ではActivePerlのインストールも許されていない ので困っています。 787 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 19:19:03 ] そのUSBに入れときゃいいやん 788 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 21:04:57 ] >>786 「Perlで書いたツールを持ち歩きたいけれど、フルセットの実行環境は要らない」 PAR - Perl Archive Toolkit があなたのわがままを叶えてくれます。 789 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 21:13:34 ] PAR の話は「perl.exe だけで足りるかもしれない」と伝えてからでいいんじゃないのか。 790 名前：788 mailto:sage [2008/09/10(水) 21:37:22 ] >>789 ああ、もっともだね。先走りました。 791 名前：sage [2008/09/10(水) 22:17:56 ] 教えて下さい windowsでperlを書いてるんですが $dirName = "C:\\Documents and Settings\\Administrator\\My Documents\\新しいフォルダ"; @res = `"dir \"$dirName\""`; を実行すると ファイル名、ディレクトリ名、またはボリューム ラベルの構文が間違っています。 となってしまします。どこがいけないでしょうか？ 792 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 22:29:18 ] (1)　>>2をやっていない？？ (2)　ディレクトリ名にスペースがあるとエラーになる？？ 793 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 22:30:21 ] >>2じゃなくて>>4だった。 （３）Perlでは日本語のフォルダ名を扱えない？？ 794 名前：sage mailto:sage [2008/09/10(水) 22:42:52 ] >>792 説明が不足して申し訳ないです。。。 日本語のフォルダが大丈夫なのは確認済みです。 ディレクトリ名にスペースがあると上手くいかないんです。。。 >>4をやっても駄目でした。 795 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 22:58:31 ] >>794 $dirName = '"C:\Documents and Settings\Administrator\My Documents\巨乳女子校生・公園で立ちバック"'; @res = `dir $dirName`; スペースが入るときは "こう 囲んで 渡す" ってとこまでたどり着いてるのに惜しいな。 'これ' と "これ" の使い分けに慣れるといいよ。 796 名前：デフォルトの名無しさん mailto:sage [2008/09/10(水) 23:24:02 ] >>792,793 答えようとするのは良いけれど、 確信がないなら検証してからにしてくれ。 質問者が混乱するから。 797 名前：sage mailto:sage [2008/09/10(水) 23:56:44 ] ご支援ありがとうございます。 >>795 教えてもらった方法で上手く出来ました。 ありがとうございます。 追加で申し訳ないのですが >>791のコードでディレクトリ名を引数で渡したい場合はどうしたらよいでしょう？ やりたい事のイメージ： %>perl test.pl "C:\Documents and Settings\Administrator\My Documents\貧乳女子高生・あばらで洗濯" test.plの内容 $dirName = $ARGV[0]; @res = `dir "$dirName"`; ちょっとまだ''と""の違いを正確に理解できていない様です。。。 '' => 文字をそのまま代入 "" => 変数を展開して代入 という認識なのですが他にも違いがあるのでしょうか？ 798 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 00:43:41 ] >>797 '"ああああああ　いいいいい　うううう"' これでいけるんじゃない？知らんけどｗ 799 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 00:50:29 ] >>797 $dirName = '"' . $ARGV[0] . '"'; # 消えても懲りずにくっつける @res = `dir $dirName`; たぶん期待の動作になると思うんですよね。 >perl test.pl "C:\Documents and Settings\Administrator\My Documents\着衣のふくらみ・貧乳編" perldoc perlintro perldoc perlop 辺りに書かれてますが '' と "" では \ がエスケープ文字なのか、文字 \ なのかというのも変わってきます。 800 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 01:20:03 ] ところでバッククォートってsystemとおんなじだっけ？？ 801 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 02:38:32 ] >>800 うーん、マニュアル読んだら分かることだしねえ。 どうしても誰かに聞きたきゃ、くだすれ方面だろうね。 くだすれでも引かれるレベルの質問ではあるけど。 802 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 04:43:45 ] systemにリストで渡した方が引数を勝手に解釈されなくて済む 803 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 04:45:32 ] RMってどういう意味？ ReMake? 804 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 04:49:05 ] remember 805 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:01:59 ] RozenMaiden 806 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:47:59 ] perlで関数、サブルーチンに渡す引数ってどちらから評価されますか？ 807 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:48:26 ] こないだのScraperの問題、情報調べてきてやったんだけど。↓ ただ、どうしても日本語の検索キーワードが 文字化けしてしまう。いろいろ調べると、Google Search History の RSS は UserAgent がブラウザ ぽくないと charaset=utf-8 じゃなく、charset=ISO -8859-1 を返してきやがる。 808 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:49:14 ] nanntoka (A, B, C); ↑この場合、Aから実行なのか、Cから実行なのか、って意味？ 809 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:50:11 ] サブルーチンに渡す引数は、左からだな。 関数は知らない。 810 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:55:33 ] >>808 そうですそうです >>809 thx、ちなみにそのサブルーチンでは（ｒｙってのはどっかに規定されてる物なの？ 811 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 05:56:25 ] おー　なんだよー こんな良いページがあるじゃんかよー ちゃんと教えてくれよー www.tkrb.jp/modules/summary1/index.php?id=7 812 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 06:38:21 ] 今発見したが、これはいったいなんなんだー choco.lv3.net/test/read.cgi/program/1210740268/ 813 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 11:04:17 ] >>810 特に決まっていない 814 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 17:14:04 ] 簡易HTTPサーバを書くのが便利そうなモジュールを探してみたら、 POE::Component::Server::HTTP POE::Component::Server::HTTPServer POE::Component::Server::SimpleHTTP があるようなのですが、どれを使うのが良いんでしょうか？ 815 名前：デフォルトの名無しさん mailto:sage [2008/09/11(木) 20:55:36 ] 用途による 816 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 00:26:49 ] my $q = CGI->new(); # CGIオブジェクト my $fh = $q->upload('filename'); # ファイルハンドル兼ファイル名 my $temp_path = $q->tmpFileName($fh); # アップロードされた #ファイルのフルパス fileparse_set_fstype('MSDOS'); # WinIE用パス文字設定 my $filename = basename($fh); # アップロードされたファイルの # ファイル名 my $upload_path = "$upload_dir/$filename"; # 保存先フルパス move ($temp_path, $upload_path) # File::Copy の moveメソッドで or die $!; # 移動 close($fh); # おまじない これを改造して、バカでかいファイルでもタイムアウトしないようにしたいのですが ttp://www.bioinfo.jp/tips.html#background1 これをどこに組み込めばできますか 817 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 01:24:44 ] 下記のバージョンで、CPANからモジュールが 入れられるようになりました。感動した。 ・XAMPP(1.6.2) ・Perl Add-on(5.8.8-2.2.4) ・Active Perl(5.8.8.817) って書いてあるけど、もしかして、 PPMのほかに、CPANから直接入れる方法もあるの？ Activeperl。 818 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 05:43:51 ] もしかして、５．１０が動くレンタルサーバーってないの？ アメリカで１０＄のとこ、一個見つけたけど。 819 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 06:47:03 ] jp.youtube.com/watch?v=fPwHSyCrZB8&feature=related forループの条件部って こうやって書いてもよかったんだ！ 820 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 07:26:47 ] うぜえ、消えろカス 821 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 07:42:01 ] >>820 おまえがな 822 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:05:08 ] do { do { do { do { print "hello\n"; } } } } やっぱ男だったら doのネストだよな！ 823 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:21:08 ] { { { { print "hello\n"; } } } } よく考えたら、doがなくても 動くじゃないか！ 824 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:26:20 ] for $_(1..10){ print $_*2,"\n"; } ↑これだと動くんだけど、 for $_(1..10){ print "$_*2"."\n"; } ↑これだと動かない。 なんで？？？ 825 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 08:57:51 ] ・さっきから鳥肌立ちまくり(の俺センスある) ・朝４時に何見てんだ俺……(でもそんな俺かっこいい) ・泣けた、疲れてるのかな……(でも疲れてる俺かっこいい) ・徹夜の上酔ってる俺が来ましたよ(こんな頑張ってる俺かっこいい) ・小３で全クリできたわ(さすが俺) ・８９年生まれだけど知ってますｗ(俺って博識だから) ・ここからの展開が神(俺見たことあるし見所も知ってるんだぜ) ・これを笑えない香具師はｾﾝｽない(俺は笑えてるからｾﾝｽある) ・これ○○だと思うの俺だけ？(ちょっとずれてる俺かっこいいor｢俺もそう思うよ｣待ち) ・この時○○は××でした(そんなﾄﾘﾋﾞｱも知ってる俺すげー、敬語だし) ・は？表出ろやカス(返事なかった、俺の勝ち) ・まだこのシリーズやってたんだ、しょうがねえから見てやるか(俺が見てやってるんだからありがたく思えよ) ・神曲ktkr ←これより○○の方が神だろ(マイナー曲を挙げる俺って通だなー) ・shita cyan 禁断の海馬に手を加えて 驕れる無能な創造神にでも 成った心算なの(わざわざ歌詞職人やる俺えらいなー) 826 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 10:17:16 ] sub abc(@%@%){ my $a=shift; my $b=shift; my $c =$a+$b; print "$c\n"; } abc(3,4); ↑これでエラーでないとか、 プロトライプの意味ないじゃん！ 827 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:27:32 ] >818 ヒントだけ。「板違い」 828 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:29:41 ] サブルーチンの引数について勉強するといいと思うよ 829 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:31:31 ] 初心者なのですが質問させていただきます。　 push(@array,$item);　 これを[splice]を使って書くと、 splice(@array,@array,0,$item); このようになるようですが、開始位置に書いてある[@array]は、「配列の要素数」と考えて よろしいのでしょうか。それとも要素数じゃないのでしょうか。 「要素数」は添え字の値より１多い数なので、それを開始位置に書いてあるのがよくわからなくて 混乱しました。 830 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:40:12 ] >>829 > 「要素数」は添え字の値より１多い数なので、それを開始位置に書いてあるのがよくわからなくて > 混乱しました。 添え字の値より1多い数が開始位置じゃなかったら、なにが開始位置になるんだょ。 831 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 12:44:17 ] OFFSET番目の要素の前に入るから要素数でいいんでない? わかりにくいから例を書いておく。 @array=(a b c)のとき(要素数は3)、 splice(@array, 0, 0, "x")=(x,a,b,c) splice(@array, 1, 0, "x")=(a,x,b,c) splice(@array, 2, 0, "x")=(a,b,x,c) splice(@array, 3, 0, "x")=(a,b,c,x) 832 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 13:06:08 ] >>829 splice の二番目の引数は「読み飛ばす要素数」ではなく「開始対象となる要素の添え字」なので、 開始位置の @array は「要素数」ではなくて「最大の添え字よりも1つだけ大きい数」の意味。 昔は splice(@array,$#array+1,0,$item) で載っていた。 今は splice(@array,@array,0,$item) だけど、これは scalar @array がたまたま $#array+1 と等しい 場合に限ってうまく動く。 もちろん、何も特別なことをしなければ scalar @array と $#array+1 は等しいので、通常はうまく動く。 833 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 13:09:16 ] >>826 perldoc perlsub 834 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 13:09:23 ] >>830-831 理解できました。ありがとうございました。 >>831さんの例で言うと、添え字が[ 3 ]の要素が無いので、 なぜ開始位置の添え字の数値として指定できるのか…と混乱したのです。 835 名前：829 mailto:sage [2008/09/12(金) 13:14:08 ] >>832　 詳しい説明ありがとうございました。 [$#aｒray + 1]と同じ意味なのですね。非常によくわかりました。 836 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 14:08:22 ] >>826 バックスラッシュを入れないと 837 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 14:21:41 ] >>835 []をつけるな。他の意味になる。 838 名前：デフォルトの名無しさん mailto:sage [2008/09/12(金) 15:55:20 ] threads::shared でしつもん。 perldoc.jp/docs/modules/threads-0.99/threads/shared.pod に cond_signal の説明で、 「もしどのスレッドもその変数をcond_waitしていない場合、 シグナルは破棄される。常にシグナルの前にロックされるので、 他のスレッドがcond_wait()に入る前にシグナルを発するのを 回避することが（注意深くやれば）出来る。」 とあるのですが、この回避するための注意深いやり方ってどうすればいいのでしょう？ 839 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 00:50:38 ] 最近気が付いた。 せっかく５．１０を使って勉強しても ５．１０が動く無料のレンタルサーバーが無い。 だから最初から５．８で勉強しないとだめ。 でもactivePerlのバージョンはたぶん ５．１０でいいとおもう。５．１０の機能を 使わなければいいだけだから。 840 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 04:44:39 ] よく入門書とかで、「レファレンス、レファレンス」とかって 書いてあるのは、「ハード　レファレンス」のことでいいの？ 841 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 06:25:47 ] このスレで良いか分からないのですけどお願いします。 CentOS5を導入したところなのですが、cpanコマンドを最初に立ち上げたとき、 画面にBundle::CPANを導入しろとか書いてありまして、その通りに cpan> install Bundle::CPAN cpan> reload cpan とやったところ、 Missing right curly or square bracket at (eval 319) line 3441, at end of line syntax error at (eval 319) line 3441, at EOF といったエラーが出てしまいます。OSの再インストールもしてみたのですが再現します。 この状態で他のモジュールのインストールも出来ているようなのですが、何だか不安です。 このエラーの原因についてご存知のかたはいらっしゃいますでしょうか？ CPAN.pmのバージョンは1.9205です。 842 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 09:50:11 ] なにこれ こんなやり方知らなかったんだけど。 Perl Tutorial 76 - Formats: Low-Level Formatting - Formline jp.youtube.com/watch?v=voHCfl4lYmE&NR=1 843 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 10:40:17 ] do do do で die die die $! 844 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 11:23:18 ] Anonymous FTPはなんで匿名FTPなのに、 なんでAnonymous Arrayは無名アレイなの？ 845 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 11:51:34 ] >>844 anonymous の意味には日本語で言うところの 匿名(本当は名前を持っているけど隠してる)ってのと 無名(そもそも名前がついてない)の両方がある。 それを考えないで匿名しか使ってないやつも多いけどね 846 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 13:50:56 ] >>841 Linux板で質問したほうがいいと思われ 847 名前：デフォルトの名無しさん mailto:sage [2008/09/13(土) 23:38:52 ] 土曜の夜だからって 書き込みがないのは 許さんぞ！！ 848 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:44:05 ] stateがいたく気に入ったのですが、 ５．１０が動くレンタルサーバーが無い以上、 使うのをあきらめざるをえません。 本当に断腸の思いです。 849 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:51:43 ] レンタルサーバで動かすためのもんじゃないしなぁ・・・ 5.8とかにすれば？ 850 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:54:42 ] my $r; my $r=['a','b','c',]; print "@$r\n"; オレ様の初の無名アレイのサンプル。 ＄ｒに格納された、無名アレイのアドレスを、 ＠を先頭につけることによって、 「デ･リファレンス」することによって 配列の中味を表示している、 これであってますよね。 851 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 08:55:29 ] >>849 まじで？ なんで？ 852 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 09:34:52 ] my $r=['a','b','c',]; print "$$r[1]\n"; 無名配列の デリファレンスの 配列番号指定の 表示法。 ['a','b','c',] という無名配列の先頭アドレスを $rに格納し、$$rとアタマに＄をつけることによって デリファレンンスして配列の中味を取り出して、 [１]と添え字をつけることで指定の番号の要素を 取り出して表示している。 853 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 09:53:41 ] なんで有名アレイは（）パーレンで囲むのに、 無名アレイは[]スクエアブラケットで囲むのか？ なんで、有名ハッシュは（）パーレンで囲むのに、 無名ハッシュは｛｝カーリーブラケットで囲むのか？ 854 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:06:16 ] my $r; $r={ 'a' => 'b', }; print "$$r{'c'}\n"; 無名ハッシュの例。 {'a' => 'b',}; の無名ハッシュのアドレスを$rに格納。 ＄＄ｒと先頭に＄をつけて｛’ｃ’｝とキーを指定して バリューのｂを出力している。 855 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:07:28 ] ねーねーもしかして 5.9.5 のほうが５．１０よりも進んでいるの？ （安定性はきにしないとして） 856 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:09:26 ] >>853 認識が根本的に間違ってる。 () <= 無名アレイもしくは無名ハッシュ（状況によっては単なるリスト） [] <= 無名アレイへの「リファレンス」 {} <= 無名ハッシュへの「リファレンス」 @arr = ( 1,2,3 ) ; する事によって初めて有名アレイ（んな言いかたするっけ？）と言える。 あくまでも@arrが有名アレイであって、(1,2,3) は単なるリストだ。 [ 1,2,3 ] は、() を省略してる。 [ (1,2,3 ) ] { 1,2,3,4 } は、略 文章の流れから、[] を無名アレイと言ったりする人もいるだけの事 857 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:16:04 ] >>856 事故レス >() <= 無名アレイもしくは無名ハッシュ（状況によっては単なるリスト） 状況によっては => 厳密には 858 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 10:34:59 ] ふーん デタラメ書くと親切にしてもらえるんだな 859 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 14:02:51 ] なぁ、、、 もしかして、ハッシュって、フラグの管理に便利に 使えるんじゃないのか．．．？ ダンジョンに入った→１ とか。 860 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 14:13:24 ] もしかしても何も無いだろ。 ハードコーディングでもするつもりなのか？ 861 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 16:02:21 ] >>859 なんでもいいからモジュールのコード嫁 862 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 21:42:11 ] バカでかいファイルのアップロード処理で ttp://www.bioinfo.jp/tips.html#background1 ここに描いてるやりかたを使いたいのですが よくわかりません 何か簡単な例でおしえてくだしあ 863 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:00:32 ] >>862 コメント入れてもたったの１０行やん。 これ以上簡単な例？ 864 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:04:33 ] use HTML::TreeBuilder::XPath; my $html = '<html><head><title>foo & bar</title></head><body></body></html>'; my $tree = HTML::TreeBuilder::XPath->new; $tree->parse($html)->eof; print $tree->findvalue('//title'); このコードを実行すると、 foo & bar と表示されるんだけど、 foo & bar って結果を返すようにできない？ 865 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:10:09 ] 存在を忘れそうになるけど実体参照地雷はよく働いてるな 866 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 22:13:20 ] LWP::UserAgentとHTTP::Requestで簡単なhttpクライアントを作っています。 $ua = LWP::UserAgent->new; $req = HTTP::Request->new(GET => 'ja.wikipedia.org/wiki/Perl'); $req->push_header('User-Agent' => 'Mozilla/4.0'); $ua->request($req); を実行すると、パケットキャプチャの結果 GET /wiki/Perl HTTP/1.1 TE: deflate,gzip;q=0.3 Connection: TE, close Host: ja.wikipedia.org User-Agent: Mozilla/4.0 という設定していない"TE"を含むリクエストを投げつけています。 この"TE"を含まないリクエストを投げたいときにはどのようにするのが簡単で自然でしょうか？ (パケットキャプチャをする都合上、圧縮はして欲しくないです) ソースを読んだところ、LWP::Protocol::httpにてSendTE => 1という値を設定していて、 巡り巡ってNET::HTTP::Methodsでその値を参照して有効(1)ならば push(@h2, "TE: deflate,gzip;q=0.3"); push(@connection, "TE"); をするという処理をしていました。 ttp://questionbox.jp.msn.com/qa1758666.html?StatusCheck=ON には ＞LWP::Protocol::httpモジュールのソースファイル40行目付近を改造(SendTE => 1を0)し とありますが、それだけはしたくないです・・・ 867 名前：864 mailto:sage [2008/09/14(日) 22:51:46 ] あー、地雷踏んだ…　もう1回。 use HTML::TreeBuilder::XPath; my $html = '<html><head><title>foo &amp; bar</title></head><body></body></html>'; my $tree = HTML::TreeBuilder::XPath->new; $tree->parse($html)->eof; print $tree->findvalue('//title'); このコードを実行すると、 foo & bar と表示されるんだけど、 foo &amp; bar って結果を返すようにできない？ 868 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 23:11:16 ] &をエスケープする．．．？ 869 名前：デフォルトの名無しさん mailto:sage [2008/09/14(日) 23:14:25 ] 結果文字列を実体参照に変換すりゃいいんじゃね？ 870 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 00:18:36 ] それしかないかなぁ。実態参照の種類たくさんあるから、できればやりたくないんだよなぁ。 871 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 00:31:53 ] そんなモジュールがCPANにあったりして。 872 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 00:40:39 ] わざわざ探さなくても HTML::Entities が入ってたりして。 873 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 01:01:13 ] >>866 push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, ぽにょ => ぽにょ); でオーバーライドできるって、宇宙からのテレパシーが言ってた 874 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 02:17:39 ] >>873 わーvarsってこんな風に使えるんですね！ 瑠璃子ちゃん、電波、届いたよ！ありがとう！ 875 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 07:58:28 ] >874 どう見てもバッドエンドフラグじゃねーか 876 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 09:27:05 ] >>873に便乗なのですが、LWP::Protocol::httpを見ると sub _extra_sock_opts # to be overridden by subclass { return @EXTRA_SOCK_OPTS; } my $sock = $self->socket_class->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Timeout => $timeout, KeepAlive => !!$conn_cache, SendTE => 1, ★$self->_extra_sock_opts($host, $port), ); という処理になっていますが、例えば push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, SendTE => 0); としていた場合、★のところってどのように解釈されるのでしょうか？ 特に$host, $portの解釈がよくわかりませんorz 877 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 10:07:17 ] >>876 #　LWP::Protocol::http のソースは見ずに。 == 例 == use Data::Dumper ; my @arr= qw( hoge foo ) ; my %hash = ( hoge => 1, @arr, ) ; print Dumper \%hash ; == 例終り == これと同じで、@EXTRA_SOCK_OPTS ; で設定した key, value（SendTE => 0） にて、デフォの挙動の key, value（SendTE => 1）が上書きされる。 >★$self->_extra_sock_opts($host, $port), がどう解釈もくそも、まんま LWP::Protocol::http の内部サブルーチン呼んでんじゃん。 # $host,$port がどうにも謎なんだが 878 名前：876 mailto:sage [2008/09/15(月) 10:16:13 ] >>877 サブルーチン呼んでいるというのは分るのですが、自分の知識だと ＞# $host,$port がどうにも謎なんだが が解決しないのです 879 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 10:20:27 ] 再定義するとき必要になる情報列挙しといたんだろ。 880 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 10:44:16 ] >>878 「どうにも謎」と書いたが、それは「作者の意図が分らん」って意味であって perl の挙動としては $host,$port 完全無視である事は明白。 881 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 11:56:08 ] おしえてくだしあ wc -l ファイル名 でファイルの行数を取得したくて $count = system("wc -l ファイル名"); みたいにしてるのですが、0が入ります コマンドで取得した行数を変数にぶち込むのはどういうやり方でやるんですか 882 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 12:19:45 ] open使え 883 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 12:24:11 ] >>880 # to be overridden by subclass これが作者の意図だろ。 サブクラスで使うかもしれない情報を渡しているだけ。 884 名前：デフォルトの名無しさん mailto:sage [2008/09/15(月) 12:25:01 ] >>881 systemのマニュアルエントリに書いてあるお 885 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 00:28:39 ] >>881 `wc -l ファイル名` 886 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 03:58:16 ] my $ref_array = [10, 20, 30]; print "@$ref_array[1]\n";　　　←１ print "$ref_array->[1]\n";　　←２ １と２で、どっち使うの？ 887 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 05:19:04 ] my $a = "a"; print "$main::a"; これで何も表示されないのですが、 この時のmy $aは何パッケージに なっているのでしょうか？ 888 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 06:13:33 ] 古い処理　→　シンボリック　レファレンス 新しい処理　→　ハード　レファレンス 古いやり方　→　＆をつけたサブルーチン呼び出し 新しいやり方　→　（）をつけたサブルーチン呼び出し 古いやり方　→　パッケージ 新しいやり方　→　モジュール 、、、まだある？ 889 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 06:44:35 ] $v="aaa"; $r="v"; print "$r\n"; print "$$r\n"; これが　シンボリック　レファレンス　か。 キモイな。 890 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 07:09:33 ] アロー演算子は デリファレンスの時と オブジェクト指向のときと、 二つの場合で使われるの？ 891 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:13:10 ] モニタのインチ数を指定すると、画面の縦横サイズを 出力するスクリプトを書きたいのですが、どうしたらいいでしょうか？ my $in = 19; # 指定されたモニタのインチ数 my $rt = 2.54; # 一インチは2.54センチメートル my $a; # これを求めたい my $x = 4; # 横の比率 my $y = 3; # 縦の比率 # 三平方の定理 # $in**2 = (($x*$a)**2)+(($y*$a)**2) # $in = ((($x*$a)**2)+(($y*$a)**2))**(1/2) 892 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:15:49 ] ↑>>891の続き $in から $a の値を導き出すことが出来たら、 縦横サイズをセンチメートルで出力するのは簡単なのですが、 式の整理が上手くいかず躓いています。 もし宜しければご教授お願いいたします。 893 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:22:57 ] ↑>>892の続き 自己解決することが出来ました。 4:3モニタの場合は、インチ数である対角線の比率が5、 16:9モニタの場合は、18.36になるようです。 894 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 08:54:26 ] 多次元配列とか使わないでも MySQLとかで解決したほうが速いよね？ 895 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 09:43:18 ] kabocha.org/jelfe/07/28.html このページわかりやすいね。 896 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 10:09:05 ] regex::ってなに？ 正規表現をかんたんにするためのモジュール？ 897 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 10:29:14 ] Perl Tutorial 93 - Arrays of Arrays jp.youtube.com/watch?v=oAW7E3pmBCM これちょっとごちゃごちゃしてて よくわからんなー 898 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 11:14:56 ] つか、perlで$aと$bは普通の変数として使うな。 899 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 12:24:20 ] >>887 myで宣言された変数はレキシカル変数といい、パッケージ変数とは別物。 レキシカル変数は、パッケージに属するのではなく、レキシカルスコープに属する。 900 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:25:09 ] >>899 でもメインパッケージの中に属しているわけだから $main::aで表示できるはず、、、、 ってなにか変なこと言ってます？ 901 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:25:58 ] もしかしてこないだやってた議論と 本質的に同じ？ 902 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:35:53 ] タダの自演 903 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:48:35 ] >>900 $main::aとすると、mainに属するパッケージ変数を参照することになります。 my $a は、レキシカル変数であり、パッケージ変数ではないです。 パッケージ変数を作りたければ、 our $a; と、宣言しましょう。 904 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 15:59:20 ] ふーん デタラメ書くと親切にしてもらえるんだな 905 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 18:09:55 ] sortでハマるんですね。わかります。 906 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 18:26:56 ] 独り言書かなきゃ死ぬ人と教えなきゃ死ぬ人で需給が成り立ってるから sort でハマっても解決される仕組みになってるはず。 いろいろループしてますよね。>>541>>562-563 907 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 18:50:20 ] 教えなきゃ死ぬ人はあまりにも少なく、あまりにも短命。 908 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 20:17:56 ] 「初心者がPerlを頑張るblog」みたいなのを開設したら 結構な面白いサイトになりそうなのが惜しまれる 909 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 20:48:04 ] こいつはだめだろ。全然成長していない。 リア厨かと思ってたけど、昼間も書き込んでるんだな。 910 名前：デフォルトの名無しさん mailto:sage [2008/09/16(火) 22:31:08 ] その話題も既出 911 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 00:13:58 ] ファイルの一番外側に見えない { } があると思うと良いんじゃないかな。 { 　my $a = "a"; } 912 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 02:42:47 ] じゃあどこの会社のブログで 開設したらいいか調べてよ アクセス解析ないとやだけど。 できればアパッチの生ログに近い感じで 見れるとこ。勝手に統計的にまとめて表示 するのはだめ。 それとアホがきたときにはきちんと アク禁できること。 これが条件。perlお得意のムーバブルタイプで 対応できる？ 913 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 07:42:44 ] kabocha.org/jelfe/07/21.html クロージャーの説明読んだが、さっぱりわけが わからんな。 もしかして、最新言語だったら、 オブジェクト指向でやるようなことなのか？ 914 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 08:30:44 ] >912 何時何分何秒、地球が何回まわったときなのか答えろよ！ って反論する小学生を思い出した 915 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 11:04:08 ] (1) 型グロブと、グロブって違うものだよね？ (2) グロブって普通に使うものなの？ 916 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 11:45:52 ] perlの予約語一覧ってどこにあるの？ getkeyが予約語かどうか、知りたいんだが。 917 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 11:55:11 ] ぐぐったらわかった。 予約語じゃないってさ。 なんか、perlのマニュアルに載ってるらしい。 mapの使用例として。 918 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:19:23 ] スペースキーを押したら メッセージを出す、ってできないの？ 919 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:35:25 ] 今、レファレンスの勉強をしているんだが、 $a=1; こうした時に、$aには何が 入っているのか？ １がはいっているのか、あるいは １のアドレスが入っているのか。 あるいは、１のアドレスを指し示した物が 入っているのか。 920 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:41:16 ] 1だろ。 あと$a,$bはsortが使うので以下略 921 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:43:50 ] >>920 だってレファレンスの解説サイト見たら 「違う」って書いてあったもん 922 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:46:42 ] $a = \1; 923 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 13:50:37 ] y/// ↑なにこれ。 入門書にのってないんだけど。 924 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 14:13:09 ] レファレンスなの？ リファレンスなの？ 925 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 15:58:22 ] バファレンス 926 名前：デフォルトの名無しさん mailto:sage [2008/09/17(水) 16:57:33 ] >>923 ＞sed の信仰者のために y が tr の同義語として提供されています。 だそうです。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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