È­ÇÐ :: SQL.

È­ÇÐ :: SQLÀº ¾×¼¼½º µ¥ÀÌÅͺ£À̽º ±â´É ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

È­ÇÐ :: SQL. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Bernat Requesens
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~brequesen/Chemistry-Artificial-SQL-0.01/lib/Chemistry/Artificial/SQL.pm

È­ÇÐ :: SQL. ű×


È­ÇÐ :: SQL. ¼³¸í

È­ÇÐ :: SQLÀº ¾×¼¼½º µ¥ÀÌÅͺ£À̽º ±â´É ¸ðµâÀÔ´Ï´Ù. È­ÇÐ :: SQLÀº ¾×¼¼½º µ¥ÀÌÅͺ£À̽º ±â´É ¸ðµâÀÔ´Ï´Ù. Synopsis´Â ¾ö°ÝÇÕ´Ï´Ù. È­ÇÐ :: SQL »ç¿ë; È­ÇÐ :: Àΰø :: SQL; MY $ DB_NAME = $ ARGV ; ³» $ FILE = $ ARGV ; MY $ DB1 = È­ÇÐ :: SQL :: NEW (db_host => "root", db_port => "root", db_pwd => "root", db_pwd => ", db_name => $ db_name, db_driver => "mysql"); if ($ db1-> db_exist) {$ DB1-> connect_db; $ DB1-> del_tables; $ DB1-> create_tables_mysql; $ DB1-> inscomp_from_file ( "$ file"); } else {$ DB1-> create_db; $ DB1-> connect_db; $ DB1-> create_tables_mysql; $ DB1-> inscomp_from_file ( "$ file"); } # ¹ÝÀÀ »ðÀÔ MY $ QART = È­ÇÐ :: Àΰø :: SQL :: NEW ($ DB1); MY $ QR = $ QART-> Q_REACCION ( 'C = CC = C = C >> C1 = CCCCCC1', '¹Ì¼Ò'); $ DB1-> Requctionsert ($ qr, "", "0");ÀÌ ÆÐÅ°Áö´Â µ¥ÀÌÅͺ£À̽º¿Í »óÈ£ ÀÛ¿ëÇÏ´Â µ¥ ÇÊ¿äÇÑ ±â´ÉÀ» Á¦°øÇÕ´Ï´Ù. ÀÌ ¸ðµâ¿¡¼­ ±¸Çö µÈ ¸Þ¼Òµå´Â SQL Äõ¸®¸¦ »ç¿ëÇÏ´Â ¹æ¹ýÀ» ¾ËÁö ¸øÇÏÁö ¾Ê°í µ¥ÀÌÅͺ£À̽º¸¦ »ç¿ëÀÚ¿¡°Ô Á¦¾î ÇÒ ¼ö ÀÖµµ·Ï ÁöÇâµË´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


È­ÇÐ :: SQL. °ü·Ã ¼ÒÇÁÆ®¿þ¾î