Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 203ebd4a

Von Moritz Bunkus vor fast 14 Jahren hinzugefügt

  • ID 203ebd4a71a8de7d549db868b657232da36b6e82
  • Vorgänger 40c4eff3
  • Nachfolger 961d72df

Perl-Scripte mit UTF-8 encodierten Umlaugen brauchen "use utf8"

Unterschiede anzeigen:

locale/de/all
2 2
# -*- coding: utf-8; -*-
3 3
# vim: fenc=UTF-8
4 4

  
5
use utf8;
6

  
5 7
# These are all the texts to build the translations files.
6 8
# The file has the form of 'english text'  => 'foreign text',
7 9
# you can add the translation in this file or in the 'missing' file
......
153 155
  'Add bank account'            => 'Bankkonto erfassen',
154 156
  'Add custom variable'         => 'Benutzerdefinierte Variable erfassen',
155 157
  'Add note'                    => 'Notiz erfassen',
156
  'Add to group'                => 'Zu Gruppe hinzufügen',
157 158
  'Add unit'                    => 'Einheit hinzufügen',
158 159
  'Address'                     => 'Adresse',
159 160
  'Administration'              => 'Administration',
......
1011 1012
  'May '                        => 'Mai',
1012 1013
  'May set the BCC field when sending emails' => 'Beim Verschicken von Emails das Feld \'BCC\' setzen',
1013 1014
  'Medium Number'               => 'Datenträgernummer',
1014
  'Members not of'              => 'Benutzer nicht in Gruppe',
1015
  'Members of'                  => 'Benutzer in Gruppe',
1016 1015
  'Memo'                        => 'Memo',
1017 1016
  'Menu'                        => 'Menü',
1018 1017
  'Message'                     => 'Nachricht',
locale/de_DE/all
2 2
# -*- coding: utf-8; -*-
3 3
# vim: fenc=UTF-8
4 4

  
5
use utf8;
6

  
5 7
# These are all the texts to build the translations files.
6 8
# The file has the form of 'english text'  => 'foreign text',
7 9
# you can add the translation in this file or in the 'missing' file
locale/en/all
2 2
# -*- coding: utf-8; -*-
3 3
# vim: fenc=UTF-8
4 4

  
5
use utf8;
6

  
5 7
# These are all the texts to build the translations files.
6 8
# The file has the form of 'english text'  => 'foreign text',
7 9
# you can add the translation in this file or in the 'missing' file
scripts/locales.pl
600 600
  my $data_name = $params{data_name};
601 601
  my @delim     = split //, ($params{delim} || '{}');
602 602

  
603
  open my $fh, '>', $file or die "$! : $file";
603
  open my $fh, '>:encoding(utf8)', $file or die "$! : $file";
604 604

  
605 605
  $charset =~ s/\r?\n//g;
606 606
  my $emacs_charset = lc $charset;
607 607

  
608
  print $fh "#!/usr/bin/perl\n# -*- coding: $emacs_charset; -*-\n# vim: fenc=$charset\n\n";
608
  print $fh "#!/usr/bin/perl\n# -*- coding: $emacs_charset; -*-\n# vim: fenc=$charset\n\nuse utf8;\n\n";
609 609
  print $fh $header, "\n" if $header;
610 610
  print $fh "$data_name = $delim[0]\n" if $data_name;
611 611

  

Auch abrufbar als: Unified diff