| MARC :: FILE :: MARCMAKER. MARC :: FILE :: MARCMAKER´Â MarcMaker / Marcbreaker ·¹ÄÚµå·Î ÀÛ¾÷ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
MARC :: FILE :: MARCMAKER. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bryan Baldus
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~eijabb/MARC-File-MARCMaker-0.05/lib/MARC/File/MARCMaker.pm
MARC :: FILE :: MARCMAKER. ű×
MARC :: FILE :: MARCMAKER. ¼³¸í
Marc :: File :: MarcMaker´Â MarcMaker / Marcbreaker ·¹ÄÚµå·Î ÀÛ¾÷ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Marc :: File :: MarcMaker´Â MarcMaker / MarcBreaker Records.Synopsis »ç¿ë Marc :: File :: Marcmaker; ³» $ file = marc :: file :: marcmaker-> in ($ filename); while (my $ marc = $ file-> next ()) {# ¹º°¡} $ file-> close (); Undef $ FILE; ################################################# ###### MARC :: FILE :: MARCMAKER; MARC :: BATCH ³» $ BATCH = MARC :: BATCH-> NEW ( 'MARCMAKER', $ FILENAME); MY $ RECORD = $ BATCH-> NEXT (); ## ¶Ç´Â MARC :: FILE :: MARCMAKER°¡ ¸í½Ã ÀûÀ¸·Î ³» $ FILE = MARC :: FILE :: MARCMAKER-> IN ($ Filename); MY $ RECORD = $ FILE-> next (); ## marcmaker Çü½ÄÀÇ ´ÜÀÏ marc :: ·¹ÄÚµå °³Ã¼ (Æ÷¸Ë µÈ ÀÏ¹Ý ÅؽºÆ®) #print $ ·¹ÄÚµå -> as_marcmaker (); #GOAL ±¸¹® Àμâ MARC :: FILE :: MARCMAKER-> ÀÎÄÚµù ($ ·¹ÄÚµå); #urrent ±¸¹® ¿ä±¸ »çÇ× : ¡¤ Perl.
MARC :: FILE :: MARCMAKER. °ü·Ã ¼ÒÇÁÆ®¿þ¾î