用 哈希去 重复 出了问题

兰花仙子

sinian126 发表于 2013-03-06 15:00
jieguo.txt存的大体就是
4 5 6
7

chomp下

兰花仙子

sinian126 发表于 2013-03-06 15:11
chomp以后倒是对了，但是输出结果就都在一行了就像这样4 5 6 7 8回复 2# 兰花仙子

输入chomp，输出加"\n"嘛。或者perl运行参数里加上-l

Perlvim

这么初级的问题，会让仙子发疯的。

1. #!/usr/bin/perl      -w
   
2.   use strict;
   
3. 
   
4. open(IN1,"f:/lizi1.txt");
   
5. open(OUT,">f:/lizi2.txt") ;
   
6. my %hash=();
   
7. while(<IN1>){chomp;$hash{$_}=1;}
   
8. my @a=sort keys %hash;
   
9. foreach (@a) {
   
10.    print OUT $_ . "\n";
    
11. }

复制代码

兰花仙子

sinian126 发表于 2013-03-06 15:22
原来 @a存的东西是这样的啊  我以为存成一行了嫩回复 5# Perlvim

对不明白的数据结构，多使用Data::Dumper