vasilisa
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-20 11:24:44.513333
|
Ребята - я по-моему офигел! Вот такая фигня не работает - мож кто прочистит мне моск: #!/usr/bin/perl -w
$n = 'some test here whatever...
<a href="read.cgi?do.htm"><img src="images/431.png" border=0 width=109 height=250></a>';
$n =~ s/(<a )(.*?)(<\/a>)/$&/; $r = $&;
$n =~ s/$r/IMAGE2/s; В итоге $n должна заменить линк с картинкой на IMAGE2 - а нифига не происходит. Есть идеи? Спасиб заранее!
|