home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / operl.shar / sample3 < prev    next >
Encoding:
Text File  |  1991-02-25  |  1.0 KB  |  40 lines
  1. #!/usr/bin/perl
  2. require 'set.pl';
  3.  
  4. $set1 = &newobject('set'); # Elements can't duplicate in set class
  5. $bag1 = &newobject('bag'); # Elements can duplicate in bag class
  6.  
  7. print "** set **\n";
  8. &send($set1, 'put', 'banana');
  9. &send($set1, 'put', 'apple');
  10. &send($set1, 'put', 'orange');
  11. &send($set1, 'put', 'orange');
  12. &send($set1, 'put', 'orange');
  13.  
  14. print "Orange Total=" . &send($set1, 'how_many', 'orange') . "\n";
  15. &send($set1, 'dump');
  16. &send($set1, 'show_self');
  17.  
  18. &send($set1, 'delete', 'orange');
  19.  
  20. print "Orange Total=" . &send($set1, 'how_many', 'orange') . "\n";
  21. &send($set1, 'dump');
  22. &send($set1, 'show_self');
  23.  
  24. print "** bag **\n";
  25. &send($bag1, 'put', 'banana');
  26. &send($bag1, 'put', 'apple');
  27. &send($bag1, 'put', 'orange');
  28. &send($bag1, 'put', 'orange');
  29. &send($bag1, 'put', 'orange');
  30.  
  31. print "Orange Total=" . &send($bag1, 'how_many', 'orange') . "\n";
  32. &send($bag1, 'dump');
  33. &send($bag1, 'show_self');
  34.  
  35. &send($bag1, 'delete', 'orange');
  36.  
  37. print "Orange Total=" . &send($bag1, 'how_many', 'orange') . "\n";
  38. &send($bag1, 'dump');
  39. &send($bag1, 'show_self');
  40.