mirror of
https://git.femboyfinancial.jp/james/lipsync.git
synced 2025-02-16 15:59:01 -08:00
15 lines
280 B
Perl
15 lines
280 B
Perl
$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 );
|