Perlについての質問箱 39箱目
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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が実行されないです。 環境が原因と思うのですが、 初心者で何が原因かわからないです。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5390日前に更新/164 KB
担当:undef