ANTICHAT — форум по информационной безопасности, OSINT и технологиям

как сделать, чтобы при поиске в строке с помощью регекспа на вывод шло не true/false а именно само совпадение:

выдаст 1

а надо link.ru

---
может переменную $& заюзать?
---
сам нашел ответ на свой вопрос

жжошь =) -- единственный минус $& - что если несколько таких выдираний идет и в строке не находится ничего подходящего по регекспу то она не перезапишется и выдаст тебе повтор с предыдущего поиска
ченить типо
print $& if $text =~ m![a-z0-9:/.]+\.[a-z]+!i; - будет разумнее

ну и не забывай что если часть регекспа в кавычки зафигачить то эта помещается в переменные $1,$2 и тд...

можно например print $1 if $text =~ m!([a-z0-9:/.]+\.[a-z]+)!i; сделать
или с помощью замены всей строки чисто на линк - так переприсваивать ненадо ничего буит
$text = 'text link.ru';
$text =~s/text (твой регексп)/$1/; -- тока в этом случае надо всю строку регекспом описывать что она заменилась на тот линк который тебе надо

.::Gh0st::. так надо?

Какой функцией сделать отсчёт времени работы скрипта? Что бы сразу после запуска, начался отсчёт, и перед закрытием скрипта вывелось время его работы.

__________________
..

$time=localtime;
print $time; ---- просто выдаст время - в окончании скрипта вывед время начала и еще раз время в конце - хз насчет четкого таймера

как альтернативу на вскидку мона параленьный поток создать
и в while(условия завершения скрипта){$time++ if sleep 1;}

потомы вести скока секунд работал скрипт - наркомания но хз =)

Нашёл решение:

__________________
..

Vsem prijatnogo vremeni sutak

ja vot nashol forum : http://89.136.42.95
No nekak nemogu razobratsa kak zdelot SQL injection . Moshet ktonibut obesnit

Я Новичок с большой буквы и у меня следующая проблема.

Какой код мне нужно написать чтобы получить страницу вида index.php?id=123456?

Я то написал но уменя куча ошибок. Помогите

#! /usr/bin/perl -w
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$res = $ua->get("http://somesite/index.php?id=123456")->as_string;
print $res;