diff options
Diffstat (limited to 'migrationanalysis/src/driver_docs/ulf2dat.pl')
-rw-r--r-- | migrationanalysis/src/driver_docs/ulf2dat.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/migrationanalysis/src/driver_docs/ulf2dat.pl b/migrationanalysis/src/driver_docs/ulf2dat.pl index 25b1fe2f7ebc..e97eb32e0f62 100644 --- a/migrationanalysis/src/driver_docs/ulf2dat.pl +++ b/migrationanalysis/src/driver_docs/ulf2dat.pl @@ -4,7 +4,7 @@ eval 'exec perl -wS $0 ${1+"$@"}' #************************************************************************* # # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# +# # Copyright 2000, 2010 Oracle and/or its affiliates. # # OpenOffice.org - a multi-platform office productivity suite @@ -62,7 +62,7 @@ if ( $help ) { open IN, "<$in_name" or die "Could not open $in_name for reading $! $^E"; -foreach $lang ( keys %files ) +foreach $lang ( keys %files ) { open "F_$lang",">$files{$lang}" or die "Could not open $files{$lang} for writing $! $^E"; binmode "F_$lang"; @@ -80,7 +80,7 @@ while ( <IN> ) if ( $line =~ /^\[(.*)\]$/ ) { $new_ID = $1; - + write_transunit(); $ID = $new_ID; %transunit = (); @@ -117,11 +117,11 @@ sub write_transunit { $string = $transunit{ "en-US" }; } - + my $dat_line = "$ID=$string"; Encode::from_to( $dat_line, "utf8", "UTF-16LE"); print { $files{$lang} } "$dat_line\015\000\012\000"; - } + } } @@ -131,9 +131,9 @@ sub get_options { while ($arg = shift @ARGV) { $arg =~ /^-i$/ and $in_name = shift @ARGV and next; $arg =~ /^-help$/ and $help = 1 and next; #show help - + $arg =~ /.*[\/\\]([^\/\\]*)\.dat$/; -# $arg =~ /.*[/\]([^/\]*)\.dat$/; +# $arg =~ /.*[/\]([^/\]*)\.dat$/; $lang = $1; print "got $lang = $arg\n"; $files{ $lang } = $arg; |