这是第二篇文章,慢慢总结学习的perl语言 这个程序就是把DATA里面的内容先分割,再存入哈希列表中,在利用哈希的key和value进行排序输出。 #!/usr/bin/perl use warnings; use strict; undef $/; my $file = <DATA>; my @a = split(m/^A\d\d\d/m, $file