PERL：将文件读入数组循环

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的文件

读线和利用的分离，并放入两个变量域和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

为了让您一开始，下面将在拆分输入 “”：

#! /usr/bin/perl 

use warnings; 
use strict; 

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

}