Re^2: By the shine on my bald pate, I dislike this encoding stuff

This doesn't explain why it doesn't work but OK, thanks, I have added:

use Encode::Guess;
my $decoder = Encode::Guess->guess($filedata);  # default detectable e
+ncodings include utf8.
return(@err, "Can't guess encoding: $decoder") unless ref($decoder);
[download]

This is still no good as it fails for all files, ANSII and UTF-8 with error

Can't guess encoding: Empty string, empty guess.

Comment on Re^2: By the shine on my bald pate, I dislike this encoding stuff Select or Download Code

Replies are listed 'Best First'.
Re^3: By the shine on my bald pate, I dislike this encoding stuff by poj (Abbot) on Mar 04, 2018 at 09:01 UTC
Empty string All the content is read into `@LINES` so `$filedata` is empty my(@LINES) = <ORDERFILE>; my $filedata = <ORDERFILE>; Maybe try my @LINES = <ORDERFILE>; my $filedata = join '',@LINES; or just open ORDERFILE, '<', $emailfile or die "$emailfile: $!"; my $filedata = do { local $/; <ORDERFILE> }; close ORDERFILE; poj	[reply] [d/l] [select]
Re^4: By the shine on my bald pate, I dislike this encoding stuff by jfrm (Monk) on Mar 04, 2018 at 11:23 UTC
Thank you. I had no idea. That does work for the files that are ANSI. Most bizarrely, `my @LINES = <ORDERFILE>; my $filedata = join '',@LINES;` [download] works but the following does not + I get loads of warnings: "utf8 "\xA3" does not map to Unicode" `my $filedata = <ORDERFILE>;` [download]	[reply] [d/l] [select]
Re^5: By the shine on my bald pate, I dislike this encoding stuff by poj (Abbot) on Mar 04, 2018 at 14:29 UTC
`my $filedata = <ORDERFILE>;` That only reads the first line of the file. poj	[reply] [d/l]


Welcome to the Monastery
	PerlMonks