Question

我有一个数据文件，其中包含一个表示河流关系的配对值列表。

该文件具有此结构

Node       Downstream Node
A          B
B          C
C          D
E          C

etc

我需要做的是读取此文件，然后对于任何给定节点，我需要打印所有的UPSTREAM节点。

在上面的例子中，如果我输入C，我会得到E，B，A。

我在Linux机器上使用perl，我写这篇文章的人也是。感谢。

Answer 1

问题的正确数据结构是Graph：

#!/usr/bin/env perl

use warnings; use strict;
use Graph::Directed;

my $g = Graph::Directed->new;

while (my $line = <DATA>) {
    last unless $line =~ /\S/;
    my ($v1, $v2) = split ' ', $line;
    $g->add_edge($v1, $v2);
}

print $g->all_predecessors('D'), "\n";

__DATA__
A          B
B          C
C          D
E          C

C:\Temp> h
ACEB

Answer 2

你有什么尝试？这似乎有效，假设我们可以将整个内容加载到内存中。我还假设每一行只有一个上游值和一个下游值。允许更多是留给读者的例外。

#!/usr/bin/perl

use strict;
use warnings;
use 5.12.0;

my %links;
while(<DATA>)
{
    my ($key, $val) = split ' ', $_;
    $links{$key}{down}{$val} = 1; # dupes not allowed/ignored
    $links{$val}{up}{$key}   = 1;
}

sub gather_up
{
    my $start = shift;
    my $seen  = shift || {};

    my @up;
    if ($links{$start}{up})
    {
        for my $u (sort keys %{$links{$start}{up}})
        {
            unless ($seen->{$u}++)
            {
                push @up, $u;
            }
        }

        push @up, map { gather_up($_, $seen) } @up;
    }

    @up
}

say join ', ', gather_up('C');

__END__
A          B
B          C
C          D
E          C

父子Perl数据结构

2 个答案: