Re^7: How to know to know if string is utf8 encoded or decoded.

Thank you for the reply.
That is existing code. basically the logic behind the code is, if filename is utf8 encoded then return the string as it is but if it is not then decode it using encode::decode.

for filename "test1℗ὓ.txt" there is not need to decode at all but with filename "1669-SCC-HôpitauxdeSaint-Maurice-POC.PIF", it is not working with or without decode. when I say not working it is not getting decoded properly so that file is not getting attached.

Comment on Re^7: How to know to know if string is utf8 encoded or decoded.

Replies are listed 'Best First'.
Re^8: How to know to know if string is utf8 encoded or decoded. by 1nickt (Canon) on Jul 26, 2019 at 15:26 UTC
You have already been given your answers; I am sorry you are struggling to hear them. choroba showed that the strings can be decoded fine, and I explained that you are using a bad value for the encoding. #!/usr/bin/perl use strict; use warnings; use feature 'say'; use utf8; use Encode; my $str = '1669-SCC-HôpitauxdeSaint-Maurice-POC.PIF'; say 'UTF-8: ' . encode('UTF-8', $str); say 'MIME-Header: ' . encode('MIME-Header', $str); $str = 'test1℗ὓ.txt'; say 'UTF-8: ' . encode('UTF-8', $str); say 'MIME-Header: ' . encode('MIME-Header', $str); __END__ $ perl foo.pl UTF-8: 1669-SCC-HôpitauxdeSaint-Maurice-POC.PIF MIME-Header: =?UTF-8?B?MTY2OS1TQ0MtSMO0cGl0YXV4ZGVTYWludC1NYXVyaWNlLVBPQy5QSUY=?= UTF-8: test1℗ὓ.txt MIME-Header: =?UTF-8?B?dGVzdDHihJfhvZMudHh0?= The way forward always starts with a minimal test.	[reply]

Replies are listed 'Best First'.

Re^8: How to know to know if string is utf8 encoded or decoded.
by 1nickt (Canon) on Jul 26, 2019 at 15:26 UTC

You have already been given your answers; I am sorry you are struggling to hear them. choroba showed that the strings can be decoded fine, and I explained that you are using a bad value for the encoding.

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use utf8;

use Encode;

my $str = '1669-SCC-HôpitauxdeSaint-Maurice-POC.PIF';

say 'UTF-8: ' . encode('UTF-8', $str);
say 'MIME-Header: ' . encode('MIME-Header', $str);

$str = 'test1℗ὓ.txt';

say 'UTF-8: ' . encode('UTF-8', $str);
say 'MIME-Header: ' . encode('MIME-Header', $str);

__END__

$ perl foo.pl
UTF-8: 1669-SCC-HôpitauxdeSaint-Maurice-POC.PIF
MIME-Header: =?UTF-8?B?MTY2OS1TQ0MtSMO0cGl0YXV4ZGVTYWludC1NYXVyaWNlLVBPQy5QSUY=?=
UTF-8: test1℗ὓ.txt
MIME-Header: =?UTF-8?B?dGVzdDHihJfhvZMudHh0?=

The way forward always starts with a minimal test.

[reply]