리스트에 기호들이 들어 있을 때, 연속된 기호가 일정한 거리를 두고 다시 나타나는 것을 반복이라고 하기로 하구요. 그 연속되는 기호의 단위 묶음을 반복셋이라고 하겠습니다. 같은 위치에서 시작하는 반복셋은 여러개가 있을 수 있습니다.
A B C A B C 의 경우에는
A _ _ A _ _ : offset 2
A B _ A B _ : offset 1
A B C A B C : offset 0
리스트에 기호들이 들어 있을 때, 연속된 기호가 일정한 거리를 두고 다시 나타나는 것을 반복이라고 하기로 하구요. 그 연속되는 기호의 단위 묶음을 반복셋이라고 하겠습니다. 같은 위치에서 시작하는 반복셋은 여러개가 있을 수 있습니다.
A B C A B C 의 경우에는
A _ _ A _ _ : offset 2
A B _ A B _ : offset 1
A B C A B C : offset 0
| #!/usr/bin/env perl | |
| use lib './lib'; | |
| use Parse::Token::Lite; | |
| use LWP::Simple; | |
| my $urlpat = qr@https?://[0-9a-zA-Z-_#\?=&\.\@\%:/]+@; | |
| my %rules = ( | |
| MAIN=>[ | |
| {name=>HTML_ENTITY_VAL, re=>qr/&\S+?;/}, | |
| {name=>HTML_COMMENT, re=>qr/<!--.+?-->/ms}, | |
| {name=>TAG_START_IN, re=>qr/<\!?\w+/, state=>[qw(+TAG_IN)] }, |
| #!/usr/bin/env perl | |
| use strict; | |
| use File::pushd; | |
| my @apps = <autostart/*>; # Make 'autostart' directory, and put symbolic link dirs having 'start.sh' file in it. | |
| foreach my $d (@apps){ | |
| my $dir = pushd($d); | |
| $d =~ m@([^/]+)$@; | |
| my $name = $1; |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use 5.010; | |
| use Net::MyPeople::Bot; | |
| use Data::Printer; | |
| my $APIKEY = $ENV{MYPEOPLE_APIKEY}; |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use JSON; | |
| use LWP::UserAgent; | |
| my $m = LWP::UserAgent->new; | |
| binmode(STDOUT,':utf8'); |
perl 어플리케이션을 개발하여 각 서버로 배포할 때, 모듈의존성을 해결하는 방법에 대해서 설명합니다.
perl 스크립트를 작성할 때 CPAN (https://metacpan.org) 을 이용하면 방대한 양의 모듈, 상세한 문서, 다른 모듈을 기반으로 하여 높은 완성도를 이끌어 내는 perl만의 독특한 공유 문화 덕분에 손쉽게 복잡한 기능을 완벽하게 구현할 수 있습니다.
| # -T 는 임시디렉토리 명시 | |
| # -B 는 Core 모듈도 포함 | |
| pp -f Crypto -F Crypto -M Filter::Crypto::Decrypt -B -T partmp -o test1 test.pl | |
| pp -f Crypto -F Crypto -M Filter::Crypto::Decrypt -B -o test1 test.pl |