|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2010, 00:33 | #1 |
Пользователь
Регистрация: 19.01.2008
Сообщений: 92
|
[Perl] Прикрутить цикл
Здравствуйте. Есть сканер директорий, нужно немного модифицировать, у самого не очень получается, нужна ваша помощь. Скрипт запускается с параметром script.pl www.site.ru и выводит в консоль результаты скана. Нужно убрать параметр, чтобы запускался script.pl просто, а урлы брал циклом из файла sites.txt, и выводил не в консоль, а тоже в файл, out.txt.
Код:
|
29.10.2010, 00:34 | #2 |
Пользователь
Регистрация: 19.01.2008
Сообщений: 92
|
места форума нехватило, продолжение скрипта:
Код:
|
29.10.2010, 00:34 | #3 |
Пользователь
Регистрация: 19.01.2008
Сообщений: 92
|
и снова:
Код:
|
29.10.2010, 12:47 | #4 |
Форумчанин
Регистрация: 20.05.2009
Сообщений: 506
|
Блин. Да проще новый написать чем модифицировать )
Напиши нормально что хочешь сделать, то есть что твой скрипт должен делать. |
29.10.2010, 14:09 | #5 |
Форумчанин
Регистрация: 20.05.2009
Сообщений: 506
|
Ну вроде что то переписал. У себя не проверял.
Разделитель для url в файле sites.txt - перевод каретки. |
29.10.2010, 17:36 | #6 | |
Пользователь
Регистрация: 19.01.2008
Сообщений: 92
|
Цитата:
me:~/e/lm# perl scan.pl Bareword "getArgs" not allowed while "strict subs" in use at scan.pl line 109. Execution of scan.pl aborted due to compilation errors. me:~/e/lm# что это может быть? |
|
29.10.2010, 17:59 | #7 |
Форумчанин
Регистрация: 20.05.2009
Сообщений: 506
|
Попробуй сейчас.
|
30.10.2010, 13:19 | #8 |
Пользователь
Регистрация: 19.01.2008
Сообщений: 92
|
perl temp.pl
такой вывод консоли идет, этот кусок повторяется бесконечное количество раз Use of uninitialized value $ans in concatenation (.) or string at temp.pl line 192.[*] 404 Probe request to server. Server answering with Use of uninitialized value $ans in split at temp.pl line 193. Use of uninitialized value $ans in scalar chomp at temp.pl line 83. Use of uninitialized value $ans in split at temp.pl line 84. Use of uninitialized value $badAnsCode in numeric eq (==) at temp.pl line 254. Use of uninitialized value $badAnsCode in numeric eq (==) at temp.pl line 254. Use of uninitialized value $badAnsCode in numeric eq (==) at temp.pl line 254. Use of uninitialized value $badAnsCode in numeric eq (==) at temp.pl line 254. Use of uninitialized value $badAnsCode in numeric eq (==) at temp.pl line 254. Use of uninitialized value $badAnsCode in numeric eq (==) at temp.pl line 254. Use of uninitialized value $_[0] in pattern match (m//) at temp.pl line 256. |
01.11.2010, 13:04 | #9 |
Форумчанин
Регистрация: 20.05.2009
Сообщений: 506
|
пишет что какие то проблемы с подключением.
Так собственно что скрипт то должен делать ? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прикрутить базу данных Perl к сайту на PHP (Bitrix) | Rudman | Фриланс | 1 | 08.08.2010 18:15 |
Как прикрутить GiveIO ? | caveman | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 03.12.2007 08:43 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |