新手求一个算法

xiumu2280

把文件内容按大小排个序
再把文件分割，分别运行这个程序
最后把结果和在一起，再运行一次
回复 10# yccpp


   

laohai8080

#!/usr/bin/perl

use strict;
use warnings;

#if success output to outputNumber.txt;
if (@ARGV < 1)
{
        print "usage:mergeData.pl inputfile\n";
        exit(1);
}

my %datasHash;

open my $fileHandle, "<", $ARGV[0] or die "open $ARGV[0] failed$!";
while(my $lineData = <$fileHandle>)
{
        chomp $lineData;
        if($lineData =~ /^\s+$/)
        {
                next;
        }
        $lineData =~ s/^\s+//;
        $lineData =~ s/\s+$//;
        my @wordArray = split /\s+/, $lineData;
        my @exitsKey;
        my @notExitsKey;
        foreach(@wordArray)
        {
                if( exists $datasHash{$_})
                {
                        push @exitsKey,$_;
                }
                else
                {
                        push @notExitsKey,$_;
                }
        }
       
        if (@exitsKey == 0)
        {
                foreach(@wordArray)
                {
                        $datasHash{$_} = \@wordArray;
                }
        }
        else {
                my @mergeArray = @notExitsKey;
               
                for(my $index = 0; $index < @exitsKey; $index++)
                {
                        my $ref1 = $datasHash{$exitsKey[$index]};
                       
                        @mergeArray = (@$ref1, @mergeArray);
                       
                        @$ref1 = ();
                }
               
                foreach(@mergeArray)
                {
                        $datasHash{$_} = \@mergeArray;
                }
        }
}

my %refHash;
open my $outHandle, ">", "outputNumber.txt" or die "failed open outputNumber.txt $!";
foreach (keys %datasHash)
{
        my $ref1 = $datasHash{$_};
        if ( ! exists $refHash{$ref1})
        {
                my @result = join " ",@$ref1;
                #print @result, "\n";
                print $outHandle @result,"\n";
                $refHash{$ref1} = 1;
        }
}

laohai8080

初学Perl代码不够简练,多多指教!

xiumu2280

这个应该会快一些

1. my %hash_all;
   
2. while (<DATA>) {
   
3.         chomp;
   
4.         my @data = split /\s+/,my $line =$_;
   
5.         push @{$hash_all{$data[0]}},$data[1];
   
6.         push @{$hash_all{$data[1]}},$data[0];
   
7. }
   
8. 
   
9. my %out_data;
   
10. 
    
11. while (my ($key,$value) = each %hash_all) {
    
12.         my @all = @{$value};
    
13.         BEGIN:
    
14.         my %hash;
    
15.         @hash{@all} = @all;
    
16.         my $num_r = keys %hash;
    
17.         for my $cell (keys %hash) {
    
18.                 if ($hash_all{$cell}) {
    
19.                         push @all,@{$hash_all{$cell}};
    
20.                 }
    
21.         }
    
22.         @hash{@all} = @all;
    
23.         my $num_l = keys %hash;
    
24.         if ($num_l ne $num_r) {
    
25.                 goto BEGIN;
    
26.         }
    
27.         my $new_line = join "\t",sort keys %hash;
    
28.         print "$new_line\n" if !$out_data{$new_line}++;
    
29. }
    
30. 
    
31. 
    
32. __DATA__
    
33. 22875    30588     
    
34. 22875    34747         
    
35. 22912    34851
    
36. 22963    35901      
    
37. 22969    30588
    
38. 30588    40791
    
39. 30609    39143      
    
40. 30609    40808

复制代码

yccpp

谢谢laohai8080 和xiumu2280 的热心帮助。 xiumu2280的新代码快了不止一些，附件中的数据几秒就处理完了，非常感谢。我有两个问题想请教您，第一个问题是能否让处理的结果按每行数据的多少从大到小排序，比如输出的结果如下
22875    30588   34747 22969  40791
30609    39143   40808
22912    34851
22963    35901
第二个问题是自己对您的代码理解不深，从输出结果看，不是从第一行的数据开始排列的，好像比较随机，能不能请xiumu2280帮忙解读一下。谢谢。

chenyuluoyan沉鱼落

回复 8# xiumu2280

1. @hash{@{$new}} = @{$new};
   
2.                 if ($hash{$ori->[0]} || $hash{$ori->[1]}) {
   
3.                         push @{$new},@{$ori};

复制代码

这段代码可以解释一下吗 @hash{@$new}}表示什么呢
   

xiumu2280

这是哈希切片  用来给数组去重回复 16# chenyuluoyan沉鱼落


   

xiumu2280

因为这次是存的哈希，而遍历哈希的时候，是不像数组一样有顺序的。
如果你想这样从大到小的排列
可以对得到的数据进行二次处理，把这次得到的数据按大小排序就好了。
回复 15# yccpp


   

yccpp

谢谢xiumu2280，涨姿势了。

fly_in_thesky

回复 18# xiumu2280


    那有没有办法让数据输出就是按照读入的顺序呢？ 我的意思是比如输出时的键值按照按照他给的数据键对应后面依次为第一次出现该键的值，第二次出现该键的值。 因为如果后面的数据不是数字，而是一些无规律的字母，比如地名，是没有办法再处理的。 特别是当数据非常大的时候。 求指教！