Perl이 제공 하는 이득과 혜택 덕분에 작성한 툴과 서비스를 헤아리면 끝이 없을 정도로 많은 일을 헤쳐 나갔습니다. 뒤돌아 보면 Perl 없이 어떻게 처리 했을고 하고 아찔 해 하곤 하네요.
주로 Perl을 이용하여 자동화를 구현 해온 저에게는 Perl이 주는 가능성은 정말로 끝이 없답니다. 덕분에 허세와 욕심을 부리게 되고 더욱 많은것을 할라고 추구 하게 되는거죠.
지금까지 우리는 자동화를 할때면 스크립트를 작성하거나 모듈을 작성 하여 여러군데에 적용 하여 일을 처리 하곤 하였습니다. 허나 더욱
| use strict; | |
| use warnings; | |
| use Graph; | |
| use Data::Dumper; | |
| use JSON; | |
| use Capture::Tiny ':all'; | |
| use constant { | |
| WAITING => 0, | |
| RUNNING => 1, |
| # 모든 값을 키별로 더해서 합을 구하는데 사용 하는 해쉬 | |
| my %sums; | |
| # __DATA__에 정의 되 값을 하나 하나 씩 읽어 들임 | |
| while (my $line = <DATA>) { | |
| # AA 1을 split을 이용해서 스페이스로 나누고 @F에 결과 값을 저장 $F[0]에는 AA가 저장 $F[1]에는 1이 저장됨 | |
| my @F = split / /, $line; | |
| # 아래를 풀이 하면 $sums{'AA'} += 1 즉 해쉬의 키는 유니크 하기 때문에 F[0]를 키로 이용해서 F[1]을 다 더함 | |
| $sums{$F[0]} += $F[1]; |
| ;; Added by Package.el. This must come before configurations of | |
| ;; installed packages. Don't delete this line. If you don't want it, | |
| ;; just comment it out by adding a semicolon to the start of the line. | |
| ;; You may delete these explanatory comments. | |
| (package-initialize) | |
| (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/") | |
| ("melpa" . "https://melpa.org/packages/"))) |
| <?php | |
| ## Generate a Github user token at https://github.com/settings/tokens | |
| $githubToken = 'EnterYourGithubTokenHere'; | |
| ## Your organization name (from https://github.com/yourOrganizationName) | |
| $organization = 'yourOrganizationName'; | |
| ## Enter the name of the remote file you want to place | |
| $remoteFile = "pull_request_template.md"; |
| provider "aws" { | |
| region = var.region | |
| } | |
| data "aws_security_group" "default" { | |
| name = "default" | |
| vpc_id = module.vpc.vpc_id | |
| } | |
| module "vpc" { |