PERL：将文件读入Array in Loop

Question

我看到有很多问题与此非常相似，但我无法找到答案，并根据这些答案尝试将它们拼凑起来。

目标：使用Perl，读取文件（./perlscript.pl input.txt）input.txt将有几行 例如：

hosangit.com,5
djzah.com,3
251.26.192.in-addr.arpa,3
26.192.in-addr.arpa,5

Perl脚本需要在while循环中逐行处理，因此它会解决input.txt文件中的每一行

读取行并使用分隔符，并将两个变量放入DOMAIN和NS（在这种情况下，NS代表名称服务器）

运行IF语句 IF $DOMAIN以.in-addr.arpa结尾然后使用分隔符。并放入一个数组，然后运行一个命令）...放入数组后找到arpa的位置，所以右$DOMAIN与（在本例中）192.26.251.0/24或192.26.0.0/16 如果input.txt中的行以in-addr.arpa结尾，则需要执行操作，否则继续。

我知道这很多但是如果我能看到如何开始的话，它会真正帮助我继续使用其余的脚本。

Answer 1

为了帮助您入门，以下内容将在＆＃34;，＆＃34;：

上拆分输入

#! /usr/bin/perl

use warnings;
use strict;

while (<>) {
   my ($domain, $ns)=split(/,/);

}