2017-07-16 35 views

回答

-1

请试试这个。 代码是在这里...

须藤六/usr/share/perl5/Razor2/Logger.pm

00008: use POSIX qw(strftime); 
00009: use IO::File; 
00010: # 2003/09/10 Anne Bennett: syslog of our choice (uses socket, 
00011: # does not assume network listener). 
00012: use Sys::Syslog; 
00013: + use Encode; 
00014: 
00015: # designed to be inherited module 
00016: # but can stand alone. 

00106:   my $fd = $self->{fd}; 
00107: -  print $fd "$now_string$logstr"; 
00107: +  print $fd encode('utf-8', "$now_string$logstr"); 
00108:  }