Per lavoro ho dovuto fare uno script in perl per lockare gli utenti che non si collegano su un server da piu' di 60 giorni ($maxdays). Questo script non fa altro che memorizzare in un array (@ll) l'output ripulito del comando `lastlog` il contenuto dell'array viene diviso per ottenere utente e data dell'ultimo login, la data viene rielaborata per avere un formato utile a fare la differenza con la data corrente e se il risultato è maggiore o uguale a 60 locka l'utente [system("usermod -L $user")]

Per fare la differenza fra le date ho utilizzato due metodi (due script che fanno la stessa cosa in modi diversi):

1. Date::Calc qw(Delta_Days) => Download
2. una sub con un algoritmo => Download

Questi scripts li reputo abbastanza inutili..ma sono stati commissionati per "salvaguardare la sicurezza" di un server esposto..bah..almeno ho imparato un po' di perl.. :D

Commenti, critiche e consigli sono ben accetti.. :-)