Perl,펄] 매개변수(인수) 받아 배열 만들기: Arg To Array

#!/usr/bin/perl
use strict; use warnings;

################################################
### < 프로그램 실행 옵션 배열 출력 >
=pod
  0.pl IBM MS GOOGLE
  이런 3개의 옵션들을 주어 실행했다면
=cut

  print $_, "\n" foreach(@ARGV);

=pod
  출력 결과:
    IBM
    MS
    GOOGLE
=cut

  print $ARGV[0], "\n"; # 첫번째 옵션 하나만 출력
  # 결과: IBM




################################################
### < 함수(서브루틴) 파라미터 배열 출력 >
  &test(111, 222, "레몬향기혜성", 4545);

sub test {
  print $_, "\n" foreach(@_);
}

=pod
  출력 결과:
    111
    222
    레몬향기혜성
    4545
=cut



################################################
### < 함수 첫번째 파라미터만 추출 >
  &test2("똠방각하", "QQQ", 28737, 3.14);

sub test2 {
  my $s = shift @_;
  print $s, "\n";
}

=pod
  출력 결과:
    똠방각하

=cut