自动化下载hlfs_uclibc的current版本的所有包和补丁（刚学了点perl，卖弄一下）

ehu

申明一点：
以下代码我是在win32环境下用的，linux下还没有测试过。
代码用到的wget，cat等来自gnuwin32项目。


以下是主脚本：

1. 
   
2. wget http://www.linuxfromscratch.org/hlfs/view/unstable/uclibc/chapter04/patches.html
   
3. wget http://www.linuxfromscratch.org/hlfs/view/unstable/uclibc/chapter04/packages.html
   
4. 
   
5. cat patches.html packages.html > uclibc.htm
   
6. 
   
7. perl fio3.pl
   
8. 
   
9. wget -N -i uclibc_down_list.txt
   
10. 
    
11. rm -v patches.html packages.html uclibc.htm
    

复制代码

下面是fio3.pl有代码：

1. 
   
2. open FILE, "uclibc.htm" or die "the file not exists";  
   
3. open FILE2, ">uclibc_down_list.txt" or die "the output file not exists!";
   
4. 
   
5. while(<FILE>){
   
6.    if(/ftp|http/){
   
7.         @new_line = split(/"/, $_);
   
8.         if($new_line[1] =~ /^ftp|^http/ && $new_line[1] =~ /gz$|bz2$|patch$/){
   
9.                 print FILE2 $new_line[1]."\n";       
   
10.         }
    
11.    }
    
12. }
    
13. close FILE;
    
14. close FILE2;
    
15. 
    

复制代码

ehu

1. 
   
2. open (FILE, "uclibc.htm") or die "the chapter of packages and patches ready?";
   
3. open (FILE2, ">lnks_uclibc.txt") or die "the output file ready?";
   
4. 
   
5. map { print FILE2 $_."\n" }
   
6. grep { /^(http|ftp).*(bz2|gz|patch)$/ }
   
7. map { (split /"/)[1] }
   
8. grep { /http|ftp/ } <FILE>;
   
9. 
   
10. 
    
11. close FILE;
    
12. close FILE2;
    

复制代码

晨想

新的版本，真不错。一下子还真没看懂。进度没兄弟的快。：）。

ehu

1. 
   
2. open (FILE, "uclibc.htm") or die "the chapter of packages and patches ready?";
   
3. open (FILE2, ">lnks_uclibc.txt") or die "the output file ready?";
   
4. 
   
5. print FILE2 grep { s/.*"((http|ftp):.*(bz2|gz|patch))".*/$1/ } <FILE>;
   
6. 
   
7. close FILE;
   
8. close FILE2;
   

复制代码

ehu

1. 
   
2. print FILE2 map { /"((http|ftp):.*(bz2|gz|patch))".*(\n)/ and $1.$4 } <FILE>;
   

复制代码

晨想

不错，不过别简化的以后自己看不明白就可以了：）。