linux perl 文件编码

use strict;
use warnings;
use Encode qw(encode decode);

my $filename = 'example.txt';
open(my $fh, '<:encoding(UTF-8)', $filename) or die "Could not open file '$filename' $!";

while (my $row = <$fh>) {
    chomp $row;
    print decode('UTF-8', $row) . "\n";
}

close($fh);

use strict;
use warnings;
use Encode qw(encode decode);

my $filename = 'output.txt';
open(my $fh, '>:encoding(UTF-8)', $filename) or die "Could not open file '$filename' $!";

my $text = "你好，世界！";
print $fh encode('UTF-8', $text);

close($fh);

use strict;
use warnings;
use Encode qw(encode decode);

# 读取UTF-8编码的文件
my $input_filename = 'input.txt';
open(my $input_fh, '<:encoding(UTF-8)', $input_filename) or die "Could not open file '$input_filename' $!";
while (my $line = <$input_fh>) {
    chomp $line;
    print "Read: " . decode('UTF-8', $line) . "\n";
}
close($input_fh);

# 写入GBK编码的文件
my $output_filename = 'output.txt';
open(my $output_fh, '>:encoding(GBK)', $output_filename) or die "Could not open file '$output_filename' $!";
my $text = "你好，世界！";
print $output_fh encode('GBK', $text);
close($output_fh);