您好，
感谢您的回答，
不好意思我没有表达清楚
: 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