encode01.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:31 2010 from encode01.pl 2006/10/30 871.

#!/Perl
use strict;
use warnings;
use Encode;
require 'logfile.pl' or die "ERROR: Unable to load logfile.pl ...\n";
# log file stuff
my ($LF);
my $outfile = 'temp.'.$0.'.txt';
my $item = '';
my $cnt = 0;
my $msg = '';
open_log($outfile);
prt(  "$0... Hello, World...\n" );
my @list = Encode->encodings();
my @all_encodings = Encode->encodings(":all");
$cnt = scalar @list;
prt( "Have $cnt encodings ...\n" );
$cnt = 0;
foreach $item (@list) {
   $cnt++;
   $msg = sprintf( "% 6d) [%s] ...", $cnt, $item );
   prt( "$msg\n" );
}
prt( "Done $cnt list ...\n" );
$cnt = scalar @all_encodings;
prt( "Have $cnt ALL encodings ...\n" );
$cnt = 0;
foreach $item (@all_encodings) {
   $cnt++;
   $msg = sprintf( "% 6d) [%s] ...", $cnt, $item );
   prt( "$msg\n" );
}
prt( "Done $cnt list ...\n" );
close_log($outfile, 1);
exit(0);
# eof - encode01.pl

index -|- top