【応用】ミニ在庫管理システムを作る

このレッスンでは、ここまで学んだハッシュ・配列・サブルーチンを組み合わせて、簡単な在庫管理システムを作ってみます。Perl入門の総仕上げの内容です。

実際の業務システムでは、「商品」のようなデータをハッシュリファレンスで表現し、複数の商品を配列でまとめて管理する、という組み合わせがよく使われます。

サンプルコードでは、商品情報をハッシュリファレンスの配列として管理し、foreachで在庫状態を判定しながら一覧を出力しています。

ここまでのレッスンで学んだ正規表現・リファレンス・ハッシュなどは、実際のログ解析・テキスト処理システムの開発でも土台となる考え方です。まずは小さなプログラムでPerlらしいシジル(記号)の使い方を意識しながら書く習慣をつけることが、実務でPerlを使うための近道になります。

📖 お手本コード

use strict;
use warnings;

my @items = (
    { name => "ノート", quantity => 12 },
    { name => "消しゴム", quantity => 3 },
    { name => "定規", quantity => 0 },
);

foreach my $item (@items) {
    my $status;
    if ($item->{quantity} == 0) {
        $status = "在庫切れ";
    } elsif ($item->{quantity} < 5) {
        $status = "残りわずか";
    } else {
        $status = "在庫あり";
    }
    print "$item->{name}: $item->{quantity}個($status)\n";
}

✍️ あなたのコード

コードを書いたら「実行する」を押してください

🧪 このサイトではPerlを直接コンパイル・実行できないため、お手本コードと同じ内容を入力できたかをその場で判定します(採点はブラウザ内だけで行われ、どこにも送信されません)。