Разделяне на текст
4 отговора
486 прегледа
Re: Разделяне на текст
Ако не ставаше така, нямаше да ти отговоря.
Хайде напъни се малко, и или разбери как точно става, или ме опровергай, давайки пример как точно НЕ става. Можеш да започнеш с:
man perldoc
perldoc perlvar | less -p '\$ARG'
perldoc -f split
Става както single-line, така и multi-line, все със split. Успех.
RTFM!
--sdg
Хайде напъни се малко, и или разбери как точно става, или ме опровергай, давайки пример как точно НЕ става. Можеш да започнеш с:
man perldoc
perldoc perlvar | less -p '\$ARG'
perldoc -f split
Става както single-line, така и multi-line, все със split. Успех.
RTFM!
--sdg
Re: Разделяне на текст
$text = '
test one 1.I WANT THIS TEXT one two ...
and 2.I WANT THIS TEXT and some text
three 3.I WANT THIS TEXT three end ... ';
push @match, $2 while $text =~ /(\w+\s+)(.+\s+)\1/g;
$" = $/; print"@match"
__END__
output:
1.I WANT THIS TEXT
2.I WANT THIS TEXT
3.I WANT THIS TEXT