批处理之家1-50练习汇总【练习-019】顺序排列文本内容之Perl法

sxw

以前的题目，引用“
前些天在CN-DOS翻老帖，看到如此的一个题目，又加深了一点难度，有兴趣的来做下。
加分规则：
1.思路独特 5分
2.代码高效、通用 4分
3.技巧高超 4分
4.代码简洁 2分
5.完美代码 15分
题目如下：
a.txt内容：

A111
Assure
Cons tant
Smail

A012
Exa
Explosive
Weird
Admission

A077
Chant
Reli gious
Praise
Rhyming
Parsley

A034
Faith
Zealous
Absorb
Principle

按照段落序号从小到大顺序排列，如下：

A012
Exa
Explosive
Weird
Admission

A034
Faith
Zealous
Absorb
Principle

A077
Chant
Reli gious
Praise
Rhyming
Parsley

A111
Assure
Cons tant
Smail

每段的单词个数未知，在单词随机处有空格。
段落序号A之后的数字总是3位，若不够三位，则在前面加0表示。
A077，而不是A77。A034，而不是A34
　
”

试着用Perl来实现:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. undef $/;
   
6. my $file=<DATA>;
   
7. my @a=split (m/^(A\d\d\d)/m,$file);
   
8. shift @a;
   
9. my %hash=@a;
   
10. foreach (sort keys %hash) {
    
11.                  print "$_","$hash{$_}\n";
    
12.                  }
    
13. __DATA__
    
14. A111
    
15. Assure
    
16. Cons tant
    
17. Smail
    
18. 
    
19. A012
    
20. Exa
    
21. Explosive
    
22. Weird
    
23. Admission
    
24. 
    
25. A077
    
26. Chant
    
27. Reli gious
    
28. Praise
    
29. Rhyming
    
30. Parsley
    
31. 
    
32. A034
    
33. Faith
    
34. Zealous
    
35. Absorb
    
36. Principle
    
37. 
    
38.          　　
    

复制代码