précédant | suivant | sommaire

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;




précédant | suivant | sommaire