Board logo

标题: [原创代码] 批处理之家1-50练习汇总【练习-019】顺序排列文本内容之Perl法 [打印本页]
作者: sxw    时间: 2011-10-9 15:23     标题: 批处理之家1-50练习汇总【练习-019】顺序排列文本内容之Perl法

本帖最后由 sxw 于 2011-10-22 23:28 编辑

以前的题目，引用“
前些天在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. #!/usr/bin/perl

  2. use strict;

  3. use warnings;

  4. undef $/;

  5. my $file=<DATA>;

  6. my @a=split (m/^(A\d\d\d)/m,$file);

  7. shift @a;

  8. my %hash=@a;

  9. foreach (sort keys %hash) {

  10. 		 print "$_","$hash{$_}\n";

  11. 		 }

  12. __DATA__

  13. A111

  14. Assure

  15. Cons tant

  16. Smail

  17. 

  18. A012

  19. Exa

  20. Explosive

  21. Weird

  22. Admission

  23. 

  24. A077

  25. Chant

  26. Reli gious

  27. Praise

  28. Rhyming

  29. Parsley

  30. 

  31. A034

  32. Faith

  33. Zealous

  34. Absorb

  35. Principle

  36. 

  37.          　　
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2