Perl

perl+HTML::TreeBuilder::XPath+firefox+fire xpath可以快速准确地爬取自己需要的网页数据。 前段时间从一个网站上收集一些信息。上网找了很多方法，不是步骤复杂，就是抓取的内容不够准确。 最后选择了perl+HTML::TreeBuilder::XPath+firefox+fire xpath的方法： ...

#!/usr/bin/perl -w use strict; my @tree = <*>; foreach (@tree){ &if;_a_tree($_); } sub if_a_tree{ if(-d) { print "$_ is a dir\n"; chdir $_; my @tree=<*>; foreach(@tree) { &if;_a_tree($_); } chdir ".."; } if(-f){ if($_ =~ /\.cc$/) { my $new_name = $_; $new_name =~ s/\.cc/\.cxx/; print "$new_name is a cpp file\n"; rename($_, $new_name); } } }