【Perl講座 付録】黒い画面の支配者へ！Perlワンライナーと正規表現によるログ解析・システム管理術

Webアプリを作った。では、誰がそれを守るのか？

こんにちは！「LINUX工房」管理人の「リナックス先生」です。
全8回のPerl講座、本当にお疲れ様でした。皆さんはもう立派なPerlプログラマです。

さて、Webアプリケーションを本番サーバーで稼働させると、次に待っている仕事は何でしょうか？
それは「運用・保守（Operation & Maintenance）」です。
「エラーが出ていないかログをチェックする」「設定ファイルのアドレスを一括で書き換える」「不正アクセスを集計する」…
こうした作業を、毎回スクリプトファイルを書いて実行するのは面倒ですよね？

本記事では、Perlをコマンドラインツールとして使う「ワンライナー」の技術と、他の言語の追随を許さない強力な「正規表現」の使い方を解説します。
これさえ覚えれば、ログ解析やサーバー管理の効率が劇的に向上します。

---

第1章：ワンライナー（One-Liner）とは？

ワンライナーとは、スクリプトファイルを保存せずに、ターミナルで直接コードを書いて実行するテクニックのことです。
Perlは起動オプション（フラグ）を使うことで、cat, grep, sed, awk などのUNIXコマンドの役割をこれ一つでこなすことができます。

基本のオプション「-e」

Example (実行する): 渡されたコードを実行します。

perl -e 'print "Hello World\n"'

これだけではただの表示ですが、他のオプションと組み合わせることで真価を発揮します。

行ごとの処理「-n」と「-p」

ファイルを1行ずつ読み込んで処理する場合に使います（sed や awk の代わり）。

オプション	動作	Unixコマンドでの役割
-n	while(<>) { ... } で囲んだのと同じ動作。 自動的に1行ずつ読み込むが、printしないと表示されない。	grep, awk
-p	-n と同じだが、処理の最後に自動的に print する。 内容を書き換えて表示する場合に使う。	sed

使用例：grepの代わり（-n）

access.log から “error” を含む行だけを表示する。

# grep "error" access.log と同じ
perl -ne 'print if /error/' access.log

使用例：sedの代わり（-p）

ファイル内の “foo” を全て “bar” に置換して表示する。

# sed 's/foo/bar/g' file.txt と同じ
perl -pe 's/foo/bar/g' file.txt

---

第2章：Perl正規表現（Regex）の真髄

Perlを使う最大の理由は、その強力すぎる正規表現にあります。
多くのプログラミング言語（PHP, Python, Javaなど）の正規表現は「PCRE (Perl Compatible Regular Expressions)」と呼ばれており、Perlをお手本にしています。
つまり、Perlこそが正規表現の「本家本元」なのです。

よく使うメタ文字のおさらい

• \d : 数字 [0-9]
• \w : 英数字とアンダースコア [a-zA-Z0-9_]
• \s : 空白文字（スペース、タブ、改行）
• . : 任意の1文字
• * : 0回以上の繰り返し（貪欲マッチ）
• + : 1回以上の繰り返し（貪欲マッチ）
• ? : 0回または1回の繰り返し、または最短マッチ（重要）

【実務テクニック】最短マッチ（Non-greedy）

例えば、HTMLタグの中身を取り出したいとき。
<div>AAA</div><div>BBB</div> という文字列に対して /<div>.*<\/div>/ と書くと、最後の </div> まで全部マッチしてしまいます（貪欲）。

Perlでは *? や +? を使うことで、「最初に見つけた区切り」で止める（最短マッチ）ことができます。

# 最短マッチの例
perl -ne 'print "$1\n" if /<div>(.*?)<\/div>/' index.html

【実務テクニック】後方参照とグループ化

カッコ () で囲った部分は、後で $1, $2… として取り出せます。
ログ解析ではこれが必須スキルです。

# "User: Tanaka, ID: 123" から ID だけ抜き出す
echo "User: Tanaka, ID: 123" | perl -ne 'print "$1\n" if /ID: (\d+)/'

---

第3章：実践！Apacheアクセスログ解析

それでは、実際のサーバー管理業務を想定し、Apacheのアクセスログ（Combined形式）を解析してみましょう。
ログの形式例：

192.168.1.10 - - [18/Jan/2026:10:00:00 +0900] "GET /index.html HTTP/1.1" 200 1234 "-" "Mozilla/5.0..."

Case 1: 404エラーの行だけ抜き出す

ステータスコード（200の次にある数字）が404の行を探します。

perl -ne 'print if /" 404 /' /var/log/httpd/access_log

