perl의 명령행 인수 @ARGV

리눅스의 cat명령어 흉내내기

if($#ARGV < 0) #인자가 하나도 없으면 $#ARGV -1을 출력한다.

{die "fail"}

if($#ARGV > 0) #인자를 하나만 받는다.

{die "fail"}

$filename=shift(@ARGV);

#인자는 @ARGV로 오고 shift는 아마 배열을 일반변수로 형변환하는 함수인듯?