代码:

---

#!/usr/bin/perl
my (%hash,$key,$value);
open(FILE,"in.txt");
while (<FILE>) {
	if($hash{$_} == undef){$hash{$_} = 1;}
	else{$hash{$_} += 1;}
}
close(FILE);
open(FILE,">out.txt");
while (($key,$value) = each %hash) {
	print FILE "$key";
	if($value != 1){print "$key重复了$value次\n";}
}
close(FILE);

---

代码:

---

#!/usr/bin/perl
my (%hash,$key,$value);#变量定义,hash为一哈希表,key和value是字符串变量
open(FILE,"in.txt");   #打开原始文件
while (<FILE>) {       #遍历文件直到文件结束,每次读取一行,内容在$_中
	if($hash{$_} == undef){$hash{$_} = 1;}#如果哈希表的键中没有这行,则把这行置入并设置其值为1
	else{$hash{$_} += 1;}#如果哈希表中已有此行,则把其值加1
}
close(FILE);	       #关闭文件.....(真鸟废话的这句)
open(FILE,">out.txt"); #打开输出文件
while (($key,$value) = each %hash) { #遍历哈希表,并把其键和值分别赋给变量key和value
	print FILE "$key"; #把不再重复的行写入到输出文件中
	if($value != 1){print "$key重复了$value次\n";}#如果值不是1,说明那是重复的,就把它打印到屏幕
}
close(FILE); #关闭文件......(真鸟多事,程序退出了不就自动关闭了么.....)

---

代码:

---

#!/usr/bin/perl
map { $h{$_}++} <>;
print keys %h;

---

引用:

---

my (%hash,$key,$value);#变量定义,hash为一哈希表,key和value是字符串变量

---