作者abliou (把青春freeze)
看板Perl
标题Re: [问题] regular expression
时间Sat Oct 30 14:48:42 2010
※ 引述《bugmens (c & cpp)》之铭言：
: 完整程式码
: http://codepad.org/40Njzasg
: $html=~/a href="(.*?)">.*src="(.*?)".*档案名称: (.*?)\n/sg;
: $1=网址1 $2=网址2 $3=档案
: $html=~s/${1}/${3}/g;
: print $html;
: 我要把html的两个网址取代掉
: 不知道是不是网址有.?&=的关系,一直无法取代成功
: 请教各位网友应该要如何修改才能正确执行
我想应该是在做取代时..$1跟$3就被改掉了吧
你可以试看看先把部份值取出来..
例如说
($a,$b)=($1,$3);
$html=~s/$a/$b/ ;
这样
或是短一点..上面直接改成
$html=~s/a href="(.*?)">.*src="(.*?)".*档案名称: (.*?)\n/$3 $2 $1/sg;
试看看吧
--
如果青春注定要向前跑
他妈的...那我的出口在那?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.96.24