🚀 go-pugleaf

On 2015-06-23, Czarek Grądys <czarekgr@wa.onet.pl> wrote:
> Skrypt mniej więcej taki:
> #!/usr/bin/perl
> use utf8;
> use DBI;
> use Config::Tiny;

Ja wiem, że długie, ale przeczytaj proszę:
https://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
pytanie, i pierwszą odpowiedź (tchrist'a).

Ja po tym po prostu mam taki "boilerplate" dla wszystkich skryptów
perlowych:

#v+
# UTF8 boilerplace, per http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
use v5.14;
use strict;
use warnings;
use warnings qw( FATAL utf8 );
use utf8;
use open qw( :std :utf8 );
use Unicode::Normalize qw( NFC );
use Unicode::Collate;
use Encode qw( decode );
if ( grep /\P{ASCII}/ => @ARGV ) {
    @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV;
}
# If there is __DATA__,then uncomment next line:
# binmode( DATA, ':encoding(UTF-8)' );
# UTF8 boilerplace, per http://stackoverflow.com/questions/6162484/why-does-modern-perl-avoid-utf-8-by-default/
#v-

To rozwiązuje większość problemów.

depesz