DB2 :: Admin.

Perl¿¡¼­ DB2 °ü¸® API Áö¿ø
Áö±Ý ´Ù¿î·Îµå

DB2 :: Admin. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Hildo Biersma
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~hbiersma/

DB2 :: Admin. ű×


DB2 :: Admin. ¼³¸í

Perl¿¡¼­ DB2 °ü¸® API Áö¿ø DB2 :: AdminÀº DB2 °ü¸® API¿¡ ´ëÇÑ Perl ¾ð¾î Áö¿øÀ» Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ°ÍÀº DB2 ¸í·É Çà 󸮱â (CLP), 'DB2'ÇÁ·Î±×·¥ÀÌ Á¦°øÇÏ´Â ºñ SQL ÇÔ¼ö¿¡ ´À½¼ÇÏ°Ô ÇØ´çÇÕ´Ï´Ù. ÀÌ ÇÔ¼ö´Â DBD :: DB2 µ¥ÀÌÅͺ£À̽º µå¶óÀ̹ö¿Í º¸¿Ï ÀûÀÔ´Ï´Ù. DBD :: DB2 µå¶óÀ̹ö´Â ÀÀ¿ë ÇÁ·Î±×·¥ °³¹ßÀÚ¸¦ ´ë»óÀ¸·ÎÇÏ°í SQL ÇÔ¼ö¸¦ Áö¿øÇÕ´Ï´Ù. DB2 :: Admin ¸ðµâÀº °ü¸®ÀÚ¸¦ ´ë»óÀ¸·ÎÇÏ°í ½º³À ¼¦ ¸ð´ÏÅ͸µ, µð·ºÅ丮 / Ä«Å»·Î±× °ü¸®, À̺¥Æ® ó¸®, ±¸¼º ¸Å°³ º¯¼ö ¹× µ¥ÀÌÅÍ °¡Á® ¿À±â / export.syNopsis¿Í °°Àº ºñ SQL µ¥ÀÌÅͺ£À̽º ±â´ÉÀ» Áö¿øÇÕ´Ï´Ù. DB2 :: Admin; DB2 :: ADMIN :: -> SETOPTIONS ( 'RASERERROR'=> 1); DB2 :: ADMIN :: -> ATTACH ( 'ÀνºÅϽº'=> foo '); # ¸ð´ÏÅÍ ½ºÀ§Ä¡ ¹× ½º³À ¼¦ DB2 :: ADMIN :: -> SETMONITORSWITCHES ( '½ºÀ§Ä¡'=> { 'TABLE'=> 1, 'UOW'=> 0,}); MY $ RETVAL = DB2 :: ADMIN :: -> getSnapshot ( 'Á¦¸ñ'=> 'SQLMA_APPLINFO_ALL'); DB2 :: Admin :: -> resetMonitorSwitches (); # µ¥ÀÌÅͺ£À̽º °ü¸® ÇÁ·Î±×·¥ ±¸¼º ¸Å°³ º¯¼ö my @Options = db2 :: admin :: -> getDBMConfig ( 'param'=> ); Àμâ "ÃÖ´ë ¿¡ÀÌÀüÆ® : $ ¿É¼Ç {°ª} "Àμâ"Max cound ¿¡ÀÌÀüÆ® : $ ¿É¼Ç {value} "; db2 :: admin :: -> updatedBmconfig ( 'param'=> ,'Ç÷¡±× '=>'Áö¿¬µÊ '); # µ¥ÀÌÅͺ£À̽º ±¸¼º ¸Å°³ º¯¼ö @Options = db2 :: admin :: -> getDatabaseConfig ('param '= > , 'Ç÷¡±×'=> 'Áö¿¬', 'µ¥ÀÌÅͺ£À̽º'=> '»ùÇÃ',); "µ¥ÀÌÅͺ£À̽º Èü Å©±â : $ ¿É¼Ç {°ª} "; Àμâ"°æ·Î¸¦ ·Î±× ÆÄÀÏ : $ ¿É¼Ç {°ª} "; db2 :: admin :: -> updateDatabaseConfig ( 'param'=> {name '=>'autoressart ',' 'value'=> 0,}, 'database'=> 'sample', 'flag'=> 'Áö¿¬'); db2 :: admin :: -> detach (); # µ¥ÀÌÅͺ£À̽º, ³ëµå ¹× DCS µð·ºÅ丮 - ÷ºÎ ÇÊ¿ä ¾øÀ½ @db_dir = db2 :: admin :: -> getDatabaseDirectory (); my @db_dir = db2 : : admin :: -> getDatabasedirectory ( 'path'=> $ dbdir_path); my @node_dir = db2 :: admin :: -> getNodedirectory (); my @dcs_dir = db2 :: admin :: -> getDCSDirectory (); Ä«Å»·Î±× ¶Ç´Â UNCATALOG A µ¥ÀÌÅͺ£À̽º DB2 :: admin :: -> CATALOGDATABASE ( 'µ¥ÀÌÅͺ£À̽º'=> '°¡°Ý', 'alias'=> 'testpri', 'nodeName'=> 'testNode', 'type'=> 'Remote' ); db2 :: admin :: -> uncatalogdatabase ( 'alias'=> 'testpri'); # Ä«Å»·Î±× ¶Ç´Â Uncatalog a node db2 :: admin :: -> catalogode ( 'ÇÁ·ÎÅäÄÝ'=> 'TCP / IP', # ¶Ç´Â ¾ç¸» / ·ÎÄà 'nodeName'=> 'testNode', 'hostname'=> 'testhost.example.com', 'serviceName'=> 3700); # ¼­ºñ½º À̸§ ¶Ç´Â Æ÷Æ® ¹øÈ£ DB2 :: admin :: -> UncatAlognode ( 'NodeName'=> 'TestNode'); # Ä«Å»·Î±× ¶Ç´Â Uncatalog A DCS µ¥ÀÌÅͺ£À̽º DB2 :: ADMIN :: -> CATALOGDCSDATABASE ( 'DATABA) SE '=>'°¡°Ý ','¸ñÇ¥ '=>'DCSDB '); DB2 :: ADMIN :: -> UNCATALOGDCSDATABASE ( 'µ¥ÀÌÅͺ£À̽º'=> '°¡°Ý'); # °­Á¦ ÀÀ¿ë ÇÁ·Î±×·¥ - ÷ºÎ Çʼö. ÁÖÀǸ¦ ±â¿ïÀ̽ʽÿÀ. db2 :: admin :: -> forceApplications (@agent_ids); DB2 :: admin :: -> forceallapplications (); # database db2 :: admin :: -> connect ( 'database'=> 'mydb', 'userid'=> myuser ','password '=> mypass'µ¥ÀÌÅͺ£À̽º / disconnect¿¡ ¿¬°á / ¿¬°á ÇØÁ¦ÇϽʽÿÀ. DB2 :: Admin :: -> setConnectAttributes ( 'ConnectTimeout'=> 120); db2 :: admin :: -> connect ( 'database'=> 'mydb', 'userid'=> 'myuser', 'password'=> 'mypass', 'connectattr'=> { 'programName'=> 'myScript ',},); DB2 :: ADMIN :: -> DISCONNECT ( 'µ¥ÀÌÅͺ£À̽º'=> MYDB '); # ¿¬°á / ¼³Á¤ ¿¬°á ¼öÁØ Å¬¶óÀ̾ðÆ® Á¤º¸ DB2 :: Admin :: -> clientInfo ( 'database'=> 'mydb', 'clientUserID'=> 'remote_user'); % client_info = db2 :: admin :: -> clientInfo ( 'µ¥ÀÌÅͺ£À̽º'=> mydb '); # µ¥ÀÌÅ͸¦ ³» º¸³À´Ï´Ù. µ¥ÀÌÅͺ£À̽º ¿¬°áÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿¹Á¦ »ý·« ¿É¼Ç. db2 :: admin-> export ( 'database'=> $ db_name, 'schema'=> $ schema_name, 'table'=> $ table_name, 'outertfile'=> "/ var / tmp / data- $ schema_name- $ table_name .del ", 'filetype'=> 'del'); # µ¥ÀÌÅÍ °¡Á® ¿À±â. µ¥ÀÌÅͺ£À̽º ¿¬°áÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿¹Á¦ »ý·« ¿É¼Ç. db2 :: admin-> import ( 'database'=> $ db_name, 'schema'=> $ schema_name, 'table'=> $ table_name, 'inputfile'=> "/ var / tmp / data- $ schema_name- $ table_name .del ", 'Á¶ÀÛ'=> '»ðÀÔ', 'FileType'=> 'del'); # µ¥ÀÌÅͷεå. µ¥ÀÌÅͺ£À̽º ¿¬°áÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿¹Á¦ »ý·« ¿É¼Ç. ³» $ rc = db2 :: admin-> load ( 'database'=> $ db_name, 'schema'=> $ schema_name, 'table'=> $ table_name, 'inputfile'=> "/ var / tmp / data - $ schema_name- $ table_name.del ", 'Á¶ÀÛ'=> '»ðÀÔ', 'sourceType'=> 'del'); MY $ State = DB2 :: Admin-> LoadQuery ( 'schema'=> $ schema_name, 'table'=> $ table_name, 'logfile'=> $ logfile, 'messages'=> 'all'); # Å×À̺í Åë°è¸¦ ½ÇÇàÇϽʽÿÀ. µ¥ÀÌÅͺ£À̽º ¿¬°áÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿¹Á¦ # ¿É¼ÇÀ» »ý·«ÇϽʽÿÀ. $ rc = db2 :: admin-> runstats ( 'database'=> $ db_name, 'schema'=> $ schema_name, 'table'=> $ table_name); # ¸ñ·Ï ±â·Ï. µ¥ÀÌÅͺ£À̽º ¿¬°áÀÌ ¾Æ´Ñ attachEmnetÀÌ ÇÊ¿äÇÕ´Ï´Ù. @history = db2 :: admin-> listhistory ( 'database'=> $ db_name, 'action'=> 'load', # ¼±ÅÃ; ±âº»°ª : ¸ðµç 'starttime'=> '¼±ÅÃ; ¼±ÅÃÀû; ¶ÇÇÑ HHMMSS¸¦ ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. 'objectname'=> 'myschema.mytable', ¼±Åà »çÇ×); #ÀÌ @utils = DB2 :: Admin-> LanduTutilities ()¸¦ ÇöÀç ½ÇÇàÁßÀÎ À¯Æ¿¸®Æ¼ ¸ñ·ÏÀ» ³ª¿­ÇϽʽÿÀ. my @utils = db2 :: admin-> landUtutilities ( 'database'=> $ db_name); # ÆÐÅ°Áö¸¦ ¸® ¹ÙÀεåÇϽʽÿÀ. µ¥ÀÌÅͺ£À̽º ¿¬°áÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿¹Á¦ »ý·« ¿É¼Ç. db2 :: admin-> Rebind ( 'database'=> $ db_name, 'schema'=> $ schema_name, 'package'=> $ pkg_name); # µ¥ÀÌÅͺ£À̽º ¹é¾÷ (¶Ç´Â µ¥ÀÌÅͺ£À̽º ÆÄƼ¼Ç) DB2 :: Admin-> ¹é¾÷ ( 'µ¥ÀÌÅͺ£À̽º'=> $ db_name, '´ë»ó'=> $ backup_dir, '¿É¼Ç'=> {¿Â¶óÀÎ '=> 1,'¾ÐÃà '= > 1,}); # DPF µ¥ÀÌÅͺ£À̽ºÀÇ ¸ðµç ³ëµå ¹é¾÷ (V9.5 ¸¸ ÇØ´ç) DB2 :: ADMIN-> ¹é¾÷ ( 'µ¥ÀÌÅͺ£À̽º'=> $ db_name, '´ë»ó'=> $ backup_dir, '¿É¼Ç'=> {¿Â¶óÀÎ '=> 1 , '³ëµå'=> '¸ðµÎ',}); ¿ä±¸ »çÇ× : ¡¤ Perl.


DB2 :: Admin. °ü·Ã ¼ÒÇÁÆ®¿þ¾î