xfce-xterm-launcher-update/xfce-xterm-launcher-log-age

#!/usr/bin/perl

use warnings;
use strict;
use File::Slurp;
use Data::Dumper;
use v5.10;
use POSIX qw(strftime);

my $launcher = $ARGV[0];

my $launcher_dir = "$ENV{HOME}/.config/xfce4/panel/launcher-$launcher";

my @desktop_files = glob("$launcher_dir/*.desktop");
mkdir "$ENV{HOME}/log/";
mkdir "$ENV{HOME}/log/xfce-xterm-launcher/";
open my $log, ">>", "$ENV{HOME}/log/xfce-xterm-launcher/" . strftime("%Y-%m", localtime);

my $i = 0;
for (@desktop_files) {
    my $content = read_file($_);
    my ($exec) = $content =~ m/^Exec=xterm -e (.*)/m;
    next unless defined $exec;
    my $age = -A "$ENV{HOME}/bin/hosts/$exec";
    say $log join("\t", $^T, ++$i, $exec, $age);
}