Revision 203ebd4a
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| 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
Perl-Scripte mit UTF-8 encodierten Umlaugen brauchen "use utf8"