home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Developer / webobjects / extensions / win-nt / NTPerl5-109.exe / Samples / curdir.pl next >
Encoding:
Text File  |  1996-06-29  |  349 b   |  18 lines
  1.  
  2. # sample tests changing current working directory of a script
  3.  
  4. print "<p> Current Dir is ";
  5. print Win32::GetCwd();
  6. print "<p>";
  7.  
  8. Win32::SetCwd("..");
  9.  
  10. print "<p> Current Dir is ";
  11. print Win32::GetCwd();
  12.  
  13. # assumes that such a directory exists 
  14. Win32::SetCwd("d:/INetSrv/i386");
  15.  
  16. print "<p> Current Dir is ";
  17. print Win32::GetCwd();
  18.