[Perl] 변수 모음

명령행(Command line)

@ARGV라는 배열을 제공하며, 이 배열은 명령행에서 전달된 모든 값들이 담겨 있습니다. 

use strict를 사용하더라도 이 변수는 따로 선언하지 않아도 됩니다.

1. use strict;
2. use warnings;
3. use Data::Dumper qw(Dumper);
4.  
5. print Dumper \@ARGV;

이것을 다음처럼 실행합니다: perl programming.pl -a --machine remote /etc 그러면 출력은 다음과 같습니다

1. use strict;
2. use warnings;
3.  
4. my ($name, $number) = @ARGV;
5.  
6. if (not defined $name) {
7. die "Need name\n";
8. }
9.  
10. if (defined $number) {
11. print "Save '$name' and '$number'\n";
12. # save name/number in database
13. exit;
14. }
15.  
16. print "Fetch '$name'\n";
17. # look up the name in the database and print it out