VPF::Unicode - Форум программистов

gcc

Дата 7.4.2010, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

есть программа на catalyst, там используется модуль Unicode, подключается автоматически

в очередной раз это вижу что его используют и вижу геморой с кодировкой.
т.е. все что пришло c html form в UTF8, все русские букфы переводятся в такой вид:

Код


  "\x{43A}\x{435}\x{43D}\x{43A}\x{435}\x{43D}",

зачем это делается? это на что-то влияет?

просто если нужно вставить в mysql, то все нормально, а вот если нужно сделать разные обработки, то нужно все время переводить все туда и обратно перебирая всё с этим Encode::encode, а оно еще без Exception и просто как-то фигова-то получается... мягко говоря

Код


Caught exception in MyApp::Controller::vv->add "Wide character in subroutine entry at /usr/local/lib/perl5/site_perl/5.8.9/MIME/Lite.pm line 2264."

во всех многих случаях мне тоже приходиться переводить обратно Encode::encode( 'utf8', $sub )

некоторые версии Json.pm тоже переводят русские симовлы в такой вид, зачем это делается?

Это сообщение отредактировал(а) gcc - 7.4.2010, 00:24

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

gcc

Дата 10.4.2010, 06:52 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

я так понимаю что это не нужно использовать http://search.cpan.org/~bobtfish/Catalyst-...ugin/Unicode.pm

не знаю зачем это сделано и зачем это стоит по-умолчанию

Код


package Catalyst::Plugin::Unicode;

use strict;

use MRO::Compat;

our $VERSION = '0.93';

sub finalize {
    my $c = shift;

    if ( $c->response->{body} && utf8::is_utf8($c->response->{body}) ){
        utf8::encode( $c->response->{body} );
    }

    return $c->next::method(@_);
}

sub prepare_parameters {
    my $c = shift;

    $c->next::method(@_);

    for my $value ( values %{ $c->request->{parameters} } ) {

        if ( ref $value && ref $value ne 'ARRAY' ) {
            next;
        }

        utf8::decode($_) for ( ref($value) ? @{$value} : $value );
    }
}

1;

__END__

http://cpansearch.perl.org/src/BOBTFISH/Ca...ugin/Unicode.pm

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »