perl start

1. perl download (portable) - for windows

http://strawberry-perl.googlecode.com/files/strawberry-perl-5.10.0.4-1-portable.zip

2. perl module install

1 간단하게 1개의 모듈만 설치할 때
 $ perl -MCPAN -e 'install HTML::Template'

2. 여러 모듈을 설치하고 싶을 때
 $ perl -MCPAN -e shell
  cpan> install Bundle::CPAN
  cpan> install Bundle::LWP
  cpan> install Bundle::DBI
  cpan> install DBD::mysql
  cpan> quit 또는 exit

3. 모듈소스를 직접 받아서 설치
 $ tar xvfz HTML-Template-2.8.tar.gz
 $ perl Makefile.PL
 $ make
 $ make test
 $ make install

3. 배열 각 value에 x 2

use strict;
use warnings;

my @array = (10, 20, 30, 40);
print "Before: @array\n";
for (@array) { $_ *= 2; }
print "After: @array\n";

- 결과 -
Before: 10 20 30 40
After: 20 40 60 80

4. 유용한 sort

use strict;
use warnings;

my @unsorted = (80, 60, 110, 20, 50);
print "Unsorted: @unsorted\n";

my @sorted = sort @unsorted;
print "Sorted: @sorted\n";

my @string = sort{ $a cmp $b } @unsorted;
print "String sort: @string\n";

my @number = sort{ $a <=> $b } @unsorted;
print "Number sort: @number\n";

- 결과 -
Unsorted: 80 60 110 20 50
Sorted: 110 20 50 60 80
String sort: 110 20 50 60 80
Number sort: 20 50 60 80 110

5. system을 이용한 외부 콜을 한 후에 리턴값을 받아 확인

if(($retcode = system("ls -l /etc /no/such/file")) == 0)

{ 

print "Success (exit code 0)\n";

}

else

{

print "Error: return code ", $retcode >> 8, "\n";

}

6. foo.pl 펄스크립트를 리눅스 명령어처럼 'foo'만 쳐도 실행가능 하게 하는 방법

$ mv foo.pl /usr/local/bin/foo

$ export PATH=$PATH:/usr/local/bin

$ chmod +x /usr/local/bin/foo

$ foo