Hello again,
I was asked to include MD5 crc checks and the quick shell I wrote to see
how MD5 works before dropping it in has some issues.
i used the PPM to install all of the modules listed before writing. i KNOW
i have MD5 , MD5-Handle and the IO lib as well.
thank you in advance for your time and help.
debugger output:
C:\Documents and Settings\jperlmutter.GRANITE_ENG\My
Documents\perl\test_scripts\DirectoryServer>perl -d md5.pl md5.pl
Loading DB routines from perl5db.pl version 1.28
Editor support available.
Enter h or `h h' for help, or `perldoc perldebug' for more help.
main::(md5.pl:11): my $md5 = Digest::Md5->new;
SetConsoleMode failed, LastError=|6| at C:/Perl/site/lib/Term/ReadKey.pm
line 265.
at C:/Perl/site/lib/Term/ReadLine/readline.pm line 1415
readline::readline(' DB<1> ') called at
C:/Perl/site/lib/Term/ReadLine/Perl.pm line 11
Term::ReadLine::Perl::readline('Term::ReadLine::Perl=ARRAY(0x1dba12c)', '
DB<1> ') called at C:/Perl/lib/perl5db.pl line 6
367
DB::readline(' DB<1> ') called at C:/Perl/lib/perl5db.pl line
2203
DB::DB called at md5.pl line 11
DB<1> n
Can't locate object method "new" via package "Digest::Md5" (perhaps you
forgot to load "Digest::Md5"?) at md5.pl line 11.
at md5.pl line 11
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
h q, h R or h O to get additional info.
DB<1> q
C:\Documents and Settings\jperlmutter.GRANITE_ENG\My
Documents\perl\test_scripts\DirectoryServer>
and the script getting this is:
#! /usr/bin/perl -w
use strict;
use Digest::MD5;
use Digest::MD5::File;
use IO::Handle;
#####
## md 5 test/play ground
#####
my $md5 = Digest::Md5->new;
my $io = new IO::Handle;
my $file = shift @ARGV;
my $fh = $io->fdopen ($file, "r");
$md5->addfile($fh);
my $sum = $md5 -> digest;
print "$sum\n";
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
