home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / unix / question / 14818 < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.1 KB  |  46 lines
  1. Newsgroups: comp.unix.questions
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!usc!news.cerf.net!netlabs!lwall
  3. From: lwall@netlabs.com (Larry Wall)
  4. Subject: Re: PERL PARSING
  5. Message-ID: <1992Dec16.213713.23851@netlabs.com>
  6. Sender: news@netlabs.com
  7. Nntp-Posting-Host: scalpel.netlabs.com
  8. Organization: NetLabs, Inc.
  9. References: <1992Dec15.172048@is.morgan.com>
  10. Date: Wed, 16 Dec 1992 21:37:13 GMT
  11. Lines: 33
  12.  
  13. In article <1992Dec15.172048@is.morgan.com> holger@is.morgan.com (Holger Veith) writes:
  14. : What is the best way to parse a string within PERL where I would like it
  15. : to behave sort of like ksh.
  16. : 
  17. : I have used the split command by splitting on white space, but I would
  18. : like everything enclosed in quotes to be one string.
  19. : 
  20. : ie.
  21. : 
  22. : $x='please "help me split" this line';
  23. : 
  24. : ->  $a[1]='please'
  25. :     $a[2]='help me split'
  26. :     $a[3]='this'
  27. :     $a[4]='line'
  28.  
  29. $ perl
  30. require "shellwords.pl";
  31. $x='please "help me split" this line';
  32. @a = &shellwords($x);
  33. $" = "\n"; 
  34. print "@a\n";
  35. __END__
  36. please
  37. help me split
  38. this
  39. line
  40. $
  41.  
  42. Larry Wall
  43. lwall@netlabs.com
  44.  
  45.  
  46.