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

1 名前：デフォルトの名無しさん mailto:sage [2009/08/07(金) 03:03:00 ] "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/08/07 現在の最新版: 5.10.0 ▼ 前スレ Perlについての質問箱 40箱目 pc12.2ch.net/test/read.cgi/tech/1243631674/ リンク集は >>2-3 Perl 日本語処理の基礎の基礎 >>4 過去スレは >>5-6 あたり 511 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 09:40:12 ] たしかに 初期段階でgotoに触れてしまうと、全部そっちに逃げる思考になりがちだかんな 512 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 09:42:49 ] >>508 極力避けるべき方法だし、この人はsubとgotoの違いほとんど分かってないだろ。 そんな人に教えちゃダメだ。多分ここがなぜsubじゃなくgotoか説明できないと思われ。 513 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 09:56:19 ] >>511 だろ？俺はこの15年でgotoなんかプロダクトに使ったことなんかないぞ。 汚いことするからgotoが出てくる。その辺は分かるだろ？ 例えばCatalystは61ファイル中1回もgoto使ってないぞ。 CPANを見渡すと、スピードがネックになるようなものや、コアな部分に触れるようなモジュールにgotoが多い。 でもYAMLで1回、Mooseで8回だ。素人が使うもんじゃないことくらいわかるはず。 >>478 > たとえば「import Test::Simple tests=>3」のようにあったとして、Test::Simpleパッケージから「tests=>3」を参照する方法を教えてください。 この時点で「普通はできません」と答えなかった住人の責任でもあるな。俺も含め。 514 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 10:21:29 ] open(NEWFILE, ">shinki.html") ; で自動的にshinki.htmlを作ってに書き込むようにしてるんだけど 下に自動的にフォルダも作って test/shinki.html に書き込むようにするにはどう書けばいいですか？ 515 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 10:40:54 ] CPANモジュールの名前空間を汚さないエレガントな方法が知りたい 516 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 11:06:39 ] >>515 名前空間は汚さないが残念ながらエレガントな方法はない。また素人が真似するといかんので、 ヒントはTest::Builderが大事なものをourしちゃってるとこだ。ソース見れば一発で分かる。 正直相手が素人だと分かりきってるのに>>502のような方法を提示する人の気が知れん。 ○○に刃物って言葉があるだろ。この素人さん、今後もつまらんことで他人のモジュール の内臓いじくりまわすに100ペリカ。困ったらgotoもすぐ発動するだろうな。 517 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 11:09:18 ] 立派な正義感(笑)がいるときいて 518 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 11:17:58 ] >>517 正解が出ないからって拗ねるな。 519 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 11:51:51 ] しつもん：　所持金０ですけど、新幹線で東京から博多まで行けますか？ かいとう：　改札口を突破して猛ダッシュしろ まいらのやってることは、こんなレベル 520 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 12:02:03 ] >>505 バカなのはオライリーだろ。 中身が全然違う本を同じ題名で出す意味がない。 521 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 12:09:28 ] >>514 おれはそういうとき自力でフォルダを作ってるけど。他に方法あるのかな my $filepath = "test/shinki.html"; use File::Path; use File::Basename; File::Path::make_path( File::Basename::dirname($filepath) ); open(NEWFILE, ">$filepath"); 522 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 12:28:34 ] Activeperl5.10.1,PAR-0.994,PAR-Packer-0.991を使用して exeファイルを作成した際 元のスクリプトにuse Encode;を使用していると exeファイル実行時に プロシージャエントリポイントPerl_croak_xs_usageがダイナミックリンクライブラリperl510.dl から見つかりませんでした とerrorが出るのですが解決方法（エラー文自体理解できてませんが）はありますでしょうか？ 523 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 13:12:38 ] >>519 はげどー。 >>521 それが模範回答じゃないかなぁ。まあ他にモジュールがあるかも知れんが。 それか $filepath ~= s#([^/]+)$##; $filename = $1; system("mkdir -p $filepath"); って良い子は真似すんなよ。 524 名前：デフォルトの名無しさん mailto:sage [2009/09/20(日) 20:17:07 ] あとはPath::Class使う手もあるか use Path::Class::Dir; my $d = Path::Class::Dir->new('test', 'foo', 'bar'); $d->mkpath; my $f = $d->file('shinki.html'); my $fh = $f->openw; 525 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 06:32:33 ] >>4を見て思ったのですが、 use utf8; use open IO => "encoding(cp932)"; use open ":std"; use Encode; でもいいんですかね？ 526 名前：デフォルトの名無しさん [2009/09/21(月) 07:45:26 ] >>523 ＞ それか ＞ system("mkdir -p $filepath"); mkdir $filepath; 527 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 10:49:54 ] >526 それだと深いディレクトリ作れないだろ。./test/が存在しないときに./test/test2/test3/とか作れない。 528 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 11:48:00 ] なんのためにpオプション付けてると思ってんだよ 529 名前：528 mailto:sage [2009/09/21(月) 11:48:41 ] とても恥ずかしい 530 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 11:56:45 ] >>525 一箇所コロンが抜けてる……けど、無くても動くっぽい？ use open IO => ":encoding(cp932)"; ファイルのエンコーディング設定も入るから、そこは注意。 531 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 13:49:14 ] system関数を使うのと、system関数の引数をWindowsコマンドプロンプトで直接実行したものの比較 system('mkdir -p a/b/c/d'); #Active Perl o / コマンドプロンプト x system('mkdir -p a\z\x\y'); #Active Perl o / コマンドプロンプト o system('mkdir b/b/c/d'); #Active Perl x / コマンドプロンプト x system('mkdir b\z\x\y'); #Active Perl x / コマンドプロンプト o x -- エラー o -- 成功 sysytem 関数とコマンドプロンプトでは、若干の違いがあるんだね。 532 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 14:16:06 ] >>531 Windowsでmkdirに-pオプション付けると "-p"って名前のフォルダが作られない？ うちでは作られた 533 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 15:15:24 ] >>530 コロンが抜けていたのは自分のタイポですね。 すみません。 open.pmを見てみると、 $layer =~ s/^://; と、コロンを消してから処理をしているように見えます。 結局、コロンはあってもなくてもいいのかな？ 534 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 18:02:29 ] >>533 付いてなくても動くかも知れないけど、PODでは付けることになってるし、 明文化されてない部分だから、付けといた方がいいと思う。 535 名前：デフォルトの名無しさん [2009/09/21(月) 20:50:57 ] >>527-529 ＞ >526 ＞ それだと深いディレクトリ作れないだろ。./test/が存在しないときに./test/test2/test3/とか作れない。 ＞ $filepath ~= s#([^/]+)$##; ＞ $filename = $1; ＞ system("mkdir -p $filepath"); どーなんだろー？ 536 名前：デフォルトの名無しさん mailto:sage [2009/09/21(月) 22:11:09 ] >>>535 言う前にやってみろよｗ UN*X標準のmkdirはデフォルトでは1つのディレクトリしか作れないから。 537 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 00:02:13 ] Windows 2000 や XP だと中間ディレクトリが作られるね。 外部コマンドを利用する場合は特に、利用している OS などの環境を明確にしないと、 延々と話が噛み合わないで平行線を辿ると思う。 しかし、 >>531 を見ると、まあ言われてみれば納得できる挙動ではあるんだけど、 ActivePerl にはかなり黒魔術が入ってそうだねえ。 てか、折角 Perl はそういう OS の差異を吸収する層たり得るソフトウェアなんだから、 Perl でできることは極力 Perl でやるべきかと。 538 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 09:08:48 ] >>534 そうですね 539 名前：デフォルトの名無しさん [2009/09/22(火) 13:08:17 ] Perl TkのTextウィジェットを使って 文字列の入出力をする方法はどのようにするのでしょうか？ Entryウィジェットを使ったサンプルはWeb上から見つけたのですが、 Textウィジェットを用いたものはないもので。。。 540 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 16:51:57 ] >>539 $text->delete('1.0', 'end'); # テキスト全て削除 $text->insert('end', $string); # 終わりから文字挿入 $string = $text->get('1.0', 'end'); # テキスト全て取得 ttp://www.shido.info/py/tkinter12.html search.cpan.org/~srezic/Tk-804.028/pod/Text.pod Indexは #INDICES 辺りを参照で。 541 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 21:06:14 ] すごい昔のレスを掘り返して何なんですが、以下レスの回答がありませんでした。 スマートな書き方ってないんですかね？ Perlについての質問箱 12箱目 pc5.2ch.net/test/read.cgi/tech/1094579428/941 941 名前：デフォルトの名無しさん[] 投稿日：04/10/14 18:57:50 条件によって、関数に渡す引数の数が違う場合 たとえば my $obj; if (/condition/) { 　　$obj = Class->new(ARG_0 => "a", ARG_1 => "b", ARG_2 => "c",); } else { 　　$obj = Class->new(ARG_0 => "a", ARG_1 => "b",); } という具合の書き方をいつもしているのですが なんだか重複した記述が多いし、もうちょっとスマートな書き方がないものかと いつもうんざりしています。 こういう場合の定石パターンってなにかあるのでしょうか。 皆さんどうコーディングされてます？ 542 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 21:27:52 ] my %args = (ARG_0 => 'a', ARG_1 => 'b'); $args{ARG_2} = 'c' if CONDITION; my $obj = Klass->new(%args); 543 名前： ◆TWARamEjuA mailto:sage [2009/09/22(火) 21:47:01 ] my $obj = Class->new(ARG_0 => "a", ARG_1 => "b", /condition/ ? ARG_2 => "c" : undef => undef); って通るのかしら？ 544 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 22:03:42 ] >>541 重複しないことが必ずしもスマートとは限らない。 現状のままの方が読みやすい気がする。 545 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 22:19:16 ] >>542 若造がいきがってムチャしてる、って感じがするな。 後々のことを考えてるのかな。 その場かぎりの使い捨てコードならソレでもいいかもしれないけど。 546 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 22:48:50 ] my @params = ( ARG_0 => "a", ARG_1 => "b", ARG_2 => "c" ); my $obj = Class->new( /condition/ ? @params[0..3] : @params[0..5] ); 547 名前：デフォルトの名無しさん mailto:sage [2009/09/22(火) 23:09:07 ] >>546 もういいからやめろ 548 名前：デフォルトの名無しさん [2009/09/22(火) 23:32:46 ] >>541 本当にARG_2がoption的な要素なら、 my %opt = ( 　ARG_2 => 'c' ) if /condition/; my $obj = Class->new( 　ARG_0 => "a", 　ARG_1 => "b", 　%opt, ); って書き方するかなぁ。 そうじゃないなら>>544の言う通り、そのままの方がメンテしやすい 549 名前：デフォルトの名無しさん [2009/09/23(水) 00:57:59 ] まじキチ…ユダヤが人工地震を起こすぞ 【緊急情報カクサンよろしく】 ついに来ました。 大きい動きです。250nT超えてきました。ほぼ間違いありません。もう一度言います。 友人、知人、親類縁者、あらゆるつながりを駆使して巨大地震がくることを教えて下さい。 四川地震より大きいのが来る可能性があります。 g★olde★ntam★atama.b★lo★g84.fc2.c★om/ ★★★★★危険度ＭＡＸ★★★★★ ★★★★★★★★★★★★★★★★ ★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★ ★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★ ★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★ ★千葉、静岡、東京、関東で大地震が起きる可能性が非常に高くなっています★★★ ★★★★★★★★★★★★★★★★ ★★★★★危険度ＭＡＸ★★★★★ 警告！連休中の２１、２２、２３日が危ない！かも２ live24.2ch.net/test/read.cgi/eq/1★253494015/ 【大気イオン】e-PISCO Part11【また延長】 live24.2ch.net/test/read.cgi/eq/1★252991726/ 本当に地震が来たら、犯人は特権階級全員だということ２ 550 名前： ◆TWARamEjuA mailto:sage [2009/09/23(水) 01:28:09 ] 1200件もhitするのか。。。 ひとまずRock54してくるです。。。 551 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 07:56:28 ] コードゴルフ用の問題みたいだね 552 名前：デフォルトの名無しさん [2009/09/23(水) 13:49:46 ] >>541 もし毎回同じパラメータ渡してるなら、サブルーチンの受け取るパラメータを直す。 それが難しければ、ラッパーをかます。 ベタウチはバグの元。 プログラム書法にも書かれてる。 「汚れ仕事は機械にやらせよう」 ただし、同書は冒頭で戒めてるので注意。 「わかりやすく書こう。うますぎるプログラムはいけない」 根拠は可読性とメンテナンス性。 553 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 17:32:22 ] こっち↓ my $data = do{local $/; <$fh>}; と、こっち↓ read $fh, my $data, -s $fh; では、どちらを使うのがいいのでしょうか？ 554 名前：デフォルトの名無しさん [2009/09/23(水) 17:48:49 ] >>553 どっちもだめ。 【理由】意図不明 555 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 17:52:10 ] どっちでもいいんじゃね 効率はやや上のほうがよさそうだけど。下はファイルサイズ調べに行かなきゃならんわけだし 556 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 18:24:04 ] >>554 これを意図不明って、絶望的にPerlのスキルが足りないんじゃね？ 557 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 19:58:27 ] tp://www1.axfc.net/uploader/Sc/so/28995.zip&key=vip ネットの勉強がてらに作ったモノです 友人に見せたら汚いコードだと言われました どこあたりがおかしいのでしょうか 558 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 21:09:19 ] >>555 ベンチマークを取ってみた。 Windows XP SP2、ActivePerl 5.8.8 _______________________________________________________________ use Benchmark qw(:all); my $file = 'jcode.pl'; # 21,876bytes、785行 my $r = timethese( 10000, { 'local $/' => sub { open my $fh, $file or die $!; my $data = do { local $/; <$fh> }; }, 'read' => sub { open my $fh, $file or die $!; read $fh, my $data, -s $fh; } }); cmpthese $r; ____________________________________________________________________________ Benchmark: timing 10000 iterations of local $/, read... 　　local $/: 4 wallclock secs ( 2.81 usr + 1.09 sys = 3.91 CPU) @ 2559.51/s (n=10000) 　　　　read: 3 wallclock secs ( 1.77 usr + 1.06 sys = 2.83 CPU) @ 3534.82/s (n=10000) 　　　　　　Rate　　　local $/　　read local $/ 　2560/s　　　　--　　　-28% read　　　 3535/s　　　 38% 　　　 -- 559 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 21:12:42 ] >>557 こんなもんじゃないの。 少なくとも昔の2chのコードより100倍まし。 560 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 21:12:51 ] へぇー。 -s & readの方がはやかったか〜 まぁ、言われてみれば 読み込む量があらかじめわかってりゃそりゃバッファの確保も楽(っていうか一発？)だしそりゃ速いわな 561 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 21:31:51 ] ついでに、sysreadもベンチを取ってみた。 条件は、>>558と同じ。 Benchmark: timing 10000 iterations of local $/, read, sysread... 　　local $/: 4 wallclock secs ( 2.66 usr + 1.14 sys = 3.80 CPU) @ 2633.66/s (n=10000) 　　　　read: 3 wallclock secs ( 1.75 usr + 1.06 sys = 2.81 CPU) @ 3556.19/s (n=10000) 　　sysread: 1 wallclock secs ( 0.33 usr + 0.91 sys = 1.23 CPU) @ 8103.73/s (n=10000) 　　　　　　　Rate　 local$/　　read　sysread local $/　2634/s 　　　 --　　-26%　　　-68% read　　　3556/s 　　　35%　　　--　　　-56% sysread　8104/s. 　　208%　. 128%　　　　-- 562 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 21:33:02 ] activeperl のverで 5.8.9.826 と　5.10.1.1006　での差違って 主に何です？　ご存じの方いませんか 563 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 21:41:54 ] >562 www.activestate.com/activeperl/features/ のActivePerl 5.10 Highlightsは見たの？ 564 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 22:15:20 ] binmode $fh; をかましてバイナリ読み込みにすると、差が縮まった。 Benchmark: timing 50000 iterations of local $/, read, sysread... 　　local $/: 9 wallclock secs ( 2.64 usr + 5.34 sys = 7.98 CPU) @ 6262.53/s (n=50000) 　　　　read: 8 wallclock secs ( 2.03 usr + 5.47 sys = 7.50 CPU) @ 6666.67/s (n=50000) 　　sysread: 6 wallclock secs ( 1.72 usr + 4.61 sys = 6.33 CPU) @ 7900.14/s (n=50000) 　　　　　　　Rate　 local$/　　read　sysread local $/　6263/s 　　　 --　　　-6%　　　-21% read　　　6667/s　　　　6%　　　 --　　　-16% sysread　7900/s.　　　26%　　　19%　　　　-- ただ、読み込むファイル容量を大きくする（以下）と差が出る。 my $file = 'kakikomi.txt'; # 6,863,205bytes（≒6.5Mbytes）、271,365行 Benchmark: timing 300 iterations of local $/, read, sysread... 　　local $/: 6 wallclock secs ( 4.45 usr + 2.08 sys = 6.53 CPU) @ 45.93/s (n=300) 　　　　read: 4 wallclock secs ( 2.02 usr + 2.06 sys = 4.08 CPU) @ 73.58/s (n=300) 　　sysread: 4 wallclock secs ( 0.08 usr + 3.11 sys = 3.19 CPU) @ 94.13/s (n=300) 　　　　　　　Rate　 local$/　　read　sysread local $/　 45.9/s 　　　 --　　-38%　　　-51% read　　　 73.6/s 　　　60%　　　--　　　-22% sysread　 94.1/s. 　　105%　　 28%　　　　-- 565 名前：デフォルトの名無しさん [2009/09/23(水) 23:23:06 ] この方が分かりやすい。 my $data=`cat $file`; 566 名前：デフォルトの名無しさん mailto:sage [2009/09/23(水) 23:53:34 ] どうでもいいんだが、 #=> こいつがちんぽに見えてしょうがない どうにかならんか 567 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 00:36:07 ] 毛を剃れば=>になる 568 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 02:08:46 ] perlでwmvの再生時間を取得したくて、調べていて Image::ExifToolというモジュールで出来るようだということがわかりました。 具体的なソースコードがないので、どのようにwmvの再生時間を取得すればいいのか悩んでいます。 よろしければ再生時間の取得方法が載っているサイトなど教えていただけたらと思います。 569 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 02:40:20 ] ソースコードが無いってなんで？ これでしょ？ search.cpan.org/~exiftool/Image-ExifTool-7.89/lib/Image/ExifTool.pod 570 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 10:29:03 ] cpan をユーザーディレクトリで運用したいです 書かなければならないとする設定が説明サイトによってまちまちなんですが、 最新版ではどう記述するのが本当なんですか？ 571 名前：デフォルトの名無しさん [2009/09/24(木) 13:33:50 ] 以下の２つの結果が違うのですが、 print join(',', (1,'','','',2)), "\n"; print join(',', (1,,,,2)), "\n"; perlでは,,,というのはどういう解釈がなされるのでしょうか？ -------- JavaScriptみたいな結果を期待していたのですが・・。 alert([1,,,,2].join(',')); // -> 1,,,,2 572 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 14:09:42 ] >>571 perldoc.jp/docs/perl/5.10.0/perldata.pod より: 空リストは () で表わされます。リスト中で空リストを展開しても何も起こりません。 つまり、 ((),(),()) は () と等価です。同様に、要素のない配列を展開することは、 その場所に何も展開しなかったのと同じことになります。 この展開は、開きかっこと閉じかっこは(優先順位のための必要性がなければ) 省略 可能であるということと、リスト中に複数のカンマがあっても文法的に有効なので、 リストの最後に追加のカンマをつけられるということを組み合わせたものです。 リスト 1,,3 は 2 つのリスト 1, と 3 の結合であり、 1 つ目のリストはオプションのカンマ で終わっています。 1,,3 は (1,),(3) で 1,3 です (そして同様に 1,,,3 は (1,),(,),3 で 1,3 です。以下同様。) この暗黒面を使うよう勧めているわけではありません。 573 名前：デフォルトの名無しさん [2009/09/24(木) 15:09:05 ] >>572 ありがとう御座います。ズバリです！ 納得いきました。 574 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 16:07:02 ] >>564 バイナリリードにすると差がなくなるのは、<$fh>方式では、バイナリリードだと確保するバッファーが 大きくなるからでしょうか？ 575 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 16:34:29 ] 多重定義されたメソッド（関数）で、2つ上のメソッドを呼び出すにはどうすればいいのでしょうか？ package Super; sub foo { print "This is Super\n" } package Sub; use base Super; sub foo { print "This is Sub\n" } package SubSub; use base Sub; sub foo { print "this is SubSub" } sub call_super_foo { shift->SUPER::SUPER::foo) } #=> エラー package main; SubSub->call_super_foo; #=> This is Superを期待 576 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 17:36:56 ] shift->Super::foo とか Super::foo(shift) じゃだめ？絶対的な指定になっちゃうけど。 二つ上っていう相対的な呼び出し方はわかんね っていうか、そういうことがやりたいケースなんてあるかな？ちょっと興味あるアル 577 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 18:11:57 ] ディスパッチャーを自作すればいけるかー。evalでもいいけど package UNIVERSAL; sub dispatch_ancestor_method { 　　my ($self, $name, @args) = @_; 　　no strict "refs"; 　　for my $super (@{(ref($self) || $self) ."\::ISA"}) { 　　　　for my $ancestor (@{"$super\::ISA"}) 　　　　　　{ return &{"$ancestor\::$name"}($self, @args) if defined &{"$ancestor\::$name"}; } 　　} 　　die "Undefined method `$name'"; } package SubSub; sub call_super_foo { shift->dispatch_ancestor_method("foo") } 578 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 18:22:06 ] >>576-577 ありがとうございます。 単に勉強中の者でして、任意の上の階層のメソッドを呼び出す命令があるのかなーと 思ったしだいです。 579 名前：デフォルトの名無しさん [2009/09/24(木) 19:28:52 ] >>578 そういう使い方では継承の意味がないのでは？ 580 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 23:02:56 ] >>579 深く突っ込まれても、まだ勉強の途中なのでよくわからんです。 SUPER::の項目を見てて、そういう命令があるのかなーと思っただけなんで。 581 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 01:37:51 ] ちょっと聞きたい事があるんだ 配列のm番目にあるデータに、ループを回すごとに値を〜でくっつけて追加したいんだ ex) m番目の値がabcで、cdeを追加したい場合　abc〜cde　のように。 追加される値が$aの場合 $list[m] .= $list[m] . "〜" . $a;　（※　 として配列m番目の値を変えようと思ってやったんだけどうまくいかない。 mはずっと固定。 ループ1週目で$a・2週目で$b、3週目で$c・・・・・と後ろに繋げる場合 $list[m]〜$a〜$b〜$c〜　となっていくようにしたいんだけど 上の※式を実行すると $list[m] しか出力されなく困ってます。どなたか知恵を御貸しください…… 582 名前：デフォルトの名無しさん [2009/09/25(金) 02:07:37 ] >>581 $list[m] .= "〜" . $a;　（※　 か $list[m] = $list[m] . "〜" . $a;　（※　 583 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 09:06:19 ] 念のために確認しておくが × $list[m] ○ $list[$m] というオチじゃないだろうな? 584 名前：570 mailto:sage [2009/09/25(金) 09:11:01 ] あら、みんなシステムワイドで使ってるん？ ユーザーディレクトリで運用してる人は稀？ 585 名前：デフォルトの名無しさん [2009/09/25(金) 09:28:16 ] >>584 ローカルにtar.gzからlocal::libをインストールして、あとはその設定使ったcpanでインストールしてるけどそういう意味？ 586 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 11:55:47 ] 変数名を動的に指定して、その変数の値をとってくることはできますか。 PHPでは $x = 10; $var = 'x'; echo $$var; // 10 が表示される ということができるんですけど、Perlで同じことをするにはどうしたらいいですか。 587 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 11:56:24 ] ユーザー権限でcpan shell使えば、ユーザーディレクトリにインストールされない？ 588 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 11:59:10 ] >>587 されるんだったらこのへんのブログ記事はみんな仕込みだな ttp://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=makepl_arg&num=50 589 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 12:10:38 ] >>586 同じく$$varでいいけど、そういうプログラムは行儀悪いからやめとけ。 590 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 12:19:44 ] sage 591 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 12:24:12 ] >>583 あー確かに$list[$m]になってましたね、申し訳ないです $mは別の所で既に求めてあり、変わることのない定数ですが…… printで挿入動作のすぐ後で確認してみた時はうまく挿入されているのですが 次のループの時にはまた初期状態に戻ってしまっているようです…… 592 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 12:25:21 ] >>591 だったらループを晒さないと。 593 名前：587 mailto:sage [2009/09/25(金) 12:28:05 ] >>588 うーん、一度 cpan> o conf init で再設定してみては？ 594 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 14:21:52 ] >>592 すいません、ループ自体は他の動作も混ざってるので200行近くあるんです…… 595 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 14:27:53 ] >>594 ここに貼り付ければおｋ codepad.org/ 596 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 14:34:03 ] >>591 だったら一行一行チェックしないと 597 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 15:31:30 ] >>594 「他の動作」を削っていって、不具合の再現する最小ケースのコードを作ってみ。 598 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 16:19:27 ] ＞ printで挿入動作のすぐ後で確認してみた時はうまく挿入されているのですが ＞ 次のループの時にはまた初期状態に戻ってしまっているようです…… この人に足りないのは、「デバッグする」ということ。 いちおうすぐ後に print文を入れてみたのはエライが その後で行き詰っているな。 もっと print を入れろ。たくさん入れろ。しつこいくらい入れろ。 print でコードがイッパイ埋め尽くされるまで入れろ！ そうすればどこで変になったか特定できるはずだろ。 599 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 16:25:19 ] print でコードがオッパイ埋め尽くされるまで入れろ！だと！？ ってレスされることを狙ったよな？よな？ 600 名前：デフォルトの名無しさん [2009/09/25(金) 18:32:10 ] >>589 行儀よく ${$var} あれリファレンスと同じだ 601 名前：デフォルトの名無しさん [2009/09/25(金) 18:35:37 ] >>581 ループごとに変数初期化してる気配 602 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 19:32:41 ] >>594 perl以前にそもそもな違和感を覚える。 200行ものループがあるのは、明らかにおかしい。 一関数でも200行はおかしい部類に入るのに、 それがループともなると、さらに話もデバッグも難しくなる。 603 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 02:12:34 ] perl ならループの中身が200行くらいあっても不思議じゃないだろ 604 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 02:29:33 ] 絶対にbetter wayが存在するだろ 605 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 03:03:05 ] >>603 不思議じゃないが、おかしい。 「perlなら」とか言い訳してる場合じゃなくおかしいものはおかしい。直すべき。 606 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 11:33:59 ] プログラミングする目的は綺麗なコードを書く事じゃないし 行儀のいいコードを書く必要性は場合よる LLであるPerlならそういうケースに見回れる可能性は低いから むしろ「おかしい」って突っ込みの方が自分本位で正当性に欠ける気がするんだよ！ 607 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 12:11:35 ] プログラムは本来動けばいい物でしょ そこに、保守性、生産性という需要があれば可読性のあるソースを 速度やコンパクトさを求めるなら、可読性や保守性は両立できない だからそもそもソースの書き方に正しいとか間違いなんて言うのは野暮 608 名前：デフォルトの名無しさん [2009/09/26(土) 12:37:30 ] >>607 些細なバグを直しやすくするアドバイスが そんなに気に入らないか？ 下手くそな書き方で無駄な時間潰すより 素直に耳を傾けたほうがよほどいいと思うが？ 609 名前：デフォルトの名無しさん [2009/09/26(土) 12:47:48 ] 「速くする前に、まず正しくしよう」 「だめなプログラムを修正するのはやめて、全部書き直そう」 610 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 12:48:08 ] >>607 Damian Conwayを真っ向から否定ですね、わかります 611 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 12:48:12 ] >>606 >>607 はぁ？ そんなの綺麗で可読性のあるコードを書かない言い訳になんかならんよ。 実際「動けば良い」じゃ済まないから現に >>581 みたいな質問が出てるんじゃんよ。 「おかしい」ったら「おかしい」んだよ。 612 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 12:59:02 ] >>606-607 思考が若いねぇ。いったい何処で習った手法なのかなー？　趣味のプログラム書き殴りだけで、 それなりの規模の保守運用を伴う実務経験無さそうだねぇ 613 名前：デフォルトの名無しさん [2009/09/26(土) 13:00:50 ] プログラミングの鉄則 １ 動くこと ２ 正しく動くこと ３ 上記を満たすためにわかりやすく書くこと 614 名前：607 mailto:sage [2009/09/26(土) 13:06:36 ] 一応SEだからソース管理するスタンスで言えば 綺麗で可読性のあるコードを書くのは反対しないよ だがここはあくまで書き方の自由度の高いPerlのスレであり 大規模プロジェクトで生産性、保守性を目的にしたソースを第一とするとはどこにも書いていないと言いたいだけ 615 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 13:10:05 ] そうかそうか 616 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 13:10:39 ] >>607 の理論は正しくないと思うけど >>608 この問題に対する、「分割や抽象化されてない巨大なコードはバグりやすいよ」ってアドバイスならいいけど、 >200行ものループがあるのは、明らかにおかしい みたいに、プログラミング一般に適用可能な意見とするのは違うなーと思った こういう考えをむやみに初心者に植え付けるのは、コーディングオナニーの原因にもなるしね 常に必要なことではない、ってことを理解してもらうために発言したんだよ 617 名前：607 mailto:sage [2009/09/26(土) 13:12:57 ] >>612 習うと言われても 私の若い頃は工業高校なんかでBASICかFORTRAN、アセンブラしか教えられていなかったから 実務経験で培った知識しか無い これ以上はスレ違いだし606を擁護するのはやめとく 618 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 13:35:06 ] > みたいに、プログラミング一般に適用可能な意見とするのは違うなーと思った > こういう考えをむやみに初心者に植え付けるのは、コーディングオナニーの原因にもなるしね いいや、プログラミング一般に適用可能だし、むやみに初心者に植え付けるべき考えだよ。 ところで「コーディングオナニー」って何？ 特に >>581 の場合なんかは、どうせスコープを見誤ってバグってるんだろうから、 効率とか云々は一旦棚に上げて、 use strict; use warnings; した上で、 200行のコードをどんどん関数に分割していけば、まずいところはすぐ見つかると思う。 619 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 13:45:27 ] 保守性も、動くこと優先も、両方考慮すべきことだよ 多人数開発だったり、サポート期間の長いソフトだと前者の重要性が 高くなるだけで、別にそれが全てじゃない。 Perl の場合、たいてい動けばよいの方の比重が高くなると思うな まあ、どうでもいいけど 620 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 13:49:02 ] 200行のループしかないプログラムだったり 621 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 14:11:14 ] >>618 >コーディングオナニー ああ、リアルで使っても結構通じちゃうから、同じ気持ちで使ってたよ。気付かなくてごめんね 意味だけど、本来の目的や本質は疎かにして、自分が正しいと信じてることを機械的に行うことだよ 病的なまでにコードを整理したり、やたらリファクタリングに時間をかける人がいるんだよ。文脈におけるメリットも考慮せずに (実を言うと、昔は自分もそうだったしね) コードを整理することが保守性やメンテナンス性を高めることに繋がるという事に異議は無いよ ただ、そういうことが常に求められているわけではないので、 その手段である「綺麗なコードを書くこと」は、プログラミング一般に適用出来ない。そういうこと >>619 同意 622 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 14:13:57 ] s/機械的/盲目的/ 623 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 15:08:40 ] 200行もあるコードにおかしさを嗅ぎつけるってのは プログラマにとって身に付けるべき重要な嗅覚だろ。 そんな嗅覚の未発達な初心者に対しては、 ちゃんとこれはおかしいと諭してあげるべきじゃないのか。 200行もあるが故に見通しが悪く自力で問題解決できなくなり、 200行もあるが故にコード片を晒すこともできずこれ以上の助言ももらえない、 そんなにっちもさっちもいかなくなった質問者に対して、 200行のコードでも動けば問題ない、ってのがアドバイスになるのか？おかしいだろ。 624 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 15:13:44 ] やってればセンスある奴は早い時期に勝手に気づくさ。 気づかないのはセンスナッシングで他のことにも気づかないってことで 625 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 15:50:33 ] よそでやれ 626 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 15:57:03 ] いや、ここでやる(`･ω･´) 627 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 15:58:19 ] ハゲ・ズラ板でやれ 628 名前： ◆TWARamEjuA mailto:sage [2009/09/26(土) 16:18:45 BE:1634235-BRZ(10101)] つ 夢・独り言＠2ch掲示板 changi.2ch.net/yume/ 629 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 16:24:52 ] >>628 行ってらっしゃーい 630 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 18:08:27 ] ＞ 綺麗で可読性のあるコード これを言い出すとモメる原因になる。 いったい＜誰＞にとって綺麗で可読性のあるコードであるか。 おまえか？おれか？ 主観を押し付けるなよ。 631 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 18:26:43 ] >>630 そんな中二病丸出しの発言する奴は無視するだけでしょ。 632 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 19:49:32 ] 「綺麗さ」に関して標準の測定法が無いから、主観の問題になる。 というか、ズルや政治的意図で歪められたりする。 perltidyなどのフォーマッタを通したコードが綺麗で良いとすると、 複雑さなどは計算に入れないのか、などなど。 一度は通っておくといい道。 633 名前：デフォルトの名無しさん [2009/09/26(土) 21:16:08 ] mecabについての質問です。 文字列をmecabに入れる際にeuc-jpにエンコードし、名詞だけを抽出し デコードしてブラウザに出力させようとすると、大半は通常通りに取得できますが、一部の単語が文字化けします。 調べてみたら漢字に限らず、ひらがな・カナ文字でも文字化けしています。 考えられる原因はなんでしょうか？OSはfedora9です。 634 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 21:49:44 ] ここでやる(`･ω･´) (´；ω；｀)ﾌﾞﾜｯ 635 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 22:12:43 ] (´；ω；｀;:.. (´；ω;;:;:::... (´;;:;::;.. 636 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 22:14:07 ] (´;;:;::;.. (´ ∀;;:;:::... (´ ∀｀) 637 名前：デフォルトの名無しさん [2009/09/27(日) 00:08:32 ] PERLでのImage Magickの使い方について教えてください 画像ファイルを読み込んだあと、画像のプロパティ（タイトル、標題、コメントなど）を セットしてから出力することはできるでしょうか。 638 名前：デフォルトの名無しさん [2009/09/27(日) 01:43:41 ] >>637 もちろんです。 man Imagemagick 639 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 05:53:38 ] (´･ω･`) ｡｡ﾟo｡○ (´･ω ｡o｡ﾟ｡o○ ｡｡o｡oﾟＯﾟ｡oﾟo○｡oﾟ 640 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 08:07:26 ] 2chにコードを貼り付けるとき、インデントを全角スペースにしたりしますよね。 みなさんはそれをどのように変換してますか？ エディタの機能でうまくできるものなのでしょうか？ 641 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 09:25:39 ] s/\t/　　/g; 642 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 09:57:50 ] >>641 それじゃダメだろ 643 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 11:16:51 ] >>640 Perlで「各行の先頭から続く複数の空白を、同じ数の&amp;nbsp;に変換して出力する」コードを書けば良いじゃない 644 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 11:18:24 ] あれ？表示が変だな あんど、えぬ、びー、えす、ぴー、せみころんね 645 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 11:29:21 ] &nbsp; 646 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 11:41:45 ] すべてのスペースを&nbsp;に変換すっと、今度は文字数制限にひっかかっかるやもやがな s/(?<=^|\G)[ \t]/&nbsp;/mgx 647 名前：デフォルトの名無しさん [2009/09/27(日) 11:49:50 ] どうでもいい議論が続いてるな。エディタで置換すればいいだろ >>641でいいと思うけど。 いつも半角スペース2個を全角1個にしてるからvimなら%s/ /　/gcで置換できる 648 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 12:19:15 ] 641じゃデコボコになるだろ・・ 649 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 12:28:43 ] >>641 今どきハードタブ使ってるひとはあまりいないんじゃない？ 650 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 13:04:24 ] Damian Conway先生に怒られるしね 651 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 13:11:40 ] >>649 あなた、井の中の蛙さん？ 652 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 13:49:34 ] そうだけど何か？ ゜＿゜ 653 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 16:07:09 ] かわいそうに 654 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 17:07:39 ] >>653なんか、ダッシュ村のため池の蛙なんだぜ。 655 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 19:30:25 ] 来月にリャマ本の日本語第5版くるんだね 中身結構かわってるかなあ 656 名前：デフォルトの名無しさん mailto:sage [2009/09/27(日) 22:27:04 ] >>646 コード載せた場合、先に引っかかるのは 大概行数制限のほうだと思う 657 名前：デフォルトの名無しさん [2009/09/28(月) 21:50:38 ] さがってる 658 名前：デフォルトの名無しさん mailto:sage [2009/09/28(月) 23:07:51 ] 下がってても落ちないよ 659 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 00:14:06 ] s!>(back|return)<!>戻る<!si; これやるとエラーダイアログが出るんです。 問題が発生したため、Perl Command Line Interpreter を終了します。 ご不便を おかけして申し訳ありません。 この問題を Microsoft に報告してください。 （以下省略） 　　　　　　　　　　[エラーを報告する(S)] [送信しない(D)] いろいろ試したらこのような結果でした。 o Active Perl 5.8.8 o Active Perl 5.8.9 o Active Perl 5.10.0 x Active Perl 5.10.1 こんなふうに ( | ) を使わなければＯＫなんですが、ちょっと困ります。 s!>back<!>戻る<!si; s!>return<!>戻る<!si; perl 5.10.1 はウンコですか？ 660 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 12:42:56 ] >>659 デリミタは#とか括弧類にしてくれ。 あとPerlのせいにすんな。 FreeBSDやLinuxの5.10.1ではそのコードは普通に動くから、 5.10.1がウンコなんじゃなくてActivePerlが正規表現モジュールか何かの Winへの移植に失敗してるんだろ。 5.10.1リリース後一ヶ月以内のスピード移植版に文句言うとか何様かと。 修正リリースが出るだろうからバグ報告でもして座って待ってろ。 661 名前：デフォルトの名無しさん [2009/09/30(水) 13:48:36 ] =~で全角数字だけの文字列だったらを取り除くにはどうすれば良いのでしょうか？ ttp://ash.jp/code/unitbl21.htmを参考にしようと思ったのですが、どう書けばよいか分かりません。 お願いします。 662 名前：661 mailto:sage [2009/09/30(水) 13:50:08 ] 使用している文字コードはutf-8です。 663 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 13:58:29 ] s/[０１２３４５６７８９]//g みたいな？ 664 名前：デフォルトの名無しさん [2009/09/30(水) 15:40:47 ] >>661 s/^[０-９]+$// 665 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 17:38:18 ] >>659 んー、WindowsXPで普通に動く。 666 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 19:58:03 ] XSを勉強中です。 長さを指定して文字列を作成し、あとから文字を詰め込みたいのですが、やり方がわかりません。 自分で試したのはこんなコードです。 SV * hoge() CODE: SV *string = newSV(5); char *s = SvPVX(string); //int len; //char *s = SvPV_force(string, len); int i; for (i = 0; i < 5; i++) { s[i] = 'x'; } s[i] = '¥0'; RETVAL = string; OUTPUT: RETVAL これを呼び出してみると、長さが0の文字列が返されるだけでした。 おしえてえらいひと。 667 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 19:59:37 ] 失敗した。インデントを全角空白にしました。 SV * hoge() 　　CODE: 　　　　SV *string = newSV(5); 　　　　char *s = SvPVX(string); //int len; 　　　　//char *s = SvPV_force(string, len); 　　　　int i; 　　　　for (i = 0; i < 5; i++) { 　　　　　　s[i] = 'x'; 　　　　} 　　　　s[i] = '¥0'; 　　　　RETVAL = string; 　　OUTPUT: 　　　　RETVAL よろしくお願いします。 668 名前：デフォルトの名無しさん mailto:sage [2009/09/30(水) 20:03:39 ] なんかC++みたいだな 669 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 07:53:07 ] >>668 XSが何か分かってないだろ。 ちゃんとPerlの質問だ。 質問にも答えたいが朝食を作らないと。 670 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:24:05 ] >>667 SvPOK_onlyかSvPOK_only_UTF8が必要なんじゃね? 671 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:26:25 ] >>666 あーちなみに文字列の突っ込み方は合ってるし、 そっち方面の質問がメインならC/C++のスレに行きな。ちなみに勘だが、 SV * hoge() ここがおかしいんじゃないか？SV *返すことってできたっけ？ インクルードファイルやMODULE行がないのは端折ってるだけだよな？ 672 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:32:21 ] 5バイトしか取ってないのにNULLを６バイト目に入れてるけどいいの？ 673 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:32:52 ] あ、いいのか。 674 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:33:11 ] >>672 6バイト取ってるでしょ。マニュアル嫁 675 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:34:07 ] 先越されるとは思わんかった。>>673は>>671へだ。SV *自体問題ない。 676 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 09:46:21 ] newSVpvと文字列コピーするところ以外は やりたいことは一緒なんだから比べてみ。 677 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 10:10:11 ] SVの実体が何か明示する前に文字列と決め付けてるからまずいんじゃないか。 いきなりnewSVみたいな低レベルの関数使うと怪我をするよ。 SV *string = newSVpv(" ", 5);としたらどうなる？ 678 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 12:52:54 ] スペースは5個な。まあ6バイトallocしてくれてるはずだから、 初期化するまで値が不定になるだけで実害はないと思うが 679 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 23:23:46 ] >>668 たしかにコードはC++チックですね。コメントが // だったり、変数宣言が先頭になかったり。 >>669 668さんはXSが何かわかったうえでの発言だと思いますよ？ >>670 RETVALUE = string; の行の前に SvPOK_only_UTF8(string); を追加してみましたけど、状況は変わらずでした。 >>677 newSVpvn(" ", 5) ですよね。それだとうまくいくんですが、これだとコピー元の文字列を あらかじめ用意してないといけないので、今回の目的には適合しませんでした。 で、いろいろ調べて、New() と Safefree() と newSVpvn() を使うことにしました。 でもこれだと New() でバッファを用意して、文字列を埋めて、newSVpvn() でコピーして、・・・と しなきゃいけないから、newSVpvn() でコピーするのが無駄かなあとは思うんですけど、 これしかうまくいかないので、そうします。 アドバイスいただいたみなさん、ありがとうございました。 680 名前：uy50% ◆e6.oHu1j.o mailto:sage [2009/10/02(金) 23:15:29 ] ラリーウォールさんの書いたperlのソースってどこかで見れませんか？ どんなものでもいいです 681 名前：デフォルトの名無しさん mailto:sage [2009/10/02(金) 23:26:04 ] www.wall.org/~larry/ 682 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 01:34:21 ] Mail to larry@wall.org このメアドがまたすげー 683 名前：uy50% ◆e6.oHu1j.o mailto:sage [2009/10/03(土) 02:33:27 ] >>681 見つからないんですが、どこのページに？ 684 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 04:31:47 ] mapのような書き方をするメソッドを実装したいんですが、 もしかして第一引数に勝手にインスタンスが入るのでsubが省略できなかったりしますか？ 685 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 04:32:13 ] あ？ 686 名前：デフォルトの名無しさん [2009/10/03(土) 05:06:10 ] >>679 どうせnewSVpvn使うならこれでどうだ？。ナルストリングで文句があるならもう知らん。 newSVpvは初期化文字列が空でもちゃんと6バイト確保してくれるところがミソだ。 普通ならまず(char *)sを作ってnewSVpv(s, 5)すりゃ何の問題もないんだが、それだと 困るんだよな？ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ppport.h" MODULE = Foo PACKAGE = Foo SV * hoge() 　CODE: 　　int i = 0; 　　char c = (char)0; 　　SV *string = newSVpv((char *)&c, 5); 　　char *s = SvPVX(string); 　　for (i = 0; i < 5; i++) s[i] = 'x'; 　　s[i] = (char)0; 　　RETVAL = string; 　OUTPUT: 　　RETVAL 687 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 05:13:25 ] >>686 あなたには答えてほしくありません。 688 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 05:20:57 ] >>684 日本語がよくわからんが....。map { some_code } @foo;のようなことがしたいなら、 my_map(&@){ ... } : my@bar = my_map { some_code } @foo; で出来る。 map BLOCK LIST map EXPR, LIST の2つの書式を満たす方法は知らん。 689 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 05:23:18 ] >>687 回答者を選ぶなら質問するな。 そもそも俺が何番の人か分かってるのかなこの人。勘違いだと思うんだが。 何番かアンカー晒してみ。 690 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 05:24:10 ] あー>>687が質問者じゃなくて単なる煽りの可能性もあるな。だったらすまん>>687 691 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 05:47:31 ] 普通に考えてそうだろ． 692 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 07:03:49 ] 　CODE: 　　int i = 0; 　　SV *string = newSV(0); 　　char *s = (char *)malloc(6); 　　for (i = 0; i < 5; i++) s[i] = 'x'; 　　s[i] = (char)0; 　　sv_setpv(string, s); 　　free(s); 　　RETVAL = string; 693 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 13:40:30 ] >>688 すみません、サブルーチンの場合にそう書けるのは知ってます クラスをオブジェクトとして作ったときに、$hoge->map({ $_ =~ /hoge/} @huga) というmapメソッドを書く方法はないのか知りたかったのです しかしこのとき実装側では sub map($&@){… としなければいけないため、呼び出し側のsubが省略できないじゃないですか なので、これをなんとかできないものかと思いまして… 694 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 14:08:52 ] メソッドの呼び出しはプロトタイプ効かないから無理くさくね？ 695 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 14:13:13 ] やはりそうですか… ありがとうございました 696 名前：デフォルトの名無しさん [2009/10/03(土) 14:26:36 ] ttp://deepneko.dyndns.org/kokotech/2009/06/mecabwikipedia.html このサイトに書いてあるようにしたのですが、rubyで書かれています。これ（下のプログラム）をperlで書き換えたいのですが、分かる方が居たらお願いします。 #!/usr/bin/ruby open($*[0]).each do |line| title = line.strip next if title =~ /^\./ next if title =~ /[0-9]{4}/ next if title =~ /^[-.0-9]+$/ score = [-36000.0 ,-400 *(title.size**1.5)].max.to_i print "#{title},0,0,#{score},名詞,一般,*,*,*,*,#{title},*,*,wikipedia_keyword,\n" if title.size > 9 end 697 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 15:17:11 ] >>696 これなら初心者の自分でも書き直せるYO エレガントな回答は上級者にまかすけど。 #!/usr/bin/perl use List::Util qw(max); open my $fh, $ARGV[0] or die $!; while ( my $line = <$fh> ) { my $title = $line; $title =~ s/^\s*(.*?)\s*$/$1/; next if $title =~ /^\./; next if $title =~ /[0-9]{4}/; next if $title =~ /^[-.0-9]+$/; my $score = int max(-36000.0 ,-400 *((length $title)**1.5)); print "$title,0,0,$score,名詞,一般,*,*,*,*,$title,*,*,wikipedia_keyword,\n" if length $title > 9; } close $fh; 698 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 15:49:41 ] >>693 map $hoge (....)とは書けるんだがな。 メソッド呼び出しはリストしか受けないから無理でしょ。 699 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 22:35:23 ] WWW::SourceforgeJP ver.0.0.1 リリース acapulco.dyndns.org/blog/2009/10/03/wwwsourceforgejp 700 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 23:25:10 ] 正規表現でマッチした文字列そのものを取得したいです 例えば "hoge huga" =~ /(\s|\d)/ という正規表現があったとき、 ' 'ではなく'\s'を取得したいです 可能でしょうか 701 名前： ◆TWARamEjuA mailto:sage [2009/10/03(土) 23:30:31 BE:1307243-BRZ(10101)] 可能でしょうねぇ。。。 702 名前：デフォルトの名無しさん [2009/10/03(土) 23:36:15 ] 700じゃないけど、どうすればできるか知りたい。 役に立つ気はしないけど。 703 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 23:46:01 ] (?{})とか(??{})を駆使すればいけるかもしれないけど デフォでそんなインターフェイスは用意されてないっしょ 704 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 00:03:31 ] >>703 ??{}ですか 参考になりました、調べてみますね ありがとうございました 705 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 00:03:35 ] おれも知りたい。 706 名前：700 mailto:sage [2009/10/04(日) 01:55:44 ] こういう感じで元の文字列を取ることができました ありがとうございます perl -e ' use re "eval"; $hoge = q/ho..(?{$str="ho.."})|hu..(?{$str="hu.."})/; "huga" =~ /$hoge/; print "1:$str\n"; "hoge" =~ /$hoge/; print "2:$str\n"; ' 1:hu.. 2:ho.. やりたかったのは %hash = (    '\s+' => 'space',    '\d+' => 'number',    '\w+' => 'word', ); という感じのハッシュのキーを合成して、一番最初にマッチしたものの名前を返す関数の作成だったので、 これでいけそうです 707 名前：700 mailto:sage [2009/10/04(日) 03:45:43 ] なんか変にハマったのでもう一度質問させてください。。。 下のような関数を作りました sub match($@){    use strict;    use re "eval";    my $str = shift;    my @member = @_;    my $regex = join("|", map{ "$_(?{\$ret = q{$_}})"} @member);    my $ret;    $str =~ /$regex/;    return $ret; } 以下の呼び出しを行うと、 print match("hoge 123", qw(\d \w \s)), $/; #=> \w print match(" 123hoge", qw(\d \w \s)), $/; #=> print match("123 hoge", qw(\d \w \s)), $/; #=> となり、思った結果を返してくれませんでした ですが、match関数に渡す配列の順番を変えたところ、 print match("hoge 123", qw(\d \w \s)), $/; #=> \w print match(" 123hoge", qw(\w \d \s)), $/; #=> \s print match("123 hoge", qw(\d \w \s)), $/; #=> \d と、期待通りの結果を返してくれました これは一回通った正規表現に対してはサブパターンは呼び出されないということなんでしょうか。。。 708 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 04:32:58 ] レキサ作ってんのか。。。 709 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 10:06:58 ] >>707 >>706のレス見たときに、関数化してハマるんだろうなーと思ったらマジでハマっててワロタ my $regex → local our $regex my $ret → local our $ret これでどうかな？ 昔、そういうプロギラムを書いていたときには、こいつで回避出来たよ 多分、正規表現リテラルは初回の正規表現コンパイル時に、クロージャのようにローカル環境をキャプチャするけど 再度、同じ正規表現を与えてリテラルのパスを通ってもキャプチャが発生しない なので、正規表現の中ではmy変数は使わず、グローバル変数を使えばOKと 710 名前：700 mailto:sage [2009/10/04(日) 14:05:04 ] >>709 おお！いけました！ ありがとうございます use strictすることでこんな罠が生まれていたとは思いもしませんでした 正規周りは魔物が住んでますね… 711 名前：デフォルトの名無しさん [2009/10/04(日) 16:12:52 ] utf8で書かれた文章をeuc-jpで新しく保存しようとすると開けなくなります 何が原因でしょうか。また解決するにはどうすれば良いでしょうか？ 712 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 17:21:40 ] 777 713 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 17:25:40 ] >>711 use utf8とかその辺りが原因の気が。 714 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 20:45:37 ] >>713 csvファイルなのですがutf8のtext.csvを nkf -e test.csv > test2.csv で変換すると、開けなくなります。 715 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 21:42:37 ] おいおい、言ってることがめちゃくちゃだな。 何をしようとして、何をしたら、どうなって欲しいのに、どうなったか、具体的にキチンと書いてみ。 716 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 22:00:58 ] Web::Scraperでデータの抽出しているのですが XpathをFirebugで取得してWeb::Scraperに処理させると、Xpathがずれてしまいます。 Firefoxのレンダリングでタグが追加変更されているのが原因みたいです。 PerlからFirefoxでレンダリング済みのタグを取得することはできないのでしょうか？ よろしくお願いします。 717 名前：デフォルトの名無しさん mailto:sage [2009/10/05(月) 00:34:57 ] ttable を除去すればいけるけど… そういうことじゃなくて？ 718 名前：デフォルトの名無しさん mailto:sage [2009/10/05(月) 00:42:14 ] >>717 tbody以外にもページによって tr[2]をtr[3]に変えたりとか /table/tbody/tr/tdが追加されてたりとか center/div/div/fontが追加されたりとか 単純なパターンで取れない感じがするので、いっそのことFirefoxでレンダリング済みのソースを perlから取れないかな？と思ったのです。 719 名前：デフォルトの名無しさん mailto:sage [2009/10/05(月) 16:57:25 ] 卒業研究でperlを使うことになったんですが、 linux環境でMeCab.pmのperlモジュールを使用するにはどうしたらいいのでしょうか？ linuxはvine3.2です。 720 名前：デフォルトの名無しさん mailto:sage [2009/10/05(月) 18:33:11 ] フロストバイトエンジンがＰＣ版でどのくらい綺麗になるのか見てみたい 721 名前：デフォルトの名無しさん mailto:sage [2009/10/05(月) 18:35:36 ] >>720 ごめん、ごばった 722 名前： ◆TWARamEjuA mailto:sage [2009/10/05(月) 18:36:03 BE:1742382-BRZ(10101)] >>719 ググればすぐに出てくるんですけれども。。。 ttp://www.alwaysfine.jp/2008/03/spamassassin_32wo.html いわゆる犬学生なんでしょうね。。。 723 名前：デフォルトの名無しさん [2009/10/06(火) 10:51:28 ] . 1. HTML　　　　で検索した結果　1〜10件目 / 約5,040,000,000件 . 2. PHP 　 　　　で検索した結果　1〜10件目 / 約2,970,000,000件 . 3. Java......　　　で検索した結果　1〜10件目 / 約　835,000,000件 . 4. Forth.　　　　で検索した結果　1〜10件目 / 約　323,000,000件 . 5. Ruby..　　　　で検索した結果　1〜10件目 / 約　275,000,000件 . 6. perl.....　　　　で検索した結果　1〜10件目 / 約　245,000,000件 . 7. Python...　 　で検索した結果　1〜10件目 / 約　204,000,000件 . 8. pascal...　　　で検索した結果　1〜10件目 / 約　170,000,000件 . 9. Delphi　　　　で検索した結果　1〜10件目 / 約　127,000,000件 10. VisualBasic...で検索した結果　1〜10件目 / 約　121,000,000件 11. lisp...　　 　 　で検索した結果　1〜10件目 / 約.　 26,700,000件 12. fortran 　 　 で検索した結果　1〜10件目 / 約.　 21,300,000件 13. COBOL　 　 で検索した結果　1〜10件目 / 約.　 18,500,000件 14. HSP 　 　　　で検索した結果　1〜10件目 / 約.　 12,300,000件 15. FreeBasic..　で検索した結果　1〜10件目 / 約　　 6,320,000件 16. Tcl/Tk. 　 　 で検索した結果　1〜10件目 / 約　　 4,940,000件 17. QBasic 　 　 で検索した結果　1〜10件目 / 約　　 4,190,000件 18. VisualC....　　で検索した結果　1〜10件目 / 約　　 1,360,000件 19. DarkBASIC. で検索した結果　1〜10件目 / 約　　 1,320,000件 20. BasicStudio で検索した結果　1〜10件目 / 約　　　 304,000件 21. N88basic. 　 で検索した結果　1〜10件目 / 約　　　 215,000件 22. f-basic 　 　 で検索した結果　1〜10件目 / 約　　　 109,000件 23. ActiveBasic で検索した結果　1〜10件目 / 約. 　 　　89,800件 24. 99BASIC....　で検索した結果　1〜10件目 / 約. 　 　　11,500件 3Dprogramming で検索した結果　1〜10件目 / 約794,000件 2Dprogramming で検索した結果　1〜10件目 / 約. 57,400件 intel で検索した結果　1〜10件目 / 約729,000,000件 amd で検索した結果　1〜10件目 / 約355,000,000件 724 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 11:01:41 ] >>715 保存でeuc-jp指定とnkfで-eとは違うのですか？ 無知ですみません。 725 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 11:37:51 ] >>724 出力はeucって指定してるけど、入力の指定は？ もとのファイルがUTF8だということをnkfに教えてやらなければダメなのかもね。 nkfの説明書をよく読んでみてよ。 726 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 12:06:40 ] ある2種類の要素数が同じ配列データがあって 片方は末尾までデータが入っているのですが もう片方は末尾に半角スペース1個だけが入っています この配列をファイルに書き出す際、前者は全て書き出し、後者は最後の配列のみ書き出さないようにしたいのですが、うまくいきません ループ中に配列aの最後n番目が半角スペースなら書き出さない場合、 if($a[$n] eq " "){ last; } では駄目なのでしょうか 携帯からなので読みにくいですがよろしくお願いします 727 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 12:40:35 ] デバッグという概念が失われて久しい…… 728 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 13:18:59 ] 改行が入ってんだろ 729 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 14:04:23 ] >>726 デバッグしろ。 if($a[$n] eq " ") がヒットしているか調べろ。$a[$n]の中身を調べろ。 730 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 16:09:48 ] perl のデバッガって何がおすすめですか。 731 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 16:17:19 ] Data::Dumperでデータの中身見てDevel::Peekでutf8フラグ見るくらいしかやったことないな 732 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 18:55:01 ] ifの前ぐらいに print "!!! HELLO !!! $n='$a[$n]'\n"; って書いておくといいよ。 733 名前：デフォルトの名無しさん [2009/10/07(水) 01:31:47 ] >>726 if($a[-1] eq " "){ output @a[0..$#a-1]; }else{ output @a; } 734 名前：デフォルトの名無しさん [2009/10/07(水) 01:35:46 ] >>733 pop @a if $a[-1] eq " "; output @a; 735 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 02:18:49 ] 2行の文字列があって、 1行目の文字列を2行目の文字列の任意の場所に挿入 その後1行目を改行ごと削除 という作業はどう書けばいいでしょうか？ 736 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 03:34:48 ] >>735 splitで切って2つの文字列に分けて、substrで1行目を2行目に入れればいい。 737 名前：デフォルトの名無しさん [2009/10/07(水) 07:10:08 ] >>735 日本語が妖しいので確認 入力＞ 2行一組の文字列 出力＞ それぞれの組を1行にまとめた文字列 処理＞ 改行を削除した1行目を2行目の任意の場所に挿入 738 名前：デフォルトの名無しさん [2009/10/07(水) 07:46:29 ] >>736 chomp(@d=<>); for ($i=0;$i<@d-1;$i+=2){ 　$len=length $d[$i+1]; 　substr($d[$i+1],rand($len),0)=$d[$i]; 　print $d[$i+1]."\n"; } 代入型のsubstrって戻り値は代入後の文字列だっけ？ ググっても見つからなかった。 739 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 10:47:16 ] > ググっても見つからなかった。 最近の Perl を良く知らないのですが perldoc などのオフィシャルなドキュメントは存在しないのでしょうか？ 740 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:07:25 ] >>738 どっちかというとperlop(1)のAssignment Operatorsの方をよく読んだ方が いいんじゃない? C と違って、スカラ代入演算子は有効な左辺値を作り出します。代入を修正することは、代入を行なってから、その代入された変数を修正するのと同じことになります。これは、以下のように何かのコピーを変更したいときに便利です: ($tmp = $global) =~ tr [A-Z] [a-z]; (perldoc.jp/docs/perl/5.10.0/perlop.pod) てことなので、 $tmp = "ABCDEF"; $global = "XYZ"; (substr($tmp, 2, 2) = $global) =~ tr [A-Z] [a-z]; とか試してみれば理解できると思います。 741 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 11:12:40 ] >>739 あるよ perldoc -f substr で調べられる 742 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 13:06:10 ] 正規表現で、abもしくはxyもしくは12を含むは、 /ab|xy|12/ と書きますが、ab、xy、12の全て含むはどう書くのでしょうか？ 743 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 13:30:17 ] >>742 ab,xy,12をすべての順列で並べて ab.*xy.*12|ab.*12.*xy|... と書けばいい。 無理に正規表現だけでやらずに /ab/ && /xy/ && /12/ とした方が楽だと思うけどね。 744 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 13:43:19 ] >>743 �d 745 名前：デフォルトの名無しさん mailto:sega [2009/10/07(水) 14:04:22 ] ファイルテスト演算子 -T って、 どうやってテキストファイルだと見破ってるの？ その原理とか注意事項ってある？ 746 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 14:19:45 ] >>745 とりあえずperlfunc読め。 ファイルテスト -T と -B の動作原理は、次のようになっています。ファイルの最初の数ブロックを調べて、 変わった制御コードや上位ビットがセットされているような、通常のテキストには現れない文字を探します。 そのような文字が、たくさん (>30%) 見つかるようであれば、そのファイルは -B ファイルであると判断され ます; さもなければ -T ファイルとなります。最初のブロックにヌル文字が含まれるファイルも、バイナリ ファイルとみなされます。 -T や -B をファイルハンドルに対して用いると、最初のブロックを調べる代わり に、IO バッファを調べます。調べたファイルの中身が何もないときや、ファイルハンドルを調べたときに EOF に達していたときには、-T も -B も「真」を返します。 「通常のテキストには現れない文字ってなんだよ！！」とか言いたくなったら、ソース読むしかないかな。 (pp_sys.cのpp_fttext) でも結局30%だからあんまりアテにすると痛い目を見そうなんで俺は使わないね〜。 747 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 14:31:29 ] マニュアル提示サービスはここですか? 748 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 14:36:29 ] ちがいます 749 名前：デフォルトの名無しさん [2009/10/07(水) 15:16:53 ] >>747 そうです。 ここは、疑問を書けば、マニュアルの該当部分を張ってくれるスレです。 750 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 15:18:04 ] ここは質問スレだよ（´・ω・｀） 751 名前：デフォルトの名無しさん [2009/10/07(水) 15:22:25 ] そうです 質問スレです… 752 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 15:35:33 ] そもそも、マニュアルに書いてあることが質問される時点で異常な状態だということを見失うなかれ。 753 名前：デフォルトの名無しさん [2009/10/07(水) 15:40:44 ] >>739 オフィシャルなドキュメントには記載が見つからなかったのです 754 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 17:17:48 ] >>752 googleで-Tを検索したら何も出てこなかったんだよきっと 755 名前：デフォルトの名無しさん [2009/10/07(水) 22:03:27 ] >>752 じゃあ、substrに代入したときの返り値を調べてみてよ。 756 名前：741 [2009/10/07(水) 23:02:37 ] >>755 あぁ、ごめん。741だけど > 代入型のsubstr この部分に全く目がいってなかったわ my $result = (substr($d[$i+1],rand($len),0)=$d[$i]); この$resultがどうなるかって意味だよね？それなら載ってないかも。俺が普段この書き方しないから空目した 自分で>>735を書くとしたら下のような感じかなぁ my $str =<< "STR"; abcdef\n123456\nghijklmn\n78910223 STR warn $str; my @res; my @lines = split /\n/, $str; while (@lines) { 　　my $line1 = shift @lines; 　　my $line2 = shift @lines; 　　print "num?: "; 　　my $num = <STDIN>; 　　my $length = length $line1; 　　my $post = substr $line2, $num, $length, $line1; 　　push @res, $line2 . $post; } print 　　join "\n", @res, 　　"\n"; 757 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 04:05:10 ] >>755 なにがどう「じゃあ」なんだよwww 758 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 04:53:55 ] $ perldoc -f substr No documentation found for "perlfunc". ＾＾ｖ 759 名前：デフォルトの名無しさん [2009/10/08(木) 06:39:44 ] >>756 マニュアルに記載のない使い方はしないほうがよいのか 代入文だからlvalueが保持されると考えるのがよいのかが知りたかった。 多分、後者だね。 コードについては、ヒアドキュメント使うと柔軟性に難があるから、下記のがいいかも。 @lines=<DATA>; (プログラム末尾) __DATA__ 入力データ 入力データ ： あと、入力が偶数行でなかったときはこけるね。 入力の妥当性を調べるのはプログラムの仕事だよ。 それから、任意ってそういうことだったのかな？ もとの要求が謎の多いものだから、こちらは乱数にしたのだけど。 760 名前：デフォルトの名無しさん [2009/10/08(木) 06:46:42 ] >>756 もう一度プログラム見た。 これ、正しくない。 挿入位置+１行目の長さが２行目の長さより短いと 順がおかしくなる。 761 名前：デフォルトの名無しさん [2009/10/08(木) 09:04:20 ] >>760 おぉ。ホントだ。台風で午前中休みにして暇になったから直した。 無理やりsubstr使う必要なかったな my @lines = split /\n/, $str; die unless $#lines % 2; my @res; while (@lines) { 　　my $line1 = shift @lines; 　　my $line2 = shift @lines; 　　print "num?: "; 　　my $num = <STDIN>; 　　my $post = substr $line2, $num; 　　$line2 =~ s/($post)$/$line1$1/xms; 　　push @res, $line2; } 762 名前：デフォルトの名無しさん [2009/10/08(木) 11:53:43 ] ハッシュ%hogeで $hoge{$a}{$b}{$c}{$d}...{$n} を定義した順番でkeyを keysで取り出したい 普通モジュールの Tie:IxHash を使うらしいけど それだと最初の$aのkeyだけ定義順番でとりだせて %{$hoge{$a}}以降の深い構造でのkeyが 順番どうりならず、ばらばらにkeysで取り出されるようになる どうにかして定義した順番でどの段階でも 取り出せるようにしたいんだけど おしえて下さい。 763 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 12:04:59 ] >>762 キーを配列にとっとけ。 $hoge{$fuga}{$foobar} = 'bar'; push(@hoge, [$a, $foobar]); 764 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 12:07:39 ] $hash{a}{b}に値を入れる前に tie %{$hash{a}}, 'Tie::IxHash'; しておけば、 keys %{$hash{a}}は順番に取り出せるよ。 765 名前：デフォルトの名無しさん [2009/10/08(木) 15:42:29 ] 一度で深いところの値を定義することになるので （このように　$hoge{$a}{$b}{$c}{$d}...{$n}=1） >>764はつかえない あと同じkeyが何回もでてくる可能性があるので>>763 もつかえない （このように　for　$a　（同じのあり） 　　　　　　　　for　　$b　(同じのあり） 　　　　　　　　　　$hoge{$a}{$b}{$c}{$d}...{$n}++ 　） あとでkeyをとりだすとき何回も同じのがでてきてしまう >>763 いい方法ないでしょうか 766 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 15:45:51 ] >>765 配列だから同じキーが何回出てこようとちゃんと 保存されていて問題ないはずだが？ 767 名前：765 [2009/10/08(木) 15:46:38 ] あと tie すると前保持していた値がすべて真っ白になってしまうので 繰り返しのなかに>>764は いれられない状態。 一日なやんでもいい方法が思いつかない 768 名前：デフォルトの名無しさん [2009/10/08(木) 15:52:52 ] a b c d a b c d e f a g a という順番でkeyがでてくるとする とりだすときは a b c d e f g でとりだしたいんだけど できる？>>766 769 名前：デフォルトの名無しさん [2009/10/08(木) 15:57:32 ] >>762 やり方が悪いので、データ構造を見直すべし。 770 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 15:59:54 ] >>768 そんなのすでに取り出したかハッシュで管理してとばせばいいだけだろ。 771 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 16:10:42 ] >>768 それこそハッシュ使って同じキーが出てきたらスキップするようにすればいい。 んで$hoge->{$foo}の階層だけとりだしたいなら、 whlile(@hoge){ 　　next unless $_->[$foo]; 　　my @keys = @$_; } で取り出せるだろ。あ、あと>>763は間違いがあった。 間違い $hoge{$fuga}{$foobar} = 'bar'; push(@hoge, [$a, $foobar]); 正しい $hoge{$fuga}{$foobar} = 'bar'; push(@hoge, [$fuga, $foobar]); 772 名前：デフォルトの名無しさん [2009/10/08(木) 17:35:28 ] もしかしてこういうのでいいってオチか？ print sort keys %hash; もしくは print map $hash{$_}, sort keys %hash; 773 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 18:44:55 ] よくわからんが、各層のキーをjoinしたものをハッシュキーにして Tie::IxHashを使えばいいんじゃないのか。 774 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 21:00:34 ] Perlで/etc/shadowに使うSHA512化されたパスワードを作ろうとしているのですが /etc/shadowとsaltとpasswordを同じにしても出てくるハッシュが一致しません。 もし他によい方法があれば教えて下さい・・・ #!/usr/bin/perl use strict; use Digest::SHA qw(hmac_sha512_base64); my $sha = hmac_sha512_base64("password","salt"); print "$sha\n"; 775 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 22:25:23 ] Webリソースのバイト数を取得するモジュールって何かありますか？ 776 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 23:12:20 ] >>775 Webリソースって具体的に何だ？ 777 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 23:20:33 ] >776 タイミングが悪くて非常に申し訳ない。 自己解決しました^^; ダウンロード対象のつもりでした。html,zip,etc… 778 名前：デフォルトの名無しさん [2009/10/08(木) 23:21:56 ] perlってsocks串刺せますか？ 779 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 23:27:55 ] uaでいいんじゃないのか？ 780 名前：デフォルトの名無しさん [2009/10/08(木) 23:28:35 ] ua… LWP？とかいうのと関係ありますか？ 781 名前：デフォルトの名無しさん [2009/10/09(金) 05:57:46 ] >>774 目的はクラッキング？ フツウの人はシャドウなんていじらないもんな。 782 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 07:14:21 ] Pealのデバッガで変数を強制で変えるコマンドってある？ 初心者な質問ですまん 783 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 07:45:58 ] perlな 784 名前：デフォルトの名無しさん [2009/10/09(金) 08:52:12 ] >>782 普通に代入じゃだめなのん？ 785 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 09:14:52 ] >>774 そういうシステムならcryptもsha512対応してると思うので そっち使えばいいと思う。同じライブラリ呼ぶので確実な 筈だよ。 print crypt('password', '$6$salt'); 786 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 14:08:33 ] >>774 車道クラックか？ >>777 解決したならそれを書くのが筋。HTTPレスポンスのことならHTTPヘッダの Content-Length: 行で取れるよな。 >>782 スカラ型の内部値を変えたいのか？質問の意図がよくわからん。 数値にしたけりゃ $foo += 0; 文字列にしたけりゃ $foo .= ''; 内部的にリファレンスとか整数型にしたいとかだったら簡単な方法は知らん。 787 名前：774 mailto:sage [2009/10/09(金) 17:07:06 ] >>785 普通にcryptで出来るんですね・・・ありがとうございました。 >>781 >>786 趣味で自宅サーバーをやっているのですが Perlからsystem関数でuseraddを使うためです。 誤解を招く質問をしてしまい申し訳ありません。 788 名前：777 mailto:sage [2009/10/10(土) 03:46:06 ] >786 おっしゃる通り、HTTPレスポンスから取得出来ました。 Perlの質問ではありませんでした… 789 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 01:53:02 ] 自己解決しましたっつーのは自分が苦労して答えを導き出せたから 掲示板に答えが書かれてしまうと自分の苦労の価値が下がってしまうから それを避けるための自慰行為。 「Webリソース」とか書くようなバ力は788なんかじゃなくてwcとかで解決したつもりだろ。 790 名前：デフォルトの名無しさん [2009/10/11(日) 03:25:57 ] >>787 お陰さまで私も勉強になりました。 今時のシステムはパスワード暗号化にsha512使ってるなんて 知りませんでしたから。 うちのシステムは何を使ってるんだろ？ 791 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 20:13:01 ] gzファイルをgzopenを使って読み込みこむことはできたんですが 日本語が文字化けしてしまいます 普通のtxtファイルなどは日本語でも文字化けしません どうしたらいいんでしょうか 792 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 20:20:33 ] >>791 使うな。 793 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 20:25:11 ] gzopenを使うなってことですか？ 794 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 20:54:51 ] perlを使うな 795 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 21:03:41 ] perlだとできないんですか？ それじゃphpでやってみます・・ 796 名前：デフォルトの名無しさん [2009/10/11(日) 23:57:04 ] 連想配列について質問です。 たとえばkeysでとりだしたハッシュの順序は一定ではないそうですが、 何回もperl *.plで実行しても同じ順序でキーが取り出されます。 ハッシュの順序はOS依存なんですか？それともperlのバージョン依存なんですか？ 同じ環境のもとで同じプログラムにした場合はkeysでとりだされるキーも同じ順序になるのですか？ 797 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 00:12:59 ] ハッシュ依存じゃないの？ 798 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 00:17:12 ] ＞一定ではないそうですが これは誰から聞いたの？ 799 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 00:35:34 ] 別に乱数は使ってないよ 800 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 00:51:45 ] 一定ではないというのは環境によるんだろうが ハッシュに順序の保障を求めるべきではないとは思う 順序の保障が欲しければリストを利用/併用すべきだろうな 801 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 01:24:16 ] perlのバージョン依存。 perl5.10.0のperldoc -f keysでは、 =========== 超訳。 perl5.8.1までは、セキュリティー上の理由から、 keysはプログラムを実行する度に違う順序で取り出されてた。 （順番自体は見た目上ランダムに決定されてる。ただし、 同一プロセス内で、hashに変更が無いならeach, valuesでも keysと同じ順である事は保証される。） =========== 暗に「より新しいperlではkeysはhashに変更が無いなら プログラムを複数回実行しても同じ順に取り出される。」 と言ってはいるが、それをkeysのperldocでは明文化は してない。 ここまで調べて面倒になった。 俺も>>800氏と同じ見解だし。 802 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 01:32:14 ] うそっ わざわざランダムにしてたんだ for (keys っていう処理はするけど、大抵はsortとセットだから気にしたこともなかった 803 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 02:52:49 ] >>801 逆だ。5.8.0までは特定の順序で取り出されていたのを、 5.8.1以降で変わるようにしたんだ。 perldoc.perl.org/functions/keys.html > Since Perl 5.8.1 the ordering is different even between different runs of Perl > for security reasons (see "Algorithmic Complexity Attacks" in perlsec). perldoc.perl.org/perlsec.html#Algorithmic-Complexity-Attacks perldoc.jp/docs/perl/5.10.0/perlsec.pod 804 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 03:59:09 ] セキュリティが理由なら、止めてしまう訳ないしな 805 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 05:43:17 ] 質問です。サブルーチンの途中でreturnせずに戻り値を返すことは可能でしょうか？ 長文処理の自作モジュールに引数としてファイル名を渡し、 サブルーチン内でopen、while(各行処理)、closeまで行なっています。 行数が数千行になるので各行で処理を終えたい（＠本文のようなリストは作りたくない）のです。 現在サブルーチン内で各行をprintしていますが、どうもスマートではないと思い質問しました。 いまの状態を簡易に書くとこんな感じです。 （呼び出し側） $foo->get('file') （package foo内のサブルーチン） sub get { my $self = shift; my $file = shift; open my $in, "< $file" or die($!); while (<$in>) { #ここで各行を処理してprint } close $in; return 1; } 素直に呼び出し側でファイルを開いて行単位でサブルーチンを呼ぶべきかとも思うのですが、 それもなんかスマートでない気がしてモヤモヤしています。よろしければ方向性だけでも示唆ください。 806 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 06:03:32 ] コルーチン

---

---

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

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