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

Replies are listed 'Best First'.
Re^2: By the shine on my bald pate, I dislike this encoding stuff by jfrm (Monk) on Mar 04, 2018 at 08:37 UTC
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.`	[reply] [d/l] [select]
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


Your skill will accomplish what the force of many cannot
	PerlMonks