[Gnome terminal] codage des caractères

#! /usr/bin/perl
#
use warnings;
use strict;

my $p1=110000;
my $p2='10';
my %utf8;

sub dec2bin{
        my $dec = unpack("B32",pack("N",shift));
        $dec =~ s/^0+(\d+)/$1/;
        return $dec;
}

sub bin2dec{
        return (unpack("N",pack("B32",substr("0" x 32 . shift,-32))));
}

my @t=map { dec2bin($_) } 128..255;

foreach(@t){
        my $v = bin2dec($_);
        my $utf8 = $p1 . substr($_,0,2) . $p2 . substr($_,-6);
        my $cle = bin2dec(substr($utf8,0,8)).bin2dec(substr($utf8,-8,8));
        $utf8{$cle} = $v;
}

while (my $ligne = <>){
        $ligne =~ s/(.)/ord($1)>127?ord($1):$1/eg;
        foreach my $c (keys %utf8){
                $ligne =~ s/$c/chr($utf8{$c})/eg;
        }
        $ligne =~s/195/à/g;# j'ai ajouté pour à, je n'ai pas cherché pourqoui à n'est pas traité
        print $ligne;
}

[lami20j@localhost ~]$ man cp

CP(1)                    Manuel de l'utilisateur Linux                   CP(1)

NOM
       cp - Copier des fichiers et des répertoires.

SYNOPSIS
       cp [options] fichier chemin
       cp [options] fichier... répertoire

       Options POSIX : [-fiprR] [--]

       Options POSIX 1003.1-2003 supplémentaires : [-HLP]

       Options GNU file-utils 4.0 (forme courte) :
       [-abdfilprsuvxPR]    [-S   SUFFIXE]   [-V   {numbered,existing,simple}]
       [--backup=CONTROL] [--sparse=QUAND] [--help] [--version] [--]

       Options GNU file-utils 4.1 supplémentaires (forme courte) :
       [-HLP]     [--copy-contents]     [--no-preserve]      [--reply=COMMENT]
       [--remove-destination]    [--strip-trailing-slashes]   [--target-direc-
       tory=RÃP]

DESCRIPTION
       cp sert à copier des fichiers (et éventuellement  des  répertoires).
       On  peut  aussi  bien  copier  un  fichier  donné vers une destination
       précise que copier un ensemble de fichiers dans un répertoire.

       Si le dernier argument correspond à un nom de  répertoire,  cp  copie
       dans ce répertoire chaque fichier indiqué en conservant le même nom.

       Sinon, s'il n'y a que deux fichiers indiqués, il copie le premier  sur
       le second.

       Une  erreur se produit si le dernier argument n'est pas un répertoire,
       et si plus de deux fichiers sont indiqués. Par défaut, on  n'effectue
       pas la copie de répertoires.

       Ainsi,  si  /a  est  un répertoire, alors « cp -r /a /b » copiera /a
       dans /b/a et /a/x dans /b/a/x au cas où  /b  existe  déjà ,  mais  il
       copiera /a sur /b et /a/x dans /b/x si /b n'existait pas encore. Enfin,
       si /b était un fichier ordinaire, la copie échouera.

[lami20j@localhost ~]$ man cp | utf8_accent.pl | less
CP(1)                    Manuel de l'utilisateur Linux                   CP(1)



NOM
       cp - Copier des fichiers et des répertoires.

SYNOPSIS
       cp [options] fichier chemin
       cp [options] fichier... rà169pertoire

       Options POSIX : [-fiprR] [--]

       Options POSIX 1003.1-2003 supplémentaires : [-HLP]

       Options GNU file-utils 4.0 (forme courte) :
       [-abdfilprsuvxPR]    [-S   SUFFIXE]   [-V   {numbered,existing,simple}]
       [--backup=CONTROL] [--sparse=QUAND] [--help] [--version] [--]

       Options GNU file-utils 4.1 supplémentaires (forme courte) :
       [-HLP]     [--copy-contents]     [--no-preserve]      [--reply=COMMENT]
       [--remove-destination]    [--strip-trailing-slashes]   [--target-direc-
       tory=RàP]


