File: flipper.pl

package info (click to toggle)
xtux 0.2.030306-10
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny
  • size: 10,212 kB
  • ctags: 2,009
  • sloc: ansic: 11,703; makefile: 174; perl: 126; sh: 44
file content (16 lines) | stat: -rwxr-xr-x 338 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl

#Author: David Lawrence - philaw@ozemail.com.au
#A script to flip images in a horizontal direction in the process of creating
#the composite images in XTux.

foreach $file ( @ARGV ) {

	$_ = $file;
	if( s/_(.*?)e_/_$1w_/ ) {
		print "$file ==> $_\n";
		system("convert -flop $file $_");
	}

}
#print "string = \"$_\"\n";