File: adobe.pl

package info (click to toggle)
xulrunner 1.9.0.19-16
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 300,620 kB
  • ctags: 274,220
  • sloc: cpp: 1,476,569; ansic: 958,461; xml: 85,755; asm: 49,038; makefile: 43,672; sh: 29,810; perl: 17,669; python: 6,692; cs: 6,232; java: 5,189; objc: 1,476; lex: 306; lisp: 256; php: 244; pascal: 86; yacc: 79; ada: 49; csh: 10; awk: 10; sed: 6; sql: 4
file content (13 lines) | stat: -rw-r--r-- 193 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/local/bin/perl -w
while(<STDIN>)
{
  if(/^#/)
  {
      print $_;
  }
  else 
  {
     ($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/;
     print "0x" . $c . $b . "0x" . $a .  $d . "\n";
  }
}