#!/usr/local/bin/perl
# 
# by adulau@foo.be
# 
# Convert file from BSD checksum format to gnu format
#
# Usage : cat MD5 | perl cksum-convert.pl | md5sum -c
# Usage : cat SHA1 | perl cksum-convert.pl | sha1sum -c

while (<STDIN>)
{
 s/ //;
 chomp();
 my @ent = split (/=/);
 m/\(([^)]+)/;
 print $ent[1]."  ".$1."\n";
}

