3

我的 regex-fu 没有达到应有的水平，我提前道歉。

代码：

#!/usr/bin/perl -wT
use strict;
use warnings;
use Text::ParseWords;

my @AoH;
my $filename = 'metadata.txt';

open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
while (<$fh>) {
    my $rec = {};
    for my $field ( split ) {
        (my $key, my $value) = quotewords('=', 0, $field);
        $rec->{$key} = $value;
        print "$key -> $value;\n";
    }
    push @AoH, $rec;
}

我想解析以下字符串（位于 metadata.txt 中）：

video_info="这是一个视频描述" video_name="avideoname.mp4" video_thumb="avideothumbnail.jpg"

本质上，我想拆分上述字符串，以便引号中的任何内容都是一个值（包括空格），而 = 之前的任何内容都是一个键。

我想要的输出：

video_info -> This is a video description;
video_name -> avidenoname.mp4;
video_thumb -> avideothumbnail.jpg;

我使用它作为参考来创建我的哈希数组：http : //docstore.mik.ua/orelly/perl/prog3/ch09_03.htm，对代码稍作修改（例如，使用引号而不是拆分） . 我觉得这主要是一个正则表达式问题，但如果有任何问题或使用过时的代码，请随时纠正/解释任何不一致之处。

任何帮助，将不胜感激。提前致谢。

4

1 回答 1

8

split不适合将由空格分隔的字符串拆分为两个也包含空格的子字符串。

例如，在您的情况下，split用于此行：

video_info="This is a video description" video_name="avideoname.mp4"

将给出如下数组：

qw(video_info="This, is, a, video, description", video_name="avideoname.mp4")

这绝对不是想要的输出。

相反，您可以使用quotewords拆分此行：

quotewords('\s+', 0, $_)

会给：

qw(video_info="This is a video description", video_name="avideoname.mp4")

此外，最好chomp在处理一行之前消除 的影响\n。

#!/usr/bin/perl -w
use strict;
use warnings;
use Text::ParseWords;

my @AoH;
my $filename = 'metadata.txt';

open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
while (<$fh>) {
    chomp;
    my $rec = {};
    for my $field ( quotewords('\s+', 0, $_) ) {
        (my $key, my $value) = quotewords('=', 0, $field);
        $rec->{$key} = $value;
        print "$key -> $value;\n";
    }
    push @AoH, $rec;
}
于 2013-11-04T06:59:02.103 回答