DESCRIPTION
       cp sert à  copier des fichiers (et éventuellement  des  répertoires).
       On  peut  aussi  bien  copier  un  fichier  donné vers une destination
       précise que copier un ensemble de fichiers dans un répertoire.

       Si le dernier argument correspond à  un nom de  répertoire,  cp  copie
       dans ce répertoire chaque fichier indiqué en conservant le même nom.

       Sinon, s'il n'y a que deux fichiers indiqués, il copie le premier  sur
       le second.

       Une  erreur se produit si le dernier argument n'est pas un répertoire,
       et si plus de deux fichiers sont indiqués. Par défaut, on  n'effectue
       pas la copie de répertoires.

       Ainsi,  si  /a  est  un répertoire, alors « cp -r /a /b » copiera /a
       dans /b/a et /a/x dans /b/a/x au cas où  /b  existe  déjà ,  mais  il
       copiera /a sur /b et /a/x dans /b/x si /b n'existait pas encore. Enfin,
       si /b était un fichier ordinaire, la copie échouera.

NOM
       find - Rechercher des fichiers dans une hiérarchie de répertoires.

SYNOPSIS
       find [chemin...] [expression]

DESCRIPTION
       Cette  page  de manuel documente la version GNU de find.  find parcourt
       les arborescences de répertoires commençant  en  chacun  des  chemins
       mentionnés,  en évaluant les expressions fournies pour chaque fichier
       rencontré.  L'évaluation de l'expression se fait de gauche à droite,
       en   suivant  des  règles  de  priorité  décrites  dans  la  section
       OPÃRATEURS, jusqu'à  ce que le résultat soit  connu  (par  exemple  la
       partie  gauche vraie pour un opérateur OU ou fausse pour un opérateur
       ET).

[root@localhost ~]# bzip2 -dc /usr/share/man/fr/man1/find.1.bz2  | perl man4utf8.pl | gzip -c > /usr/share/man/fr/man1/find.1.gz

[root@localhost ~]# man find
FIND(1L)                 Manuel de l'utilisateur Linux                FIND(1L)

NOM
       find - Rechercher des fichiers dans une hiérarchie de répertoires.

SYNOPSIS
       find [chemin...] [expression]

DESCRIPTION
       Cette  page  de manuel documente la version GNU de find.  find parcourt
       les arborescences de répertoires commençant en chacun des chemins  men-
       tionnés,  en évaluant les expressions fournies pour chaque fichier ren-
       contré.  L'évaluation de l'expression se fait de gauche  à  droite,  en
       suivant  des  règles  de  priorité décrites dans la section OPÉRATEURS,
       Jusqu'à ce que le résultat soit connu (par  exemple  la  partie  gauche
       vraie pour un opérateur OU ou fausse pour un opérateur ET).

#! /usr/bin/perl
#
use warnings;
use strict;

my $p1=110_000;
my $p2='10';
my %utf8;

sub dec2bin{
	my $dec = unpack("B32",pack("N",shift));
	$dec =~ s/^0+(\d+)/$1/;
	return $dec;
}

sub bin2dec{
	return (unpack("N",pack("B32",substr("0" x 32 . shift,-32))));
}

my @t=map { dec2bin($_) } 128..255;

foreach(@t){
	my $v = bin2dec($_);
	my $utf8 = $p1 . substr($_,0,2) . $p2 . substr($_,2);
	my $cle = bin2dec(substr($utf8,0,8)).bin2dec(substr($utf8,-8));
	$utf8{$cle} = $v;
}

while (my $ligne = <>){
	$ligne =~ s/([\x80-\xDF])/ord($1)/eg;
	foreach my $c (keys %utf8){
		$ligne =~ s/$c/chr($utf8{$c})/eg;
	}
	print $ligne;
}