Perl 用逗号分割函数

Question

我有一个文件，其中包含以下行，

<tag host="xyz|abc" some info />
<tag host="ijk,cdf" some info />

我正在使用模式匹配获取主机的信息，我想拆分主机的值。出于某种原因，即使看起来正确，以下代码似乎也不适用于逗号。

if($line =~ m/(\s\S)*host=\"(\S+)\"(\s\S)*/)
{
($val) = ($2);
$val=~tr/!$()//ds;
my @values;
if($val =~ m/((\S+)\|(\S+))*/ )
{
    @values=split('\|',$val);
}
else
{
@values=split(',',$val);
}
#Perform some action on Values.
}

谁能帮我解决这个问题？提前致谢。

Answer 1

一些想法：

• use strict, use warnings 和一些缩进会很好:)

• 你在哪里写了(\s\S) 我想你熟悉 JavaScript 并且指的是 字符类 [\s\S]？您感兴趣的部分前后的文字无需匹配

• tr/// 上的 /s 修饰符与 /d 一起使用是多余的

• 只收集既不是竖线也不是逗号的字符的所有子字符串要容易得多

这就是我的写法

use strict;
use warnings;

while (my $line = <DATA>) {
    if ($line =~ m/host="(\S+)"/) {
        (my $href = $1) =~ tr/!$()//d;
        my @values = $href =~ /[^,|]+/g;
        print "@values\n";
    }
}

__DATA__
<tag host="xyz|abc" some info />
<tag host="ijk,cdf" some info />

输出

xyz abc
ijk cdf

Answer 2

您的代码中不需要if-else。您可以将条件组合成一行代码。

像这样更改您的代码：

use strict;
use warnings;

if($line =~ m/(\s\S)*host=\"(\S+)\"(\s\S)*/)
{
($val) = ($2);
$val=~tr/!$()//ds;
my @values;
@values = split (/[,|]/,$val);
#Perform some action on Values.
}