#!/usr/bin/perl

# Una possibile soluzione all'Esercizio 2 (non l'unica)

use strict;
use warnings;

my $user_name = shift || `whoami`; # Nome utente specificato o output del comando whoami
chomp $user_name;

for (`lsof -a -cbash -u$user_name -Ftn 2>&1`) { # Tutti i file aperti da processi con COMMAND bash e user $user_name (l'ultima opzione serve ad avere solo le colonne che mi servono)
    chomp;

    if (/^p(.+)/) {
        print "$1\n";
    }elsif (/^t(.+)/) {
        print ":$1:";
    } elsif (/^n(.+)/) {
        print "$1\n";
    }

}
