sd.pl

  1. use Cwd;
  2. use File::Path;
  3. use File::Basename;
  4. sub directory
  5. {
  6. my (@list, $item);
  7. opendir DIR,".";
  8. @list = readdir DIR;
  9. #remove .
  10. shift(@list);
  11. foreach $i (0..$#list)
  12. {
  13. if (-d $list[$i]) {print "$i. $list[$i]\n";}
  14. }
  15. print "--------------------------------------------\n";
  16. foreach $i (0..$#list)
  17. {
  18. if (-f $list[$i]) {print "file: $list[$i]\n";}
  19. }
  20. print "\n\nSelect:";
  21. $tmp=<STDIN>;
  22. chomp $tmp;
  23. print "\n";
  24. if ($tmp !~ /\d/) {return;}
  25. chdir ($list[$tmp]);
  26. directory();
  27. }
  28. directory();
  29. $tmp = cwd();
  30. $tmp=~s/\//\\/g;
  31. print "\ncd ";
  32. print $tmp;
  33. print "\n";