sjekk_iso

   1 #!/usr/bin/env perl
   2
   3 # sjekk_iso
   4 # File ID: c4313fee-5d43-11df-a93e-90e6ba3022ac
   5 # Sjekker at en CD er brent riktig. Leser en fil på dette formatet:
   6 # MD5 størrelse navn
   7
   8 use warnings;
   9
  10 while(<>) {
  11         if (/^([0-9a-f]{16}\s+(\d+)\s+(.*)$/) {
  12                 print("\n");
  13                 my ($Md5, $Size, $Name) = ($1, $2, $3);
  14                 my $Result = `head -c $Size </dev/cdrom | md5sum`;
  15                 print("MD5 av $Name:  $Result\n");
  16                 print("Skulle være : $Md5\n");
  17                 print((substr($Result, 0, 16) == substr($Md5, 0, 16)) ? "$Name:  $Name: Feil i md5sum);
  18         } else {
  19                 warn("$0: Linje $.: Feil format.\n");
  20         }
  21 }