Прблема с кирилицей в PERL скрипте

Тема в разделе "Другие языки", создана пользователем EvLeS, 25 ноя 2008.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. EvLeS

    EvLeS Постоялец

    Регистр.:
    21 сен 2007
    Сообщения:
    64
    Симпатии:
    11
    Есть скрипт на перле примерно такого вида

    PHP:
    #!/usr/bin/perl -w
    use warnings;
    use 
    strict;
    use 
    LWP::UserAgent;
    use 
    HTTP::Cookies;
     
    my $user $ARGV[0]; #логн
    my $passwd =$ARGV[1]; #pass
    my $email $ARGV[2]; #e-mail
    my $url "http://xxx.xx";

    my $ua LWP::UserAgent->new(max_redirect => 0);
    my $cookies HTTP::Cookies->new();
    $ua->cookie_jar($cookies);

    my $req $ua->post($url.'scrpipt.php', { Password => $passwdemail=> $email user => $user } );

    Скрипт прекрасно работает если $ARGV[0] который вводится с консоли состоит из латинских символов.Нужно заставить работать скрипт если вводить и кириллические символы что бы он корректно передавал кириллицу в форму.
    Подскажите как это можно сделать?
     
  2. gregzem

    gregzem

    Регистр.:
    21 окт 2007
    Сообщения:
    200
    Симпатии:
    63
    Скорее всего то, что вы будете передавать из командной строки - в кодировки koi-8 (Unix системы) и CP866 (Windows). И то и другое нужно конвертировать в кодировку, которую ожидает получить скрипт, обрабатывающий вашу форму.
     
Статус темы:
Закрыта.