#!/usr/local/bin/perl # 암호파일을 읽고, 이것ㅇ르 출력한 후, 다시 닫기. # ref: https://qaos.com/sections.php?op=viewarticle&artid=123 $file = '/etc/passwd'; #파일명 open(INFO, $file); #파일읽기 @lines = #읽어서 배열로 저장 close(INFO); #파일 닫기 print @lines; #배열출력 설명: open함수의 첫번째 매개변수 INFO는 앞으로 펄이 파일을 참조할 때 사용되는 filehandle. 두번째 매개변수는 파일명을 표시하는 표현식. opendir() opendir(DIR, $dirname) || die "opendir Error! \n"; closedir(DIR); $a = mk..