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

1 名前：デフォルトの名無しさん mailto:sage [2009/02/09(月) 21:17:36 ] "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 ● 2009/02/09 現在の最新版: 5.10.0 ▼ 前スレ Perlについての質問箱 38箱目 pc11.2ch.net/test/read.cgi/tech/1221967332/ リンク集は >>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは >>5-6 あたり 522 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 01:08:47 ] 質問です。 Class::Accessor::Fastを使用して ハッシュのアクセサって作れるのでしょうか？ いろいろ試してみたのですがうまく行きませんでした… ↓イメージ的にはこんな感じ package My::Class; use base qw(Class::Accessor::Fast); __PACKAGE__->mk_accessors( qw(hoge) ); package main; my %hash = ( "a" => 'aaaaa', "b" => 'bbbbb', ); my $obj = My::Class->new(); #$obj->hoge(\$hash); 523 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 01:52:22 ] d.hatena.ne.jp/goryugo/20090222/1235237948 ↑の問題ってまだ残っているのでしょうか？ 久しぶりにMechanizeを使ったプログラムを動かしたら 同じエラーが出るようになったのですがCommon.pmの中身が変わってしまっているようで 何処を修正すれば良いのかわからないのですが..... 524 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 02:05:45 ] s/ で / が使えない時の第一選択って何にしてる? 525 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 02:40:29 ] {} 526 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 02:47:34 ] >>524 PATTERN か REPLACEMENT がある程度長ければ、/ の有無に関わらず {} 。 短ければ PATTERN にも REPLACEMENT にも現れない棒状の文字… | か ! か # 。 527 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 03:23:38 ] >>522 $obj->hoge(\%hash); 528 名前：PHPの神 mailto:sage [2009/04/09(木) 06:53:49 ] itpro.nikkeibp.co.jp/article/NEWS/20090408/328083/ Pelってなんだよ 529 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 07:50:22 ] > 「Pelは大規模Webサービスを支え，今も進化している。しかしそのことが広く知られていない」 確かに「Pel」は知られていないなw　 冗談はともかく、日曜プログラマの自分からするとめちゃめちゃ知られてるような気がするんだ けど。「Perl技術者の雇用を増やしたい」とは言ってるけど、それでも何がしたいのかよくわから ない。まだ安定した地位を得ていないRubyとかならまだわかる。 まったくの妄想だけど、Ruby on Railsに仕事を奪われがちになってるとか？　でもそれなら そっちも覚えればいいだけだしなあ。 530 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 13:47:31 ] {}なんて使えるんだ うちだと、 $str =~ s{}a{}A{}; みたいにしてもエラーになる 531 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 14:12:06 ] >>530 本気なのかネタなのか判断に苦しむなそれw 532 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 14:27:26 ] $str =~ s{a{b{; 普通に考えたらこんな感じ？ 変な感じ… 家帰ったら試してみよう 533 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 17:05:11 ] >>532 それはNG $str =~ s}a}b}; こっちはok 534 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 17:07:18 ] >>530 >>532 search.cpan.org/dist/perl-5.10.0/pod/perlop.pod#Quote_and_Quote-like_Operators____________________ perldoc.jp/docs/perl/5.10.0/perlop.pod 関係無いけど perldoc.jp の和訳は目次もname属性も削ってる上に 見出しが腐ってて不便極まりないな。 535 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 17:30:33 ] 一般的な正解 $str =~ s{a}{A}; 536 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 18:05:55 ] 1と9を４つとを四則演算で計算結果が10になるものを出力したいのですが、 @a1 = (1,9); @a2 = (1,9); @a3 = (1,9); @a4 = (1,9); foreach $a1 (@a1){ foreach $a2 (@a2){ foreach $a3 (@a3){ foreach $a4 (@a4){ if ($a1 + $a2 + $a3 + $a4 == 10){ print $a1.'+'.$a2.'+'.$a3.'+'.$a4."\n"; } if ($a1 + $a2 + $a3 - $a4 == 10){ print $a1.'+'.$a2.'+'.$a3.'-'.$a4."\n"; （中略） if ($a1 / $a2 / $a3 * $a4 == 10){ print $a1.'/'.$a2.'/'.$a3.'*'.$a4."\n"; } if ($a1 / $a2 / $a3 / $a4 == 10){ print $a1.'/'.$a2.'/'.$a3.'/'.$a4."\n"; }}}}} こんな感じで記述する手間がとても大変です こういう場合に少ない記述で全組み合わせを試すいい方法はありますか？ 537 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 18:41:26 ] @a1 = (1,9); @a2 = (1,9); @a3 = (1,9); @a4 = (1,9); @op = ('+', '-', '*', '/'); foreach $a1 (@a1){ foreach $op1 (@op){ foreach $a2 (@a2){ foreach $op2 (@op){ # 中略 $fomulae = $a1.$op1.$a2.$op2.$a3.$op3.$a4; print "$fomulae \n" if (eval $fomulae == 10); }}}} こんな感じかな。 538 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 18:51:32 ] >>537 演算子を変数に入れておｋだと初めて知りました！ ありがとうございました 539 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 19:06:21 ] なぜ複数形 540 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 21:10:04 ] 誰か助けて下しア 環境がPERL5.8.* Jcode 2.6.5 PERL5.6.1 Jcode2.0から移したら 今までCGIで文字化けしなかったものが化けました。 $str = '�莞ｹﾞﾏﾝ'; $hoge = Jcode->new($str, euc)->h2z->euc; print "$hoge"; 今までは　�潟zゲマン と表示されていたのに、　？ホゲマン となります。 原因を調べていたら、5.8移行は機種依存文字は無視しないで?に変換してしまうとのことで。。。 これを　�潟zゲマン　となるように 解決したいのですが、どなたかご教授ください。 541 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 21:16:20 ] すみません 他で聴くためこちらの回答は不要です 失礼しました 542 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 21:28:24 ] 541は540とは違います。 引き続き回答お願いします。 543 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 21:50:52 ] コードをeucで書いて、sjisで読んでeucに変換して処理して、 ということをよくやるけど、ローマ数字が元に戻せなくなるんだよな 544 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 22:06:00 ] euc-jp-msでも？ 545 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 22:37:02 ] そんなencodeは知らんと言われる 546 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 22:48:06 ] ppm install Encode::EUCJPMS みたいなことをしても、見つからない 547 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 22:58:35 ] 5.8.xならactivestateのリポジトリにあるみたいだけど。 ppm install Encode-EUCJPMS 548 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:00:35 ] それもやったんだけどな 無いってよ 549 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:21:10 ] 普通に入ったぞ。見りゃわかるだろうが手元はwindowsな I:\> ppm i Encode-EUCJPMS ==================== Install 'Encode-EUCJPMS' version 0.07 in ActivePerl 5.8.8.817. ==================== Files found in blib\arch: installing files in blib\lib into architecture depende nt library tree Installing C:\Perl\site\lib\auto\Encode\EUCJPMS\EUCJPMS.dll Installing C:\Perl\site\lib\auto\Encode\EUCJPMS\EUCJPMS.exp Installing C:\Perl\site\lib\auto\Encode\EUCJPMS\EUCJPMS.lib Installing C:\Perl\site\lib\Encode\EUCJPMS.pm Successfully installed Encode-EUCJPMS version 0.07 in ActivePerl 5.8.8.817. 550 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:25:56 ] D:\>ppm i Encode-EUCJPMS ppm i failed: Can't find any package that provide Encode-EUCJPMS なーにが違うんだろう D:\>perl -v This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 18 registered patches, see perl -V for more detail) 551 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:30:44 ] I:\> perl -v This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 25 registered patches, see perl -V for more detail) Copyright 1987-2006, Larry Wall Binary build 817 [257965] provided by ActiveState www.ActiveState.com Built Mar 20 2006 17:54:25 ppm repは？もしかしてactivestateのリポジトリ無効にしてるとか無いよな？ 552 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:40:11 ] D:\>ppm rep ﾚﾄﾄﾄﾄﾂﾄﾄﾄﾄﾄﾄﾂﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ ｳ id ｳ pkgs ｳ name ｳ ﾃﾄﾄﾄﾄﾅﾄﾄﾄﾄﾄﾄﾅﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ ｳ 1 ｳ 9817 ｳ ActiveState Package Repository ｳ ﾀﾄﾄﾄﾄﾁﾄﾄﾄﾄﾄﾄﾁﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ (1 enabled repository) 大丈夫なのか、この画面は 553 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:43:13 ] んー、ppmのバージョン違うのか？その表示は覚えが無いぞ… > ppm version PPM 3.4 > ppm rep Repositories: [1] tcool [2] ActiveState Package Repository 554 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:46:25 ] D:\>ppm version ppm 4.01 Copyright (C) 2007 ActiveState Software Inc. All rights reserved. ここがはっきり違う Binary build 822 [280952] provided by ActiveState www.ActiveState.com Built Jul 31 2007 19:34:48 ここ? 555 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 23:56:53 ] あー、わかった。activeperl5.8.xは確かbuild818か819ぐらいで別リポジトリになってるんだわ てことはそっちの新しいリポジトリに入ってないんだな 今ちょっと調べてきたらtrouchelle(ttp://trouchelle.com/perl/ppmrepview.pl)のリポジトリに入ってるみたいなんで、 リポジトリ追加したらいいと思う build822だからこれでリポジトリ追加して ppm rep add trouchelle trouchelle.com/ppm/ ppm i Encode-EUCJPMS で入ると思う ま、ローマ数字扱えるかどうかは確信がもてないがｗ 556 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 00:03:55 ] D:\>ppm rep add trouchelle trouchelle.com/ppm/ Downloading trouchelle packlist...done Updating trouchelle database...done Repo 2 added. D:\>ppm i Encode-EUCJPMS Downloading Encode-EUCJPMS-0.07...done Unpacking Encode-EUCJPMS-0.07...done Generating HTML for Encode-EUCJPMS-0.07...done Updating files in site area...done 7 files installed 流石は名探偵 557 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 00:08:39 ] でもローマ数字は駄目だった 558 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 00:10:42 ] と思ったら、shiftjisじゃなくてcp932にしたら上手く行った 559 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 00:14:55 ] サンプル #written in EUC use Encode; use Encode::EUCJPMS; $str = "つ�I"; print e2s($str); sub e2s() { my $str = shift; return encode('cp932', decode('euc-jp-ms', $str)); } 560 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 02:08:03 ] >>539 どういうことですか？

---

---

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

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