Package: analog X-debbugs-cc: Bet will bounce as not a subscriber <[email protected]> Tags: upstream Version: 2:6.0-9 Severity: normal
$ egrep -ri uft-8\|unicode /usr/share/doc/analog #finds nothing All I know is to get something comfortable for reading. I must use #!/usr/bin/perl # analog2utf8 -- turn my ISO-8859-1 and escape sequence stuff to utf8 # Copyright : http://www.fsf.org/copyleft/gpl.html # Author : Dan Jacobson -- http://jidanni.org/ # Created On : Tue Nov 7 06:07:03 2006 # Last Modified On: Tue Nov 7 07:43:36 2006 # Update Count : 14 #Input: an analog(1) produced index.html #Output: "fixed" HTML use strict; use warnings; use URI::Escape; use Text::Iconv; my $converter = Text::Iconv->new( "big5", "utf-8" ); while (<>) { s/((?:encoding|charset)="?)ISO-8859-1/$1utf-8/ if 1 .. /<html>/i; s/\\x([[:xdigit:]]{2})/%$1/g; $_ = uri_unescape($_); $_ = $converter->convert($_) if /=big5/; #very few print; } ## Didn't try SEARCHCHARCONVERT OFF, however I need to convert many ## more places in the output than the documents mention it does. -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
