[Proyecto] Construye un mini sistema de inventario

En esta lección juntarás todo lo anterior en un guion pequeño pero completo.

Aparecen a la vez varias cosas que ya conoces: use strict y use warnings, un array de referencias a hash, un foreach que lo recorre, un if encadenado que decide el estado y la interpolación dentro de un texto.

El código de ejemplo registra tres artículos y saca un informe con el estado de cada uno.

Fíjate en la estructura de los datos: @items es un array cuyos elementos son { ... }, es decir, referencias a hash. Esa combinación de array y hash anidados es exactamente cómo se representa en Perl cualquier dato con forma, y es la misma que obtendrás al leer un JSON con el módulo JSON::PP. Aprender a moverte por ella con $item->{campo} es lo que te permite procesar datos reales.

Si quieres seguir practicando, prueba a ordenar el informe por cantidad con sort { $a->{quantity} <=> $b->{quantity} } @items, o a quedarte solo con los agotados usando grep { $_->{quantity} == 0 } @items. Con eso ya estarías escribiendo el tipo de guion que se usa a diario para revisar registros y generar informes.