#!/usr/bin/perl
use warnings;
use strict;
use utf8;
my %topurls = (arabic => { title => join(q(), map chr $_,
216, 167, 217, 132, 216, 185, 216,
177, 216, 168, 217, 138, 216, 169),
count => 42,
users => 11,
},
french => { title => 'une chèvre goûte des légumes',
count => 11,
users => 42,
}
);
open my $OUT, '>', 'topurls.htm' or die "Can't open output: $!";
print $OUT <<'END_HEADER';
Top URLs
Top URLs
| Link | Count | Users |
|---|
END_HEADER
for my $u (keys %topurls) {
my @line;
$line[0] = ''.$topurls{$u}{title}.'';
$line[1] = $topurls{$u}{count};
$line[2] = $topurls{$u}{users};
binmode $OUT, ':bytes';
print $OUT '| Bytes: ', join(' | ', @line), " |
\n";
binmode $OUT, ':utf8';
print $OUT '| UTF-8: ', join(' | ', @line), " |
\n";
}
print $OUT '
';
close $OUT;