Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Unicode


Автор: gcc 7.4.2010, 00:24
есть программа на 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 10.4.2010, 06:52
я так понимаю что это не нужно использовать http://search.cpan.org/~bobtfish/Catalyst-Plugin-Unicode-0.93/lib/Catalyst/Plugin/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/Catalyst-Plugin-Unicode-0.93/lib/Catalyst/Plugin/Unicode.pm

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)