Jul 14
#!/usr/bin/perl
for $i (32..127) {
printf qq/kod=%3d. hex=%02X ( /, $i, $i;
print chr $i, " )\n";
}
Leave a Reply
You must be logged in to post a comment.
#!/usr/bin/perl
for $i (32..127) {
printf qq/kod=%3d. hex=%02X ( /, $i, $i;
print chr $i, " )\n";
}
You must be logged in to post a comment.
Recent Comments