7 my $cachedir = $ENV{HOME}. "/.cache";
8 my $cachefile = $cachedir."/mymenu";
11 $SIG{CHLD} = "IGNORE";
14 mkdir $cachedir or die "Cannot create cache dir ". $cachedir;
18 open my $f, "<", $cachefile;
20 my ($c, $p) = split / /, $_;
27 foreach my $p (split /:/, $ENV{PATH}) {
28 opendir my $d, $p or next;
29 foreach (readdir $d) {
30 if (-x "$p/$_" and ! (-d "$p/$_")) {
31 if (! exists $progs{$_}) {
39 my $args = join ' ', @ARGV;
40 my $pid = open3(my $c_in, my $c_out, my $c_err, "mymenu $args") or die("Failed open3(): $!");
41 foreach (sort {$progs{$b} <=> $progs{$a} or lc($a) cmp lc($b)} keys %progs) {
46 while (my $p = <$c_out>) {
57 say "Updating cache...";
58 open my $f, ">", $cachefile;
59 foreach (keys %progs) {
60 print $f $progs{$_} ." ". $_ ."\n" if $progs{$_} != 0;