MARC :: errorchecks.MARC :: errorchecks´Â MARC 21 / AACR2 ¿À·ù °Ë»ç Ä÷º¼ÇÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. | |
Áö±Ý ´Ù¿î·Îµå |
MARC :: errorchecks. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î
GTK2 :: EX :: DBITableFilter.
GTK2 :: EX :: DBITBABLEFilter´Â DBI¸¦ »ç¿ëÇÏ¿© ¸¹Àº ¾çÀÇ µ¥ÀÌÅ͸¦ °¡Á® ¿À´Â ³ôÀº ¼öÁØÀÇ À§Á¬ÀÔ´Ï´Ù. ...
132
CGI :: Application :: Generator.
CGI :: Application :: Generator´Â µ¿ÀûÀ¸·Î CGI :: Application Modules¸¦ ºôµåÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...
201