我有一个简单的问题。如何让 perl 读取文件,搜索特定单词,然后如果找到匹配项,我想将该行的其余部分打印到单个变量中。
我希望搜索的 ascii 文件(称为“region_list”)包含 3 行:
夏威夷 40 5 -140 -180
萨摩亚 -5 -25 -165 165
太平洋 70 -65 290 110
这是我到目前为止的代码,但它似乎不起作用:
#!/usr/bin/perl -w
#
# Required Libraries
use Date::Calc qw(:all);
use Date::Manip;
use Math::Trig;
use warnings;
use Time::Local;
use POSIX 'strftime';
use lib '/usr/bin';
use Cwd qw();
my @region = ("hawaii", "samoa", "pacific");
open my $listreg1, "$BIN_DIR/region_list" or die "Could not open: $!";
($reg2,$max_lat, $min_lat, $max_lon, $min_lon) = split(" ",$listreg1);
if ($region eq $reg2) {
print "LUCREG $region $reg2 $max_lat, $min_lat, $max_lon, $min_lon \n";
}
close $listreg1;