home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 7977 < prev    next >
Encoding:
Text File  |  1993-01-24  |  935 b   |  31 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!bogus.sura.net!howland.reston.ans.net!sol.ctr.columbia.edu!The-Star.honeywell.com!umn.edu!csus.edu!netcom.com!stevedav
  3. From: stevedav@netcom.com (Steve Davidson)
  4. Subject: perl/ms-dos bugs
  5. Message-ID: <1993Jan25.031629.16341@netcom.com>
  6. Organization: Netcom - Online Communication Services  (408 241-9760 guest) 
  7. Date: Mon, 25 Jan 1993 03:16:29 GMT
  8. Lines: 21
  9.  
  10. Environment: Perl4.19 MS-DOS
  11.  
  12. I have a simple problem:
  13. I want to list the files in my current directory.
  14.  
  15. The following programs work in Unix and fail in DOS:
  16. print join(' ', @ARGV) ;    # Execute as: perl -n ls *.*
  17.  
  18. -- and --
  19.  
  20. while (<*.*>) {
  21.         print ;
  22. }
  23.  
  24. Neither worked under DOS (no MKS toolkit).  Can anyone help?
  25.  
  26. Ultimately, I'd like to write a series of Unix tools in Perl under DOS.
  27. My first goal is to simulate 'rm -r' in DOS.
  28. Any suggestions?
  29.  
  30. Steve Davidson   Email: steved@cfcl.com
  31.