> в - Я пока не добился того что бы тот хеш
>который Я получаю на ПХП соответствовал тому что выдает Перл, а
>значит Я не могу использовать и Перл и ПХП -только
>что-то одно. Только что проверил -- тот скрипт на PHP, что в вашем сообщении и мой скрипт на Perl выдают одинаковые результаты. По крайней мере, на файле размером 1.6Gb, больше я у себя не нашёл.
> Еще Мне нужен алгорит обхода всех директорий, поторые лежат в даной
>директории.
Ничего сложного. (В Perl для этого вообще есть специальный пакет) Проще всего написать рекурсивную функцию, которая делает следующее:
opendir()
readdir() и для каждого файла:
если файл -- выполняет ваш код
если каталог -- шаг рекусрии
Почитайте http://php.net/readdir там наверное даже готовый код есть