[ViewVC] Annotation of: gclib/scripts/crc

#!/usr/bin/perl
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; 
        if ($file eq '-') {
          $fh = *STDIN;
          }
        else {  
           $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");
}
Revision:	24
Committed:	Tue Jul 26 21:46:39 2011 UTC (13 years, 2 months ago) by gpertea
File size:	885 byte(s)
Log Message:
Line	User	Rev	File contents
1	gpertea	23	#!/usr/bin/perl
2			use strict;
3			use lib qw( blib/lib lib );
4			use Archive::Zip;
5			use FileHandle;
6			my $totalFiles = scalar(@ARGV);
7			foreach my $file (@ARGV)
8			{
9			if (-d $file)
10			{
11			warn "$0: ${file}: Is a directory\n";
12			next;
13			}
14
15			my $fh;
16			if ($file eq '-') {
17			$fh = *STDIN;
18			}
19			else {
20			$fh = FileHandle->new();
21			if (! $fh->open($file, 'r'))
22			{
23			warn "$0: $!\n";
24			next;
25			}
26			}
27			binmode($fh);
28			my $buffer;
29			my $bytesRead;
30			my $crc = 0;
31			while ($bytesRead = $fh->read($buffer, 32768))
32			{
33			$crc = Archive::Zip::computeCRC32($buffer, $crc);
34			}
35			printf("%08x", $crc);
36			print("\t$file") if ($totalFiles > 1);
37			print("\n");
38			}