icewm/icewm-menuhelper-parent-dirs

   1 #!/usr/bin/env perl
   2
   3 while(<STDIN>)
   4 {
   5         ($type, $path) = /(\S+)\t(.+)\n/;
   6         $path =~ s/\/$//;
   7
   8         if($type ne "inode/directory")
   9         {
  10                 $path =~ s/([^\/]+)$//;
  11         }
  12
  13         $path =~ s/^(.+)\/$/$1/;
  14
  15         if(!$dirs{$path})
  16         {
  17                 print "inode/directory\t$path\n";
  18                 $dirs{$path}=1;
  19         }
  20 }