Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (12 sloc) 173 Bytes
#!/usr/bin/perl
my $i = 0;
while (read STDIN, my $ch, 1)
{
printf "%02X ", ord($ch);
if (++$i == 16)
{
$i = 0;
printf "\n";
}
}
printf "\n";