File: oct2bin

package info (click to toggle)
xmlrpc-c 1.06.27-1.1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 4,308 kB
  • ctags: 5,111
  • sloc: ansic: 39,324; sh: 8,284; cpp: 6,051; makefile: 1,339; perl: 494; xml: 134
file content (12 lines) | stat: -rwxr-xr-x 235 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
# Turn C-style octal escapes into binary.
# Call as "echo -n 'ab\0\001cd' | oct2bin > out.binmode".

binmode STDOUT;

while (<>) {
    s/\\(\d\d\d)/chr(oct($1))/ge;
    s/\\0/chr(0)/ge;
    s/\\\\/\\/g;
    print $_;
}