|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sanyo Titaev 2:5070/66.1 22 Jul 2000 00:38:53
To : Maxim Y. Zinyakov
Subject : split и кавычки
--------------------------------------------------------------------------------
21 Jul 28 18:57, Maxim Y. Zinyakov wrote to Sanyo Titaev:
ST>> бей как бъётся, а потом анализируй полученные элементы на предмет
ST>> ^' $' и склеивай
MZ> Что Вы говорите? а если строчка такая: "1,'would, you, mind?', eh ?" ?
and what?
#!/usr/bin/perl
$string="1,'would, you, mind?', eh ?";
@arr=split(/,/, $string);
$i=@arr;
for ( $j=0; $j<$i; $j++)
{
if ( $arr[$j] =~ /^'/ && $arr[j] !~ /'$/ )
{
$new_val=$arr[$j];
for ($z=$j+1; $z<$i; $z++)
{
$new_val.=",".$arr[$z];
if ($arr[$z] =~ /'$/)
{
$j=$z;
last;
}
}
print "$new_val\n";
}else
{
print "$arr[$j]\n";
}
}
oasis# ./test.pl
1
'would, you, mind?'
eh ?
конструкцию можно усложнить, если предположить вложенные выражения
'sdfsdf, sdfsdf, 'sdfsdfsdf sdfdf',dsfsdfsdf,sdf'
суммируя количество элементов, начинающихся с ', и соответсвенно отматывая на
нужное количество элементов, оканчивающихся на '
Sanyo
--- GoldED/W32 3.0.1
* Origin: -=The Bulls=- mailto:tit@irk.ru (2:5070/66.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
