home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / s / unixcmds / BIN / dirs < prev    next >
Encoding:
Text File  |  1993-06-10  |  239 b   |  13 lines
  1.  
  2. # vi:si:ts=4:sw=4
  3. # Implements pushd using a system Variable (DIRSTACK) to store the stack.
  4.  
  5. die "Usage: dirs\n" unless ($#ARGV == -1);
  6.  
  7. @dirs = split(' ', $ENV{"DIRSTACK"});
  8. print "Directory stack:\n";
  9. foreach (@dirs)
  10. {
  11.     print "$_\n";
  12. }
  13.