| dbix :: dbstag. DBIX :: DBSTAG´Â °èÃþ Àû (Stag / XML) ¸ÅÇο¡ °ü°èÇü µ¥ÀÌÅͺ£À̽º¿¡ ´ëÇÑ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
dbix :: dbstag. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Chris Mungall
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~birney/
dbix :: dbstag. ű×
dbix :: dbstag. ¼³¸í
dbix :: dbstag´Â °ü°èÇü µ¥ÀÌÅͺ£À̽º¿¡ ´ëÇÑ Perl ¸ðµâÀÔ´Ï´Ù. °èÃþ Àû (stag / xml) ¸ÅÇÎ. DBIX :: DBSTAG´Â °ü°èÇü µ¥ÀÌÅͺ£À̽º¿¡ ´ëÇÑ Perl ¸ðµâÀÔ´Ï´Ù. °èÃþ Àû (stag / xml) mapping.synopsis dbix :: dbstag; ³» $ dbh = dbix :: dbstag-> connect ( "dbi : pg : dbname = moviedb"); MY $ SQL = Q ]; MY $ DATASET = $ DBH-> SELECTALL_STAG ($ SQL); my @studios = $ dataset-> get_studio; # ÀÌó·³ º¸ÀÌ´Â Áßø µÈ µ¥ÀÌÅ͸¦ ¹ÝȯÇÕ´Ï´Ù - # # (Studio # (Studio # (À̸§ "(À̸§"(À̸§ "(À̸§"(À̸§ "(À̸§"½ºÅ¸ ¿öÁî ") (The Genre"sci-fi ") # (½ºÅ¸ # (FirstName"Carrie " ) (LastName "Fisher")))) # °á°ú Æ®¸®¸¦ ¹Ýº¹ÇÕ´Ï´Ù - ³» $ Studio (@studios) {printf "Studio : % Sn", $ studio-> get_name; my @movies = $ studio-> get_movie; foreach my $ movie (@Movies) {printf "¿µÈ : % s (À帣 : % s) n", $ movie-> get_name, $ movie-> get_genre; my @stars = $ movie-> get_star; foreach my $ star (@stars) {printf "Starring : % s : % sn", $ star-> get_firstname, $ star-> get_lastname; }}} # µ¥ÀÌÅ͸¦ Á¶ÀÛ ÇÑ ´ÙÀ½ µ¥ÀÌÅͺ£À̽º¿¡ ´Ù½Ã ÀúÀåÇϽʽÿÀ. ³» @allstars = $ dataset-> get ( "movie / studio / star"); $ _-> set_fullname ($ _-> get_firstname. '. $ _-> get_lastname) foreach (@allstars); $ dbh-> StoreNode ($ DataSet); Á¾·á 0; ¶Ç´Â ¸í·É ÁÙ¿¡¼ : UNIX> selectall_xml.pl -d 'dbi : pg : dbname = moviebase' 'select * studio from studio ÀÚ¿¬ °¡ÀÔ Movie movie_to_star ÀÚ¿¬ °¡ÀÔ ½ºÅ¸ »ç¿ë Áßø (SET (Studio) ))) '¶Ç´Â »çÀü Á¤ÀÇ µÈ ÅÛÇø´À» »ç¿ëÇÏ¿© : UNIX> selectall_xml.pl -d moviebase / mdb-movie genre = sci-fi ¿ä±¸ »çÇ× : ¡¤ Perl.
dbix :: dbstag. °ü·Ã ¼ÒÇÁÆ®¿þ¾î