쓸때가 생기더라구요.ㅎㅎ
sub TEST($)
{
my ($var_file) = @_;
print $var_file "Hello world\n";
}
MAIN:
{
local(*F);
if ( !open (F, "/usr/local/test.txt" )) {
print "ERROR : OPEN FILE(/usr/local/test.txt)\n";
exit(0);
}
TEST(F);
close(F);
}
'업무 > Perl' 카테고리의 다른 글
[perl] Hash 크기 구하기 (0) | 2012.02.27 |
---|---|
[perl] DBD-mysql 모듈 경로지정해서 설치하기 (0) | 2012.02.20 |
[perl] 어제날짜 구하기 (0) | 2012.02.02 |
[perl] 화면지우기 (0) | 2012.01.31 |
[perl] A~ Z까지 순차적으로 출력하기 (0) | 2011.12.15 |