1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/env perl use warnings; use strict; use Encode::Locale qw(); use My::Module; binmode STDIN, ':encoding(console_in)'; binmode STDOUT, ':encoding(console_out)'; binmode STDERR, ':encoding(console_out)'; use open ':encoding(locale)';
Quoteuse open ':encoding(locale)';
QuoteThe "open" pragma serves as one of the interfaces to declare default
"layers" (also known as "disciplines") for all I/O. Any two-argument
open(), readpipe() (aka qx//) and similar operators found within the
lexical scope of this pragma will use the declared defaults. Even
three-argument opens may be affected by this pragma when they don't
specify IO layers in MODE.
2018-03-08T06:26:38 KuerbisPragma open
Auf was bezieht sich das "das" in deiner Frage?