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», не работает.

★★★★★

Печатать перлом на stdout, читать bash-ем с stdin? А вообще тут правильно сказали, лучше уж парсить сразу перлом.

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

А можно простенький примерчик?

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

Фактически, вся задача сводится к следующему: передать html-код страницы в bash-скрипт из перловского скрипта и получить результат.

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