perl mojo 处理文本

来源：互联网发布：九本女王升级数据2017 编辑：程序博客网时间：2024/05/25 18:10
1.关闭utf8centos6.5:/root#cat t2.pl use Mojolicious::Lite;  use JSON qw/encode_json decode_json/;    use Encode;  no strict;  no utf8;use JSON;   use Data::Dumper;  # /foo?user=sri   get '/admin/api/menu' => sub {            my $c = shift;           open (LOG1 ,"<",'11.out') or die  $!;                       while (<LOG1>) {                       my $phone='18072722237';                      #2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为132435，本验证码5分钟内有效。 to phoneNo:18072722237 succeed!                         if ($_ =~  /([0-9]{4}-[0-9]{1,2}-[0-9]{2}\s+[0-9]{2}:[0-9]{2}:[0-9]{2}.*?)\s+(.*?Send message:)\s*(.*?)(to\s+phoneNo:\s*[0-9]{11}).*/){                       $a1=$1;                $a2=$2;                 $a3=$3;                  $a4=$4;                        print "\$a1 is $a1\n";                        print "\$a2 is $a2\n";                        print "\$a3 is $a3\n";                        print "\$a4 is $a4\n";                    close LOG1;                      print "length\$a3--------------\n";                    print length($a3);                    print "\n";                    print "--------------\n";                                       my $a5="测试更健康";                    print "length\$a5--------------\n";                    print length($a5);                    print "\n";                    print "--------------\n";          $c->render(text => "$a5" );  };  };};                           app->start;centos6.5:/root#cat 11.out 2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:验证to phoneNo:18072722237 succeed! centos6.5:/root#[root@yun-bak ~]# curl http://192.168.11.185:3000/admin/api/menuæµè¯æ´å¥åº·[root@yun-bak ~]# 此时curl 返回乱码centos6.5:/root#cat t2.pl use Mojolicious::Lite;  use JSON qw/encode_json decode_json/;    use Encode;  no strict;  no utf8;use JSON;   use Data::Dumper;  # /foo?user=sri   get '/admin/api/menu' => sub {            my $c = shift;           open (LOG1 ,"<",'11.out') or die  $!;                       while (<LOG1>) {                       my $phone='18072722237';                      #2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为132435，本验证码5分钟内有效。 to phoneNo:18072722237 succeed!                         if ($_ =~  /([0-9]{4}-[0-9]{1,2}-[0-9]{2}\s+[0-9]{2}:[0-9]{2}:[0-9]{2}.*?)\s+(.*?Send message:)\s*(.*?)(to\s+phoneNo:\s*[0-9]{11}).*/){                       $a1=$1;                $a2=$2;                 $a3=$3;                  $a4=$4;                        print "\$a1 is $a1\n";                        print "\$a2 is $a2\n";                        print "\$a3 is $a3\n";                        print "\$a4 is $a4\n";                    close LOG1;                      print "length\$a3--------------\n";                    print length($a3);                    print "\n";                    print "--------------\n";                                       my $a5=decode_utf8("测试更健康");                    print "length\$a5--------------\n";                    print length($a5);                    print "\n";                    print "--------------\n";                                 $c->render(text => "$a5" );  };  };};                           app->start;centos6.5:/root#morbo t2.pl Server available at http://127.0.0.1:3000[Sun Mar 12 16:10:01 2017] [debug] GET "/admin/api/menu"[Sun Mar 12 16:10:01 2017] [debug] Routing to a callback$a1 is 2016-03-09 09:35:12,380$a2 is INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:$a3 is 验证$a4 is to phoneNo:18072722237length$a3--------------6--------------length$a5--------------5--------------[Sun Mar 12 16:10:01 2017] [debug] 200 OK (0.00105s, 952.381/s)readline() on closed filehandle LOG1 at /root/t2.pl line 15.[root@yun-bak ~]# curl http://192.168.11.185:3000/admin/api/menu测试更健康[root@yun-bak ~]# 1.开启utf8centos6.5:/root#cat t2.pl use Mojolicious::Lite;  use JSON qw/encode_json decode_json/;    use Encode;  no strict;  use JSON;   use Data::Dumper;  # /foo?user=sri   get '/admin/api/menu' => sub {            my $c = shift;           open (LOG1 ,"<",'11.out') or die  $!;                       while (<LOG1>) {                       my $phone='18072722237';                      #2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:您的验证码为132435，本验证码5分钟内有效。 to phoneNo:18072722237 succeed!                         if ($_ =~  /([0-9]{4}-[0-9]{1,2}-[0-9]{2}\s+[0-9]{2}:[0-9]{2}:[0-9]{2}.*?)\s+(.*?Send message:)\s*(.*?)(to\s+phoneNo:\s*[0-9]{11}).*/){                       $a1=$1;                $a2=$2;                 $a3=$3;                  $a4=$4;                        print "\$a1 is $a1\n";                        print "\$a2 is $a2\n";                        print "\$a3 is $a3\n";                        print "\$a4 is $a4\n";                    close LOG1;                      print "length\$a3--------------\n";                    print length($a3);                    print "\n";                    print "--------------\n";                                       my $a5="测试更健康";                    print "length\$a5--------------\n";                    print length($a5);                    print "\n";                    print "--------------\n";                                 $c->render(text => "$a5" );  };  };};                           app->start;centos6.5:/root#morbo t2.pl Server available at http://127.0.0.1:3000[Sun Mar 12 16:12:06 2017] [debug] GET "/admin/api/menu"[Sun Mar 12 16:12:06 2017] [debug] Routing to a callback$a1 is 2016-03-09 09:35:12,380$a2 is INFO com.zjzc.thirdparty.sms.SMSUtils - Send message:$a3 is 验证$a4 is to phoneNo:18072722237length$a3--------------6--------------length$a5--------------5--------------[Sun Mar 12 16:12:06 2017] [debug] 200 OK (0.001204s, 830.565/s)readline() on closed filehandle LOG1 at /root/t2.pl line 14.[root@yun-bak ~]# curl http://192.168.11.185:3000/admin/api/menu测试更健康[root@yun-bak ~]#
0 0