| DBIX :: Admin :: TableInfo. table_info (), column_info (), * _key_info () ¿ë ·¡ÆÛ |
Áö±Ý ´Ù¿î·Îµå |
DBIX :: Admin :: TableInfo. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rsavage/
DBIX :: Admin :: TableInfo. ű×
DBIX :: Admin :: TableInfo. ¼³¸í
table_info (), column_info (), * _key_info () ¿ë ·¡ÆÛ dbix :: admin :: tableInfo´Â table_info (), column_info (), * _key_info ()¿¡ ´ëÇÑ perl ·¡ÆÛÀÔ´Ï´Ù. ½Ã³ñ½Ã½º #! / usr / bin / perlÀ» »ç¿ëÇϽʽÿÀ. °æ°í¸¦ »ç¿ëÇϽʽÿÀ. µ¥ÀÌÅÍ :: Dumper; DBI¸¦ »ç¿ëÇϽʽÿÀ. dbix :: admin :: tableInfo; # --------------------- ³» ($ dbh) = dbi -> connect ($ env { 'dbi_dsn'}, $ env {dbi_user '}, $) env {dbi_pass '}); My ($ schema) = $ env {dbi_dsn '} = ~ / ^ dbi : ¿À¶óŬ / I? uc $ env { 'dbi_user'} : undef; µ¥ÀÌÅÍ :: Dumper -> ´ýÇÁ (); ¿ä±¸ »çÇ× : ¡¤ Perl.
DBIX :: Admin :: TableInfo. °ü·Ã ¼ÒÇÁÆ®¿þ¾î