|
|
|
Forum Member
 
участник
Last Login: 05.09.2003 21:40
Сообщ.: 25,
Visits: 276
|
|
Есть строка вида key1=value1&key2=value2&...&keyN=valueN
Есть функция, которая должна возвращать значение некоторого заданного key
Можно решить, например, двумя способами:
1.
sub GetItem() {
local($vitem, $vdata)=@_;
foreach (split('&', $vdata)) {
if ($_=~ /\b$vitem=/) {
@RetVal=split('=', $_, 2);
return $RetVal[1];
}
}
return '';
}
2.
sub GetItem() {
local($vitem, $vdata)=@_;
if ($vdata!~ /$vitem/) { return ''; }
$vdata=~ s/.*$vitem=([^\&]*)\&.*/$1/;
return $vdata;
}
Вопрос - subj
|
|
|
|