open(A, "a.txt"); my @a = ; my %dic; foreach (@a) { chomp($_); $dic{lc $_}++; } foreach (sort keys %dic) { print $_."/t".$dic{$_}."/n"; }
利用hash计数
最新推荐文章于 2024-11-06 09:01:20 发布
open(A, "a.txt"); my @a = ; my %dic; foreach (@a) { chomp($_); $dic{lc $_}++; } foreach (sort keys %dic) { print $_."/t".$dic{$_}."/n"; }

被折叠的 条评论
为什么被折叠?