Hi again :) I found a sollution i think. With Encode::Detect i can do:
use Encode;
require Encode::Detect;
my $utf8 = decode("Detect", $data);
And for now it works!
More:
use Encode::Detect::Detector;
my $charset = detect($octets);
It prints sended charset (eg windows-1251,UTF-8,KOI8-R)
I have to try more test to be sure it works. If some one use that pls
let me know what you think.
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[EMAIL PROTECTED]/
Dev site: http://dev.catalyst.perl.org/
