sd.pl
- use Cwd;
- use File::Path;
- use File::Basename;
- sub directory
- {
- my (@list, $item);
- opendir DIR,".";
- @list = readdir DIR;
- #remove .
- shift(@list);
-
- foreach $i (0..$#list)
- {
- if (-d $list[$i]) {print "$i. $list[$i]\n";}
- }
- print "--------------------------------------------\n";
- foreach $i (0..$#list)
- {
- if (-f $list[$i]) {print "file: $list[$i]\n";}
- }
-
- print "\n\nSelect:";
- $tmp=<STDIN>;
- chomp $tmp;
- print "\n";
- if ($tmp !~ /\d/) {return;}
- chdir ($list[$tmp]);
- directory();
- }
- directory();
- $tmp = cwd();
- $tmp=~s/\//\\/g;
- print "\ncd ";
- print $tmp;
- print "\n";