求一个批量重命名网页文件的脚本！

wangjunhuashuo

很多的网页文件放在new文件夹中：
new11102.html
new11103.html
new11104.html
new11105.html
new11106.html
new11107.html
……
……
这些网页文件的格式全部相同:
所有网页的源文件里都有以下字段：

<meta name="keywords" content="这个地方是网页打开后的标题显示, dfasfd,dfasfdasf,jjjjjjyyyt,wwer,fewe,vcvdsv" />

其中content="      ,      ,    ,       "
这里“与第一个，号之间的文字就是标题。怎么样才能用这个标题来重命名这么多的网页呢？

chasye

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. while ($orig=shift @ARGV){
   
5.         open(FH, $orig);
   
6.         while(<FH>){
   
7.                 if(/name="keywords"/){
   
8.                         if (/content="(\S+)?,?.*"/){
   
9.                                 rename $orig,$1.".html";
   
10.                                 break;
    
11.                         }
    
12.                 }
    
13.         }
    
14. }
    

复制代码