求助，如在在perl代碼中綁定域名和ip.

toniz

描述：/etc/hosts里面配置www.abc.com 對應(yīng)的是1.1.1.1 .但我想在代碼中實現(xiàn)www.abc.com對應(yīng)2.2.2.2 。因為不能改/etc/hosts文件的內(nèi)容，會影響到其它程序的訪問。而且程序必須用域名去訪問，否則nginx不會做正確的跳轉(zhuǎn)。

這個有什么辦法解決啊，各位幫忙看下！

sjdy521

莫名其妙的問題，你的程序不去讀取/etc/hosts 不就可以了，自己訪問域名的時候連接哪個ip還不是你自己說了算？

toniz

如何讓程序不去讀取/etc/hosts?

sjdy521

回復(fù) 3# toniz


    你自己的程序啊，你代碼里不去讀，它肯定不會自己去讀吧。

toniz

算了 貼代碼吧

1. use LWP::Simple;
   
2. use LWP::UserAgent;
   
3. use Encode;
   
4. use Data::Dumper;
   
5. 
   
6. my %url_version;
   
7. while(<DATA>){
   
8.     /^(\S+)\s+(\S+)\s*$/;
   
9.     $url_version{$1}=$2;
   
10. }
    
11. 
    
12. my %get_result;
    
13. print "收集網(wǎng)站數(shù)據(jù)。。。。！ \n";
    
14. foreach my $url(keys %url_version){
    
15.     my $content = get $url;
    
16.     die "Couldn't get $url" unless defined $content;
    
17.     $get_result{$url} = $content;
    
18. }
    
19. 
    
20. 
    
21. __DATA__
    
22. http://www.gleasy.com/ucenter/version/get.json ucenter_0.5
    
23. http://www.gleasy.com/wb/version/get.json wb_0.3
    

復(fù)制代碼

下載/etc/hosts配置了www.gleasy.com對應(yīng)的是123.456.789.123
現(xiàn)在是想向google瀏覽器一樣  可以有自己的host表

sjdy521

回復(fù) 5# toniz

1.   my $content=LWP::UserAgent->new()->get("http://2.2.2.2/","Host"=>"www.gleasy.com")->decoded_content

復(fù)制代碼

toniz

這個可以，多謝了。。