안녕하세요. 현재 프로그래머 4개월차에 접어든 신입프로그래머입니다.
개발직을 지원해서 왔지만.... 현재 4개월동안 유지보수작업을 하면서 소스 코드를 분석중에있습니다.
다름이아니라 이번에 저희프로그램을 build를 할때 perl을 사용하게 되어서, 소스를 분석하며 이해하고잇는데...
이해가 되지 않아서, 이렇게 조언을 구해봅니다
open(MYFILE1,"<$dirRigenTools\\$confFile") or die "Can't open file - $confFile: $!\n";
open(MYFILE2,">$dirRigenTools\\$lastCLFile") or die "Can't open file - $lastCLFile: $!\n";
my $last_cl;
foreach (<MYFILE1>) # foreach 는 반복문
{ #for each line
if (m/(\s*)\@(\d+)\,(\d+)/)
{
$last_cl=$3;
}
}
close MYFILE1;
print MYFILE2 "last_cl:$last_cl";
close MYFILE2;
믿줄친 부분의 의미가 궁금하네요.
글쓰기