repo.or.cz
/
terpinus.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
add hex2bin filter for easy diff
[terpinus.git]
/
hex2bin.pl
blob
ff0082f31fbb92e85b7cc6d70370e24feda2c6ad
1
#!/usr/bin/perl
2
3
while
(<>) {
4
if
(
m/^([0-9A-F]+)$/
) {
5
$full
= $&;
6
$t
=
$1
;
7
$t
=~
s/0/ /g
;
8
$t
=~
s/1/ ##/g
;
9
$t
=~
s/2/ ## /g
;
10
$t
=~
s/3/ ####/g
;
11
$t
=~
s/4/ ## /g
;
12
$t
=~
s/5/ ## ##/g
;
13
$t
=~
s/6/ #### /g
;
14
$t
=~
s/7/ ######/g
;
15
$t
=~
s/8/## /g
;
16
$t
=~
s/9/## ##/g
;
17
$t
=~
s/A/## ## /g
;
18
$t
=~
s/B/## ####/g
;
19
$t
=~
s/C/#### /g
;
20
$t
=~
s/D/#### ##/g
;
21
$t
=~
s/E/###### /g
;
22
$t
=~
s/F/########/g
;
23
print
"
$full
\t
$t
\n
"
;
24
}
25
else
{
26
print
$_
;
27
}
28
}