Исходное сообщение
"Perl + md5" Отправлено Heretic, 10-Май-07 16:59
>>Подскажите как можно реализовать скрипт на Perle по обработке md5, в bashе >>он реализуется достаточно просто: >> >>md5sum /etc >> data.md5 >>md5sum -c data.md5 >>но вот на перле я все перерыл и нашел только как получить >>md5 сумму с файла >> >>#!/usr/bin/perl >>use MD5; >>$md5 = new MD5; >>print md5_hex(~/script.pl); >> >>а как потом сравнить, то? > >что сравнить то? если ты имеешь в виду что разные хеши получаются >;-) так запусти >md5sum -t >получаться одинаковые,  а если хочешь чтобы в перле бинарные были посмотри >MD5.pm там найдешь как. Я немного о другом сейчас более подробно объясню что хочу сделать: Итак я с помощью md5_hex(~/script.pl) получаю хеш запихиваю его в базу данных, через какое то время я снова вызываю md5_hex(~/script.pl), но уже сравниваю этот хеш с хешем в своей базе данных, если они равны то ОК, иначе я выполняю какие-то определенные инструкции.