File: test_codings.pl

package info (click to toggle)
libnetsds-perl 1.301-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 296 kB
  • sloc: perl: 1,516; makefile: 7
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");