home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / ext / OS2 / REXX / rx1.pl < prev    next >
Text File  |  1995-05-13  |  1KB  |  73 lines
  1. use REXX;
  2.  
  3. #
  4. # DLL
  5. #
  6. $ydba = load REXX "ydbautil" or die "load";
  7.  
  8. #
  9. # function
  10. #
  11. if (1) {
  12.     @pid = $ydba->RxProcId();
  13.     print @pid, "\n";
  14.     @pid = $ydba->RxProcId();
  15.     print @pid, "\n";
  16. }
  17.  
  18. #
  19. # scalar
  20. #
  21. if (1) {
  22.     tie $s, REXX, "TEST";
  23.     $s = 1;
  24.     print $s;
  25.     untie $s;
  26. }
  27.  
  28. #
  29. # hash
  30. #
  31. if (1) {
  32.     tie %all, REXX, "";    # all REXX vars
  33.  
  34.     sub show
  35.     {
  36.         # show all REXX vars
  37.         print "--@_--\n";
  38.         foreach (keys %all) {
  39.             $v = $all{$_};
  40.             print "$_ => $v\n";
  41.         }
  42.     }
  43.  
  44.  
  45.     tie %h, REXX, "TEST.";
  46.     show("initial");
  47.  
  48.     $h{"one"} = 1;
  49.     show("1st item");
  50.  
  51.     $h{"two"} = 2;
  52.     show("2nd item");
  53.  
  54.     $h{"one"} = "";
  55.     show("emptied 1st");
  56.     print "one exists\n" if exists $h{"one"};
  57.     print "two exists\n" if exists $h{"two"};
  58.  
  59.     delete $h{"one"};
  60.     show("deleted 1st");
  61.     print "one exists\n" if exists $h{"one"};
  62.     print "two exists\n" if exists $h{"two"};
  63.  
  64.     REXX::drop("TEST.");
  65.     show("dropped TEST.");
  66.     print "one exists\n" if exists $h{"one"};
  67.     print "two exists\n" if exists $h{"two"};
  68.  
  69.     untie %h;
  70. }
  71.  
  72. $ydba->nixda();
  73.