Вопрос по синтаксическому анализу текста В Perl

Question

Я хочу, чтобы разобрать строку как это,

S1,F2 title including several white spaces (abbr) single,Here<->There,reply 

И я хочу, выход, как показано ниже,

1 
2 
title including several white spaces 
abbr 
single 
Here22There # identify <-> and translate it to 22; 
reply 

Мне интересно, как разобрать строку выше?

Метод 1. Я планирую разбить всю строку на четыре сегмента, а затем проанализировать отдельные подсегменты.

сегмент1. S1,F2

segment2. title including several white spaces

сегмент3. abbr

сегмент4. single,Here<->There,reply

Метод 2. Я просто пишу сложное выражение регулярного выражения для его синтаксического анализа.

Какой метод более подходит для моей практики?

Оценка по любым комментариям или предложениям.

Answer 1

Предполагая, что ваш вклад будет в формате, заданном можно использовать регулярные выражения, как:

^S(\d+),F(\d+)\s+(.*?)\((.*?)\)\s+(.*?),(.*?),(.*)$ 

Codepad link

Answer 2

Что касается первого метода, что вы можете сделать, это как первый разделить строку на запятая, например

my $line = 
'S1,F4 title including several white spaces (abbr) single,Here<->There,reply'; 
my ($field1, $field2, $field3, $field4) = split /,/, $line; 

и th ан применить регулярное выражение на поле с указанной подстроки S1 и F2 title including several white spaces (abbr) single как

my ($field5) = $field1 =~ /S(\d+)/; 
my ($field6, $field7, $field8, $field9) = 
        $field2 =~ m/^F(\d+)\s+(.*?)\((.*?)\)\s+(.*?)$/; 

Это будет работать для всех этих строк, а также помогают избегать использования и делая сложные регулярные выражения,

S1,F2 title including several white spaces (abbr) single,Here<->There,reply 
S1,F2 title including several white spaces (abbr) single,Here<->There 
S1,F2 title including several white spaces (abbr) single,Here<->There,[reply]