author.pl

从唐诗300首中统计作者和发表的诗篇,用perl语言实现

open(In,"Ts300.gb");
while(<In>){
	chomp;
	if (/^\d+(.*)：(.*)/){
		$Author=$1;
		$Title=$2;
		if ( defined $Hash{$Author} ){
			$Hash{$Author}=$Hash{$Author}."\n".$Title;
		}else{
			$Hash{$Author}=$Title;
		}
	}
}
close(In);

foreach (sort keys %Hash){
	print "#$_\n$Hash{$_}\n";
}