Perl Split работать с запятой

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

В вашем коде не нужно 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. 
} 

Answer 2

Несколько идей:

• use strict, use warnings и некоторые отступа было бы неплохо :)

• Где Вы писали (\s\S) я полагаю, вы знакомы с JavaScript и означают класс символов [\s\S]? Там нет необходимости, чтобы соответствовать тексту предыдущему и последующим части вы заинтересованы в

• /s модификатора на tr/// является излишним в сочетании с /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