#!/usr/bin/perl

# Una possibile soluzione all'Esercizio 2 (non l'unica)

use strict;
use warnings;

my $command_name = shift or die "Usage: $0 COMMAND_NAME\n";

my @command_parameters;

for (`cat ~/.bash_history | nl`) {
    chomp;
    if (/^\s*\d+\s+\Q$command_name\E( (.*))?$/) { # \Q serve per disabilitare il matching dei meta-caratteri (tipo +) fino a \E (serve per prendere comandi tipo 'g++' ma, se non presente, non è stato considerato errore al compito)
        push @command_parameters, ($2 or "");
    }
}

print "$command_name " . @command_parameters . "\n";

print "\t", $_, "\n" for (@command_parameters);
