Исходное сообщение
"sed/perl замена символов в найденной построке" Отправлено madskull, 26-Май-08 15:49
>Не работает. Странно у меня работает [arena tmp]$ cat file <a style="a:b;" href="a:b:c:d" style="c:d;"> <img style="a:b;" src="a:b:c:d" style="c:d;"> <a style="a:b;" href="a:b:c:d" style="c:d;"><img style="a:b;" src="a:b:c:d" style="c:d;"> <a style="a:b;" href="http://a:b:c:d" style="c:d;"> [arena tmp]$ perl -wlne 's#( (?:style|src|href)="(?:http://|ftp://)?)(.+?)(")#$1.&{sub{($a=$_[0])=~s,:,/,g;$a}}($2).$3#gei;print' file <a style="a/b;" href="a/b/c/d" style="c/d;"> <img style="a/b;" src="a/b/c/d" style="c/d;"> <a style="a/b;" href="a/b/c/d" style="c/d;"><img style="a/b;" src="a/b/c/d" style="c/d;"> <a style="a/b;" href="http://a/b/c/d" style="c/d;"> [arena tmp]$ Или, может, я что-то не понял?

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>Не работает. > Странно > у меня работает > [code] > [arena tmp]$ cat file > <a style="a:b;" href="a:b:c:d" style="c:d;"> > <img style="a:b;" src="a:b:c:d" style="c:d;"> > <a style="a:b;" href="a:b:c:d" style="c:d;"><img style="a:b;" src="a:b:c:d" style="c:d;"> > <a style="a:b;" href="http://a:b:c:d" style="c:d;"> > [arena tmp]$ perl -wlne 's#( (?:style|src|href)="(?:http://|ftp://)?)(.+?)(")#$1.&{sub{($a=$_[0])=~s,:,/,g;$a}}($2).$3#gei;print' > file > <a style="a/b;" href="a/b/c/d" style="c/d;"> > <img style="a/b;" src="a/b/c/d" style="c/d;"> > <a style="a/b;" href="a/b/c/d" style="c/d;"><img style="a/b;" src="a/b/c/d" style="c/d;"> > <a style="a/b;" href="http://a/b/c/d" style="c/d;"> > [arena tmp]$ > [/code] > Или, может, я что-то не понял?
	Введите код, изображенный на картинке: