$s =~ m!^http://([^/]+)/(.+)$!;
хотя это конечно прокатывает... но только он обрубает всё, что после .ru ...
вот такая засада получается...
INSERT INTO links VALUES (\'cgi-bin/category?ca_id=49#@ Port.ru - ОТКРЫТКИ - Выбор открытки\',\'ot.port.ru\');
и
http:// тоже нужно... :-)
Короче, делаю вывод что нужно...
Не нужно ставить ограничение на / ... нада ставить чтобы брало с
http:// (включая и его) и до # .... при этом решётку обрубая...
Но чё-то у меня не получается... :-)
Вернее я уже почти всё сделал, но
http:// всё равно обрубается... :-)
В общем наваялся следующее регулярное выражение:
$val=~s/http:\\/\\/([^#]+)#(.+)$!/и тута ... то самое... с $1 и $2/