LINUX.ORG.RU

[perl][bash] передача аргументов

 ,


0

1

В программе на Perl забирается html-код страницы - и записывается в файл.
Плюс, есть еще bash-скрипт, который парсит html-файл. Делает он это через cat $1 и тд.
Из Perl скрипта вызывается $result = system('parse.sh «file.html»');

Все работает отлично для 1 файла. Но если дело доходит до оооочень большого кол-ва файлов, все работает в цикле - то процесс получается очень медленным, где-то 2 секунды на 1 файл.

Код страницы я забираю через WWW::Mechanize. Затем могу сделать $content = $mech->content();. В результате весь код страницы будет в переменной $content.
Как теперь вызвать bash-скрипт из Perl'овского и передать ему html-код?
Пробовал делать system('parse.sh «$content»');, а в parse.sh менять cat на echo «$1», не работает.

★★★★★

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.