PERL $_GET and $_POST

Статус
В этой теме нельзя размещать новые ответы.

dobs

Создатель
Регистрация
5 Янв 2007
Сообщения
40
Реакции
15
Собсна вопрос на перле как то можно получать данные переменных как на пхп через глобалы $_GET и $_POST?
 
Реализация $_GET на перле

Код:
sub populateQueryFields {
  %queryString = ();
  my $tmpStr = $ENV{ "QUERY_STRING" };
  @parts = split( /\&/, $tmpStr );
  foreach $part (@parts) {
    ( $name, $value ) = split( /\=/, $part );
    $queryString{ "$name" } = $value;
  }
}

Использование:

Код:
URL:
http://www.site.com/cgi-bin/test.pl?login=vasia&pass=123

&populateQueryFields;
$login = $queryString{ "login" };
$pass = $queryString{ "pass" };


Реализация $_POST на перле

Код:
sub populatePostFields {
  %postFields = ();
  read( STDIN, $tmpStr, $ENV{ "CONTENT_LENGTH" } );
  @parts = split( /\&/, $tmpStr );
  foreach $part (@parts) {
    ( $name, $value ) = split( /\=/, $part );
    $value =~ ( s/%23/\#/g );
    $value =~ ( s/%2F/\//g );
    $postFields{ "$name" } = $value;
  }
}

Использование:

Код:
<FORM ACTION="../cgi-bin/test.pl" METHOD="POST">
  <INPUT TYPE="TEXT" NAME="login">
  <INPUT TYPE="TEXT" NAME="pass">
  ...
</FORM>

&populatePostFields;
$login = $postFields{ "login" };
$pass = $postFields{ "pass" };
 
  • Нравится
Реакции: dobs
потсмотрите в сторону mechanize
 
print int 2.5
 
  • Нравится
Реакции: dobs
Итак лажа №3
не выходит чет функцию написать...
что пишу

PHP:
sub formatfilesize($var) {
        print $var . ' Байт';
}

Вызов
PHP:
&formatfilesize;
print $fsize{'100'};

в итоге просто выводит слово Байт
что я не так написал?
 
Не передан параметр в функцию

Код:
&formatfilesize(...);
 
Всеравно чет не выходит:nezn:
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху