qq_41022608的博客

这是第二篇文章，慢慢总结学习的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); shift @a; my ...