Improving the output.

This commit is contained in:
sergiotarxz 2022-02-06 03:41:21 +01:00
parent 61f93b9e25
commit 2751e2334d

View File

@ -47,15 +47,24 @@ while (my $line = <$desktop_filehandle>) {
close $desktop_filehandle;
open my $icon_filehandle, '<', $icon_search_file;
say '
Known Icons:
-------------
';
while (my $line = <$icon_filehandle>) {
chomp $line;
say $line;
$desktop_relation{$line} = 1;
}
close $icon_filehandle;
say '
Missing icons:
-------------
';
for my $key (keys %desktop_relation) {
unless ($desktop_relation{$key}) {
say qq($key is missing);
say $key;
}
}
EOF