|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Diskin 2:5061/109.32 28 Jul 2000 20:24:24
To : All
Subject : split и кавычки
--------------------------------------------------------------------------------
21 Jul 00 11:49, Dmitry Diskin wrote to All:
DD> Есть такая строка:
DD> 1,2,5,'this is string field','look, this is another field'
DD> Hадо ее split-ом разбить на элементы, которые разделяются запятыми,
DD> при этом то, что в апострофах, разбивать не надо. Есть какие-нибудь
DD> удобные быстрые способы? А то мне предложили использовать DBD::CSV...
Спасибо всем откликнувшимся. Между тем я получил еще парочку вариантов:
use Text::ParseWords;
@fields = "ewords(',',0,"1,2,5,'this is string field','look, this is another
field'");
- кавычки тоже не сохраняются
И еще, самый логичный:
$str = "1,2,5,'this is string field','look, this is another field' ";
$str =~ s/'(.+),(.+)'/'$1##$2'/mg; # change commas inside quotes to another
funny pattern
@fields = split(/,/, $str); #split
map { s/##/,/mg; } @fields; #change back to commas
Dmitry
--- GoldED/W32 3.0.1
* Origin: ююю dda@ic.ru ююю (2:5061/109.32)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
