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

1 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 16:47:06 ] "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 ● 2010/02/19 現在の最新版: 5.10.1 ▼ 前スレ Perlについての質問箱 42箱目 pc12.2ch.net/test/read.cgi/tech/1257139591/ リンク集は >>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは >>5-7 あたり 347 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 03:32:34 ] できるよ安心して 348 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 03:44:17 ] >>347 安心した やり方を教えてちょ 349 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 04:42:20 ] 何だよ「特定の行」って 350 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 06:11:15 ] 質問の意図するところが分からない。このうちのどれか？ use strict; use warnings; print "is\nthis\nunko?\n"; use strict; use warnings; print << "END_OF_UNKO"; this is unko! END_OF_UNKO use strict; use warnings; use HTML::Template; my $what_is_this = join "", <DATA>; my $t = HTML::Template->new( scalarref => \$what_is_this ); $t->param('var', "was"); print $t->output; __DATA__ this <TMPL_VAR name="var"> unko! 351 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 06:50:15 ] >>348 use IO::File; my $fh = IO::File->new('hoge.txt', 'r'); while(my $line = $fh->getline){ print $line; print "\n" if $line =~ /hoge/; } こんな漢字？ 352 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 09:22:29 ] $. == 行番号　とか。 353 名前：デフォルトの名無しさん [2010/05/15(土) 11:21:19 ] perlで作った掲示板の連続投稿を制限する方法を教えてください。 一定時間が経過するまで再投稿できないようにしたいです。 354 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 11:59:34 ] 投稿者のIDに対して最後の投稿時間を記録する 355 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 12:24:13 ] 小規模ならグローバルでもいいんじゃないの？ # 30秒経過してない場合returnする return if $g_last_post + 30 > time; $g_last_post = time; 356 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 14:35:57 ] >>353 IPのログはとってんだろ？ そこから判定すりゃいい samba24みたいな手にするって方法もあるな ちょっと技術がいるかも知れないが 357 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 14:55:21 ] 普通はそんなめんどいことしないでクッキー食わせて判定だと思うぜ 358 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 15:04:37 ] ログは巨大だからなあ 自前でテーブル持つ方が軽い 359 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 15:21:54 ] いやだから普通はクッキーだろっての 360 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 15:55:01 ] ↑バカは喋るな 361 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 15:58:24 ] >>359 クライアントが書き込み後にクッキー捨てたらアウトだと思うんだがそうでもないのか もうちょっと詳しく 362 名前：デフォルトの名無しさん [2010/05/15(土) 16:01:51 ] >>349-352 長いテキストがあり、100文字目ごとに改行を入れるということです。 分かりにくくて申し訳ありませんでした。 363 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 16:17:33 ] 2chもクッキーだな 364 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 16:27:54 ] >>362 Text::LineFold >>353,354-359,361,363 板違い pc11.2ch.net/php/ 365 名前：デフォルトの名無しさん mailto:sage [2010/05/15(土) 16:29:03 ] 一足遅かったか >>362 >>3 www.din.or.jp/~ohzaki/perl.htm#JP_Fold search.cpan.org/search?m=all&q=fold&n=100 >>353 △▲　WebProg 初心者の質問 Part22　▼▽ pc11.2ch.net/test/read.cgi/php/1272872528/ 366 名前：デフォルトの名無しさん [2010/05/16(日) 21:25:10 ] funcA(); if(hoge){ funcAErr(); } else { 　funcB(); 　if(fuga){ funcBErr(); } 　else 　{ 　　funcC(); 　　if(fuga){ resultA(); } 　　else{ resultB(); } 　} } こんな感じで事前処理にこけたら弾き、を繰り返して最後の処理で結果Aか結果Bのいずれかを返す、 と言ったコードがあるんですが、これをもっとPerlらしくシンプルに書きたいんだがどう書けばいいだろう……。 (ifネストが実際には3階層ではなく20階層くらいあります) 367 名前：デフォルトの名無しさん mailto:sage [2010/05/16(日) 21:43:55 ] >>366 funcA() や funcB() の戻り値は無いのかとか、hoge や fuga が何を判定してるのかとか、 funcAErr() でなく funcErr('A') じゃダメなのかとか、エラー処理後に戻ってくる (if then else で括る) 必要があるのかとか、Perlらしさ以前の問題だと思う。 368 名前：デフォルトの名無しさん mailto:sage [2010/05/16(日) 21:45:08 ] こんな感じの改造すれば良いんちゃう？ my @tasks = ( 　sub { () }, # <= funcA() とかが入る。 　sub { () }, 　sub { () }, 　sub { () }, 　sub { () }, 　sub { () }, 　sub { 42 } ); my $argument ; for ( @tasks ){ 　my $flag = $_->( $argument ) ; 　next if ! $flag ; # エラー処理やりたきゃ、ここを真面に。 　print qq{${flag}hoge\n} ; 　last ; } 369 名前：デフォルトの名無しさん mailto:sage [2010/05/16(日) 22:25:07 ] >>366 エラー処理はfuncA()、funcB()の中で例外発生させて 全体をｅｖａｌブロックでくくり、例外をキャッチして処理 エラー以外の分岐は適当に処理をブロックでくくり、last、redoなどでコントロール eval { 　funcA(); 　funcB(); 　{ 　　funcC(); 　　if (fuga) { resultA(); last } 　　resultB(); 　} }; if ($err = $@) { 　$err->A ? funcAErr() : 　$err->B ? funcBErr() : 　$err->C ? funcCErr() : Err(); } 370 名前：デフォルトの名無しさん mailto:sage [2010/05/16(日) 22:49:10 ] メールを受信して、添付の画像ファイルを画像処理し、サーバに保存したいと考えています。 メール受信時に本プログラムにメールを渡すようにメールサーバは設定しています。 以下ソースの関係している部分です。 ----mailimage.pl----- my $parser = MIME::Parser->new; #ファイルの一時保存場所を指定 $parser->output_dir('./tmp'); $filename=''; #標準入力からメールを取得 my $entity = $parser->parse(*STDIN); #添付ファイルがある場合のみ処理 if($entity->is_multipart){ #パートの数（本文と添付ファイルの合計数） $count = $entity->parts; #メール本文以外（添付のみ）を取り出し（本文は0番目のため、一番目から取り出し） for($i = 1; $i < $count; $i++){ #ファイル名を含むパスを取り出し $path = $entity->parts($i)->bodyhandle->path; #ファイル名を取り出し $filename =time. (fileparse($path))[0]; $filenameglobal=$filename; `./out1 $path outputimg/$filename.bmp`; } } out1というプログラムが画像処理を行うファイルで、第一引数に入力を、第２引数に出力先をとるように作成しています。 mailimage.pl < sample.eml といった具合に、ローカル環境でeメールファイルを渡してやった場合は正常に動作します。 しかし、実際にメールを受信するとtmpファイルへの保存は行われるのですがout1で得られるべき出力画像が得られません。 どうやら、tmpフォルダに保存される前にout1を呼び出しているようで、入力がない状態になってしまっているようです。 解決策のご提示をよろしくお願いいたします。 また、一度ファイルに保存することなく直接メモリ上で受け渡す方法などもご提示いただけると幸いです。 371 名前：デフォルトの名無しさん [2010/05/17(月) 01:35:34 ] perl から任意のアプリ（例えばメモ帳）を起動したいんだけどどう書けば良いのでしょうか？ 372 名前：デフォルトの名無しさん mailto:sage [2010/05/17(月) 01:49:44 ] perl -e "`notepad` 373 名前：デフォルトの名無しさん [2010/05/17(月) 22:55:18 ] cpan> install XML::Atom ＊＊＊＊＊＊＊＊＊いろいろ展開されて Please download the file manually, save it to a directory in %PATH% (e.g. C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to that directory, and run "Nmake15.exe" from there; that will create the 'nmake.exe' file needed by this module. You may then resume the installation process described in README. ------------------------------------------------------------------------------- Warning: No success on command[C:\Perl\bin\perl.exe Makefile.PL INSTALLDIRS=site] MIYAGAWA/XML-Atom-0.37.tar.gz C:\Perl\bin\perl.exe Makefile.PL INSTALLDIRS=site -- NOT OK Running make test Make had some problems, won't test Running make install Make had some problems, won't install Failed during this command: MIYAGAWA/XML-Atom-0.37.tar.gz : writemakefile NO 'C:\Perl\bin\perl.exe Makefile.PL INSTALLDIRS=site' ret urned status 512 cpan> と表示されてしまいました。とりあえず、nmake.exe はダウンロードしました。 これからどうすればいいでしょうか？ 374 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 00:12:07 ] >>373 今使ってるperlをアンインストールしてActivePerlの最新版をインストールし、PPMを使え 375 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 00:23:08 ] うちcpanが成功した試しがないわ ppmならokだけど 376 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 05:28:00 ] XS系はことごとく失敗する気がする… 特にXMLやHTMLのパーサー関連は入らん at Ubuntu 377 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 06:13:44 ] まさかbuild-essential入れてないとかじゃないよな 378 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 06:45:12 ] XML-Atomはppmに無いからめんどくさいんだよな だから俺は使ってない あとこいつマルチだな 379 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 08:46:53 ] 今ならStrawberry Perl入れた方が楽じゃない？ XML::Atomもすんなり入ったよ 380 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 08:55:06 ] そもそもwindows系OSでperl使うのがすでに茨の道とも言える 381 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 10:03:01 ] なんで？ 382 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 11:48:53 ] >>378 リポジトリにこれ加えとけ。 trouchelle.com/ppm10/package.xml 383 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 12:20:10 ] elseifでなく何故elsifなんですか？ 384 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 13:26:56 ] 母音が続くのが気持ち悪いから elifじゃないのと聞かれたら解答に窮するが、CPPはelifなんだよな 文化によって多少違いはあるが、やはり、母音が続くのが気持ち悪いんだと思う 385 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 13:55:38 ] いっそのことelfでいいじゃん。 短いし。 386 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 15:33:01 ] 最近プログラミングの勉強を始めました print "hello world"; と書いてhello.plで保存し、ターミナルで perl hello.pl と入力するのはわかったんですが、hello.plはどこに保存すればいいのですか？ 環境はMac OS Xです 387 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 16:10:27 ] >>386 好きな場所 388 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 16:28:15 ] >>386 今自分がいる場所におけばいい 違う場所に置きたいならフルパスで指定すれば実行できる 389 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 16:41:23 ] >>382 サンクス つか、ppmguiにリポジトリのサジェストなんてあったんだな そこにも載ってたわ 重ねてサンクス 390 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 17:56:24 ] >>386 perlの前にターミナルの使い方を覚えるためのBash入門を読んだ方が良いかも。 391 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 18:42:40 ] それは的外れなアドバイス 392 名前：373 mailto:sage [2010/05/18(火) 21:37:27 ] ATOM::XML をWinXP/Active Perl に入れたい なにかヒントありますか？ >>374 >>375 >>379 ストロベリー入れましたけど、Activeパールと同じエラーです。 （nmake をダウンロードして、ダウンしたパッケージをmake して、 それから、再度ACTIVE Perl で,ATOM::XMLしたときとです。 やはり、パッケージが問題なのかな？ cpan> install ATOM::XML Fetching with LWP: cpan.strawberryperl.com/authors/01ma Fetching with LWP: cpan.strawberryperl.com/modules/02pa Fetching with LWP: cpan.strawberryperl.com/modules/03mo Creating database file ... Gathering information from index files ... Populating database tables ... Done! Warning: Cannot install ATOM::XML, don't kn Try the command i /ATOM::XML/ to find objects with matching identifiers. 393 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 21:44:02 ] 現在　WinXP上にActivePerlが入っています。StrawberrryPerlを入れて共存できるのでしょうか？ 394 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 21:49:59 ] エラーメッセージくらい読めよ 395 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 21:52:02 ] 普通に考えるとパッケージ名ってAtom::XMLもしくはXML::Atomだからでは 396 名前：373 mailto:sage [2010/05/18(火) 21:57:06 ] とりあえず、 install XML::Atom::Feed とすると、したみたいになった。これってATOM::XML　ってインストールできたのかな Prepending C:\strawberry\cpan\build\XML-Atom-0.37-H4btN8/blib/arch C:\strawberry \cpan\build\XML-Atom-0.37-H4btN8/blib/lib to PERL5LIB for 'install' Installing C:\strawberry\perl\site\lib\XML\Atom.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Base.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Category.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Client.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Content.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Entry.pm Installing C:\strawberry\perl\site\lib\XML\Atom\ErrorHandler.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Feed.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Link.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Person.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Server.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Thing.pm Installing C:\strawberry\perl\site\lib\XML\Atom\Util.pm Appending installation info to C:\strawberry\perl\lib/perllocal.pod MIYAGAWA/XML-Atom-0.37.tar.gz C:\strawberry\c\bin\dmake.EXE install UNINST=1 -- OK cpan> 397 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 22:13:16 ] perlで添付ファイル取得して、それをopencvに渡して結果を保存したいんだが、出来ない。 ローカルでemlファイル読み込ませるといけるのに、メール受信をトリガに起動するとだめだ・・。 どうして？ 398 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 22:32:58 ] >>396 OKってかいてありますやん 心配なら $ perldoc XML::Atom 399 名前：デフォルトの名無しさん mailto:sage [2010/05/18(火) 22:34:23 ] >>396 XML::Atom と ATOM::XML は全く別のモジュールだ。 （存在すればの話しだが） お前さんが、いくら XML::Atom を入れたとしても、 ATOM::XML は永久に入らん。 気持悪いったらありゃしない。 400 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 12:22:56 ] ｱﾊﾊﾊ 401 名前：デフォルトの名無しさん [2010/05/19(水) 14:46:33 ] たとえば、[[:ascii:]]から'<'を除いた文字クラスを表わすにはどうしたらいいでしょうか？ 402 名前：デフォルトの名無しさん mailto:sage [2010/05/19(水) 18:51:09 ] もともと入ってないやん 403 名前：デフォルトの名無しさん mailto:sage [2010/05/21(金) 21:53:00 ] 数百のファイルを処理するPerlスクリプトがありまして、それがシーケンシャルに処理してて クソ時間がかかるため、マルチスレッドでやらせようとPerlについて勉強しています。 で、いまんとこ、セマフォで並列処理数を制御し、joinするためだけのスレッドを動かして かたっぱしからjoinするようにしています。おかげで処理時間は半分以下になったのですが、 これを添削していただけないでしょうか。もっとエレガントなやり方があれば教えていただきたいです。 よろしくおねがいします。 #!/usr/bin/perl use strict; use File::Basename; use File::Path; use threads; use threads::shared; use Thread::Semaphore; use Codemap; use SVG; my $concurrency = 5; my $semaphore = Thread::Semaphore->new($concurrency); my $exitflag :shared = 0; my $jointhreads = threads->new(\&joinThreads); while (@ARGV) { my $orig_svg = shift(@ARGV); $semaphore->down; threads->new(\&doSplit, $semaphore, $orig_svg); } $exitflag = 1; $jointhreads->join; exit 0; 404 名前：403のつづき mailto:sage [2010/05/21(金) 21:53:56 ] sub joinThreads { until ($exitflag) { foreach my $thr (threads->list) { if ($thr->tid and !threads::equal($thr, threads->self)) { $thr->join; } } print "\nThreads joined.\n"; } } sub doSplit { my $semaphore = shift; my $orig_svg = shift; my $svg = new SVG($orig_svg); $svg->setdumpdir("work.d"); if ($svg->modtime() > $svg->splittime()) { $svg->dump(); print STDERR " $svg->{filename} : splitted\n" } else { print STDERR " $svg->{filename} : SKIP\n" } $semaphore->up; } 405 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 14:07:11 ] UTF8の〜をshift_jis(cp932)に変換して出力するとエラーが出てしまいます。 解決策があれば教えていただきたいです。 環境はWindows 7 64bitとActivePerl v5.10.1 64bitです。 use utf8; binmode STDOUT, ":encoding(cp932)"; print "昨日は10時〜6時まで寝た。\n"; D:\>test.pl "\x{301c}" does not map to cp932 at D:\test.pl line 3. 昨日は10時\x{301c}6時まで寝た。 406 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 14:20:39 ] D:\>test.pl 何故こんなところで作業しているのか 407 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 14:54:09 ] 「〜」には FULLWIDTH TILDE (FF5E) WAVE DASH (301C) の二種類がある。 408 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 14:57:40 ] 〜の厄介さはMacを使ってるとよく分かる 409 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 16:10:32 ] macでなくても〜は厄介 410 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 16:13:53 ] Macだとプログラムとか使わなくても 普段から〜が厄介になる 411 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 16:15:49 ] え？ 俺は生粋のマカーだけど、厄介さが全然分からん。 何かトラブるっけ？ "〜"って。 Mac<=>Winのデータ交換とかの話し？ 412 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 16:21:41 ] Macで〜と書き込んだら Winだと逆向きの波線に見えたり 最近は大丈夫な気はするが 413 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 16:31:53 ] 〜が厄介なんて、OS9時代の話だろ。 昔から機種依存文字問題とか、今はUTF8-macとUTF-8とか もっと厄介なモンがあるから。 414 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 16:54:16 ] OSXでの話だが 415 名前：405 mailto:sage [2010/05/22(土) 17:06:03 ] 皆さんレスありがとうございます。 >>405はmeadowから打ち込んだ〜は\x{301c}となり、 notepad等から打ち込んだ〜は\x{ff5e}になる事が原因で表示に失敗していました。 \x{301c}はshift_jisでは表示に成功しcp932では失敗しました。 \x{ff5e}はcp932では表示に成功しshift_jisでは失敗しました。 どうやらeucとsjisの〜はutf8の\x{301c}に対応していて cp932の〜はutf8の\x{ff5e}に対応しているようでした。 なので例えばeucの〜をutf8に変換し、それをcp932に変換すると失敗するようです。 挙動がおかしいと思った元のプログラムではネット上にあるeucのページを取ってきて utf8に変換し出力時にcp932に変換していたので上記の理由で文字化けしていた様です。 そこでeucをutf8に変換した際に\x{301c}を\x{ff5e}に変換するようにしました。 $utf8data =~ tr/\x{301c}/\x{ff5e}/; そうしたところprintした際に"\x{301c}" does not map to cp932というエラーも出ず、無事〜が表示されるようになりました。 416 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 17:10:30 ] 意味不明 417 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 19:23:59 ] >>405 use utf8は「フツーは使うな」とCPANに書いてあった気がする。 Windowsを呪いながらEncode使え。 #!perl use Encode; my $msg = "昨日は10時〜6時まで寝た。\n"; Encode::from_to($msg, 'utf8', 'cp932'); print $msg; 418 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 19:39:43 ] ＞use utf8は「フツーは使うな」 理由は？ 419 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 20:34:20 ] >>417 >use utf8は「フツーは使うな」とCPANに書いてあった気がする。 どこに書いてあったの？聞いたことない 420 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 21:01:51 ] > Do not use this pragma for anything else than telling Perl that your script is written in UTF-8. もしかしてこれの事か？ 421 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 21:08:00 ] >>417 そのEncodeの作者が >スクリプトはUTF-8で書き、use utf8;するのがモダンPerlのあり方です。 って言ってるけどな。 ttp://blog.livedoor.jp/dankogai/archives/51221731.html 422 名前：デフォルトの名無しさん [2010/05/22(土) 22:19:22 ] 文字列の切り取りに関して質問があります。 $a="aho"; $b="baka"; $str="ahomanukebaka"; $strには$aと$bで"manuke"という文字が挟まれています。 このとき$strからmanukeだけを切り抜くにはどうすればよいでしょうか？ 423 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 22:24:54 ]  substr($str, length($a), length($str)-length($a.$b)); 424 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 22:48:06 ] >>422 my $a1 = "aho"; my $b1 = "baka"; my $str = "ahomanukebaka"; $str =~ s/$a1(.*)$b1/$a1$b1/; warn $str; # ahobaka warn $1; # manuke 425 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 23:01:54 ] 失敗してるのに前の$1を読んでしまう 426 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 23:16:31 ] >>425 あぁ、ごめん。本当はifとかやるけどmanukeが必要なのかどうなのかわからなくて とりあえず$1に入ってるよって言いたかった 427 名前：デフォルトの名無しさん mailto:sage [2010/05/22(土) 23:22:02 ] >>424 できましたありがとうございます！ 428 名前：417 mailto:sage [2010/05/23(日) 01:13:47 ] >>420 それだ。 WWW::Mechanizeでcp932受け付けんからEncode::decode_utf8($massage)とかやってたのに、 use utf8だけで済んだのか・・・・クソアホみたいだわorz 429 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 13:00:16 ] 正規表現のグルーピングについて質問です 繰り返し表れる対象をグループ化したいのですが良いやり方ありますか？ gオプション付けたら行けるかと思ったらダメだった。 my $str = << 'END'; aba aca ada END $str =~ m{(a[^a]a)\n\n}g; # これだと初めの対象にしかマッチしない 430 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 13:23:18 ] >>429 g(global?)オプションだけでなく m(multi line?)オプションもいるんじゃなかったっけ 431 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 13:27:20 ] >>429 こう？ my @matches = $str =~ m{(a[^a]a)\n\n}g; 432 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 13:32:54 ] >>430 $str =~ m{(a[^a]a)\n\n}mg; これも試したけどダメだったんだよね >>431 おぉ。いけました。 ちなみに=と=~を一緒に書くとわかりにくいので別にする方法ってありますか？ 普通のマッチの場合、下みたいに分けたりしてるのだけどそういう方法があれば教えてください warn $1 if $str =~ m{(a[^a]a)\n\n}g; 433 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 13:41:44 ] >>432 ifをwhileに変えるだけ warn $1 while $str =~ m{(a[^a]a)\n\n}g; 434 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 13:59:57 ] gオプションが付いても付かなくても 正規表現に括弧がひとつしかないから、$2と$3は未定義。 ループを回すたびに$1の内容が変わる。 435 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 14:09:01 ] my @matches; push @matches, $1 while $str =~ m{(a[^a]a)\n\n}g; 436 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 14:25:05 ] while m//g とか while each %hash って気持ち悪いな 437 名前：429 mailto:sage [2010/05/23(日) 14:34:43 ] >>433-435 なるほど！ありがとうございます。while使うのかぁ。知らなかった。 perldoc perlreに書いてあるのかなぁって探してみたら書いてあった。勉強になりました。 @matches = ( 'foo' =~ m{ o? }xg ); or print "match: <$&>\n" while 'foo' =~ m{ o? }xg; せっかくなのでついでにもう一つ質問ですが、>>430みたいにm付けた場合もやり方がありますか？ 438 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 14:59:38 ] >>437 ないと思う mは^と$の意味が変わるだけだった気がする 439 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 15:51:17 ] なんか改行コードだけ特別扱いなんだよな 440 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:00:35 ] Perlのif文で質問があります。とあるデータ文書からPerlを使って情報を抜き出しているのですが、 情報１、情報2というのが存在して、情報1にヒットしたときは、情報1と情報2を出力、 情報1にヒットしないときは、無視というような判定をするにはどうすればよいのでしょうか？ 441 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:09:09 ] perlに関係ないような気がするけど、こういう意味じゃないの？ if (情報1にヒット) { 　　print 情報1; 　　print 情報2; } 442 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:12:57 ] >>441 データ文書の情報１と情報２が別々のところに記載されていてそれができないのです。 元データ文書を晒すので少々お待ちください。 443 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:24:18 ] 両方揃ってから判断するのだ 444 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:32:12 ] このデータ文書ファイルです。 uploader.moe.hm/cgi-bin/upload.cgi?mode=dl&file=2067　パス：perl 内容として作家情報と執筆した作品の情報が記載されています。 このファイルでは3名しか載っていませんが、実ファイルは世界中の作家情報が載っているので、 数万単位で同じような情報が載っています。 この中から、SCHOOLの行にUOFTOKYOと書いてある作家の作品だけを抜き出して出力できるようにしたいです。 445 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:35:10 ] DB_FileとかDBI使えばいいのに……Plain/textとはまた面倒な 446 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:53:34 ] >>444 schoolがuoftokyoの作家の名前を抜き出し、 その名前から違う場所にあるデータを抜き出して出力したいってこと？ 大して>>441とやること変わらない気がするな if (情報1にヒット) { 　　作家名から情報2を取得; 　　print 情報1; 　　print 情報2; } こうなるだけじゃない？ 447 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 22:57:06 ] >>446 仰る通りです。 コードを書いているのですが、情報1にヒットした後、 情報2を書き出してやると、UOFTOKYO以外の作家作品情報も出力されてしまい、 どうしていいのか分からない状態です。 448 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 23:13:39 ] >>447 情報2のデータの取得方法がおかしいんじゃいの？ そっちはどういうデータなの？ 449 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 23:14:43 ] >>448 情報２はWORKSとENDの間の情報です。 450 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 23:33:20 ] 現在書いているコードも載せておきます。 uploader.moe.hm/cgi-bin/upload.cgi?mode=dl&file=2085 パス：perl 451 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 23:41:07 ] while (<IN>){ $line = $_; なんだこれ 452 名前：デフォルトの名無しさん mailto:sage [2010/05/23(日) 23:48:02 ] ああー、そんなこと書いたこともあった 453 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 00:19:55 ] テキストファイルだと>>444のようにやるのは無理なのでしょうか？ 454 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 00:22:31 ] >>449 こんな感じかな。ネストがちょっと気持ち悪くてどうにかしたいけど codepad.org/I7NaSAPC >>450にソース上がってたのね。見てなかったわ 455 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 00:37:05 ] 綺麗なコード書くなぁ 人の書いたコードは難しくて読めないことが多い俺にはちょうど良い読み易さだった 456 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 00:53:43 ] my $name ; while(<>){ 　$name = $_ if /^NAME/ ; 　next if ! ( /UOFTOKYO/ .. /^ID/ || eof ); 　print $name and undef $name if defined $name ; 　next if !(/^WORKS/ .. /^END/ ) ; 　print ； } 細かい所は知らん。 457 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 00:57:51 ] × /UOFTOKYO/ .. /^ID/ || eof ◯ /UOFTOKYO/ .. /^END/ 458 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 01:01:27 ] >>456 おぉ。..ってそういう時も使えるのか。フラグ要らなかったな 459 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 02:00:33 ] へぇ、こんな使い方が出来るんだ。 30分位調べてようやく意味が理解出来た。 参考にした物 ttp://ja.wikibooks.org/wiki/Perl/%E6%BC%94%E7%AE%97%E5%AD%90#.E7.AF.84.E5.9B.B2.E6.BC.94.E7.AE.97.E5.AD.90 ttp://books.google.co.jp/books?id=BpdX333gbjkC&lpg=PR4&dq=oreilly%20%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0%E3%80%80perl&as_brr=3&pg=PA120#v=onepage&q&f=false 460 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 07:33:10 ] 正規表現に必ずxmsつける人ははじめて見たけど流行ってんの？ 個々の意味はわかるけどこうしとくといい理由とかあるんだろうか？？ 461 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 07:38:13 ] >>460 Perlベストプラクティスに書いてあった癖で書いちゃう 普通は気にしなくていいと思う 462 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 10:06:39 ] >>461 気になるのでどういう理由でそう書いてあったか憶えてたら教えてください。 本屋に行くにせよ尼かなんかでポチるにせよ週末になっちゃうので待てないw 463 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 17:45:34 ] googleのアカウント持ってるなら、 ttp://books.google.co.jp/books?id=0dRPNtVvoqUC&printsec=frontcover&dq=perl+best+practice&as_brr=3&cd=2#v=onepage&q=正規表現&f=false で、255ページから読め 464 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 17:47:37 ] あ、URLエスケープ忘れてた。 ttp://books.google.co.jp/books?id=0dRPNtVvoqUC&printsec=frontcover&dq=perl+best+practice&as_brr=3&cd=2#v=onepage&q=%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE&f=false 465 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 19:06:38 ] これ全ページ無料で読めるんだね、すごい。 売上が下がるかもしれないのにオライリージャパンは許容してるの？ 466 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 19:11:40 ] 多分許容してない＞オライリー・ジャパン アメリカでは既に訴えられて裁判になり和解まで行ってるようだけど日本は分からん。 訴えられるまでやりますって感じかもね。 本は実際に手にとって読みたい人がいるからこれは良い宣伝になり売上が伸びる。 ってのもあるだろうけど、これだけで済ます人も多そうだ。 467 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 19:15:03 ] よく見るとわかるけどたまに表示されないページがあるよ。 468 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 19:15:18 ] って左下に「O'Reilly Japanの許可を受けてページを表示しています. 」って書いてあるじゃねーかｗ 469 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 22:51:55 ] 少なくともおれの場合は中身が見られることで洋書を買う量が増えたよ。 見るのはgoogleより米amaの方が多いけど。 470 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 23:12:24 ] おおー こんなのが只で読めるとは 471 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 23:34:58 ] レイアウト解説本に載ってるのって、俺からすると読みづらいことばっか書いてるんだ コメントが行区切りの役果たしてるんだから空白行いらんだろ、かえって関数が盾に間延びする よく考えたらほとんどの環境でPerlの場合コメント着色されないんだっけ・・・区切りの機能果たさないなｗ 472 名前：デフォルトの名無しさん mailto:sage [2010/05/24(月) 23:51:08 ] これ買うかどうか迷ってたけど欲しくなったわ 473 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 00:52:16 ] >>467 たまにどころか途中から全部仏陀義理じゃねーかｗ 474 名前：デフォルトの名無しさん mailto:sage [2010/05/25(火) 23:02:04 ] そうなのか まだ頭の方だからたまに飛ぶくらいでかなり役立ってる 475 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 13:48:27 ] Perlに匹敵するモジュールがそろった言語って他にありますか？ 具体的には ・ActiveDirectoryの操作(Net::LDAP) ・FTPｓ ・WWW::Mechanize ・DBI ・Net::DNS ・GD ・関数のpack このくらいはせめて欲しいのですが・・・ 476 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 14:06:24 ] 定番的なものはrubyにもpythonにも(そして多分schemeやHaskellにも)たいてい 相当するようなものはあるので好きなの使えばいいとおもうけど、そんなのは それぞれのスレに行って聞けよ。でもわざわざ他の言語使わんでもperlでいい んじゃね? 477 名前：475 mailto:sage [2010/05/26(水) 14:27:29 ] >>476 ありがとう。 Perlしか分からないので、Perlで書いたものを他に移植することで 勉強はじめようかと思いまして。 とりあえずスクリプト言語はPerlを嫁にして、 C/C++、Javaあたり覗いてきます。 478 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 17:00:41 ] usamimi.info/~pochi/perl/pochitate01.html にあるような感じで縦書きテキストビューワーを作っています。 引き数として与えられるファイルが、 テキストファイルなのかバイナリファイルなのか判定したいのですが、 -T でのテキストファイル判定はその判定方法から UTF-8以外の日本語文字コードでは上手く機能しないらしくて困ってしまいました。 テキストファイルかバイナリファイルかを判定する良い方法は無いでしょうか？ 479 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 19:28:28 ] Encode::guessで判定して、decodeするときにFB_CROAKを指定して エラーにならなきゃOKとか? 480 名前：デフォルトの名無しさん [2010/05/26(水) 19:29:25 ] guess_encoding()使ってるみたいだから、guessに失敗したら中断（現行コードのまま）でえーんでないの？ そもそも -T の精度も疑わしいし、ましてやWindows環境だとマジックナンバー照合による判定は無理なんでは？ 判定精度を上げたいなら use Encode::Guess qw/euc-jp shiftjis iso-2022-jp/; 　　↓ use Encode::Guess qw/euc-jp shiftjis iso-2022-jp cp932/; 481 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 20:21:46 ] 全走査して\0が無ければテキストファイル。でもutf16/32は勘弁な。 482 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 21:11:04 ] >>478 テキストビューワなら、常にテキストと仮定しちゃえばいいんじゃないの？ 483 名前：デフォルトの名無しさん mailto:sage [2010/05/26(水) 21:55:51 ] >>482 まあ普通はそうだよなぁ 判定するようなエディタは少ない 484 名前：478 mailto:sage [2010/05/26(水) 23:48:34 ] >>479-483 レスありがとうございます。 guess しに行く前にどうにか判定出来ないかと 都合の良い事を考えていたのですけども、 >>482さんや>>483さんの仰るように常に対象はテキストファイルだと仮定して、 >>480さんのご指摘の通り現行コードのままにする事にしましす。 >>480 cp932 の事をうっかり忘れていました。 寧ろ shiftjis より cp932 の方が重要なのに…。 ご指摘ありがとうございます。 485 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 09:17:39 ] shiftjisとcp932の両方を候補に入れるとほとんどの場合区別がつかなくて Encode::Guess->guessがエラー返すと思うのだが。 おおざっぱにいうとEncode::Guessの判定アルゴリズムは 1行ずつ候補のencodingでdecodeしていって、候補が1つになったら それを返す。候補がなくなったり複数残ったらエラー(ただしasciiが 最終候補に含まれていたらascii) だからね。 486 名前：478 mailto:sage [2010/05/27(木) 09:36:54 ] >>485 その通りなのです。 事実上、shiftjis よりも cp932 のテキストファイルを扱う方が圧倒的に多いと思って、 より現実に即して、判別候補の shiftjis を cp932 に変更しました。 487 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 09:49:56 ] どっちを扱うのが多いかより「〜」などのunicodeへのマッピングが異なる文字を どうしたいかの方が重要なきがする。 488 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 12:31:50 ] 俺も縦書きやったことあるけど unicodeに縦書き用のものがマッピングされてない約物（｛｝…〜など）は 回転するしかなくて、そのなかでも波ダッシュは鬼門だったな。 ちなみに《》（）「」『』【】〔〕の約物については縦書き用の文字が用意されてる。 489 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 14:39:56 ] 日本語フォントには縦書き用のグリフが含まれるからそれを使えばいいんだよ 490 名前：デフォルトの名無しさん mailto:sage [2010/05/27(木) 19:23:42 ] EncodeでUTF-8にして扱うなら波ダッシュは全角チルダになっちゃうんじゃないの？ 491 名前：デフォルトの名無しさん mailto:sage [2010/05/28(金) 10:03:55 ] >>490 いやそれはおかしい。 492 名前：デフォルトの名無しさん mailto:sage [2010/05/28(金) 19:01:24 ] 上の方に出てたけどeucとsjisの〜をutf-8に変換するとWAVE DASH (301C)になり cp932の〜をutf-8に変換するとFULLWIDTH TILDE (FF5E)になるみたいだね。 493 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 16:35:35 ] 20年前に少しかじったBasic言語しか知らないおらが、突然Perlを学ぶことに目覚めました。 たぶん初めてのPerlという良書のおかげです。 C言語とかJavaとかPythonとか色々学ぼうとして挫折を繰り返していました。 いきなりですが、質問があります。お教えください。 #!/usr/bin/perl print "Please enter a number \n"; chop($number=<STDIN>); while($number=~/|\D/){print "Please enter only a number! \n";chop($number=<STDIN>);} 以下数字が入力された場合に続く。 上記のように、何も入力されなかった（改行のみ）り、数字以外が入力されたときに エラーメッセージを出す方法を教えてください。 上記ではおそらくwhile($number=~/|\D/)の正規表現が間違っていると思います。 また、上記目的を叶えるためのエレガントな方法があればお教えください。 494 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 17:09:38 ] $number!~/^\d+$/ かねえ #!/usr/bin/perl print "Please enter a number \n"; while(1){ chop($number=<STDIN>); last if $number=~/^\d+$/; print STDERR "Please enter only a number! \n"; } とか…？ 495 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 17:42:19 ] >>493 繰り返しループ処理のやりかたがわからないワケだな。 プログラミングの基礎が備わってないな。perl以前の問題。 フローチャートから勉強しなおしなさい。 496 名前：デフォルトの名無しさん [2010/05/31(月) 19:29:57 ] この時代にフローチャートかよｗ 497 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 19:34:20 ] オブジェクト指向とかカプセル化とか言っても訳わかんない気がする 498 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 20:08:51 ] >>494 ありがとうございます！ 上手く動きました！！ 空文字列のみを見つける正規表現があるのかと考えていましたが、 数字以外はダメという表記で良かったんですね。 ネットで探しても空文字列のみを見つける方法がよくわからなかったので悩んでいました。 >>497 自信を持って分かりますとは言えませんが、 サブルーチンなどで、プログラムの部品（パッケージ化とかカプセル化というのでしょうか）を 作って、プログラムを汎用性が高く、分かりやすく作ることかと理解しています。 初めてのPerlには、変数の扱いがCとは異なり、グローバル変数として扱われてしまう と書かれていたので、Perlはオブジェクト指向としては、少し扱いにくい言語ということ なんでしょうか？ 499 名前：デフォルトの名無しさん [2010/05/31(月) 20:18:17 ] >>498 Perlはオブジェクト指向もサポートしている。 変数については、myを使えばローカルな変数になる。 my $hensu; 500 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 20:18:17 ] >>498 20点くらいだな、その理解は 501 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 20:47:35 ] >>495,500 こういうのが癌 502 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 21:07:18 ] 「いじめられる側にもいじめの原因がある」 「死刑には抑止力がある」 「何か言われて不快になったらその原因は発言者にある」 これまで当たり前だと思って、深く考えなかったこと･･･ 周りに言われるままに、何の疑問も抱かなかったこと･･･ それらが本当に正しいのか、ちょっと立ち止まって考えてみませんか 虐めに関するよくある勘違い jbbs.livedoor.jp/bbs/read.cgi/game/46573/1273655633/1-7 死刑制度に関するよくある勘違い jbbs.livedoor.jp/bbs/read.cgi/game/46573/1273498488/1-7 外界は内界を映し出す鏡だって言ってたよ裏庭の鶏も academy6.2ch.net/test/read.cgi/philo/1273156931/1-3 503 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 21:27:52 ] >>498 >空文字列のみを見つける正規表現 "\n"にもマッチしていいなら/^$/ 504 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 21:43:52 ] >>498が何版目の「初めてのPerl」を読んだのかが気になる。 まさか 1995年刊行の Perl4時代のソフトバンク版じゃあるまいな？ 505 名前：デフォルトの名無しさん mailto:sage [2010/05/31(月) 23:25:06 ] 手元の第三版にはchopは索引に載ってなかった。 chompの頁に「古いperlではchop演算子が使われていることがあります。」ってちょろっと書かれてるくらい。 506 名前：デフォルトの名無しさん [2010/05/31(月) 23:45:07 ] 誤解されそうなコメがあるから、おいらが補足。 ラクダ本第三版の索引にはchopは普通に載ってるし、それ以前にこんなの最新版Perlでちょろっと確認すれば済む話。 chopが何故か忌避されるのは、鋏の使い方を知らない馬鹿が多すぎたってことかな。 現在主流の馬鹿御用達言語PHPで、文字列末尾１文字を無条件に削除したい場合、使えねーsubstr()とか、preg_replace('/.$/u','',$hoge)とか使ってると、頭に蛆湧いてくるぜ。 507 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 00:08:25 ] おおー。ここ勉強になりますね！ >>499 知りませんでした。 手元にあるPerl本は古本屋で買ったので 初めてのPerl 1995年6月16日　初版 Perlプログラミング1995年6月5日　第7版 でした。 >>500 後の80点はどの辺が足りないのかお教えください。 パッケージ化することで、グローバル変数が氾濫しプログラムが読みにくくなったり、 エラーが起きやすくなることを防ぐ。ということも（あっていれば）知っています。 >>503 正規表現面白いッス！ while($answer!~/^\d+$/) while($answer=~/^$|\D/) この二つはほぼ同じと考えて良いんでしょうね！ >>504 まさかの初版でした！！ これからもよろしくお願いしマース！ なにせ、読み始めたのが昨日からなんです。 508 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 00:09:28 ] 連続投稿すみません 自分の勉強のために 汚いコードでスレ汚しになりますが、Chap2の私の回答も載せますね。 #!/usr/bin/perl $pai=3.141592654; while($pronum!=5){ print "Chose program # (1-4 or to quit 5).\n"; chop($pronum=<STDIN>); if ($pronum==1){ $pro1result=12.5*2*$pai; print "The result is $pro1result \n";} elsif($pronum==2){ print 'Enter the radius'."\n"; chop( $radius=<stdin>);$radius *= $pai *2; print "The result is $radius\n";} elsif($pronum==3){print 'Plese enter 2 variables'."\n"; $first=<stdin>; $second=<stdin>; $first *=$second; print "The result is $first \n";} elsif($pronum==4){print "Please enter num and character \n"; chop($num=<stdin>);chop($char=<stdin>);$char=$char x $num; print "The result is $char \n";} elsif($pronum==5){print "Thank you for playing! \n";} else{ print "Try again!\n";} } 509 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 00:15:04 ] >>507 どうしても「初めてのPerl」を参考にして勉強したいというなら、 悪い事は言わないから第5版にした方が良い。 今、Perl4時代の本で勉強しても百害あって一利無しだと思うぞ？ いくらなんでも時代遅れ過ぎる。 >>507 が使ってる Perl まで Perl4 というわでもあるまいに。 510 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 00:22:42 ] >>507に必要なのは perldoc で perlintro を読む事 511 名前：507 mailto:sage [2010/06/01(火) 06:24:42 ] >>509 そうですか。うーん。 正規表現とか、考え方とかはそんなに変わらないかと思ったんですが、 有害なんですね。 できれば、オンラインで学習できるのが一番なんですが、まとまったサイトってありますか？ >>510 ありがとうございます。 でも読むコマンドがわかりませんでした。 私は、Macなので、ターミナルを起動して >perldoc perlintroとコマンドを入力してみましたが、 perlintroというドキュメントはないというようなエラーが出ました。 No documentation found for "perlintro". 512 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 07:15:01 ] >>511 perldoc.perl.org/index-overview.html www.perldoc.jp/docs/perl/ >>2 513 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 08:34:09 ] >>511 サンプルコードによるPerl入門 d.hatena.ne.jp/perlcodesample/ 日本の Perl ユーザのためのハブサイト perl-users.jp/ 514 名前：デフォルトの名無しさん mailto:sage [2010/06/01(火) 14:55:03 ] qb5.2ch.net/test/read.cgi/saku2ch/1269144264/183 2010/04/01 21:55:59 HOST:softbank221101001151.bbtec.net qb5.2ch.net/test/read.cgi/sakud/1268731363/209 2010/04/13 22:40:00 HOST:softbank221101001151.bbtec.net qb5.2ch.net/test/read.cgi/sakukb/1267978152/196 2010/04/16 23:34:20 ID:GYnmPEAj0 qb5.2ch.net/test/read.cgi/sec2chd/1274948647/904 2010/05/30 16:54:09 ID:NuvDjPvV0 schiphol.2ch.net/test/read.cgi/stadium/1252943434/687 2010/04/01 22:00:01 ID:mB5AiSFL schiphol.2ch.net/test/read.cgi/tennis/1269837495/27 2010/04/01 22:01:15 ID:+EaxE3Yd schiphol.2ch.net/test/read.cgi/sports/1269560639/78 2010/04/13 22:44:20 ID:bew0Nrvf schiphol.2ch.net/test/read.cgi/sports/1268430764/294 2010/04/14 09:35:45 ID:hjGULPLG schiphol.2ch.net/test/read.cgi/war/1270527178/319 2010/04/14 18:23:30 ID:+lNQ2DXA schiphol.2ch.net/test/read.cgi/kyozin/1270206821/91 2010/04/14 18:29:06 ID:3CDN5Ccw0 schiphol.2ch.net/test/read.cgi/wres/1270861626/47 2010/04/14 18:30:38 ID:9IsRU2FN0 schiphol.2ch.net/test/read.cgi/ski/1268925479/573 2010/04/16 23:39:04 schiphol.2ch.net/test/read.cgi/goveract/1259841553/510 2010/04/18 17:31:32 ID:pk5WfpDm schiphol.2ch.net/test/read.cgi/gutter/1264177302/517 2010/04/18 17:34:51 ID:34DVdrjm schiphol.2ch.net/test/read.cgi/stadium/1251865219/707 2010/05/10 22:44:12 ID:hX93YGf3 schiphol.2ch.net/test/read.cgi/cancer/1268747646/273 2010/05/10 22:46:25 ID:nHvjUfwZ schiphol.2ch.net/test/read.cgi/sports/1260967753/636 2010/05/11 18:17:35 ID:yYc33zVj schiphol.2ch.net/test/read.cgi/war/1271752424/342 2010/05/16 18:50:43 ID:6cddBk0z schiphol.2ch.net/test/read.cgi/war/1243407044/217 2010/05/30 16:50:31 ID:2FL8NGA8 schiphol.2ch.net/test/read.cgi/equestrian/1231931323/760 2010/05/31 21:06:11 ID:34qn98Gz 515 名前：507 mailto:sage [2010/06/01(火) 22:30:15 ] >>512 >>513 丁寧にありがとうございます。 無事Perlintroを読み終えることができました。 まだデータ形式のハッシュはよく理解していませんが、少しずつ理解しようと思います。 サンプルコードによる・・には、新しい版用のコードの書き方の解説もあったので、 今持っている初めてのPerl本と見比べながら学びたいと思います。 ありがとうございました！ 516 名前：デフォルトの名無しさん mailto:sage [2010/06/03(木) 16:42:25 ] 2ちゃんねるにアクセスしたいんですがもうずっと人大杉となってしまいます。 回避する方法はありますか？ 517 名前：デフォルトの名無しさん mailto:sage [2010/06/03(木) 16:55:32 ] まず服を脱ぎます。 518 名前：デフォルトの名無しさん mailto:sage [2010/06/03(木) 18:23:10 ] 脱ぎました。 次はどうすればいいですか？ 519 名前：デフォルトの名無しさん mailto:sage [2010/06/03(木) 18:50:55 ] >>518 口に鉛筆を咥える。 520 名前：デフォルトの名無しさん mailto:sage [2010/06/03(木) 19:02:34 ] マジレスすると2chはUser-Agentがlibwww-perlとかだと弾くようになってる 521 名前：デフォルトの名無しさん mailto:sage [2010/06/08(火) 11:05:28 ] 文字列をutf8からsjisに変換するのに、jcode を使用すると特定の文字が変換されずに？になってしまいます。（'１〜５' → '１?５'） 正しく変換するにはどのようにすればよいのでしょうか。 #!/usr/bin/perl use Jcode; my $utf = "１〜５"; my $sjis = jcode($utf)->sjis; my $euc = jcode($utf)->euc; print jcode($sjis)->utf8 . "/" . $utf . "/" . jcode($euc)->utf8; 522 名前：デフォルトの名無しさん mailto:sage [2010/06/08(火) 11:28:59 ] >>521 すみません。自己解決しました。 use Jcode; を use Jcode::CP932; に変えるだけでした。 523 名前：デフォルトの名無しさん mailto:sage [2010/06/08(火) 11:35:22 ] 昔の人がユニコードと既存の文字コードの対応関係を決めるときに 統一に失敗したので面倒なことになってます。ほんと迷惑。 524 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 11:02:37 ] Apache2＋mod_perlやってるんですが、 その回のリクエストが終わっても残り続けるグローバルな変数って ありますか？ メモリ上に残り続けるフラグを持ってリクエストのたびに処理を分岐したいです。 525 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 11:13:11 ] >>524 ファイルか、ＤＢに残せばよいのでは？ 526 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 11:40:52 ] アクセス数(マルチスレッド)が半端ないので ファイルはなるべく避けたいです。 フラグ一つのためにDB構築するのもなんか微妙なので。 527 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 11:51:05 ] IPC::ShareLiteとか使うのがいいんじゃね? 528 名前：デフォルトの名無しさん [2010/06/09(水) 11:53:33 ] printf "%.2f\n", 90.1730; printf "%.2f\n", 90.1740; printf "%.2f\n", 90.1750; printf "%.2f\n", 90.1760; printf "%.2f\n", 90.1770; printf "%.2f\n", 90.1630; printf "%.2f\n", 90.1640; printf "%.2f\n", 90.1650; printf "%.2f\n", 90.1660; printf "%.2f\n", 90.1670; この処理ですが、上の段は、５捨６入しているのですが、 下の段は４捨５入の処理をしています。 90.17 90.17 90.17 90.18 90.18 90.16 90.16 90.17 90.17 90.17 いろいろと試したのですが、printfがどういったルールで 丸めの処理をしているのかまったくわかりませんでした。 ググッてもこの処理の違いに関する説明もでてきません。 この処理の違いがわかる人はいませんか？ 529 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 12:08:50 ] >>528 内部は2進数なので、2進数だと無限小数になっちゃう 数は有限桁数で表すと誤差が出るんだよな。 もう少し先の桁まで出すと % perl -e 'printf "%.20f\n", 90.1750;' 90.17499999999999715783 なので四捨五入だと切り捨ての方になっちゃうんだよね。 530 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 12:09:59 ] >>526 なら、WebPage側にhidden項目でも作って、そこに保存しておくとか・・・ 531 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 12:22:41 ] mod_perlは使ったことないけどmod_speedycgiなら…… 532 名前：デフォルトの名無しさん mailto:sage [2010/06/09(水) 13:35:48 ] >>530 ？ 533 名前：デフォルトの名無しさん [2010/06/09(水) 16:10:35 ] >>524 グローバル変数で変数を持たせるとセッションが続く限り、内部データは引き継がれる。 これはspeedycgiでも同じ。 普通は変数が引き継がれると困るので、局所変数で宣言するが、普通のcgiだと、cgiが 実行されるごとに、グローバル変数はリセットされるため、局所でもグローバルでもあま りあまり関係ない。そのため後からuse strict;で変数管理をしようとしてもエラーだらけで、 直しようがなくなる。 534 名前：デフォルトの名無しさん [2010/06/09(水) 22:41:24 ] use strict　するとエラーが発生するCPANモジュールは登録しないで欲しい。 535 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 00:15:55 ] >>534 まさかstrictにrefs入れてないよね？ 536 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 02:01:07 ] use stritc; しておいて必要なところだけブロック切って no strict 'refs'; だろｊｋ 537 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 12:14:48 ] >>534 obsoleteなブツなんでないの？ 同等以上の新しいモジュールがあるだろ。 538 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 17:21:59 ] test.txt文書内にある abc001.jpg abc002.jpg という２行の文字列を <Vol.001>abc001.jpg <Vol.002>abc002.jpg と書き換えてoutput.txtに書き出すPerlスクリプトを書きたいと思っています。 しかし、test.txt内の文字列が１行の場合には上手くいきますが、 例のような複数行では <Vol.001>abc001.jpg abc002.jpg となってしまいます。 どこが間違っているのでしょうか？ #!/usr/bin/perl use strict; use warnings; $a="test.txt"; $b="output.txt"; open my $in , '<', $a or die "Cannot open '$a': $!"; open my $out, '>', $b or die "Cannot open '$b': $!"; while(<$in>){ s/abc(.+?)\.jpg/<Vol\.$1>abc$1\.jpg/; print $out $_; }; close($in); close($out); 539 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 17:55:00 ] そのままコピペしたけどちゃんと動いたぞ？ あと関係ないけど、せっかくuse strictしてるんだから$a , $b はつかうな 540 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 20:11:20 ] 配列の宣言についての質問なんですが my @x=(1,2,3,4,5,6,7,8); my $y=100; my @pi =(@x/$y); この様に@で配列を制限し my @piの中身を1/100,2/100,3/100,4/100,・・・ として以下の計算につなげたいのですが、 どうしても上手くいきません・・・ foreach文なども試してみましたがダメでした 非常に低レベルの質問ですがどうかご教授よろしくお願いします 541 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 20:19:29 ] my @x=(1,2,3,4,5,6,7,8); my $y=100; my @pi; foreach my $tmp (@x){     push(@pi, $tmp/$y); } foreach my $tmp (@pi){     print "$tmp, "; } 542 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 21:06:34 ] key1, key2, ..., keyN, Value (N=10程度) のようなレコードを持ったCSVファイルに対して， keyA=AAAかつkeyB=BBBのレコードのValueの合計，平均，...etc といった統計を計算する最もスマートな方法を教えてください． レコード数は数十万〜数百万行を想定しています． 543 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 21:38:31 ] >>524 ourで宣言すればおｋ。 でも保持できるのはプロセス単位だから共有メモリ使った方がいいと思う。storableとか 544 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 22:03:32 ] >>540 perldoc.jp/docs/perl/5.12.1/perlfunc.pod#item_map_BLOCK_LIST_map my @pi = map $_ / $y, @x; 545 名前：デフォルトの名無しさん mailto:sage [2010/06/10(木) 22:19:50 ] my @pi = map {$_ / 100} (1 .. 8); print "$_, " for (@pi); 546 名前：540 mailto:sage [2010/06/10(木) 23:13:47 ] >>541、>>544、>>545 わざわざ理解しやすい回答ありがとうございます 早速スプリクトに組み込んでみます 547 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 00:01:18 ] >>542 その数ならDBに突っ込んでSQLでやる 548 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 00:24:13 ] 合計と平均なら頭から読んで足したり数えたりするだけで いいと思うけど。 549 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 03:47:48 ] >>539 コメントありがとうございます。 問題点は、入力用ファイルの改行コードでした。 改行コードをUnixではなくMacの改行コードにしていたので、 ２行が１行と認識されてしまっていたようです。 ずっと正規表現の問題だと思っていたので、コメントのおかげで別の観点で見直すことができました。 素人なのでもう一つ質問させてください。 >$a , $b はつかうな というのは、意味のない変数名を使うのではなく、 $infile,$outputfileなどのように一目で意味のわかる変数名を使いなさいということでしょうか？ 550 名前：デフォルトの名無しさん mailto:sage [2010/06/11(金) 03:51:22 ] >>549 $aと$bはsortの時に使われる。つか、use strictしてるのにmyなしで動いてる時点で「あれ？」ってなったでしょ？ perldoc -f sort > global variables $a and $b 551 名前：507 mailto:sage [2010/06/11(金) 06:33:39 ] >>550 丁寧にありがとうございます。 色々調べてやっと仰っていることが理解できた気がします。 やはり、初めてのPerl初版本を読んでいた弊害がありそうです。 でもこのサンプルコードによるPerl入門は素晴らしいですね。 d.hatena.ne.jp/perlcodesample/20091120/1246679588 552 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 18:38:48 ] 指定の処理を行いログを出力するプログラム hoge.plと そのログを読み込み解析し出力する analyst.plを作り、 普段はhoge.plを使いたまにanalyst.plを実行するという事をしてきました。 今回その解析済みログを利用するためにhoge.plの中でanalyst.plを実行させたくなったのですが require('analyst.pl');としたところ"\x{00cd}" does not map to cp932 at analyst.pl line 12. というエラーが大量に出ました。 これは両方のplファイルにuse utf8; binmode STDOUT ":encoding(cp932)";があり analyst.plでutf8からcp932に変換されたものがhoge.plでさらにcp932に変換されているからのようで analyst.pl内のbinmode〜;をコメントアウトするとうまく動くようになりました。 しかしanalyst.plの単独実行時にうまく動かなくなりました。 このような場合どうすれば両立させることができるのでしょうか？お知恵を貸して欲しいです。 This is perl, v5.10.1 built for MSWin32-x64-multi-thread 553 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 19:01:09 ] >>552 ちょっと面倒だけど新たにAnalyst.pmを作成し、そこにanalyst.plの機能を全部放り込んだサブルーチンを作り、 hoge.plとanalyst.plはそれを読み込み実行すれば両立出来るよ。 hoge.plとanalyst.plの二つのファイルだけでは・・・できるのかな？ 554 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 20:02:21 ] >>553 そこまでするならモジュール化すればいいだろｗ 555 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 20:06:22 ] 試してないけど ':raw :encoding(cp932)' みたいにレイヤー重ねがけすればとりあえず動くんじゃね 556 名前：デフォルトの名無しさん mailto:sage [2010/06/15(火) 20:43:23 ] >>552 requireする前にbinmode STDOUT=>":raw"; あるいはanalyst.pl内のbinmode文をbinmode STDOUT=>":raw:encoding(cp932)"; 557 名前：552 mailto:sage [2010/06/15(火) 21:25:50 ] なるほど、:rawを重ねると生データにリセットできるんですね。 requireする前に一行追加することで簡単に実現出来ました。 呼び出し前に:rawにして呼び出し先で:cp932に再セットされるという流れもなんだか良いです。 >>553-556 みなさんレスありがとうございました。 558 名前：552 mailto:sage [2010/06/15(火) 21:54:21 ] このスレ雰囲気良いね 559 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 03:43:58 ] 一気に雰囲気が悪くなった 560 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 05:22:30 ] そんなこというなよ… 561 名前：デフォルトの名無しさん [2010/06/16(水) 17:53:09 ] perlスクリプトファイルのコメント部分だけ取得する良い方法はないでしょうか？ 単純に # より前を消すみたいのを自分で作ってたんですが、print '#'; とか、s#a#b#; というのも考えられるなとか、ヒアドキュメント中の # はどうするとか、、、 私の脳みそでは確実に無理なので、なにかないでしょうか？ 562 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 19:11:59 ] つ正規表現 563 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 19:59:14 ] m{ hoge # not comment } と m{ hoge # comment }x の区別とか想像しただけで嫌になるよなw 564 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 20:23:53 ] >>561 perltidyとかは？ 565 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 20:30:46 ] $_ = '1"##"#a"'; print qq#\# match #, '#', "\n" if /"#a/ && m#[^\#]\##; # こめんと; { #" ですよ} 考えてみようとして例を作っただけでつらくなってきた 566 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 20:42:23 ] PPIとか使ってみれば? 正規表現の中のコメントは対応 できてないみたいだけど、他は結構いけるようだよ。 567 名前：デフォルトの名無しさん mailto:sage [2010/06/16(水) 23:08:27 ] 正規表現のxオプション使ってる? 568 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 00:40:40 ] >>561 Text::Balanced とかは？ 569 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 03:22:58 ] とりあえず#の後に;がない行を抜き出してみて、それでどれくらい引っかかるか見てみれば？ 厳密にやろうと思えば何らかのPerlパーサを使わないと、正規表現でちょいちょいやるっていうのは無理だろうな。 570 名前：561 [2010/06/17(木) 10:33:00 ] >>562-569 ありがとうございます。なかなか難しいんですね・・。 気づいたのですが、秀丸とか(ほぼ)ちゃんとコメント色分け出来てますよね。 やっぱり偉大なソフトですね・・。 571 名前：デフォルトの名無しさん mailto:sage [2010/06/17(木) 11:57:22 ] どの辺までフォローしてるのかしらんけど Regexp::Common::commentとか

---

---

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

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