Changeset 27039 in osm

Timestamp:

2011-11-11T10:31:51+01:00 (13 years ago)

Author:

stoecker

Message:

small I/O fix

File:

• applications/editors/josm/i18n/langinfo.pl (modified) (3 diffs)

applications/editors/josm/i18n/langinfo.pl

@@ -1 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl -w -CDSL
+
+use Term::ReadKey;
+use strict;
+use utf8;
+use Encode;
+
+my $tlen = (GetTerminalSize())[0]-11;
 
 my $data;
@@ -24 +31 @@
         ++$num;
         read FILE,$data,$len;
-        $data =~ s/[\r\n]/./g;
-        printf("%4d %5d %.50s\n", $i, $len, $data);
+        $data = decode("utf-8", $data);
+        $data =~ s/\r/\\r/g;
+        $data =~ s/\n/\\n/g;
+        $data = substr($data, 0, $tlen);
+        printf("%4d %5d %s\n", $i, $len, $data);
       }
       else
@@ -70 +80 @@
         {
           read FILE,$data,$len;
-          $data =~ s/[\r\n]/./g;
-          printf("%4d %5d %.50s\n", $i, $len, $data);
+          $data = decode("utf-8", $data);
+          $data =~ s/\r/\\r/g;
+          $data =~ s/\n/\\n/g;
+          $data = substr($data, 0, $tlen);
+          printf("%4d %5d %s\n", $i, $len, $data);
         }
         else