PERL로 파일입출력

파일을 열고 문자열을 쓰고 닫는 예제는 아래와 같다

#!/usr/bin/perl

$filename = './test.txt';

$my_string = 'test for file write.';

open( TEXT, ">$filename");

print TEXT $my_string;

close(TEXT);

open(TEXT, $file_name);

$out_string = <TEXT>;

close(TEXT);