repo.or.cz
/
sunny256-utils.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
`pakk_logg`: Make it work on the mobile
[sunny256-utils.git]
/
mime2txt
blob
0c8d4d871c0ab3e2edf8d56d077993f1a2f2fe1b
1
#!/usr/bin/env perl
2
3
# mime2txt
4
# File ID: 848c0aa8-5d3f-11df-9938-90e6ba3022ac
5
# Konverterer tekst i MIME-format til vanlig tekst. Vet ikke hvor korrekt
6
# den er, men det ser ut til å funke greit.
7
8
use
strict
;
9
use
warnings
;
10
11
while
(<>) {
12
s/=([0-9a-f]{2})/chr(hex($1))/gei
;
13
s/=\n//
;
14
print
;
15
}