dbix :: blob :: handle.µ¥ÀÌÅͺ£À̽º Àбâ ÆÄÀÏ Çڵ鿡¼ ´ëÇü °³Ã¼ ¹ÙÀ̳ʸ® | |
Áö±Ý ´Ù¿î·Îµå |
dbix :: blob :: handle. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Mark Southern
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~msouthern/
dbix :: blob :: handle. ű×
dbix :: blob :: handle. ¼³¸í
ÆÄÀÏ Çڵ鿡¼ µ¥ÀÌÅͺ£À̽º ´ëÇü °³Ã¼ ¹ÙÀ̳ʸ®¸¦ ÀнÀ´Ï´Ù dbix :: blob :: handleÀº IO :: ÇÚµé ¹× io :: selectable.dbi¿¡¼µµ È®Àå µÈ ¹¿©ÀÖ´Â ÆÄÀÏ ÇÚµéÀ» ±¸¼ºÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. )ÀÌ ÆÄÀÏ Çڵ鿡 ±×·¯³ªÀÌ ¹æ¹ýÀº ¹®¼ÈµÇÁö ¾Ê°í °áÇÔÀÌ ÀÖ½À´Ï´Ù. ºñ½ÁÇÑ ¹æ¹ýÀ» ÀÚ½ÅÀ» ±¸¼ºÇÏ´Â °ÍÀº ²Ï °£´ÜÇÏÁö¸¸ µ¥ÀÌÅ͸¦ Àаí ÀÛ¾÷À» ¼öÇàÇÏ·Á´Â °æ¿ì¿¡ ¹«¾ùÀÌ ÇÊ¿äÇմϱî? DBIÀÇ blob_read ¸Þ¼Òµå¸¦ Á÷Á¢ »ç¿ëÇÏ¿© LOB¿¡¼ µ¥ÀÌÅ͸¦ ó¸®Çϰųª ±× ³»¿ëÀ» ½ºÄ®¶ó·Î ´ýÇÁ ÇÒ ¼öµµ ÀÖÁö¸¸, Àͼ÷ÇÑ ÀÌÀü ÆÄÀÏ Çڵ鿡¼ Àͼ÷ÇÑ ÆÄÀϷκÎÅÍ Æ¯Á¤ Á¶°¢À¸·Î µ¥ÀÌÅÍ ¼±À» Àд °ÍÀÌ ÁÁÀ» °ÍÀÔ´Ï´Ù. :: BLOB :: HandleÀº IO :: Handle ¹× IO :: Selectable¿¡¼µµ È®ÀåµÇ´Â ¹ÀÎ ÆÄÀÏ ÇÚµéÀ» ±¸¼ºÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. DBIÀÇ blob_read ¸Þ¼Òµå¸¦ ·¡ÇÎÇÕ´Ï´Ù. LOBÀ» ÀÐÀ» ¼öÀÖ´Â ÆÄÀÏ ÇÚµé·Î »ç¿ëÇÒ ¼öÀÖ°ÔÇÔÀ¸·Î½á ¿ì¸®´Â Àͼ÷ÇÑ (¿ø) ¹æ¹ýÀ¸·Î µ¥ÀÌÅ͸¦ ó¸® ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸ðµâÀ» Á¸ÁßÇÏ¿© $ /¿Í $¸¦ Á¸ÁßÇÔÀ¸·Î½á. ±×·± ´ÙÀ½ ÅؽºÆ® ·çºê (CLOB)¿¡¼ ÅؽºÆ® µ¥ÀÌÅÍÀÇ ¶óÀÎÀ» ÀÐ°í ´Ù¸¥ ÆÄÀÏ ÇÚµé°ú ¸¶Âù°¡Áö·Î ó¸® ÇÒ ¼ö ÀÖ½À´Ï´Ù! ½Ã³ñ½Ã½º DBI; DBIX :: BLOB :: DBIX :: BLOB :: DELICE QW ( : into_statement); $ dbh = dbi-> connect ( 'dbi : oracle : orcl', 'scott', 'tiger', 'tiger', {raiserError => 1, printerror => 0}) ¶Ç´Â 'µ¥ÀÌÅͺ£À̽º¿¡ ¿¬°áÇÒ ¼ö ¾ø½À´Ï´Ù :' , dbi-> errstr; $ dbh -> {longTruncok} = 1; # ¸Å¿ì Áß¿äÇÑ! $ sql = '¿©±â¼ myLob¿¡¼ myLobÀ» ¼±ÅÃÇϽʽÿÀ. $ sth = $ dbh-> Áغñ ($ sql); $ sth-> ½ÇÇà; $ sth-> fetch; $ fh = dbix :: blob :: ÇÚµé -> »õ ($ sth, 0,4096); ... <$ fh> µ¿¾È ÀμâÇÏ´Â µ¿¾È ÀμâÇϽʽÿÀ. # print $ fh-> getLines; Print stderr 'lobÀÇ Å©±â´Â'. $ fh-> ¾Ë¸®½Ê½Ã¿À. "¹ÙÀÌÆ® "Àбâ ... # ÀнÀ´Ï´Ù. <$ ÇÚµé> ... # ¶Ç´Â ¿ì¸®°¡ À§ÇèÇÑ : into_statement pragma, # ¿ì¸®´Â ¸»ÇÒ ¼ö ÀÖ½À´Ï´Ù : # $ fh = $ sth-> blob_as_handle (0,4096); ... $ sth-> ¸¶Ä§, $ dbh -> ¿¬°á ²÷±â; ¿ä±¸ »çÇ× : ¡¤ Perl.
dbix :: blob :: handle. °ü·Ã ¼ÒÇÁÆ®¿þ¾î