Shurik
Главком. флейма | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Cheery
мне? да.
я вот кстати начал ковырять скриптец. Брр, сложноват он как-то.
че-то толком въехать не могу:
Цитата: while (<DATA>) {
/^\d/ && do {
@data = split;
for $j (0..$ncods-1) {
$chars{$intos[$j]} = join '', $chars{$intos[$j]}, chr($data[$j]);
$latin{chr($data[$0])} = $data[$ncods];
}
}
}
|
просто у меня какая фишка - есть в $var текст. Собсно, надо перекодировать этим скриптом. Начал переделывать - вместо STDIN...
но вот че за /^\d/ && do {
}
?
как я прочитал, do сначала проверяет условие, перед тем как начать использовать цикл.
Ну, вообщем я такое никогда не использовал (какие-то /^\d/ && do).
Потом я толком въехать не могу в for $j (0..$ncods-1) {}
Цитата:
@intos = qw/k a w m i l/;
$ncods = @intos - 1; # last = Latin, treated separately
|
Ну и? Имеем $ncods = 5. И че с того? 5 раз делаем
$chars{$intos[$j]} = join '', $chars{$intos[$j]}, chr($data[$j]);
собсно, эта строка тоже какая-то... 
вообщем, кто поможет в этом разобраться?
зы. еще "@data = split;"
это он че, из $_ сплитит строки в массив что ли? ну ладно, это понятно вроде бы 
а вот дальше 
|
Но есть такая задачка - cgi скрипт, кроме других функций, еще и почту отсылает с сообщением. Всё работает в кодировке вин. Но необходимо, чтоб именно почтовые сообщения отправлялись в koi. Наверняка есть такая функция в перл. Подскажите, плиз! 
