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

★★★★★
Ответ на: комментарий от sdio

Согласен, но мне было проще парсить html используя grep и sed. Если нельзя сделать так, как хочу, то, видимо, надо будет парсить все на перле

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

Что-то s2p простенькую строчку на sed перевел в 121 строку жуткого perl кода...

покажи эту строчку на sed

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

Я уж и не помню какую брал. Что-то вроде:

sed 's/.*<b>//'

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