perl 지키면 좋은 룰 && 함수 사용법

1. grep함수에 조건절은 블록으로 할 것
2. $_ 는 변수에 넣어서 사용할 것
3. Unless 대신 if를 사용할 것
4. my 사용할 것

--------------------------------------

 

-함수 해쉬 파라미터 보내는 법-

check_required_items(

    name => 'hk',

    items => [qw(jacket water_bottle)],

);

 

-해쉬 인수 받는 법-

sub check_required_items {

    my (%vars) = @_;

    my $name = $vars{name};

    my $items = $vars{items};

    # continue...

}