Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - monah

Страницы: [1]
1
Perl / Объясните пожалуйста
« : 08 Июля 2003, 12:14:33 »
Извините адрес не корректен :
http://www.htmlvalidator.com

2
Perl / Объясните пожалуйста
« : 08 Июля 2003, 12:13:01 »
Как не понятно?
Начну с начала: скрипты генерируют HTML документы, их (скрипты) надо проверять на коректность HTML кода - закрытые тэги и все такое. Для этого существуют программы - Валидаторы. Вот я ищу подходящий. Последнее время решил попробоветь подсунуть адрес одного моего скрипта прямо в форму на сайте http://htmlvalidatir.com, но не руками а из скрипта с помощью LWP.
Запрос пишу вроде корректно:
-------
my $req = POST  \'http://htmlvalidatir.com/php/onlinecheck.php\',
                         [ name => \'url\', value => \'http://some/path\' ];
и вывожу итог на экран:

print $res->content;

В итоге анализируя полученный документ оказывается что данные небыли переданы, будто я вовсе не заполнял поля формы!
В чем ошибка?

3
Perl / Объясните пожалуйста
« : 04 Июля 2003, 17:16:28 »
Разобрался с интерпритатором командной строки все вроде работает...

Встала новая задача: проверять скрипты генерирующие HTML документы на предмет всяких тэгов и проч. Не подскажете подходящий валидатор?

4
Perl / Объясните пожалуйста
« : 03 Июля 2003, 14:20:50 »
да, а вот так все работает:

system("./test.pl $ARGV[0]");

Но, у меня на выходе в случае ОК только нуль, и опять - где инерпритатор, простите за тупость...

5
Perl / Объясните пожалуйста
« : 03 Июля 2003, 14:13:21 »
Стоит ли по воробью бить из пушки?

такой меня сегодня вопрос озадачил (по молодости то):
вызываю скрипт из скрипта в надежде что он унаследует переменные родителя

$output = `./test.pl`;

в родителе есть $ARGV[0], так при выполнении test.pl ругается мол переменная не инициализирована.
И вообще, где обещенный интерпретатор командной строки?

6
Perl / Объясните пожалуйста
« : 02 Июля 2003, 22:43:21 »
Спасибо, первые 2 элемента вырубил в начале options тупо:
if (($_ ne ".") and ($_ ne ".."))

Единственное что так это как научить regex
/^[^#]((\\w|\\W)*?)$pattern/

 видеть $pattern  в самом начале строки, правда это не нужно, файлы проверяются на наличие ссылок в них на имена файлов своих соседей и этим выражением, но так для развитьия...

7
Perl / Объясните пожалуйста
« : 02 Июля 2003, 17:35:29 »
Хотелось бы узать вот еще что:

применяю функцию find из File::Find

find(\\&wanted, @dir);

она вызывает указанную  функцию для каждого элемента в dir, как вырубить два первых: " . " и " .. " ?

8
Perl / Объясните пожалуйста
« : 02 Июля 2003, 17:05:17 »
Спасибо, работает :-)

Задача: найти образец в любой строке кроме закоментированной написал так:

  /^[^#]((\\w|\\W)*?)($pattern)/

если $pattern стоит в самом начале строки, он не находится как сделать так что бы находился и он?

9
Perl / Объясните пожалуйста
« : 02 Июля 2003, 14:33:23 »
Можно ли подставлять в regex переменную, содержащую имя искомого файла?

10
Perl / Объясните пожалуйста
« : 28 Июня 2003, 12:40:25 »
Извините, в конце регулярного выражения конечно   /../gi
Честно не понял про print.
Он же глупый: увидел - напечатал.
Или принт понимается этими операторами  неодинаково?

11
Perl / Объясните пожалуйста
« : 28 Июня 2003, 12:34:07 »
Таким образом, если я нахожу все url, например так:

/(\\baction|\\bhref)(.+?)"(.+?)"/

в документе и скидываю все тем же print  

print (HANDLER $3, "\\n");

в выходной файл, единственный способ зацепить 2 или более (к примеру) url в одной строке - использование while.
Так?

12
Perl / Объясните пожалуйста
« : 27 Июня 2003, 21:53:50 »
Доброго времни суток.

Новичек, осваиваю регулярные выражения.
Не понимаю почему в случае глабального поиска операторы if и while работаю не одинаково.
Элементарный пример:

$s = "Privet, privet privet hi wow privet";
if ($s =~ /(privet)/gi) {
    print $1, "\\n";
}

Найдет всего один привет, если тупо if заменить на while Мартышка не потеряет ни одного привета.
ПОЧЕМУ?
Зарание благодарен.

Страницы: [1]