Привет,
у меня кризис жанра - никак не могу решить, какое Perl API будет хорошим.
Сойдет ли такое:
use Apache::Charset;
my $recoder = new Apache::Charset;
print "mod_charset is turned off or not configured" unless $recoder->is_ok;
print $recoder->server_charset;
print $recoder->client_charset;
$scalar = $recoder->server2client($some_scalar);
$scalar = $recoder->client2server($some_scalar);
$scalar = $recoder->server2client_esc($some_scalar);# returns %aa-escaped string
@charsets=$recoder->charsets; # returns lists of charsets, known by server
Alex
"Russian Apache" includes software developed
by the Apache Group for use in the Apache HTTP server project
(http://www.apache.org/) See
Apache LICENSE.
Copyright (C) 1995-2001 The Apache Group. All rights reserved.
Copyright (C) 1996 Dm. Kryukov; Copyright (C)
1997-2009 Alex Tutubalin. Design (C) 1998 Max Smolev.