<h2>Edit File: encguess</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/perl
use 5.008001;
BEGIN { pop @INC if $INC[-1] eq &#039;.&#039; }
use strict;
use warnings;
use Encode;
use Getopt::Std;
use Carp;
use Encode::Guess;
$Getopt::Std::STANDARD_HELP_VERSION = 1;

my %opt;
getopts( &quot;huSs:&quot;, \%opt );
my @suspect_list;
list_valid_suspects() and exit if $opt{S};
@suspect_list = split /:,/, $opt{s} if $opt{s};
HELP_MESSAGE() if $opt{h};
HELP_MESSAGE() unless @ARGV;
do_guess($_) for @ARGV;

sub read_file {
    my $filename = shift;
    local $/;
    open my $fh, &#039;&lt;:raw&#039;, $filename or croak &quot;$filename:$!&quot;;
    my $content = &lt;$fh&gt;;
    close $fh;
    return $content;
}

sub do_guess {
    my $filename = shift;
    my $data     = read_file($filename);
    my $enc      = guess_encoding( $data, @suspect_list );
    if ( !ref($enc) &amp;&amp; $opt{u} ) {
        return 1;
    }
    print &quot;$filename\t&quot;;
    if ( ref($enc) ) {
        print $enc-&gt;mime_name();
    }
    else {
        print &quot;unknown&quot;;
    }
    print &quot;\n&quot;;
    return 1;
}

sub list_valid_suspects {
    print join( &quot;\n&quot;, Encode-&gt;encodings(&quot;:all&quot;) );
    print &quot;\n&quot;;
    return 1;
}

sub HELP_MESSAGE {
    exec &#039;pod2usage&#039;, $0 or die &quot;pod2usage: $!&quot; 
}
__END__
=head1 NAME

encguess - guess character encodings of files

=head1 VERSION

$Id: encguess,v 0.3 2020/12/02 01:28:17 dankogai Exp dankogai $

=head1 SYNOPSIS

  encguess [switches] filename...

=head2 SWITCHES

=over 2

=item -h

show this message and exit.

=item -s

specify a list of &quot;suspect encoding types&quot; to test, 
separated by either C&lt;:&gt; or C&lt;,&gt;

=item -S

output a list of all acceptable encoding types that can be used with
the -s param

=item -u

suppress display of unidentified types

=back

=head2 EXAMPLES:

=over 2

=item *

Guess encoding of a file named C&lt;test.txt&gt;, using only the default
suspect types.

   encguess test.txt

=item *

Guess the encoding type of a file named C&lt;test.txt&gt;, using the suspect
types C&lt;euc-jp,shiftjis,7bit-jis&gt;.

   encguess -s euc-jp,shiftjis,7bit-jis test.txt
   encguess -s euc-jp:shiftjis:7bit-jis test.txt

=item *

Guess the encoding type of several files, do not display results for
unidentified files.

   encguess -us euc-jp,shiftjis,7bit-jis test*.txt

=back

=head1 DESCRIPTION

The encoding identification is done by checking one encoding type at a
time until all but the right type are eliminated. The set of encoding
types to try is defined by the -s parameter and defaults to ascii,
utf8 and UTF-16/32 with BOM. This can be overridden by passing one or
more encoding types via the -s parameter. If you need to pass in
multiple suspect encoding types, use a quoted string with the a space
separating each value.

=head1 SEE ALSO

L&lt;Encode::Guess&gt;, L&lt;Encode::Detect&gt;

=head1 LICENSE AND COPYRIGHT

Copyright 2015 Michael LaGrasta and Dan Kogai.

This program is free software; you can redistribute it and/or modify it
under the terms of the the Artistic License (2.0). You may obtain a
copy of the full license at:

L&lt;http://www.perlfoundation.org/artistic_license_2_0&gt;

=cut
</textarea><br><input type="hidden" name="edit_file" value="encguess"><input type="submit" value="Save"></form>