aleesa-bot/aleesa-cli
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

decode string from console as utf-8

Browse Source
This commit is contained in:
eleksir
2022-04-17 16:29:08 +03:00
parent 839b63a927
commit 0e41e612e5
2 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
aleesa-cli
View File

@@ -28,6 +28,7 @@ BEGIN {
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5"); use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use Clone qw (clone); use Clone qw (clone);
use Encode qw (decode_utf8);
use JSON::XS (); use JSON::XS ();
use Mojo::IOLoop::LineReader (); use Mojo::IOLoop::LineReader ();
use Mojo::Redis (); use Mojo::Redis ();
@@ -105,6 +106,7 @@ my $__signal_handler = sub {
# Процедура, реагирующая на строку, пойманную с клавиатуры # Процедура, реагирующая на строку, пойманную с клавиатуры
my $__input_line_handler = sub { my $__input_line_handler = sub {
my ($self, $line) = @_; my ($self, $line) = @_;
$line = decode_utf8 ($line);
chomp $line; chomp $line;
if ($line =~ /^(exit|quit)$/) { ## no critic (RegularExpressions::ProhibitFixedStringMatches) if ($line =~ /^(exit|quit)$/) { ## no critic (RegularExpressions::ProhibitFixedStringMatches)

1
cpanfile
View File

@@ -1,6 +1,7 @@
## no critic ## no critic
requires 'Clone', '==0.45'; requires 'Clone', '==0.45';
requires 'Cwd', '==3.75'; requires 'Cwd', '==3.75';
requires 'Encode', '==3.17';
requires 'JSON::XS', '==4.03'; requires 'JSON::XS', '==4.03';
requires 'local::lib', '==2.000028'; requires 'local::lib', '==2.000028';
requires 'Mojo::Redis', '==3.29'; requires 'Mojo::Redis', '==3.29';