perl - Perl LWP：简单获取 URL 字符串变量

Question

   #!/usr/bin/perl

   use LWP::Simple;
   use warnings;
   $content = 0;
   $find = "webvis.edgesuite.net";
   open (HOSTLIST,"lists.hosts");
   @hosts = <HOSTLIST>;
   foreach $host(@hosts) {
   $results = `nslookup www.$host`;
   my $pos = index($results, $find);
   if ($pos > -1 )
   {
   my $url = "http://www.$host";
   $content = get ($url);
   print $content;
   my $pos1 = index($content, $url);
   if($pos1 > -1) {
    print "Content Match\n";
   } else {
    print "No Content Match\n";
   }
   $count++;
   chomp ($host);
   print "$count www.$host\n";

   }
   }
   close (HOSTLIST);
   exit($errorcode);

使用上面的代码，我总是收到以下错误：

IO::Socket::INET: 错误的主机名 'www.test.com

如果将 $url 更改为：

$url = 'http://www.test.com';

我从页面获取内容检索。

所以我的问题是如何将字符串变量传递给 get 属性，这样它就不会产生错误的主机名错误？

先感谢您

Answer 1

当您从 中读取主机时<HOSTLIST>，每一行（可能是最后一行除外）的末尾都会有一个换行符，该换行符不属于域名，因此chomp在尝试执行任何重要操作之前必须使用该函数显式删除。