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 あたり 331 名前：デフォルトの名無しさん mailto:sage [2009/03/16(月) 23:58:47 ] $data = "19:09:34 hoge 294"; if($data =~ /\d\d:\d\d:\d\d \d*/){     print "マッチ\n"; }else{     print "マッチせず\n"; } 「数字数字:数字数字:数字数字 いくつかの数字」という文にだけヒットさせたいんですが、 何故か余計な文字の入っている上の文でもヒットしてしまいます。 どうしてヒットしてしまうんでしょうか？ 環境：This is perl, v5.8.8 built for MSWin32-x86-multi-thread 332 名前：331 mailto:sage [2009/03/17(火) 00:01:27 ] *だと\dが0の場合も含まれるんでした。 *を+にしたらうまくいきました。 333 名前：デフォルトの名無しさん [2009/03/17(火) 00:42:36 ] 関数のreturn値って成功の場合1で、失敗の場合0が普通なのでしょうか？ 標準関数はこのパターンが多いような気がします。 シェルスクリプトの場合だとたいてい逆ですよね？ 334 名前：デフォルトの名無しさん mailto:sage [2009/03/17(火) 07:18:18 ] 成功の場合に真を、失敗の場合に偽を返す って考えれば Perlの関数の多くも コマンドの終了コードも同じ 335 名前：デフォルトの名無しさん mailto:sage [2009/03/17(火) 08:34:52 ] ↑ アフォ？ 336 名前：デフォルトの名無しさん mailto:sage [2009/03/17(火) 16:16:53 ] >>333 そだよ だからsystem関数の使い方には注意 Perl6では、system関数の戻り値もPerlの流儀になる 337 名前：デフォルトの名無しさん mailto:sage [2009/03/17(火) 20:36:43 ] 引数がAから始まって、後が全部数字かどうかチェックするのって if($ARGV[0] =~ /^A+[0-9]$/) でいいのかな 338 名前： ◆TWARamEjuA mailto:sage [2009/03/17(火) 20:38:57 BE:3920966-BRZ(10001)] >>337 おしいかも。 /^A[0-9]+$/ でもその前にchomp入れた方がよいかも♪ 339 名前：デフォルトの名無しさん mailto:sage [2009/03/17(火) 20:47:23 ] おおお、なんと優しい ありがとーｗ 340 名前：デフォルトの名無しさん mailto:sage [2009/03/17(火) 23:20:12 BE:309540375-PLT(54324)] /\AA[0-9]+\z/ 341 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 04:15:45 ] xms 342 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 09:46:26 ] \d+はダメなの？ 343 名前：311 mailto:sage [2009/03/18(水) 10:41:45 ] >>316 時間が空いてすいません。 ^Z(1A)はシグナルなのでそもそもファイルからは渡せないもんなんでしょうか？（単にデータとして受け取られる） 問題は、通常のプログラムから標準入力を渡した場合なのですが、これもファイルから渡したのと同様になる ものなのでしょうか？ つまり、何かのデータをフラグと見立てて、それを検出したら終了、というような作業が必要なものか、と。 344 名前：311 mailto:sage [2009/03/18(水) 10:44:13 ] >>323 期待する動作は、プログラムで1Aを送ると終了して欲しい、ということです。 ターミナルやコマンドプロンプトなどで、^Zを送ったときと同じような動作を期待しています。 345 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 10:44:39 ] >>342 \d や \w はロケールや UTF-8 フラグによってマッチする文字が変わる。例えば全角数字。 $ は改行の直前にもマッチするので、"A10\n" =~ /^A[0-9]+$/ が真となってハマる初心者多し。 ^ は /m が指定されていない限り文字列先端にしかマッチしないので、\A だとやや偏執的 とも感じる。用心深いに越した事はないけれど、/\AA よりは /^A の方が見た目がスッキリ して読みやすい。 perldoc.jp/docs/perl/5.10.0/perlreref.pod perldoc.jp/docs/perl/5.10.0/perlretut.pod 346 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 11:35:38 ] >>344 1Aが入ってきたら終わるように書けばいいだけ。 347 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 16:01:22 ] Perl業界におけるPerl 6の立ち位置がよく分からないんですが、 雰囲気的にはどんな感じなんでしょうか？ 348 名前：デフォルトの名無しさん [2009/03/18(水) 16:24:04 ] >>347 Web業界に限って言えば様子見ムード。 349 名前：デフォルトの名無しさん [2009/03/18(水) 16:28:27 ] Parrot1.0が出ましたが、これ使うと何が出来るようになるんですか？ 他言語との連携が楽になるだけ？ 350 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 16:40:10 ] >>344 CP/Mからの呪縛。 DOS(Windows)とUNIXそれぞれの、改行コード、終端コード、 テキストモード、バイナリモードについて、ググるなりして理解するのが先。 351 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 18:44:37 ] >>345 �d 352 名前：デフォルトの名無しさん mailto:sage [2009/03/18(水) 20:17:40 ] >>344 だから 0x1a が EOF と思ってる時点で間違ってる まずここを理解しろよ CTRL-Z 押下は EOF を送るための特殊な操作であって、 それが歴史的な理由で CTRL-Z (0x1a)になってるだけであって 0x1a を送れば EOF になるわけじゃない。 353 名前：デフォルトの名無しさん mailto:sage [2009/03/19(木) 01:24:01 ] >>344 if (ナントカ eq "\x1a") { exit } こういう発想は思いつかんの？ 354 名前：311 mailto:sage [2009/03/19(木) 07:08:15 ] >>346 >>352-353 理解しました。ありがとう。 355 名前：デフォルトの名無しさん [2009/03/20(金) 02:20:00 ] @a = ('1','2','3','4','5','6') @b = ('2','3') という配列があった時に、@aから@bを削除して @c = ('1','4','5','6') を作りたいのです。ループ回すしか無いのでしょうか? 大崎氏(www.din.or.jp/~ohzaki/perl.htm#ArrayUnique)の、 # 配列 @array から重複した要素を取り除く { my %count; @array = grep(!$count{$_}++, @array); } みたいな華麗な手法があるなら知りたいです。 356 名前：デフォルトの名無しさん mailto:sage [2009/03/20(金) 03:24:57 ] @count{@b} = @b; @array = grep(!defined($count{$_}), @a); 357 名前：デフォルトの名無しさん mailto:sage [2009/03/20(金) 05:09:05 ] @c = grep{!((join ',', @b) =~ /(?:^|[^0-9])$_(?:[^0-9]|$)/)} @a; すごく…力わざです… 358 名前：デフォルトの名無しさん mailto:sage [2009/03/20(金) 06:47:02 ] >>355 みたいなじゃなくてそれ使えよ 359 名前：デフォルトの名無しさん mailto:sage [2009/03/20(金) 16:49:14 ] >>355 use Array::Utils; @a = ('1','2','3','4','5','6'); @b = ('2','3'); @c = Array::Utils::array_diff(@a, @b); # (1,4,5,6) 360 名前：デフォルトの名無しさん [2009/03/20(金) 16:52:41 ] >>359 最近ではそういうのを華麗というのか？ 361 名前：デフォルトの名無しさん mailto:sage [2009/03/20(金) 17:25:05 ] モダン(笑) 362 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 21:33:12 ] 教えてください。恥ずかしいんですが... sample.html -------------------- <html> 2009-03-20 </html> -------------------- yyyy-mm-dd.pl -------------------- #!/usr/bin/perl use Time::Local; ($s, $mi, $h, $d, $mo, $y, $w) = localtime(time); $lastupdate = sprintf("%04d-%02d-%02d", $y + 1900, $mo +1, $d); $yesterday = sprintf("%04d-%02d-%02d", $y + 1900, $mo +1, $d-1); s/$yesterday/$lastupdate/g sample.html; -------------------- 363 名前：362 mailto:sage [2009/03/21(土) 21:34:06 ] (続き) sample.html内の2009-03-20を2009-03-21に置換したいのですが、 これじゃだめなんですよね? どうしたらいいでしょうか。 ちなみに、ワンライナーっていうんですよね、それで $ perl -i -p -e 's/2009-03-20/2009-03-21/g;' sample.html みたいにすると置換できましたが、s/foo/bar/のfoo, barの部分に 変数を使いたいんです。 目的は、社内LANで公開しているweb(html)内の最終更新日時の表示を、 ちょっとした理由から、毎朝午前5時とかに、その日の日付に変えること、です。 よろしくお願いします。 364 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 21:45:51 ] >>363 javascriptじゃだめなの？ 365 名前： ◆TWARamEjuA mailto:sage [2009/03/21(土) 21:51:44 BE:3484984-BRZ(10001)] 04月01日だと、$yesterdayに04月00日が生成される伊予柑♪ 366 名前：362 mailto:sage [2009/03/21(土) 22:00:24 ] しくしく。。。いじわるですね。。。というか遊ばれていますね。。。 javascriptでもいけるんでしょうか。 それから、おっしゃるとおり04月00日になりそうですね。 perlで行くとしたら、そこは勉強して、何とか回避策を考えようと思います。 WSH, perl, あと何だろう、いくつか候補を考えたのですが、perlは まったくといっていい初心者です。sedも。正規表現は理解はしている つもりですが使ったことがあまりないです。 どんな手段でもよいのですが、何となくperlがよさそうだと思って、 この板に来てしまいました。。。 あらためて、どんな手段(言語、手段、ツール)がいいかを含めて 教えてください。<(_ _)> 367 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 22:11:34 ] >>362 1)　SSIで最終更新日時を書くのが楽 2) Perlでやるなら、File::Slurpで読んでDateTimeで計算するのが楽 かね。 そもそも、 A) sample.htmlにベタ書きしてある最終更新日時の翌日を書けばいいのか、 B) sample.htmlの最終更新日時をただ表示すればよいのか（上記1.でよい）、 そのあたりの要件がはっきりしません。 更新日時についても、営業日でなくて暦日で良いのか、とか。 ちょっとまってね、これから書くから。 368 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 22:15:53 ] 明らかにSSIが楽。 369 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 22:19:42 ] # YYYY-MM-DDをその翌日に置き換える場合 # ただし13月32日とかも引っ掛かって甘いので注意 # しかも、最終更新日以外でも、くだんの正規表現に引っ掛かった値が変換されるので注意 use strict; use warnings; use File::Slurp; use DateTime; my $file_name = q{sample.html}; # $ARGV[0]とかの引数で渡すとか好きにして my $file = read_file($file_name, array_ref => 1); LINE: foreach my $line (@$file) { $line =~ s{ (\d{4}) - (\d{2}) - (\d{2}) }{ DateTime->new(year => $1, month => $2, day => $3) ->add(days => 1) ->ymd(); }xmse; } write_file($file_name, $file); 370 名前：362 mailto:sage [2009/03/21(土) 22:19:54 ] すみません... そもそも、から行きますと、 A) sample.htmlにベタ書きしてある最終更新日時の翌日を書けばいい です。 営業日ではなく暦日でOKです。 土日祝日もインフラが停止しなければ365日毎朝更新したいです。 というのは、会社のデータベースからあるまとまった形のデータを Excel形式で落としてきて、それにパスワードをかけて、所定のフォルダに アップロードし、それを地方拠点にイントラウェブで提供します。 最終更新日を更新したいというのは、そのアップロードの案内ページなんです。 データを落としてきて、パスワードをかけて、所定のフォルダにアップロード するところまでは、マクロとMS-DOSのバッチファイルとタスクスケジューラと、 恥ずかしいうにょうにょなやり方でどうにか実現しました。 が、そうしたところ、案内のhtmlファイルも自動で日付を変えられるだろうと、 偉い人から言われまして... 371 名前：369 mailto:sage [2009/03/21(土) 22:22:40 ] Template-Toolkit(Template)とかHTML::Templateを使う手もあるね。 ただ、>>370の書き方を見ると、 土日でもアップロードされたデータが更新されているなら、 touch sample.html してアップロード案内ページだけ最終更新日時を変えれば、 A)はB)と同じになるよね。 そうすればSSIでもやれるんじゃないかな？ 372 名前：362 mailto:sage [2009/03/21(土) 22:22:46 ] >>369さんありがとうございます。 さっそく明日試してみます。 SSIについては鯖管さんに相談してみます。 そういうとこ、小回りのきかない、相談窓口も親身になってくれない 会社です。。。 373 名前：369 mailto:sage [2009/03/21(土) 22:26:43 ] うい、367=369=371れす。 鯖管は別なのか……。 まあ、SSIを検討してみてよ。日曜なのに大変だね。 もしPerlでどうしてもやりたいなら、>>369を使う場合、 DateTimeとかFile::Slurpは標準では入っていないから、 CPANから導入出来るかも聞いておいて。 374 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 22:29:14 ] あー、LINE:も要らないし（逐行処理の名残）、そもそもよく考えたら my $file = read_file($file_name, scalar_ref => 1); して $file =~ s{略}{略}xmseg; すりゃよかったか。 しつこくてごめん。 375 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 22:33:23 ] さらにしつこいが、scalar_refするなら$$fileを置換に突っ込むんだった罠。 チラ裏。 >>322が気になった今日この頃。比較表とかないかな？ 376 名前：362 mailto:sage [2009/03/21(土) 22:40:12 ] 重ね重ね、ありがとうございます。 日付を表記するのに、yyyy-mm-ddは、そのhtmlファイルでその更新日の 部分だけにしてあります。よくわからないなりに、ここだけは見つかるように、 ここだけの形にしておかなければいけないだろうと思いました。 CPANからの導入についても明日確認してみます。 正規表現の本もperlの本も、いつか勉強しなければと積ん読になっています。 (恥ずかしながら) ところで私、普段はぜんぜん違う板の住人です。切羽詰まってここに来ました。 こんなに速くレスをいただけるとは思っていませんでした。 本当にありがとうございます。 perl、勉強しますね。今はお金とか在庫とかの勘定ばかりやっていますが、 小学生の頃はベーマガとかで勉強したクチです。 おやすみなさい。 377 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 22:41:04 ] PBPとtokuhiromの受け売りだが、 13月32日に引っかけないためにはRegexp::Commonを使おう 378 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 00:28:52 ] >>369 これはちょっとマズいんじゃないの？ コメントでは YYYY-MM-DD と書いてるけど、実際の処理が \d{4}-\d{2}-\d{2] では、全然年月日じゃない文字列にもマッチしかねない。 もちろん年月日かどうか完璧な判定はできないけど、 >>362 にあるようにマッチさせる文字列が昨日の日時でいいなら そういう風に限定すべき 379 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 01:19:26 ] 某所で再びFizzBuzz問題がはやっているようなのでPerlで書いてみました！添削してください！ perl -e 'for ($n=1;$n<16;$n++) {my$res;!(($n%3||($res="Fizz"))&&($n%5||($res=$res."Buzz")))||($res&&print "$res\n")||(print "$n\n");}' 380 名前：戦犯369 mailto:sage [2009/03/22(日) 02:48:29 ] >>378 thxです。 ついでに、sample.htmlのエンコードを考慮してみた。 # UTF-8（BOMなし）で保存してね use strict; use warnings; use utf8; use DateTime; use Encode::Guess; use File::Slurp; # ファイルの中身を変数に突っ込む my $file_name = q{sample.html}; # $ARGV[0]とかの引数で渡すとか好きにして my $file      = read_file($file_name, scalar_ref => 1); # ファイルのエンコードを類推して、UTF-8に変換する # 決め打ちならこんなことをせず、use Encodeしてdecode, encodeする my $encoding  = guess_encoding($$file, qw(cp932 euc-jp utf8)); die "Can't guess"     unless ref $encoding; if ($encoding->name() ne 'ascii' || $encoding->name() ne 'utf8') {     $$file = $encoding->decode($$file); } # 昨日のYYYY-MM-DDを得る my $yesterday = DateTime->now(time_zone => 'local')                         ->add(days => -1)                         ->ymd(); # つづく 381 名前：戦犯369 mailto:sage [2009/03/22(日) 02:49:50 ] # つづき # >>362式なら # my (undef, undef, undef, $day, $month, $year) = localtime(); # my $yesterday = sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day - 1); # ファイルの中身で昨日のYYYY-MM-DDに合致すれば変換する $$file =~ s{     ($yesterday) }{     # ファイルに書いてある最終更新年月日（昨日）を、     my ($year, $month, $day) = split q{-}, $1;     # 翌日（つまり今日）に変換する     DateTime->new(year => $year, month => $month, day => $day)             ->add(days => 1)             ->ymd();     # >>362式なら     # sprintf("%04d-%02d-%02d", $year, $month, $day + 1); }xmseg; # ファイルのエンコードを元に戻す if ($encoding->name() ne 'ascii' || $encoding->name() ne 'utf8') {     $$file = $encoding->encode($$file); } write_file($file_name, $file); __END__ まあ、 SSI > テンプレート使用 > ベタ置換 の順が楽なんだろうけど。 382 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 02:57:58 ] なにを持って善しと成すのかわからんけど、俺も作ってみた perl -e 'for(1..15){my$r;$_%3or$r="Fizz";$_%5or$r.="Buzz";$r or$r=$_;print"$r\n"}' 添削してくだちぃ 383 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 03:12:33 ] 個人的には、勉強するためならいきなりCPANに頼るのはどうかと思った。 いきなりDateTimeを使わずにsprintfでやった方がいいし、 いきなりFile::Slurpを使わずにopen関数を使った方がいいと思うけど、 面倒くさすぎて放り投げられるとPerlスキーとしては寂しいので、 CPANに依存してみた。今は反省している。 FizzBuzzについては、 1. 要件を実現出来ているんなら、 2. ワンライナーなら、 3. FizzBuzzでゴルフしたり難読化選手権を開くんじゃなければ、 多少腕白でもいいと思うけどね、俺は。 敢えてPBP的に見ても、 a. C的なforでなくforeachを使おうとか、 b. $_でなくてちゃんとforeach my $num (1 .. 15)にしようとか、 c. ""で括らなくていいときは''で括ろうとか、 そんなつまらない指摘しか出来ないけど。 あとはあれか、>>379なら、C的なforをどうしても使うときは、 $n <= 15の方が直感的とかか。 384 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 03:20:37 ] あ、うそ、ごめん。 >>381の二つめの>>362式は、3月32日になるｗ ゆえに素直にDateTime使おう。 385 名前：379 mailto:sage [2009/03/22(日) 03:36:54 ] >>382-383 ありがとうございます！>>382さんのコードの方がPerlっぽくていいですね。 ぼくのはJavaとかでも使えるテクしか使ってないや。 最近Perlはワンライナーしか書かなくなってさっぱり鈍ってしまった。 386 名前： ◆TWARamEjuA mailto:sage [2009/03/22(日) 10:10:15 BE:6861097-BRZ(10001)] 1日前ってそんなに難しいのかしら？ time - 86400 でよさそうな。。。 387 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 10:34:11 ] うるう秒をちゃんと扱わないシステムならな 388 名前：デフォルトの名無しさん [2009/03/22(日) 11:15:10 ] >>387 UNIX時はどれも閏秒は算定してないと思うが。 システムによって現在のUNIX時が食い違ったら困るだろ。 389 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 13:00:39 ] 超頭悪い会話が繰り広げられている 390 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 13:15:46 ] >>389 >>389 391 名前：362 mailto:sage [2009/03/23(月) 05:38:24 ] おはようございます。 ご報告が遅くなりました。 >>381さんに教えていただいたスクリプトを昨日、会社で使って (ファイル名など一部変えました)、まだ1日(1回)だけですがテストとしては うまく動いたようです。 今朝出社してうまく書き換わっているかどうか。これから出勤です。 うまくいったら引き続き使います。 ではみなさま、また縁がありましたらどうぞよろしくお願いします。 392 名前：デフォルトの名無しさん [2009/03/23(月) 07:49:00 ] >>389 仕様上はどちらでもいいことになっているが、先発製品との互換上、 どのシステムもうるう秒は算定していない。 うるう秒はいつ発生するか算定できないからどっかから情報取得する必要があるし、 tarファイルを移転する時とか、NTP使う時とか困るだろ。 よほど金融系のシステムとかでなければ、NTPクライアントを随時走らせておけば大きな支障はない。 393 名前：デフォルトの名無しさん mailto:sage [2009/03/23(月) 09:22:29 ] いちおうtzfile(5)とか見ればわかるけどうるう秒扱えるようにはなって いるんだよね。 実用上はうるう秒のたびに時計を進めたり戻したりして1日の秒数は 一定としてしまうのが楽な場合がほとんどだから設定した例は自分の 周りでは見たことない。 天文とかは過去のある時刻との間の時間みたいのをきっちり出せない と困りそうだけど。 394 名前：デフォルトの名無しさん mailto:sage [2009/03/23(月) 09:23:10 ] うるう秒を勘案するシステムは存在しないってこと？ 395 名前：デフォルトの名無しさん [2009/03/23(月) 13:06:04 ] >>394 一般的なUNIXtimeの扱いの話であって、 そういったシステムが存在しないとは誰も言ってない。 極端な話、協定世界時を管理してるシステムなんかは当然勘案しなきゃ困るでしょ。 396 名前：526 [2009/03/24(火) 19:51:11 ] ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。 debian etch の上で、perl-tk をいれて触っています。 どうにも日本語が表示されませんので、どなたか詳しい人、アドバイスをお願いします。 perlは、 v5.8.8 perl-tkは、804.027-7 です。 よろしくお願いします。 397 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 04:25:03 ] エスパーじゃないんだからさ、それじゃ答えようがないよ。 とりあえず>>4 あとやったこと書け 398 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 14:49:23 ] ここで聞くのが適切かどうか心配ですが、違ったら誘導願います。 昨日から体の具合が悪いんですが、何かの病気でしょうか？ どなたか詳しい人、アドバイスをお願いします。 どんな薬を飲めばいいですか？医者に診せたほうがいいですすかね・・・ 何科の医者に行けばいいですか？ よろしくお願いします。 399 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 14:53:25 ] エスパーじゃないんだからさ、それじゃ答えようがないよ。 400 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 17:06:54 ] @test 赤、A、あ、　　　#$test{0} 黄、A、い、　　　#1 青、A、あ、　　　#2 赤、B、あ、　　　#3 赤、C、い、　　　#4 青、A、あ、　　　#5 例えばこういう配列があったとして 各項目ごとに一番多い文字列（赤 A あ）をそれぞれ取り出したいんですがどのようにすればいいんでしょうか？ 401 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 17:28:24 ] 「こういう配列」 402 名前：デフォルトの名無しさん mailto:sage [2009/03/25(水) 17:36:06 ] >>400 my @dat = ( 'red,A,a', 'yellow,A,b', 'blue,A,a', 'blue,B,a' ) ; my @cache ; for ( @dat ){ my $cnt = 0 ; $cache[$cnt++]->{$_} ++ for split /,/ ; } printf "%s\n", sort { $_->{$b} <=> $_->{$a} } keys %{$_} for @cache ; 日本語？ => 自分で考えて 同じ個数の物があったら？ => 知らん。 403 名前：デフォルトの名無しさん [2009/03/25(水) 23:32:24 ] ○○.cgiのプログラムで、 「exec △△.pl $param1」とexecを使用して呼び出しても、 呼び出し先の△△.plが実行されないです。 環境が原因と思うのですが、 初心者で何が原因かわからないです。 404 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 12:16:36 ] >>400 二次元配列のようでもあるし、コメント見るとハッシュにしてるし… せめてPerlの書式で書いてくれ 405 名前：400 mailto:sage [2009/03/26(木) 18:21:17 ] >>402 レスありがとうございます。 ただちょっと仕様を変更したので、普通の配列の中から一番多い要素を取り出すものに変えようと思ったのですが、 初心者なため>>402のコードでわからない部分があり、改良することができません。 どなたか配列の中で一番多い要素を取り出すサブルーチンを書いていただけないでしょうか。 406 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 18:50:35 ] >>405 いくら出すかも書いておくと話が早いよ 407 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 18:52:32 ] www.seshop.com/detail.asp?pid=6160 『10日でおぼえる Perl /CGI入門教室 第2版 』2005/9/5発売。 を購入しようと思っています。 この書籍が出た時点のバージョンのＰｅｒｌをＷｉｎｄｏｗｚ　Ｖｉｓｔａで 動かすことは可能でしょうか？バクがでたりエラーなどは大丈夫でしょうか？ これからＰｅｒｌを勉強するので詳しいことはわかりません。 なお、ＰＨＰ関連の書籍に付録で付いていたＸＡＭＰＰ１．６．５はインストール済みで 少なくともＶｉｓｔａで動作確認済みとＰＨＰの書籍にありました。 どなたか回答よろしくお願いいたします。 408 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 19:32:34 ] perl タダなんだから、自分でダウンロードして確かめてみればいいじゃん。 409 名前：405 mailto:sage [2009/03/26(木) 20:37:12 ] しくしく。。。 どう書けばいいのかわからないんです、アドバイスください @array = ('マグロ','鯛','イワシ','鯛','マグロ','鯛'); &extract(@array); #一番多い要素を書き出す sub extract { foreach (@_) { $hash{$_} ++; } while (($key, $value) = each(%hash)) { push(@test, $value); } @sort = sort{$b <=> $a} @test; $shift = shift(@sort); $aa = $hash{$shift}; print "$aa"; } 410 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 20:44:10 ] っ「List::Utilのmax」 411 名前：デフォルトの名無しさん mailto:sage [2009/03/26(木) 22:47:29 ] >>409 初心者をあまりいじめるのも可哀想なのでとりあえず書くけど、正直なところもっとちゃんと自分で調べてほしい。 >>402 のヒントがあれば本を読むなりウェブでリファレンスを引くなりして調べようがあるとおもう。 人のコードを盲目的にコピペするのではなくて、ちゃんと一行一行やってることを理解するようにしないと上達しないよ。 シンタックスシュガーはあえて封じた。 use strict; use List::Util qw(max first); my @data=('foo','bar','poo','foo'); my %cache; foreach my $entity(@data) { 　$cache{$entity}=$cache{$entity}+1; } my $maxval=max(values(%cache)); my $res=first(sub{$cache{$_}==$maxval},keys(%cache)); print $res."\n"; 412 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 17:23:43 ] >>409 #一番多い要素を書き出す sub extract { foreach (@_) { $hash{$_} ++; if($max < $hash{$_}){ $max = $hash{$_}; } #追加 } while (($key, $value) = each(%hash)) { if($value == $max){ print $key,"\n"; } #追加 } } 413 名前：デフォルトの名無しさん mailto:sage [2009/03/28(土) 20:50:08 ] sub extract{ 　my %hash; 　my $res = $_[0] ; 　for ( @_ ){ next if ++ $hash{$_} < $hash{$res} ; $res = $_ ; } 　return $res ; } 414 名前：デフォルトの名無しさん [2009/03/30(月) 04:58:54 ] リストの略記法って (1..10) しかないんでしょうか (1がずっと続くよ) みたいな書き方が知りたいです 415 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 07:28:29 ] (1) x 10 416 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 09:31:19 ] DB_Fileってundefは保存できないんですか ""とundefどうやって区別したらいいんでしょうか 417 名前：デフォルトの名無しさん mailto:sage [2009/03/30(月) 10:15:31 ] >>415 どもです 418 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 13:31:20 ] 分類と項目が並んでいるリストがあったとして 各項目はいくつかの分類のどれかに属していて、 分類ごとにまとめて処理をしたいので、 項目のリストを分類別に作りたい for (keys %class) { 　for (@items{$_}) { みたいに配列の連想配列が使えるといいのだけれど 何かスマートな解決法はありますか 419 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 13:37:48 ] PerlでWebからのレスポンスを標準出力すると文字化けが発生してしまいます 色々とエンコードも試したのですが解決しませんでした 文字コード判別もなぜか失敗しました ↓がDumpした結果ですが、文字コードは何なのか教えてくれませんか SV = PV(0x1cffd24) at 0x1bbe7e4 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0x1832f24 "G\"\22w\221U\207L\241\300\361l\16\326ao\352d\351\30\265m\303Ox \203\24\213\2262\273\271\274\5\273S\307\323\367b\372\277\340\17\254#\257\206D\24 3\243\243\265\342{4_\254j@\213\266gV\3417\236\237\265\331U\370\266\300\2477\227\ 357\324D!\362&\32\204\233h\325\36l\301S\370\210n\0366\242\373\205lX\203\317\225\ 375\fm\324\322\213\347\324\223\270\360\203'e\253UB\221\"\360l\340\305\211\357Q|u \377\1\24yz\316\302\3\0\0"\0 CUR = 143 LEN = 676 420 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:16:24 ] >>416 defined >>418 ハッシュのキーに分類の名前 ハッシュの要素に項目の配列リファレンスとか入れたらどうだろう $item{分類} = [qw/項目 項目 項目/]; みたいに 421 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:44:36 ]       $str =~ s/<hoge>//;       という正規表現を使って複数回文字を削除しようとしています       while($str =~ /<hoge>/){ $str =~ s/<hoge>//; }       とすると無駄な処理が入るので、ループの判別のところだけで処理したいんですが、       そういう書き方は可能でしょうか       while($str =~ s/<hoge>//);       と書くとエラーを吐かれました       do{''} while($str =~ s/<hoge>//);       や       while($str =~ s/<hoge>//){}       だとうまくいきますが、なんか気持ち悪いです 422 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:51:12 ] 1 while $str =~ s/<hoge>//g; かなぁ 423 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 15:51:37 ] >>421 1 while $str =~ s/<hoge>//; とか $str =~ s/<hoge>//g; とか 424 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:16:08 ] >>420 $class と $itemのセットを記憶するのに、 push(@{$items{$class}}, $item); でいけました @$items{$class} ではないという部分で引っかかりました 念のため[]で初期化したけど、外しても問題なく動くあたりが流石 425 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:39:15 ] >>423 上では無駄な1が気持ち悪いです 下では $str = '<h<hoge>oge>' のときに削除できません… 426 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:48:20 ] >>425 リャマ本に似たようなコード載ってるから、じゃ気持ち悪くならない理由にならない？ 上の方は定数式(1)は最適化で取り除かれるんだとさ 427 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 16:57:42 ] >>426 見た目が気持ち悪いのと処理的に気持ち悪いのは違うんですよ 「全部取り除く」って処理に全く関係ない1なんかがあるのは生理的に気持ち悪いです {}で終わるのも一文なのに;がないから処理が終わってない感じがいやらしいです リャマ本に上が載ってるなら、他にやり方はないんですかね… もしかしたら正規表現で再帰的に検索してくれるオプションがあるかもと思ってたんですが… 428 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 17:21:08 ] >>427 再帰的にやるなら my $hoge; $hoge = qr/<(??{$hoge})?h(??{$hoge})?o(??{$hoge})?g(??{$hoge})?e(??{$hoge})?>/; $str =~ s/$hoge//g; とか? もっと綺麗に書けそうだが。 5.10以降ならキャプチャバッファ(see perl5100delta)使って一行でしかも効率良く書けるはず。 429 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 19:56:14 ] >>428 ﾄﾝ キャプチャバッファについてググってみます 430 名前：デフォルトの名無しさん mailto:sage [2009/03/31(火) 19:59:32 ] >>427 my $str = '<h<hoge>oge>' ; L:{ $str =~ s/<hoge>//g and redo L; } 1 while COND の方が断然気持ち良いけどさ。 431 名前：デフォルトの名無しさん mailto:sage [2009/04/01(水) 13:55:08 ] 　「 気 持 ち 悪 い 」 ・・・か。それじゃＣ言語の if (a == 1) { 　hoge(); } なんか、気持ち悪さ１０００％だな。 なぜ「等しい」の判定に () が必要なのか。 なぜ hoge を呼び出すのに { } が必要なのか。 なぜ hoge のうしろにも () がくっついてるのか。 アメリカ人は苗字と名前を逆に言う。 住所も番地から逆に言う。 日付も逆に言う。 実に「気持ち悪い」。 だが、そういうもんだ。いちいち疑問にしてたらキリが無い。 順応しろよ、順応。

---

---

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

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