在Perl中解析文本（循环）

Question

我试图解析一个看起来像这样的文件：

TIME: 07/24/13 15:30:04
ASPATH: 172193 19601 14835 19074 19420 4704 8266 9486 8580

我已经开始研究解析器了，但由于我是perl的新手，我无法弄清楚我是如何解析一条困扰我的特定行，

 ASPATH: 172193 19601 14835 4758 15731 3341 

这些是图形节点，意味着链接172193 - > 19601 ---> 14835，依此类推。 我不想将这个数据存储在我的数据库中，而是想要打破它并在数据库中插入每个节点（因为与该表将链接到的节点的数据库的关系），并且索引代表路径。 所以，例如，

node       index
172193       1
19601        2
14835        3

and so on.....

因此索引旨在让我知道节点之间的连接。 因此，如果我开始处理下一条记录，它将再次从索引1开始。

这就是我已经没有包括所有属性（特别是ASPATH）但仍然困扰我的东西。

        } elsif (/^ASPATH/) {
            ##HERE IS WHERE I AM LOST AS EXPLAINED** 
        }

Answer 1

        }elsif (/^ASPATH/) {
            my @nodes = split /\s/;
            shift @nodes;   # discard ASPATH

            my $index = 0;
            foreach my $node (@nodes) {
                $index++;

                # process ($node, $index) here
            }
        }