CGI::Application

[chorny]

Как в C::A отдать сharset=utf8 в заголовке http?

[podlom]

Может тебе поможет борьба с использованием use Encode (http://ahinea.com/en/tech/perl-unicode-struggle.html)?
Хорошая статейка. Мне реально помогла.

[chorny]

Может тебе поможет борьба с использованием use Encode?

С utf8 я работать умею, меня интересует именно http.

[podlom]

С utf8 я работать умею, меня интересует именно http.

Ну в той статье вроде бы есть примеры типа: require Encode;
require CGI;
my $query = CGI ->new;
my $form_input = {};
foreach my $name ( $query ->param ) {
my @val = $query ->param( $name );
foreach ( @val ) {
$_ = Encode::decode_utf8( $_ );
}
$name = Encode::decode_utf8( $name );
if ( scalar @val == 1 ) {
$form_input ->{$name} = $val[0];
} else {
$form_input ->{$name} = \@val; # save value as an array ref
}
}

[chorny]

кстати вот решение


sub cgiapp_init {
my $self = shift;
$self->query->charset('windows-1251'); #или любой другой
}