看板 Perl 關於我們 聯絡資訊
您好, 感謝您的回答, 不好意思我沒有表達清楚 : 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.178.242 ※ 編輯: hws110 來自: 114.37.178.242 (11/08 18:46)