summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/bin/crc32
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/bin/crc32')
-rwxr-xr-xMaster/tlpkg/tlperl/bin/crc3231
1 files changed, 0 insertions, 31 deletions
diff --git a/Master/tlpkg/tlperl/bin/crc32 b/Master/tlpkg/tlperl/bin/crc32
deleted file mode 100755
index aa7da02a8ad..00000000000
--- a/Master/tlpkg/tlperl/bin/crc32
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-# Computes and prints to stdout the CRC-32 values of the given files
-
-use strict;
-use lib qw( blib/lib lib );
-use Archive::Zip;
-use FileHandle;
-
-my $totalFiles = scalar(@ARGV);
-foreach my $file (@ARGV) {
- if ( -d $file ) {
- warn "$0: ${file}: Is a directory\n";
- next;
- }
- my $fh = FileHandle->new();
- if ( !$fh->open( $file, 'r' ) ) {
- warn "$0: $!\n";
- next;
- }
- binmode($fh);
- my $buffer;
- my $bytesRead;
- my $crc = 0;
- while ( $bytesRead = $fh->read( $buffer, 32768 ) ) {
- $crc = Archive::Zip::computeCRC32( $buffer, $crc );
- }
- printf( "%08x", $crc );
- print("\t$file") if ( $totalFiles > 1 );
- print("\n");
-}