File: reverse.pl

package info (click to toggle)
slimp3 4.2.6-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 5,720 kB
  • ctags: 1,310
  • sloc: perl: 25,569; sh: 499; java: 56; makefile: 41
file content (7 lines) | stat: -rwxr-xr-x 216 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
 
#!/usr/bin/perl

open INFILE, pop @ARGV;
while ($line=<INFILE>) {
	$line=~s/([0-9a-fA-f])([0-9a-fA-f])([0-9a-fA-f])([0-9a-fA-f])([0-9a-fA-f])([0-9a-fA-f])([0-9a-fA-f])([0-9a-fA-f])/$7$8$5$6$3$4$1$2/;
	print $line;
}