Gecko [ dataharbor.africa ]

Name	Size	Permission
ansible	6.29 KB	-rwxr-xr-x
ansible-config	6.29 KB	-rwxr-xr-x
ansible-connection	13.12 KB	-rwxr-xr-x
ansible-console	6.29 KB	-rwxr-xr-x
ansible-doc	6.29 KB	-rwxr-xr-x
ansible-galaxy	6.29 KB	-rwxr-xr-x
ansible-inventory	6.29 KB	-rwxr-xr-x
ansible-playbook	6.29 KB	-rwxr-xr-x
ansible-pull	6.29 KB	-rwxr-xr-x
ansible-test	793 B	-rwxr-xr-x
ansible-vault	6.29 KB	-rwxr-xr-x
bench	210 B	-rwxr-xr-x
crontab	1.81 MB	-rwxr-xr-x
ea-php56	4.02 MB	-rwxr-xr-x
ea-php70	3.91 MB	-rwxr-xr-x
ea-php71	4.08 MB	-rwxr-xr-x
ea-php72	4.32 MB	-rwxr-xr-x
ea-php73	4.71 MB	-rwxr-xr-x
ea-php74	6.09 MB	-rwxr-xr-x
ea-php80	6.67 MB	-rwxr-xr-x
ea-php81	6.71 MB	-rwxr-xr-x
ea_convert_php_ini	39.85 KB	-rwxr-xr-x
ea_current_to_profile	8.31 KB	-rwxr-xr-x
ea_install_profile	7.1 KB	-rwxr-xr-x
ea_sync_user_phpini_settings	6.73 KB	-rwxr-xr-x
enc2xs	40.77 KB	-r-xr-xr-x
encguess	2.99 KB	-r-xr-xr-x
instmodsh	4.1 KB	-r-xr-xr-x
json_xs	6.93 KB	-r-xr-xr-x
lsphp	937 B	-rwxr-xr-x
lwp-download	10.13 KB	-r-xr-xr-x
lwp-dump	2.73 KB	-r-xr-xr-x
lwp-mirror	2.44 KB	-r-xr-xr-x
lwp-request	15.9 KB	-r-xr-xr-x
passwd	3.47 MB	-rwxr-xr-x
pear	935 B	-rwxr-xr-x
php	933 B	-rwxr-xr-x
piconv	8.16 KB	-r-xr-xr-x
virtualenv	242 B	-rwxr-xr-x
wp	6.42 MB	-rwxr-xr-x

Code Editor : encguess

#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell
use 5.008001;
BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings;
use Encode;
use Getopt::Std;
use Carp;
use Encode::Guess;
$Getopt::Std::STANDARD_HELP_VERSION = 1;

my %opt;
getopts( "huSs:", \%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, '<:raw', $filename or croak "$filename:$!";
    my $content = <$fh>;
    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) && $opt{u} ) {
        return 1;
    }
    print "$filename\t";
    if ( ref($enc) ) {
        print $enc->mime_name();
    }
    else {
        print "unknown";
    }
    print "\n";
    return 1;
}

sub list_valid_suspects {
    print join( "\n", Encode->encodings(":all") );
    print "\n";
    return 1;
}

sub HELP_MESSAGE {
    exec 'pod2usage', $0 or die "pod2usage: $!" 
}
__END__
=head1 NAME

encguess - guess character encodings of files

=head1 VERSION

$Id: encguess,v 0.2 2016/08/04 03:15:58 dankogai Exp $

=head1 SYNOPSIS

encguess [switches] filename...

=head2 SWITCHES

=over 2

=item -h

show this message and exit.

=item -s

specify a list of "suspect encoding types" to test, 
seperated by either C<:> or C<,>

=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<test.txt>, using only the default
suspect types.

encguess test.txt

=item *

Guess the encoding type of a file named C<test.txt>, using the suspect
types C<euc-jp,shiftjis,7bit-jis>.

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<Encode::Guess>, L<Encode::Detect>

=head1 LICENSE AND COPYRIGHT

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<http://www.perlfoundation.org/artistic_license_2_0>

=cut

${this.title}

Code Editor : encguess