#!/usr/bin/perl use strict; use warnings; use utf8 ; use open IO => ':encoding(UTF-8)', ':std'; use Encode; use Data::Dump qw/dd pp/; use Devel::Peek; use MIME::Base64 ; my $str ='ř'; warn "\n*** orig str='$str'"; Dump $str; my $bytes = Encode::encode_utf8($str); warn "\n*** encode utf8='$bytes'"; Dump $bytes; our $encoded = MIME::Base64::encode_base64($bytes); warn "\n*** encode_b64 encoded='$encoded'"; Dump $encoded; warn "\n*** decode_b64"; our $decoded = MIME::Base64::decode_base64($encoded); Dump $decoded; warn "\n*** encode_utf8"; $decoded = Encode::decode_utf8($decoded); Dump $decoded; warn "\n*** _utf8_on (NO-OP)"; Encode::_utf8_on($decoded); Dump $decoded;
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
In reply to Re: Converting utf-8 to base64 and back
by choroba
in thread Converting utf-8 to base64 and back
by LanX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |