home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / ext / OS2 / REXX / test2.pl < prev    next >
Text File  |  1995-05-13  |  360b  |  12 lines
  1. use OS2::REXX;
  2. OS2::REXX::_set("X" => sqrt(2)) or die "set";
  3. $x = OS2::REXX::_fetch("X") or die "fetch";
  4. print "x=$x\n";
  5. OS2::REXX::_set("Y" => sqrt(3)) or die "set";
  6. while (($name, $value) = OS2::REXX::_next("")) {
  7.     print "next: name='$name' value='$value'\n";
  8. }
  9. OS2::REXX::_drop("X") or die "drop";
  10. $x = OS2::REXX::_fetch("X") and die "fetch 2";
  11.  
  12.