如何把网页上的一个图片保存在本地？

hcduguo

从一个网页中读取一个IMG链接，然后把图片下载到本地，保存的代码怎么写呀？

fayland

http://search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP/Simple.pm

check getstore

doiob

1. 
   
2. use LWP::UserAgent;
   
3. 
   
4. $ua=LWP::UserAgent->new;
   
5. $ua->agent('Mozilla/5.0');
   
6. 
   
7. $url="http://www.chinaunix.net/images/culogo/indexlogo.gif";
   
8. $tu="tupian.gif";
   
9. 
   
10. $response=$ua->get($url,':content_file'=>"$tu");
    
11. if($response->is_success)
    
12. {
    
13.         print "$tu OK!\n";
    
14. }
    
15. else
    
16. {
    
17.         print "$tu Failed!\n";
    
18. }
    

复制代码

churchmice

lwp有个模块可以用来提取网页中所有带.xxx后缀的东西
你先判断好了
然后下载