in reply to By the shine on my bald pate, I dislike this encoding stuff

Encode::Guess

Encode::Detect

  • Comment on 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]
      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]

        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]

In Section Seekers of Perl Wisdom