PERL : Loop의 배열로 파일 읽기

Question

많은 질문이 있지만이 답변을 찾을 수 없으므로이 대답을 기반으로 함께 조각을 만들려고 노력하고 있지 않습니다.

목표 : 파일을 읽을 펄을 사용하여 (./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 

펄 스크립트가 각 줄의를 해결하도록 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(/,/); 

}