我是 Perl 的新手。我有一个文件,其中包含树格式的数据,如下所示。我需要解析大数据并从中生成 .TSV 文件。文件格式如下
A
|
|--B
| |
| |--C
| |
| |---PQR
| |---XYZ
|--D
| |
| |---LMN
|---XYZ
我需要的输出是制表符分隔格式。
Coloum1 Coloum2 Coloum3 Coloum4
A B C PQR
A B C XYZ
A D LMN
A XYZ
我编写了一个不适用于中间节点的代码。这里是 B 节点,它没有叶节点,连接到根节点的叶节点没有正确进入输出。我正在从命令行读取输入文件。
#!/usr/bin/perl
use Data::Dumper;
open (MYFILE, "<", $ARGV[0]);
my $content = "";
while(<MYFILE>)
{
my $line = $_;
$content = $content.$line;
}
my ($root, @block) = split(/\|--(\w)/, $content);
$root =~ s/.*?(\w+).*/$1/is;
my %block = @block;
print "\nColoum1\tColumn2\tColumn3\tColumn4";
foreach my $key( keys %block)
{
my $content = $block{$key};
my (undef, @lines) = split(/\n/, $content);
foreach my $line (@lines)
{
if($line =~ /---(\w+)/is)
{
my $val = $1;
if(defined $val)
{
print "\n$root\t$key\t$val";
}
}
}
}
我从中得到的输出是
Coloum1 Column2 Column3 Column4
A D LMN
A D XYZ
A C PQR
A C XYZ
是我在这段代码中缺少的东西。你能指导我解决我的问题。
是否有任何 CPAN 库可以帮助我处理此类问题。