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(/,/); 

}