view bin/cek.pl @ 539:05785a85d603

Fix json syntax highlighter config.
author edogawaconan <me@myconan.net>
date Mon, 05 Jan 2015 23:00:11 +0900
parents 5bafb912837e
children 1a996b35eaab
line wrap: on
line source

#!/usr/bin/env perl

use strict;
use warnings;
use String::CRC32;
use File::Basename;

my @files = @ARGV or print("Usage: ",basename($0)," file1 file2 ... fileN\n") && exit(1);
my $num_ok=0;
my $num_err=0;
my $num_nf=0;
my $num_na=@files;

foreach(@files) {
	my $filename = $_;
	my ($name_crc,$real_crc);
	unless (-f $filename) {
		$num_nf++;$num_na--;
		print(qq(Could not find "$filename", skipping\n));
		next();
	}
	if(/(\[|\()([0-9A-F]{8})(\]|\))/i){
		$name_crc=uc($2);
	}
	open(FILE,"<",$filename);
	binmode(FILE);
	$real_crc=sprintf("%08X",crc32(*FILE));
	close(FILE);
	if($name_crc) {
		$num_na--;
		if($name_crc eq $real_crc) {
			$num_ok++;
			print("$filename: OK - $real_crc\n");
		} else {
			$num_err++;
			print("$filename: NOT OK - $real_crc, should be $name_crc\n");
		}
	} else {
		print("$filename: $real_crc\n");
	}
}

printf("%s\n","-"x40);
if($num_ok > 0) { print("Files OK: $num_ok\n"); }
if($num_err > 0) { print("Files error: $num_err\n"); }
if($num_nf > 0) { print("Files not found: $num_nf\n"); }
if($num_na > 0) { print("Files without crc information: $num_na\n"); }

exit(0);