|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Paul Kulchenko 2:5020/400 07 Aug 2000 21:41:06 To : All Subject : Re: Помогите.. -------------------------------------------------------------------------------- Hi, Alexey! Alexey Ustalov wrote: > @pairs = split(/&/, $buffer); > foreach $pair (@pairs) { > ($name, $value) = split(/=/, $pair); > $value =~ tr/+/ /; > $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; > $value =~ s/<!--(.|\n)*-->//g; Господи, а это-то там откуда возьмется? > $input{$name} = $value; > print "Имя: ",$input('user_name'),"\n<br>"; Скобки смени для начала. Hужно: $input{'user_name'} Если будешь ставить в начало use strict и запускать с ключом -w, то и в эху писать не надо будет, Perl тебе сам все скажет. Best wishes, Paul. --- ifmail v.2.15dev5 * Origin: Rostelecom/Internet Centre (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/35551a328501.html, оценка из 5, голосов 10
|