Case 2: ステータスコードごとの件数を集計する

これは awk だと少し面倒ですが、Perlならハッシュを使えば一瞬です。
END { ... } ブロックを使うと、全行読み終わった後の処理を書けます。

# /" (\d{3}) / でステータスコード($1)を抜き出し、ハッシュ($h)にカウント
perl -ne '$h{$1}++ if /" (\d{3}) /; END { print "$_: $h{$_}\n" for sort keys %h }' /var/log/httpd/access_log

実行結果イメージ：

200: 850
301: 50
404: 12
500: 3

Case 3: 特定の時間帯のアクセス数を数える

「10時台」のアクセス数をカウントします。

perl -ne '$count++ if /:10:\d{2}:\d{2}/; END { print $count }' /var/log/httpd/access_log

---

第4章：危険だが強力な「-i」によるファイル書き換え

設定ファイルを書き換える時、ファイルをエディタで開いて修正するのは手間ですよね。
-i (In-place edit) オプションを使えば、ファイルを直接書き換えることができます。

一括置換（バックアップなし）

config.txt の中の localhost を 127.0.0.1 に書き換えます。

perl -pi -e 's/localhost/127.0.0.1/g' config.txt

一括置換（バックアップあり）

失敗が怖い場合は、元のファイルを .bak として残します。

perl -pi.bak -e 's/localhost/127.0.0.1/g' config.txt

これで config.txt.bak（元ファイル）と config.txt（置換後）が生成されます。
サーバー移転時などで、大量のHTMLファイルのリンク先を一括変更したい時に絶大な威力を発揮します。

---

第5章：システム管理・自動化への応用

ログ解析以外にも、サーバー管理業務で使えるワンライナーを紹介します。

1. ファイルの一括リネーム

*.htm を *.html に変更したい場合。
Perlには rename 関数があるので、それを使います。

# すべての .htm ファイルを対象に処理
perl -e 'rename $_, s/\.htm$/.html/r for glob("*.htm")'

※Linuxディストリビューションによっては rename コマンド自体がPerlスクリプトになっている場合もあります（prename）。

2. 未来・過去の日付を計算する

「30日前の日付」を含むログファイル名を作りたい時など。

perl -MPOSIX -e 'print strftime("%Y-%m-%d", localtime(time - 86400 * 30))'

-M オプションでモジュール（ここではPOSIX）をロードできます。

3. プロセス監視

特定のプロセスがメモリを食い過ぎていないかチェックする。

ps aux | perl -ane 'print "$F[10]: $F[3]%\n" if $F[3] > 10.0'

（メモリ使用率が10%を超えているプロセスの名前を表示）

---

第6章：もっと便利に！CPANモジュールをコマンドラインで

第4回で紹介したCPANモジュールは、ワンライナーでも使えます。
特に便利なのが JSON などのデータ処理系です。

JSONデータの整形（Pretty Print）

APIから返ってきた見にくいJSONを見やすく整形します。

# 前提: sudo dnf install perl-JSON-PP
curl https://api.example.com/data.json | json_pp

※ json_pp はPerlで書かれた標準ツールです。

HTMLからリンクを抽出

Mojo::DOM（Mojoliciousに含まれる）を使えば、スクレイピングもワンライナーで可能です。

# ページ内のすべてのリンク(href)を表示
curl -L https://www.perl.org | perl -MMojo::DOM -n0e 'print Mojo::DOM->new($_)->find("a")->map(attr => "href")->join("\n")'

---

まとめ：Perlは「サーバー管理者」の共通言語

今回は、Webアプリ開発の枠を超えて、サーバー管理の現場で役立つPerlワンライナー技術を紹介しました。

今回の重要ポイント：

• perl -ne は grep、perl -pe は sed、perl -ane は awk の代わりに使える。
• Perlの正規表現は世界最強。最短マッチや後方参照を使いこなせ。
• -i オプションを使えば、設定ファイルの一括置換も一瞬。
• ハッシュを使えば、ログの集計・分析もコマンド一行で完結する。

最近はPythonなどで管理ツールを作ることも多いですが、Perlの強みは「どのLinuxサーバーにも最初から入っている」「起動が爆速」「テキスト処理に特化している」という点です。
サーバーに入ってトラブルシューティングをする際、あなたの指先から繰り出されるPerlワンライナーは、最高に頼れる武器になるはずです。

これにて、Perl講座のすべてのコンテンツは終了です。
Web開発からサーバー管理まで、Perlの可能性は無限大です。
ぜひ、現場でバリバリ使い倒してくださいね！