[Perl] -help option sub함수

다음과 같이 사용할 수 있다

 

if($ARGV[0] =~ /h/){
 &help;
 exit;
}

 

 

 

sub help {
print<<EOF

1. bacct를 연도별로 나누어야 합니다.
        bacct -u all -l -C 2014/01/01,2014/12/31 > 2014.acct
        bacct -u all -l -C 2015/01/01,2015/12/31 > 2015.acct
        bacct -u all -l -C 2016/01/01,2016/12/31 > 2016.acct

2. 참조 파일
        \$file="2015.acct" <- line 수정

3. 실행방법
        $0 2015
        $0 2015 > 2015.csv

* 일별 노드별 사용시간을 구할 수 있다.
* UT = 사용시간 / (3600*24*cpu수)

EOF
}