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

#!/usr/bin/perl
use strict;
use warnings;
undef $/;
my $file=<DATA>;
my @a=split (m/^(A\d\d\d)/m,$file);
shift @a;
my %hash=@a;
foreach (sort keys %hash) {
		 print "$_","$hash{$_}\n";
		 }
__DATA__
A111
Assure
Cons tant
Smail

A012
Exa
Explosive
Weird
Admission

A077
Chant
Reli gious
Praise
Rhyming
Parsley

A034
Faith
Zealous
Absorb
Principle

         　　
复制代码