diff options
| author | fukachan <fukachan> | 2001-01-31 23:18:37 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-31 23:18:37 +0000 |
| commit | 74d6edca7a9e6c6cf4ebe408ac7540167a91a6c4 (patch) | |
| tree | e8fa7f8c0476a6bcad92c1cacfeb0f4f2d2b338b | |
| parent | 1e10bc3a1248f6ddb7055611e5c07909fd5621d4 (diff) | |
| download | fml8-74d6edca7a9e6c6cf4ebe408ac7540167a91a6c4.tar.gz fml8-74d6edca7a9e6c6cf4ebe408ac7540167a91a6c4.tar.bz2 fml8-74d6edca7a9e6c6cf4ebe408ac7540167a91a6c4.zip | |
checksum checker
| -rw-r--r-- | regress/base/md5.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/regress/base/md5.pl b/regress/base/md5.pl new file mode 100644 index 00000000..1759e899 --- /dev/null +++ b/regress/base/md5.pl @@ -0,0 +1,20 @@ +#!/usr/local/bin/perl +#-*- perl -*- +# +# Copyright (C) 2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $Id$ +# $FML$ +# + +print STDERR "specify STDIN\n"; + +my $body; while (<>) { $body .= $_;} + +use FML::Checksum; +$p = new FML::Checksum; +print $p->md5( \$body ), "\n"; + +exit 0; |