File: EditResx.pl

package info (click to toggle)
cadencii 3.3.9%2Bsvn20110818.r1732-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 35,764 kB
  • ctags: 26,929
  • sloc: cs: 160,836; java: 42,449; cpp: 7,605; ansic: 1,728; perl: 1,087; makefile: 236; php: 142; xml: 117; sh: 21
file content (14 lines) | stat: -rw-r--r-- 280 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$file = $ARGV[0];

$index = rindex( $file, "." );
$newfile = substr( $file, 0, $index ) . "_.resx";

open( FILE, $file );
open( EDIT, ">" . $newfile );
while( $line = <FILE> ){
#	chomp $line;
	$line =~ s/[\\]/\//g;
	print EDIT $line;
}
close( FILE );
close( EDIT );