Perl Win32::GUI нужен пример?

Question

[RaMzz]

Perl Win 32 :: GUI помогите с простеньким примером

по нажатию на кнопке открыть файл .txt прочитать его в окно интерфейса
и чтоб был прогресбар.
То есть нажимаем на кнопочку открываем файлик выводим построчно его содержимое в текстовое поле, прогресбар отрабатывает,
содержимое файлика к примеру такого палана

аавыавыа
вавыаы
аываы
аываыа
авыа
аываыва
аываыва

Answer 1

[Saboteur]

Открываете файл при например при помощи search.cpan.org/~jenda/Win32-FileOp-0.16.02/FileOp.pm
Определяете его размер, делите на x кусочков вашего прогресс бара и получаете размер SIZE для вашего прогресс бара
Начинаете считывать построчно, определяя длину каждой считанной строки и выводя ее в поле при помощи perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?do...
Как считаете SIZE байт, дорисовываете палочку в прогресс баре, и так пока все не считается.