LINUX.ORG.RU
Форум — Development  

md5 файла (tcl)


0

0

Как на tcl получить md5-сумму файла без использования внешних утилит? Т.е. нужен модуль именно на tcl

Нашел http://expect.nist.gov/md5pure/ но он не умеет работать с файлами. По крайней мере md5pure::md5 и md5sum дают разные результаты

★★★★★
← Максимальное количество открытых файлов
QDate - вычисление возраста по дате рождения → 

Блин, нашел решение, но оно очень уж медленное :( С использованием все того же md5pure. Выглядит так:

set fd [open $file]
fconfigure $fd -trans binary
set scnd_sum [md5pure::md5 [read $fd]]
close $fd

И вот показатели ее (файл объемом около полутора мегабайт):

$ time expect test.tcl 
Calculated with external util: b9ecee0c4c6df221e50677b4f20bf3a5
Calculated with TCL: b9ecee0c4c6df221e50677b4f20bf3a5

real	0m7.689s
user	0m7.592s
sys	0m0.088s

Нету более быстрых альтернатив?

boombick ★★★★★
() автор топика
Ответ на: комментарий от anonymous

там тот же md5pure немного допиленный. Но на скорость это допиливание не повлияло

boombick ★★★★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Максимальное количество открытых файлов
Development
QDate - вычисление возраста по дате рождения →