1
2
3
4
5
6
7

# ngrokでローカルWebhook公開
ngrok http 3000

# Slackアプリ作成
# https://api.slack.com/apps
# - Slash Commands: /deploy, /status, /rollback
# - Request URL: https://<ngrok-id>.ngrok.io/slack/command

1
2
3
4
5
6
7
8

## 第1章：動機「Slackから全てを操りたい」
## 第2章：まず動かす（Webhook受信）
## 第3章：Commandパターンでコマンド化
## 第4章：Mediatorパターンでルーティング
## 第5章：Observerパターンで通知
## 第6章：Undo/Redo実装
## 第7章：拡張：新コマンド追加
## 第8章：本番運用の考慮事項

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

# 最適化前
my $unused = 42;
my $x = 2 + 3;  # 定数畳み込み可能
my $y = $x * 10;

for my $i (1..100) {
    # 不変式の持ち上げ可能
    my $const = 5 * 10;
    say $i + $const;
}

1
2
3
4
5
6
7
8

# 最適化後
my $x = 5;      # 定数畳み込み済み
my $y = 50;     # 伝播＋畳み込み

my $const = 50; # ループ外に移動
for my $i (1..100) {
    say $i + $const;
}

1
2
3
4
5
6
7
8
9

## 第1章：動機「Perlコードを最適化したい」
## 第2章：PPIでソース解析
## 第3章：Compositeパターンで独自AST
## 第4章：Iteratorパターンで走査
## 第5章：Visitorパターン - 定数畳み込み
## 第6章：Visitorパターン - 未使用変数削除
## 第7章：Visitorパターン - ループ最適化
## 第8章：コード生成
## 第9章：拡張：新パス追加方法

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

# EICAR テストファイル（無害なマルウェア検体）
# 公式サイト: https://www.eicar.org/download-anti-malware-testfile/
# ※セキュリティスキャナーでの問題を避けるため、実際のテスト文字列は公式サイトから取得してください

# Docker隔離環境
docker run --rm --network none -v $(pwd):/samples ubuntu:22.04 bash -c "
  cd /samples
  file eicar.com
  strings eicar.com
"

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

## 第1章：動機「怪しいファイルを安全に調べたい」
## 第2章：安全性の考え方（サンドボックス設計）
## 第3章：Abstract Factoryで環境種別選択
## 第4章：Builderで段階的構築
## 第5章：Prototypeで設定複製
## 第6章：Docker連携
## 第7章：検体実行＋ログ監視
## 第8章：自動クリーンアップ
## 第9章：拡張：解析レポート自動生成
## 免責事項

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

use v5.36;
use Moo;
use strict;
use warnings;

# パッケージ定義（ネスト）
package Pattern::Base {
    use Moo;
    # ...
}

package Pattern::Concrete {
    use Moo;
    extends 'Pattern::Base';
    # ...
}

# エントリーポイント
__PACKAGE__->run(@ARGV) unless caller;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

package Testing {
    use Test::More;
    
    sub run_tests {
        subtest 'Command Pattern' => sub {
            my $cmd = DeployCommand->new(params => {env => 'test'});
            my $result = $cmd->execute;
            ok $result->{success}, 'Command executed';
        };
        
        done_testing;
    }
}

# TEST_MODE=1 perl script.pl
Testing->run_tests if $ENV{TEST_MODE};