文件操作问题

超级细菌

有下面格式的一个文件，由于在其中的第四列中有的没有编号，如果第六（五）列中有相同的姓名，那么就只保留第四列中有相应编号的那一行，把没有编号的那一行去掉。请高手指教一下，多谢！

Kitaisky

Unpack

--perldoc perlpacktut 第2个例子就解决你的问题...

超级细菌

回复 2# Kitaisky


    你好，昨天看了一下那个perldoc，但是还是觉得没有看懂，还请您再详细指点一下，多谢！

rubyish

试试用正则表达式

1. open F, 'file';
   
2. my $f = do { local $/; <F> };
   
3. 
   
4. print $1,"\n" while $f =~ /^(.*?\s+(?:\d{5})?\s+(.*?))$(?:.*?\2$)?/msg;
   

复制代码

Perl_Er

举个例子，其余的你自己写

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my @ary;
   
6. my $count = 0;
   
7. 
   
8. while(<DATA>){
   
9.     print;
   
10.     print "\n";
    
11.    
    
12.     @{$ary[$count++]} = unpack("A2 x2 A1 x2 A6 x2 A5 x2 A7 x2 A*");
    
13. }
    
14. 
    
15. print Dumper \@ary;
    
16. 
    
17. __DATA__
    
18. 13  1  345652         8131415  王泽
    
19. 13  1  345652  58551  8131415  王泽宁
    
20. 13  1  123454  89074  1234568  麻辣鸡丝

复制代码

13  1  345652         8131415  王泽

13  1  345652  58551  8131415  王泽宁

13  1  123454  89074  1234568  麻辣鸡丝
$VAR1 = [
          [
            '13',
            '1',
            '345652',
            '',
            '8131415',
            '王泽'
          ],
          [
            '13',
            '1',
            '345652',
            '58551',
            '8131415',
            '王泽宁'
          ],
          [
            '13',
            '1',
            '123454',
            '89074',
            '1234568',
            '麻辣鸡丝'
          ]
        ];

freflying

使用第六列姓名或者第五列做主键，如果键不存在，就用每行内做做值；如果键存在，看看第4列是否存在，如果存在，也用行值做为值，否则就跳过。
my %hash;
while (<>) {
        chomp;
        my(undef,undef,undef,$id,undef,$name) = split "\t",$_;       
        if (exists $hash{$name}) {       
                if ($id =~ /\d+/) {                       
                        $hash{$name} = $_;
                }
        } else {
                $hash{$name} = $_;
        }
}

while (my($key,$value) = each %hash) {
   print "$hash{$key}\n";
}