迭代算法

Question

我编写了一个程序，它从2列文件加载数据，进行算法计算，然后在文件中编写具有此系数的元素对，并将它们放入名为@blackPair的数组中。我想迭代N次算法从文件中获取数据，而不是@blackPair数组中的数据。

我想到了这样的事情：

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $iter;
my $startNode;
my $endNode;
my %k;
my %end;
my %node;
my %edge;
my @blackPair=();
my $counts=0;
my $inputfile = "file3";
################# DATA ABSORTION

open(DAT,$inputfile) || die("Could not open file!");
while(<DAT>)
{
    my ($entry) = $_;
    chomp($entry);
    my ($startNode, $endNode) = split(/ /,$entry);
    $k{$endNode}++;
    $k{$startNode}++;
    $edge{$startNode}{$endNode}=1;
    $edge{$endNode}{$startNode}=1;
}
################# ALGORITHM
my $minCentrality=2;
foreach my $i (keys %edge) {
    foreach my $j (keys %{$edge{$i}}){
    my @couple =($j,$i);
    if($i<$j){
         if (($k{$i}-1) !=0 && ($k{$j}-1) !=0){
        my $triangleCount=0;
        @couple=($i,$j) if ($k{$i}<$k{$j});
        foreach (keys %{$edge{$couple[0]}}){
            $triangleCount++ if exists $edge{$couple[1]}{$_};
        }
        my $centrality=($triangleCount+1)/($k{$couple[0]}-1);
        if ($centrality<$minCentrality){
            $minCentrality=$centrality;
            @blackPair=@couple;
          } 
        }
      }
    }
}
foreach (@blackPair){
say; 
}
Close(DAT);

该文件如下：

1 2
1 3
1 4  
1 5
1 6
1 9
2 3
4 5
5 9
6 7
6 8
6 16
7 8
9 10
9 11
10 11
10 12
10 14
11 12
11 13
12 13
12 14
14 15
16 17
16 18
17 18
17 19
18 19
18 20
19 20

@blackPair中出现的第一对是6和1.在找到它们之后，我希望程序重新启动搜索，但避免将对1和6充电到数组中。对将是6和16.我想重复这个过程N次（例如N = 4）。我想在另一个while(<DAT>)和while(counts<=4){和while(<DAT>)内放在“数据获取”中的if(<DATA> != @blackPair){之前。有我的想法

 while(counts <= 4) { 

 while(<DAT>)
 {
 if(<DAT> != @blackPair){
       my ($entry) = $_;
       chomp($entry);
       .....
 }
     #### ALGORITHM
 counts++;
 }

但它不起作用。有什么帮助吗？

经过4次迭代后，在@blackPair中应该有以下对：

 6 1
 16 6
 9 1
 9 5

Answer 1

<DAT> != @blackPair绝对不是你想要的。

• !=用于数字比较。您想要进行字符串比较（ne运算符）或者使用智能匹配运算符来检查列表成员资格（~~ \@blackPair）
• 但使​​用正确的运算符对您没有帮助，因为@blackPair已经损坏了输入数据（@blackPair可能包含元素(6,1)，对应于原始输入行"1 6\n"）

相反，如何在每次迭代中更新图表？

for my $count (1..4) {
    my $minCentrality = 2;
    ...

    say join " ", @blackPair;
    # now update the graph
    delete $edge{$blackPair[0]}{$blackPair[1]};
    delete $edge{$blackPair[1]}{$blackPair[0]};
    $k{$blackPair[0]}--;
    $k{$blackPair[1]}--;
} # next iteration