Новые ответы

Транслитерация рус-англ.......проблеммка,

Namich, 11-Фев-05, 13:16 [смотреть все]

Сразу скажу, раньше с Perl не был знаком
мне нужно транслитерировать строку с русского на английский.....
вот мой скрипт
#!c:\perl\bin\perl
use CGI qw/:standard/;
my $message = param(TEXTIN);

%hash = (
    'а' => 'a',
    'б' => 'b',
    'в' => 'v',
    'г' => 'g',
    'д' => 'd',
    'е' => 'e',
    'ё' => 'yo',
    'ж' => 'zh',
    'з' => 'z',
    'и' => 'i',
    'й' => 'j',
    'к' => 'k',
    'л' => 'l',
    'м' => 'm',
    'н' => 'n',
    'о' => 'o',
    'п' => 'p',
    'р' => 'r',
    'с' => 's',
    'т' => 't',
    'у' => 'u',
    'ф' => 'f',
    'х' => 'h',
    'ц' => 'c',
    'ч' => 'ch',
    'ш' => 'sh',
    'щ' => 'sch',
    'ы' => 'y',
    'э' => 'e',
    'ю' => 'yu',
    'я' => 'ya',
    ' ' => ' ',
    '.' => '.');

@letters = split //, $message;
for (@letters){$_mes = $hash{$_mes}};
print $mes;
после обработки выдаёт : Error. Script return nothing

Ответить | Сообщить модератору

Транслитерация рус-англ.......проблеммка, allez, 13:28 , 11-Фев-05 (1)
Измени цикл:
------------------------------
for (@letters) {
$mes = $hash{$_};
print $mes;
}
------------------------------
и будет тебе счастье.
Ответить | Сообщить модератору

Транслитерация рус-англ.......проблеммка, Namich, 13:40 , 11-Фев-05 (2)
>Измени цикл:
>------------------------------
>for (@letters) {
>$mes = $hash{$_};
>print $mes;
>}
>------------------------------
>и будет тебе счастье.

а если вначале определить, что my $message = "привет";
и убрать @letters = split //, $message;
то какое условие цикла будет?
Ответить | Сообщить модератору

Транслитерация рус-англ.......проблеммка, allez, 13:50 , 11-Фев-05 (3)
А зачем?
Ответить | Сообщить модератору

Транслитерация рус-англ.......проблеммка, Namich, 14:07 , 11-Фев-05 (4)
>А зачем?
я хочу проверить как будет работать с фиксированной строкой, а потом уж параметр передавать буду
мне , к примеру, нужно "привет" перевести в "privet"
Ответить | Сообщить модератору

Транслитерация рус-англ.......проблеммка, PoizOn, 16:00 , 11-Фев-05 (5)
>>А зачем?
>
>я хочу проверить как будет работать с фиксированной строкой, а потом уж
>параметр передавать буду
>
>мне , к примеру, нужно "привет" перевести в "privet"
вот это:
@letters = split //, $message;
for (@letters){$_mes = $hash{$_mes}};
print $mes;
замени на
foreach (keys %hash) {
$message=~s/$_/$hash{$_}/g if($message=~m/$_/g);
}
print $message;
и убери элемент '.' из хэша - точку-то зачем транслитерировать??? :)
Ответить | Сообщить модератору
Транслитерация рус-англ.......проблеммка, PoizOn, 16:02 , 11-Фев-05 (6)
>>А зачем?
>
>я хочу проверить как будет работать с фиксированной строкой, а потом уж
>параметр передавать буду
>
>мне , к примеру, нужно "привет" перевести в "privet"
вот это:
@letters = split //, $message;
for (@letters){$_mes = $hash{$_mes}};
print $mes;
замени на
foreach (keys %hash) {
$message=~s/$_/$hash{$_}/g if($message=~m/$_/g);
}
print $message;
и убери элемент '.' из хэша - точку-то зачем транслитерировать??? :)

Ответить | Сообщить модератору

Транслитерация рус-англ.......проблеммка, Namich, 09:21 , 14-Фев-05 (7)
>>>А зачем?
>>
>>я хочу проверить как будет работать с фиксированной строкой, а потом уж
>>параметр передавать буду
>>
>>мне , к примеру, нужно "привет" перевести в "privet"
>вот это:
>@letters = split //, $message;
>for (@letters){$_mes = $hash{$_mes}};
>
>print $mes;
>
>замени на
>
>foreach (keys %hash) {
>$message=~s/$_/$hash{$_}/g if($message=~m/$_/g);
>}
>
>print $message;
>
>и убери элемент '.' из хэша - точку-то зачем транслитерировать??? :)

Огромное спасибо!!!!!!!
Выручил....работает супер!!!
Ответить | Сообщить модератору