home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / perl / 6902 < prev    next >
Encoding:
Text File  |  1992-11-09  |  1.1 KB  |  41 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!gatech!darwin.sura.net!uvaarpa!mmdf
  3. From: "G.W.Bultman" <bultman@dgw.rws.nl>
  4. Subject: NGetOpt interface - how to use it
  5. Message-ID: <1992Nov9.132945.2010@uvaarpa.Virginia.EDU>
  6. Sender: mmdf@uvaarpa.Virginia.EDU (Mail System)
  7. Reply-To: bultman@dgw.rws.nl
  8. Organization: The Internet
  9. Date: Mon, 9 Nov 1992 13:29:45 GMT
  10. Lines: 29
  11.  
  12. Hi,
  13.  
  14. I'd like to use the NGetOpt interface, but I'm not sure how to 
  15. check if an option is set or not.
  16.  
  17. Can anyone help?
  18.  
  19.  
  20. |    #!/usr/local/bin/perl
  21. |    require "newgetopt.pl";
  22. |    do NGetOpt('gridsize=f','intervals=i','expparts=i');
  23. |    
  24. |    if ( option -gridsize is set )
  25. |         {
  26. |         $gridsize = $opt_gridsize;
  27. |         }
  28. |    else
  29. |         {
  30. |         $gridsize = default value;
  31. |         }
  32.  
  33. --
  34.  
  35.     o                                                                o   
  36.   / | \    Gert Bultman <bultman@dgw.rws.nl>   Koningskade 4       / | \  
  37.  o--o--o   Tidal Waters Division               2596 AA The Hague  o--o--o 
  38.   \ | /    Rijkswaterstaat                     The Netherlands     \ | /  
  39.     o                                                                o    
  40.  
  41.