Changeset 27039 in osm for applications/editors
- Timestamp:
- 2011-11-11T10:31:51+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
applications/editors/josm/i18n/langinfo.pl
r26987 r27039 1 #! /usr/bin/perl -w 1 #! /usr/bin/perl -w -CDSL 2 3 use Term::ReadKey; 4 use strict; 5 use utf8; 6 use Encode; 7 8 my $tlen = (GetTerminalSize())[0]-11; 2 9 3 10 my $data; … … 24 31 ++$num; 25 32 read FILE,$data,$len; 26 $data =~ s/[\r\n]/./g; 27 printf("%4d %5d %.50s\n", $i, $len, $data); 33 $data = decode("utf-8", $data); 34 $data =~ s/\r/\\r/g; 35 $data =~ s/\n/\\n/g; 36 $data = substr($data, 0, $tlen); 37 printf("%4d %5d %s\n", $i, $len, $data); 28 38 } 29 39 else … … 70 80 { 71 81 read FILE,$data,$len; 72 $data =~ s/[\r\n]/./g; 73 printf("%4d %5d %.50s\n", $i, $len, $data); 82 $data = decode("utf-8", $data); 83 $data =~ s/\r/\\r/g; 84 $data =~ s/\n/\\n/g; 85 $data = substr($data, 0, $tlen); 86 printf("%4d %5d %s\n", $i, $len, $data); 74 87 } 75 88 else
Note:
See TracChangeset
for help on using the changeset viewer.