- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- use utf8;
- binmode (STDOUT, ':encoding(utf8)');
- while (<DATA>){
- /\G\s*<div[^>]+>/g and s/\G(<a[^#]+)#/sprintf("$1\{\$links[%d].href}",(int(rand(20)))+1)/ge;
- print;
- }
- __DATA__
- <div class="wz"><a href="#" target="_blank">复古巴黎公寓翻新</a></div></div>
- </div>
- <div class="h10"></div>
- <h3><a href="#" target="_blank">装修工具</a></h3>
- <div class="picline">
- <div class="jzbt"><a href="#" target="_blank">
- <div class="qz"></div>
- <div class="jzbt-txt">墙砖</div>
- </a></div>
- <div class="jzbt"><a href="#" target="_blank">
- <div class="dz"></div>
- <div class="jzbt-txt">地砖</div>
- </a></div>
- <div class="jzbt"><a href="#" target="_blank">
- <div class="db"></div>
- <div class="jzbt-txt">地板</div>
- </a></div>
- <div class="jzbt"><a href="#" target="_blank">
- <div class="bz"></div>
- <div class="jzbt-txt">壁纸</div>
- </a></div>
- <div class="jzbt"><a href="#" target="_blank">
- <div class="tl"></div>
- <div class="jzbt-txt">涂料</div>
- </a></div>
- <div class="jzbt"><a href="#" target="_blank">
- <div class="cl"></div>
- <div class="jzbt-txt">窗帘</div>
- </a></div>
- </div>
- </div>
- </div>
- <div class="clear"></div>
- </div>
复制代码 |
|