Thread Frage zum Encoding/Decoding in Modulen (2 answers)
Opened by Kuerbis at 2012-04-24 11:45

Kuerbis
 2012-04-24 11:45
#157807 #157807
User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]
Hallo,

bin ich mit dem Module My_Package, was das Encoding/Decoding betriff so in Ordnung, wenn ich my_random mit Strings (decodiert) füttere und im Modul die Strings nicht verändere?

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use warnings;
use 5.14.0;
use utf8;
package My_Package;

use Exporter 'import';
our @EXPORT_OK = qw(my_random);

sub my_random {
    my ( $list, $option ) = @_;
    binmode STDOUT, ":encoding($option->{encoding_stdout})";
    my $rand_element = $list->[rand @$list];
    say $rand_element;
    return $rand_element;
}


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
use lib '.';
use My_Package qw(my_random);

my $stdout_encoding = 'UTF-8';
binmode STDOUT, ":encoding($stdout_encoding)";

my $rand_element = my_random( 
    [ qw( eins zwei drei vier fünf ) ], 
    { encoding_stdout => $stdout_encoding } 
);

View full thread Frage zum Encoding/Decoding in Modulen