MARC :: errorchecks.

MARC :: errorchecks´Â MARC 21 / AACR2 ¿À·ù °Ë»ç Ä÷º¼ÇÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

MARC :: errorchecks. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Bryan Baldus
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~eijabb/MARC-File-MARCMaker-0.05/lib/MARC/File/MARCMaker.pm

MARC :: errorchecks. ű×


MARC :: errorchecks. ¼³¸í

MARC :: errorchecks´Â MARC 21 / AACR2 ¿À·ù °Ë»ç Ä÷º¼ÇÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. MARC :: ErrorChecks´Â MARC 21, AACR2 ¹× LCRIS¸¦ ±â¹ÝÀ¸·Î MARC ¿À·ù °Ë»ç ¼­ºê ·çƾÀ» ÀúÀåÇϱâÀ§ÇÑ MARC 21 / AACR2 ¿À·ù °Ë»ç¿ø ¸ðµâ ¸ðµâÀÌÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. À̵éÀº Marc :: Lint ¹× Marc :: LintAdditions ¸ðµâ (¿¹ : ±³Â÷ °æ°è)ÀÌ ½±°Ô È®ÀÎÇÒ ¼ö¾ø´Â ¿À·ù¸¦ ã´Â µ¥ »ç¿ëµË´Ï´Ù. ÀϹÝÀûÀ¸·Î Marc :: Record Object.Returned °æ°í / ¿À·ù°¡ »ý¼ºµÇ¾î¾ßÇÕ´Ï´Ù. ´ÙÀ½ : Ǫ½Ã @warningstoreturn, '' ', ($ field-> tag (), ": t"); @warningstoreturnÀ» ¹ÝȯÇÕ´Ï´Ù. ½Ã³ñ½Ã½º Marc :: Batch; marc :: errorchecks¸¦ »ç¿ëÇϽʽÿÀ. # SSE MARC :: LINTADDITIONS ´õ ¸¹Àº ¼öÇ¥¸¦ º¸·Á¸é # MARC :: Lintadditions; # ÆÄÀÏ À̸§À» ¿øÇÏ´Â ³» $ inputfile = 'marcfile.mrc'; $ errorfilename = 'errors.txt'; ³» $ ERRORCOUNT = 0; ¿­±â (OUT, "> $ ERRORFILENAME"); # New Marc :: Batch Object ³» $ Batch = Marc :: Batch-> New ( 'USMARC', "$ InputFile"); ³» $ ERRORCOUNT = 0; ·¹ÄÚµåÀÇ ¹èÄ¡ ÆÄÀÏÀ» ÅëÇØ (MY $ ·¹ÄÚµå = $ BATCH-> ´ÙÀ½ ()) {#IF $ ·¹ÄÚµå -> Çʵå ( '001') # ÆÄÀÏÀÇ ÀϺΠ·¹Äڵ忡 '001'Çʵ尡 Æ÷ÇԵǾî ÀÖÁö ¾ÊÀº °æ¿ì MY $ CONTROLNO = $ ·¹ÄÚµå -> Çʵå ( '001') -> AS_STRING (); #call marc :: errorchecks ÇÏÀ§ ·çƾ my @errorstoreturn = (); # ¸ðµç °ÍÀ» È®ÀÎÇϽʽÿÀ @ErrorStoreTurn (@ {marc :: errorchecks :: seck_all_subs ($ ·¹ÄÚµå)}); # ¶Ç´Â ¸î °¡Áö ´©¸§ @ErrorStoreTurn, (@ {marc :: errorchecks :: Check_010 ($ ·¹ÄÚµå)}); @ErrorStoreTurn, (@ {marc :: errorchecks :: Check_BK008_vs_bibrefandindexs ($ ·¹ÄÚµå)})¸¦ ´©¸¨´Ï´Ù. #º¸°í °á°ú (@ErrorStoreTurn) {###################################################################################################################################################################################################################################### °¡ÀÔ Ãâ·Â ( "T", "$ ControlNo", @ErrorStoreTurn, "Tn"); $ errorcount ++; }} #WhileReRequirements : ¡¤ÀÌ ¸±¸®½ºÀÇ »õ·Î¿î »õ·Î¿î ±â´É : ¡¤ extract p¸¦ ãÀ¸·Á¸é keep_bk008_vs_300 ($ ·¹ÄÚµå). ¶Ç´Â v. °ýÈ£ ¾È¿¡ÀÖ´Â ÇÑÁ¤ÀÚ ÀÌÈÄ. ¡¤ subfield 'b'¿¡¼­ 'col'ÀÌÈÄÀÇ ´©¶ô µÈ ±â°£À» ãÀ¸·Á¸é check_bk008_vs_300 ($ ·¹ÄÚµå). ¡¤ $ RECORD (check_nonpunctendifields)¿¡¼­ $ TAG¸¦ $ ű׷Π±³Ã¼ÇϽʽÿÀ. . ¡¤ check_fieldlength ($ ·¹ÄÚµå)¿¡¼­ 50 Çʵå Á¦ÇÑÀ» ²ô½Ê½Ã¿À. ¡¤ 008ÀÌ 'B'¸¦ ÄÚµù ÇÒ ¶§ '¸Ê'À» ã¾Æ³»´Â Parse008VS300B ($ Illcodes, $ field300subb)¸¦ ¾÷µ¥ÀÌÆ®Çß½À´Ï´Ù. ¡¤ °ýÈ£ ¾ÈÂÊ ÆäÀÌÁö ¸Å±â±âÀÇ °¢¸é¿¡ °£°ÝÀ» ãÀ¸·Á¸é check_bk008_vs_bibrefandindex ($ ·¹ÄÚµå) ¡¤ °¢°¢ÀÇ ¿©·¯ ³»ºÎ °ø°£ ¼¼Æ®ÀÇ ¾çÂÊ¿¡ 10 ÀÚÀÇ ¹®ÀÚ¸¦º¸°íÇϵµ·Ï ¾÷µ¥ÀÌÆ® µÈ CHECK_INTERNAL_SPACES ($ ·¹ÄÚµå). ¡¤ ÁÖ¼® 󸮵ÇÁö ¾ÊÀº ·¹º§ 5 ¹× ·¹º§ 7 ¸®´õ ¼ö¿ë °¡´ÉÇÑ °ª. ·¹º§ 3Àº ¿©ÀüÈ÷ ÁÖ¼® 󸮵ÇÁö¸¸ ¶óÀ̺귯¸®¿¡¼­ ÁÖ¼® 󸮵ÇÁö ¾Ê¾Ò½À´Ï´Ù. ¡¤ Marc :: Lint :: CodeDataÀÇ ¹öÀü 1.14°¡ Æ÷ÇԵ˴ϴÙ.


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