car2hex.pl

#!/usr/bin/perl -w
# remd: pour connaitre les équivalences caractères en hexa et inversement.
# alain adelmar Octobre 2000.
usestrict

$i = 0;
@car = <FO>;
$filout ="car2hex.txt";

for ( $i = 0;$i < 257;$i++ ) {
%car = ( "$i" => "\x$i" );
$ligne = "$i\t$i\n";
push @car,$ligne;
print "$ligne";
}

open FO, ">$filout" or die "merde, pbOpCible $!";
print FO @car;
close FO or die "pb fermeture fichier Cible, y en a marre! $!";
END;