파일읽기

*. 펄에서 파일읽기

 

참조링크 : http://gypark.pe.kr/wiki/Perl/%ED%8C%8C%EC%9D%BC

 

 

 

#!/usr/bin/perl
use strict;
use warnings;

my $file_name = "joblist.txt";
my $count = 0;
open my $fh,"<",$file_name or die "Cannot open $file_name: $!";

while( my $line  = <$fh> )
{
    my $cmd = "/kjbcom/bin/New_JclCmdExec $ARGV[0] ". $line;
    system($cmd);
    sleep(5);
}

close $fh;