PERL $_GET and $_POST

[dobs]

Собсна вопрос на перле как то можно получать данные переменных как на пхп через глобалы $_GET и $_POST?

 

[jik]

Реализация $_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" };

 

[agny]

потсмотрите в сторону mechanize

 

[dobs]

потсмотрите в сторону mechanize

Ет мне ничего не сказало... я Перл только начинаю учить (после ПХП)

 

[dobs]

А на перле есть чет по типу Для просмотра ссылки Войди или Зарегистрируйся?

 

[Kaimi]

print int 2.5

 

[dobs]

Итак лажа №3
не выходит чет функцию написать...
что пишу

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

Вызов

&formatfilesize;
print $fsize{'100'};

в итоге просто выводит слово Байт
что я не так написал?

 

[jik]

Не передан параметр в функцию

&formatfilesize(...);

 

[dobs]

Всеравно чет не выходит

 

[jik]

Всеравно чет не выходит

Как теперь выглядит код? Где присваивается значение параметру, передаваемому в функцию?