Re: perl и кодировки

Открытие через "трубу" iconv достаточно стандартное средство?

Re: perl и кодировки

мне нужно текст в переменной переконвертировать

Re: perl и кодировки

Что-то типа такого

[r-asian@r-asian tmp]$ cat iconv.pl
#!/usr/bin/perl
open (A, "|iconv -f koi8-r -t cp1251|");
print A "Кодировка";
while(<A>)
{
        print $_;
}
close(A);

[r-asian@r-asian tmp]$ ./iconv.pl
йНДХПНБЙЮ

Re: perl и кодировки

Пардон, всей кучей запихал :-))

#!/usr/bin/perl open (A, "|iconv -f koi8-r -t cp1251|"); $variable="Кодировка"; print A $variable; @lines=<A>; print @lines; close(A);

Re: perl и кодировки

ДЕнь админа, млин :-)

#!/usr/bin/perl
open (A, "|iconv -f koi8-r -t cp1251|");
$variable="Кодировка";
print A $variable;
@lines=<A>;
print @lines;
close(A);

Re: perl и кодировки

спасибо, вернусь с шашлыков - проверю!!! =)

Re: perl и кодировки

perldoc Encode

А что тебе насоветовал r_asian -- ужыс! Точно сисадмин, блин :)

Re: perl и кодировки

Ну, согласный я, вариант не самый оптимальный, зато работает и выпить не просит :-)

Re: perl и кодировки

Это не просто "не самый оптимальный вариант", это просто жопа, а не вариант. Представь, из твоего варианта сделали функцию, и вставили её в cgi-шку, которая получает данные откуда-то и конвертирует их в нужную клиенту кодировку. На каждый чих звать iconv(1)??? А когда эту цгишку позовут 100 пользователей сразу?

Re: perl и кодировки

Ну вся, блин, пошел я пить йад и топитьса в Волге. :-((

Re: perl и кодировки

iconv - кривое говно, обламывающееся на 50% текстов. Лучше уж recode использовать, оно дуракоустойчивее.

Re: perl и кодировки

2r_asian:
> Ну, согласный я, вариант не самый оптимальный, зато работает и выпить не просит :-)

Нет, твой вариант не работает _вообще_ :-(

Если бы ты использовал -w или use warnings, то увидел бы что-то типа:

Can't open bidirectional pipe at ./pipe.pl line 3.

Конструкция типа open(A, "|some_command|") просто не работает,
о чем недвусмысленно написано в perldoc -f open:

You are not allowed to "open" to a command that pipes both in and out,
but see IPC::Open2, IPC::Open3, and "Bidirectional Communication with
Another Process" in perlipc for alternatives.

> Ну вся, блин, пошел я пить йад и топитьса в Волге. :-((

Йад может немного подождать, а вот чтение perldoc perlipc тебе
явно срочно необходимо.

HTH

P.S. И пожалуйста - всегда use warnings и use strict

Re: perl и кодировки

> P.S. И пожалуйста - всегда use warnings и use strict
Добавлю, всегда только про написании программы, и на стадии тестирования.
При ипользовании в работе эти две строчки лучше комментировать.
Потому что они жрут память немеренно.

Re: perl и кодировки

> При ипользовании в работе эти две строчки лучше комментировать. > Потому что они жрут память немеренно.

Это, грубо говоря, ложь. strict вообще влияет, в основном, на компиляцию .

Re: perl и кодировки

>iconv - кривое говно, обламывающееся на 50% текстов.
>Лучше уж recode использовать, оно дуракоустойчивее

iconv -f cp1251 -t utf-8 -c
                         ^^^
                  дуракоустойчивость:)