blob: c6f9e8c7c699b9860d7ad101e5b9ec91e3e14b46 [file] [log] [blame] [edit]
#! /usr/bin/perl
# This is a script for checking whether a file contains any carriage return
# characters, and whether it is valid UTF-8.
use Encode;
# This subroutine does the work for one file.
$yield = 0;
$ascii = 0; # bool
$crlf = 0; # bool
sub checktxt {
my($file) = $_[0];
open(IN, "<:raw", "$file") || die "Can't open $file for input";
$bin = do { local $/ = undef; <IN> };
close(IN);
my $data;
eval
{
$data = Encode::decode("UTF-8", $bin, Encode::FB_CROAK);
1; # return true
}
or do
{
printf "Bad UTF-8 in $file\n";
$yield = 1;
return;
};
if (!$crlf && index($data, "\r") != -1)
{
printf "CR in $file\n";
$yield = 1;
}
if ($ascii && $data =~ /[^\x01-\x7e]/)
{
printf "Non-ASCII in $file\n";
$yield = 1;
}
}
# This is the main program
$, = ""; # Output field separator
for ($i = 0; $i < @ARGV; $i++)
{
if ($ARGV[$i] eq "-ascii")
{
$ascii = 1;
}
elsif ($ARGV[$i] eq "-crlf")
{
$crlf = 1;
}
else
{
checktxt($ARGV[$i]);
}
}
exit $yield;
# End