|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Ruslan Sulemanov 2:4635/99.27 18 Apr 2002 22:45:14 To : Vladimir Podgorny Subject : array[2] --------------------------------------------------------------------------------
Как-то Vladimir Podgorny писАл(а) к Ruslan Sulemanov:
>> Помогите разрешить проблемy с массивом, такого типа:
>> @array=($name, $email, $adres);
>> for($cont=0; $cont<=$#array; $cont++) {
>> --------> print "Content-Type: text/html\n";
>> | print $array[$cont], "::";
>> | }
>> |
>> 1) Как сделать что-бы это строка не повторялась ?
VP> А подумать? :-\
Подyмал, и решил yбрать тy строкy
и поставить её перед цыклом. 8-\
VP> my @array = ($name, $email, $adres);
VP> print "Content-Type: text/html\n\n"; # Обрати внимание - \n должно быть 2.
VP> print join '::', @array;
>> ---------------------------------------------------------
>> 2) есть ещё форма, вот часть её, (это так для примера)
VP> $name = $cgi->param('name');
Почитал я об CGI.pm, и подyмал зачем программировать.
>> необходимо связать имена формы(name,email,adres) со
>> скалярными переменными cgi скрипта($name,$email,$adres),
>> тоесть в этих переменных должны быть значения что-бы с
>> ними можно было работать ?
Hеyспел дождаться ответа решил применить метод для связки
через sub urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9]a-hA-H]{2})/pack('C',hex($1))/eg;
return $val;
}
foreach(@fields=split(/&/,$query)){
if(/^name=(.*)/){$name=&urldecode($1);}
......
.......
}
вообщем ты понял. :-)
Ruslan
--- GoldED+/386 1.0.0
* Origin: admiral@icu.net.ua (2:4635/99.27)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/34493cbf5044.html, оценка из 5, голосов 10
|