Dancer utf-8 亂碼處理日志

timeweguo

Dancer::Response

1. sub init {
   
2.     my ( $self, %args ) = @_;
   
3.     $self->attributes_defaults(
   
4.         status  => 200,
   
5.         content => '',
   
6.         pass    => 0,
   
7.         halted  => 0,
   
8.         forward => '',
   
9.         encoded => 1,
   
10.     );
    
11.     $self->{headers} = HTTP::Headers->new(@{ $args{headers} || [] });
    
12.     Dancer::SharedData->response($self);
    
13. }
    

復(fù)制代碼

encoded 默認(rèn)為1

一般我們數(shù)據(jù)用 UTF-8 w/o BOM 格式，不需要再輸出時(shí)再次 encode('utf-8',$content)

timeweguo

Dancer::Handler Fix:

1.         if ( $charset && $ctype && _is_text($ctype) ) {
   
2.             if((utf8::is_utf8($content) && $content =~ /[^\x00-\xff]/) || !$response->_already_encoded){
   
3.                 $content = Encode::encode( $charset, $content );
   
4.             }
   
5.             $response->header( 'Content-Type' => "$ctype; charset=$charset" )
   
6.               if $ctype !~ /$charset/;
   
7.         }

復(fù)制代碼