Perlについての質問箱 39箱目at TECHPerlについての質問箱 39箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト400:デフォルトの名無しさん 09/03/25 17:06:54 @test 赤、A、あ、 #$test{0} 黄、A、い、 #1 青、A、あ、 #2 赤、B、あ、 #3 赤、C、い、 #4 青、A、あ、 #5 例えばこういう配列があったとして 各項目ごとに一番多い文字列（赤 A あ）をそれぞれ取り出したいんですがどのようにすればいいんでしょうか？ 401:デフォルトの名無しさん 09/03/25 17:28:24 「こういう配列」 402:デフォルトの名無しさん 09/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:デフォルトの名無しさん 09/03/25 23:32:24 ○○.cgiのプログラムで、 「exec △△.pl $param1」とexecを使用して呼び出しても、 呼び出し先の△△.plが実行されないです。 環境が原因と思うのですが、 初心者で何が原因かわからないです。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch