TheAthlete · February 12, 2020 16:01
diff --git a/foo.mt b/foo.mt
 <!DOCTYPE html>
 <html>
 <head>
 <meta charset="windows-1251">
 <title>Тест</title>
 </head>
 <body>
 <p>Привет</p>
 <p><%= $str %></p>
 </body>
 </html>
diff --git a/test.pl b/test.pl
 #!/usr/bin/myperl5
 use strict;
 use warnings;
 use Mojo::Template;
 use CGI;
 use Encode qw/decode encode/;

 my $mt = Mojo::Template->new(vars => 1)->encoding('cp1251');
 my $CGI = new CGI;

 my $str = "вуифывафыва";

 $str = decode('cp1251', $str);
 print $CGI->header(-type => "text/html; charset=cp1251");
 print encode('cp1251', $mt->render_file('foo.mt', {str => $str}));
 print "абвгд"
	#!/usr/bin/myperl5
	use strict;
	use warnings;
	use Mojo::Template;
	use CGI;
	use Encode qw/decode encode/;

	my $mt = Mojo::Template->new(vars => 1)->encoding('cp1251');
	my $CGI = new CGI;

	my $str = "вуифывафыва";

	$str = decode('cp1251', $str);
	print $CGI->header(-type => "text/html; charset=cp1251");
	print encode('cp1251', $mt->render_file('foo.mt', {str => $str}));
	print "абвгд"