home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / oraperl2.zip / ex.pl < prev    next >
Text File  |  1993-07-01  |  655b  |  28 lines
  1. format top =
  2.        Name                           Phone
  3.        ====                           =====
  4. .
  5.  
  6. format STDOUT =
  7.        @<<<<<<<<<<              @>>>>>>>>>>
  8.        $name,                   $phone
  9. .
  10.  
  11. die ("You should use oraperl, not perl\n") unless defined &ora_login;
  12.  
  13. $lda = &ora_login("t", "kstock", "kstock")
  14.     || die $ora_errstr;
  15. $csr = &ora_open($lda, "select * from telno order by name")
  16.     || die $ora_errstr;
  17.  
  18. $nfields = &ora_fetch($csr);
  19. print "Query will return $nfields fields\n\n";
  20.  
  21. while (($name, $phone) = &ora_fetch($csr))
  22. {
  23.     write;
  24. }
  25.  
  26. do ora_close($csr) || die "can't close cursor";
  27. do ora_logoff($lda) || die "can't log off Oracle";
  28.