forked from germedeb/IconToaster
Improving the output.
This commit is contained in:
parent
61f93b9e25
commit
2751e2334d
11
functions.sh
11
functions.sh
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user