0

我编写了一个程序，从 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>)在“DATA ABSORTION”之前放另一个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
4

1 回答 1

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
于 2013-03-15T17:24:58.557 回答