ну а что тут показывать?) ну: Code: $num = 0; $regex = '<input type="radio" id="cb'.$num.'" name="cid\[\]" value="(.+?)"'; $res->content =~ /$regex/; print $1; так?
Code: #!/usr/bin/perl use strict; my $s = 'bla-x3k-bla'; my $regex = "-(.+)-"; $s=~/$regex/; print $1."\n";
$num = 0; $regex = qr[<input type="radio" id="cb'.$num.'" name="cid\[\]" value="(.+?)"]; $res->content =~ $regex; print $1;
my $arr=system(ls); my @xx=split(' ',$arr); print @xx; получаю список папок в скляр, теперь мне надо что бы в массиве были эти данные, НО не все папки в одном значение (т.е. $xx[0]=все) а $xx[0]=первая папка. Как сделать?
Впервые пытаюсь апустить скрипт.. в чем проблема http://4iks.ru/cgi-bin/drug.pl ? скрипт добавления в друзья http://forum.antichat.ru/showpost.php?p=786700&postcount=136 как правильно запустить скрипт? Если можно расскажите подробней!
смотри сразу консольные pl и cgi это разные хрени - выводы хедеры и тд жеще под cgi намного --- запускай из консоли я думаю -- и смотри код
У Генома язык подозрительно заплетается что-то ))) .::BARS::., уверен, что сервак поддерживает CGI? Залей пробную цегеишку в cgi-bin Code: #!/usr/bin/perl print "Content-Type: text/html\n\n"; print "<html><body><h1>This is CGI-script</h1>" . "<p>Apache installed</p></body></html>"; exit 0; Поставь права 755 и вызови из браузера. Если прошло гуд, то куда-нить в начало скрипта drug.pl вставь Code: print "Content-Type: text/html\r\n\r\n"; и запусти еще раз. Если не пойдет, то проверь на сервере наличие модулей LWP и HTTP, - возможно, их там нет
ээээээээ пияный писал )))) да блин открой скрипт да глянь под что он заточен тупо помойму консольный скрипт запускать из под веб сервера 0 лудше уже перл слить и не париться - тк там потом серавно с выводом лаги будут
С регулярками тока начал разбиратся, но уже столкнулся с проблемой. Имею кусок HTML в переменной $data HTML: ......... </td><td width="20px" style="vertical-align:top"> <div class="vred"> <dl class="clex"> <dt>Статус:</dt> <dd> Загорает на пляже ) </dd> <dt>Будет скора дома:</dt> <dd>может быть</dd> ......... имею следующий код на perl: Code: $data=~/<dt>Имя:<\/dt>\n\s+<dd>\n(.+)\n\s+<\/dd>/ $status=$1; хочется что-бы в $status попало "Загорает на пляже )" Где я ошибся?
еще вопросик по регуляркам итак, имеем переменную $data, которая содержит следующие данные: Code: want understand all 11 and would all the veshches things a a a a had done...and would not able really stop him a And nor would Задача, выкинуть отсюда все слова длинной 1 или 2 символа. Для этого я использую следующий регепс: Code: $data=~s/\n.{1,2}\n/\n/gs; но я получаю следующие: Code: want understand all and would all the veshches things a a had done...and would not able really stop him And nor would остались двa "a", почему ???
