嗯, 以此問題來看, 我把右邊的資料當成籃子的編號 左邊的資料當成水果的總類, 每個統計表示該水果出現一次 程式如下: #1. 依據資料獲得籃子編號和水果編號 #2.a 將籃子統計到水果的總量 +1 #2.b 統計第幾個籃子中出現第幾種水果的編號 +1 #3. 將統計的結果印出 p.s. 若要印出你要的第0號水果, 把變數 $calc_all_fruit = 0 即可 程式輸出： Basket: 1, Fruit Kind: 0, amount: 2 Basket: 1, Fruit Kind: 1, amount: 1 Basket: 2, Fruit Kind: 0, amount: 2 Basket: 2, Fruit Kind: 1, amount: 1 Basket: 3, Fruit Kind: 0, amount: 1 Basket: 3, Fruit Kind: 2, amount: 1 Basket: 4, Fruit Kind: 0, amount: 1 Basket: 4, Fruit Kind: 1, amount: 1 my $baskets_ref; my $fruit_in_baskets_ref; my $calc_all_fruit = 1; foreach (@strings) { #1 if ( /(\d+)\s*(\d+)\s*/ ) { my $fruit_kind = $1; my $basket_num = $2; #2 $baskets_ref->{ $basket_num } += 1; $fruit_in_baskets_ref->{ $basket_num }->{ $fruit_kind } += 1; } } foreach my $basket_num (sort keys %{ $baskets_ref }) { foreach my $fruit_kind (sort keys %{ $fruit_in_baskets_ref->{ $basket_num }}) { #3 if ($fruit_kind eq 0 || $calc_all_fruit > 0) { print "Basket: $basket_num, Fruit Kind: $fruit_kind, amount: " . "$fruit_in_baskets_ref->{ $basket_num }->{ $fruit_kind }" . "\n" ; } } } ※ 引述《hws110 ( only you )》之銘言： : 您好， : 感謝您的回答， : 不好意思我沒有表達清楚 : : 0 1 : : 0 2 : : 0 3 : : 0 4 : : 1 1 : : 0 2 : : 2 3 : : 1 4 : : 0 1 : : 1 2 : 右列的1.2.3.4是資料的代號 : 左列是取得的資料 : 而資料中，0出現的次數是我要計算的 : 以這串資料來說 : 我想要表示的是 : 1有3個 其中0有2個 : 2有3個 其中0有2個 : 3有2個 其中0有1個 : 4有2個 其中0有1個 : 請問這樣要怎麼表示呢? : 感謝回答~ : ※ 引述《clanguage (C語言)》之銘言： : : #!/usr/bin/perl : : #1 : : my @strings = split '\n', : : " : : 0 1 : : 0 2 : : 0 3 : : 0 4 : : 1 1 : : 0 2 : : 2 3 : : 1 4 : : 0 1 : : 1 2 : : "; : : #2 : : foreach (@strings) { : : $data->{ $2 } += int($1) if /(\d+)\s*(\d+)\s*/; : : } : : #3 : : print "Number: $_, Times: $data->{ $_ } \n" : : for sort keys %{ $data }; : : 程式輸出: : : Number: 1, Times: 1 : : Number: 2, Times: 1 : : Number: 3, Times: 2 : : Number: 4, Times: 1 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.37.144.19