[재질문] Perl을 이용해 file open해서 그 파일에 대한 내용을 정규식 표현으로 추출을 해서 print할려 합니다.

print "Input Slave Server IP :\n";
        open my $snoarch, '>', $output;
        while (my $line = <STDIN>){
                last if $line =~ '^f$';
                print $snoarch $line;
        }
        close $snoarch;
 
        print "\n========================================================================================";
        print "\nHostname                    IP                   OS/ARC                  CPU/MEM\n";
 
        open $snoarch, '<', $output;
 
        while ($s_ip = <$snoarch>){
                $telnet->open($s_ip);
                #$telnet->login($suser,$spw);
                $telnet->login(@seuser);
                $telnet->print("su -");
                $telnet->waitfor('/password: ?$/i');
 
             $telnet->print($rpw);
                $telnet->prompt('/# $/');
                $telnet->waitfor($telnet->prompt);
 
       foreach($i < 50 ) {
        $i++;
        }
 
        my (@s_host,@s_ip,@snet_d,@s_ethtool,@s_os,@s_arc,@s_cpu,@s_mem,@s_swap);
 
        @s_host =  $telnet->cmd($host);
        chomp @s_host;
        pop @s_host;
 
 
        @s_ip = $telnet->cmd($iff);
        chomp @s_ip;
        pop @s_ip;
 
        @snet_d = $telnet->cmd($net_dev);
        chomp @snet_d;
        pop @snet_d;
 
        @s_ethtool = $telnet->cmd($eth_tool);
        chomp @s_ethtool;
        pop @s_ethtool;
 
        @s_os =  $telnet->cmd($os);
        chomp @s_os;
        pop @s_os;
 
 
        @s_arc =  $telnet->cmd($arc);
        chomp @s_arc;
        pop @s_arc;
 
 
        @s_cpu = $telnet->cmd($cpu);
        chomp @s_cpu;
        pop @s_cpu;
 
        @s_mem =  $telnet->cmd($mem);
        chomp @s_mem;
        pop @s_mem;
 
        @s_swap =  $telnet->cmd($swap);
        chomp @s_swap;
        pop @s_swap;
 
 
        ##Make a Logfile
 
        open my $s_log, '>>', $s_log_file;
        printf $s_log("$i. %-20s @snet_d:%-16s(@s_ethtool) RedHat %-s%-15s %-5s %-sGB(%-sGB)\n","@s_host","@s_ip","@s_os","@s_arc","@s_cpu","@s_mem","@s_swap");
        close $s_log;
 
        open (S_FILE, "+<$s_log_file") or die "open failed!\n"; ## 해당 log파일을 open합니다.
 
        while (my $line =<S_FILE> ) ##한줄씩 읽어 나가게 while문으로 덮어주고,
        {
        my $as5 = /5.8/; ##위 log파일 내용중에 5.8버젼만 추출합니다.
 
        if ( $line =~ /^1./) ##처음에는 log파일에 단순히 /5.8/ 요 내용만 가져 갈려 했는데 도저히 답이 안나와서 1. 2. 3. 이런식으로 구분을 라인마다 주었습니다.
        {
        my $num = $1;
 
                if ( $line =~ /$as5/  ){ ##매칭시킵니다.
                $num, printf ("%-20s @snet_d:%-16s(@s_ethtool) RedHat %-s%-15s %-5s %-sGB(%-sGB) Matched!\n","@s_host","@s_ip","@s_os","@s_arc","@s_cpu","@s_mem","@s_swap"); ##각각 client에 호스트 네임 / ip / OS / 아키택쳐 등에 정보를 가지고 있는 배열입니다.
                }else{
                $num, printf("%-20s @snet_d:%-16s(@s_ethtool) RedHat %-s%-15s %-5s %-sGB(%-sGB) Does Not Matched!\n","@s_host","@s_ip","@s_os","@s_arc","@s_cpu","@s_mem","@s_swap");
                }
        }
        close (S_FILE);
        }
}
close $snoarch;
}