The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Perl + md5"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Perl + md5"  
Сообщение от Heretic (ok) on 10-Май-07, 16:22 
Подскажите как можно реализовать скрипт на 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);

а как потом сравнить, то?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

  • Perl + md5, NuINu, 16:54 , 10-Май-07, (1)  
    • Perl + md5, Heretic, 16:59 , 10-Май-07, (2)  
      • Perl + md5, NuINu, 17:21 , 10-Май-07, (3)  
        • Perl + md5, Heretic, 17:38 , 10-Май-07, (4)  

Сообщения по теме [Сортировка по времени, UBB]


1. "Perl + md5"  
Сообщение от NuINu (??) on 10-Май-07, 16:54 
>Подскажите как можно реализовать скрипт на 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 там найдешь как.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Perl + md5"  
Сообщение от Heretic (ok) on 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), но уже сравниваю этот хеш с хешем в своей базе данных, если они равны то ОК, иначе я выполняю какие-то определенные инструкции.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Perl + md5"  
Сообщение от NuINu (??) on 10-Май-07, 17:21 
Ну и в чем проблема?
да я тут сделал стандартно, бинарное сравнение.
-----------------------------------
#!/usr/bin/perl

#ак можно реализовать скрипт на Perle по обработке md5, в bashе он реализуется достаточно просто:

#md5sum /etc >> data.md5
#md5sum -c data.md5
#но вот на перле я все перерыл и нашел только как получить md5 сумму с файла

use Digest::MD5;

open(MD, '<', "$ARGV[0]") or die "can't open list MD5 $ARGV[0]";
my $in;
$md5 = new Digest::MD5;
while($in = <MD>) {
    #print "$in";
    chomp $in;
    my ($hash, $file) = split(/  /, $in);
    open(FILE, $file) or die "Can't open '$file': $!";
    binmode(FILE);

    $md5->addfile(*FILE);
    #my $rez =  $md5->md5_hex($file);
    my $rez =  $md5->hexdigest;
    if($rez eq $hash) {
        print "file $file equvivalence!\n"
    } else {
        print "file $file different! old_hash = $hash, new_hash = $rez\n"
    }
    $md5->reset;
    close(FILE);
}
close(MD);
exit(0);

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "Perl + md5"  
Сообщение от Heretic (ok) on 10-Май-07, 17:38 
>Ну и в чем проблема?
>да я тут сделал стандартно, бинарное сравнение.
>-----------------------------------

Проблема только, в незнании языка && кривых руках =), только начал заниматься им по возможности свободного времени =(
Спасибо!

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Спонсоры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2023 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру