File: test_codings.pl

package info (click to toggle)
libnetsds-perl 1.301-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, squeeze, wheezy
  • size: 292 kB
  • ctags: 159
  • sloc: perl: 1,516; makefile: 13
file content (18 lines) | stat: -rwxr-xr-x 417 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/env perl

use warnings;
use strict;

use URI::Escape;

use NetSDS::Util::Text qw(text_encode text_decode text_recode);
use NetSDS::Util::Misc qw(str2uri);

my $var = "жопа жопа жопа проверка связи 3-й раз блин не то бегает, что нескол";

$var = text_encode($var);

$var = text_decode($var, "UTF16-BE");

print length($var) . uri_escape($var,"\0-\xff");