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; close $desktop_filehandle;
open my $icon_filehandle, '<', $icon_search_file; open my $icon_filehandle, '<', $icon_search_file;
say '
Known Icons:
-------------
';
while (my $line = <$icon_filehandle>) { while (my $line = <$icon_filehandle>) {
chomp $line; chomp $line;
say $line;
$desktop_relation{$line} = 1; $desktop_relation{$line} = 1;
} }
close $icon_filehandle; close $icon_filehandle;
say '
Missing icons:
-------------
';
for my $key (keys %desktop_relation) { for my $key (keys %desktop_relation) {
unless ($desktop_relation{$key}) { unless ($desktop_relation{$key}) {
say qq($key is missing); say $key;
} }
} }
EOF EOF