Hi, welcome to the monastery!

I took a look at your post and I have some thoughts about both the post and the code.

First, regarding your post. The following things about it make it difficult to help you:

• "I have an issue with Encode::Guess" -- you do not say what your issue is.
• You do not show your expected output.
• You do not show your actual output.
• You posted a great deal of irrelevant code, which makes it hard to see what's going on.

For tips on how to get better help, please see:

• How do I post a question effectively?
• Basic debugging checklist
• How to ask better questions using Test::More and sample data

With regard to your code, while there are lots of things about it that could be improved, both it and the following Short, Self-Contained, Correct Example "work" and produce the same essential output.

use strict; use warnings;

use Encode::Guess;

my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict
+ utf8';
guess_encoding('some text', qw/$encodings_test/);
[download]

Output:

Unknown encoding: $encodings_test at /Users/1nickt/perl5/perlbrew/perl
+s/perl-5.30.1/lib/5.30.1/darwin-2level/Encode/Guess.pm line 120.
[download]

An even simpler SSCCE :

use strict; use warnings;
use Test::More tests => 2;

my $str = 'foo bar baz';
my @arr = ('foo', 'bar', 'baz');

is_deeply( [ qw/foo bar baz/ ], [ @arr ] );
is_deeply( [ qw/$str/ ], [ @arr ] );
[download]

Output:

11115052-3.pl ..
1..2
ok 1
not ok 2

#   Failed test at 11115052-3.pl line 8.
#     Structures begin differing at:
#          $got->[0] = '$str'
#     $expected->[0] = 'foo'
# Looks like you failed 1 test of 2.
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/2 subtests

Test Summary Report
-------------------
11115052-3.pl (Wstat: 256 Tests: 2 Failed: 1)
  Failed test:  2
  Non-zero exit status: 1
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.05 cusr 
+ 0.00 csys =  0.07 CPU)
Result: FAIL
[download]

See qw.

A couple of other observations I had:

• Your code looks as though you first spent time on your argument parsing, error messaging, copyright printing etc., before actually proving that your algorithm or core implementation worked. Generally it's easier to work from the middle outwards.

• Your script, judging by its name, appears actually to be trying to decide if a file is encoded in UTF-8. Like Corion, I wonder why you wouldn't know that already. If that is what you are trying to do, you might like to take a look also at Test::utf8.

Hope this helps!

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.