使用Perl从另一个文件读取地址

Question

我正在尝试创建一个从另一个文件中读取URL的脚本。我的第一步是使用我的URL创建文件：

cat > address.txt
https://unix.stackexchange.com

然后我创建perl-script：

#!/usr/bin/perl
use LWP::Simple;
$content = get($URL);
die "Couldn't get it!" unless defined $content;

如何在我的脚本中从address.txt而不是$ URL设置地址？

Answer 1

我将假设文件中始终只有一行......

首先，始终将use warnings;和use strict;放在脚本的顶部。这会在您开始之前捕获最常见和最基本的问题（例如，不要使用my声明变量）。

您需要open该文件（使用三参数表单，并使用die捕获任何错误），然后您需要将文件中的行分配给变量，然后{{ 3}}关闭任何换行符。

use warnings;
use strict;

use LWP::Simple;

my $file = 'address.txt';

open my $fh, '<', $file
  or die "can't open the $file file!: $!";

my $url = <$fh>;
chomp $url;

my $content = get($url);
die "Couldn't get it!" unless defined $content;