| Marc :: ErrorCompetes Marc :: ErrorChecks es un módulo Perl con una colección de cheques de error Marc 21 / AACR2. |
Descargar ahora |
Marc :: ErrorCompetes Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Bryan Baldus
- Sitio web del editor:
- http://search.cpan.org/~eijabb/MARC-File-MARCMaker-0.05/lib/MARC/File/MARCMaker.pm
Marc :: ErrorCompetes Etiquetas
Marc :: ErrorCompetes Descripción
Marc :: ErrorChecks es un módulo PERL con una colección de cheques de error Marc 21 / AACR2. Marc :: ErrorChecks es un módulo Perl con una colección de cheques de error de MARC 21 / AACR2. Module para almacenar errores de Marc Comprobación de las subrutinas, basadas en Marc 21, AACR2 y LCRIS. Estos se utilizan para encontrar errores que no se verifican fácilmente por los módulos de MARC :: LINT y MARC :: Lintaddiciones, como aquellas que cruzan los límites de campo. Además, se debe pasar a la subrutina un objeto Marc :: registrar objetos. Se generan advertencias / errores que se generan como Sigue: Push @warningStoreTurturn, Únase a '', ($ Field-> Tag (), ": t"); Devolver @warningstoreTurn; Sinopsis Usa Marc :: lote; Usa Marc :: ErrorChecks; #Veree también Marc :: Lintaddiciones para más cheques #use Marc :: Lintaddiciones; #change los nombres de archivos como se desee My $ inputfile = 'marcfile.mrc'; My $ errorFilename = 'errores.txt'; mi error de error = 0; abrir (out, "> $ errorFilename"); #initialize $ infile como nuevo Marc :: Batch Object My $ Batch = Marc :: Batch-> Nuevo ('Usmarc', "$ inputfile"); mi error de error = 0; #LOOP A TRAVEL A TRAVÉS DEL ARCHIENTO DE REGISTROS MIENTRAS MIENTRAS (MIS $ REGISTRO = $ BATCH-> Siguiente ()) {#if $ registra-> Campo ('001') #Add Esto Si algunos registros en el archivo no contienen un campo '001' My $ ControlNo = $ RECUPERS -> Campo ('001') -> As_String (); #call Marc :: ErrorChecks SUBROUTINAS MI @RORRORSTORETURN = (); # revisar todo Push @ErrorStoreTurn, (@ {marc :: ErrorChecks :: check_all_subs ($ récord)}); # o solo unos pocos push @errorstoreTurn, (@ {marc :: errorChecks :: check_010 ($ récord)}); Push @ErrorStoreTurn, (@ {marc :: ErrorChecks :: check_bk008_vs_bibrefandindex ($ récord)}); # Informe de resultados if (@erRorStorETurn) {######################################### Únete a la impresión ("T", "$ ControlNno", @ErrorStoreturn, "TN"); $ error de error ++; }} #WhileReTements: · Perlwhat es nuevo en esta versión: · Actualizado check_bk008_vs_300 ($ registro) para buscar un extra p. o v. Después del calificador entre paréntesis. · Actualizado check_bk008_vs_300 ($ registro) para buscar un período faltante después de 'col' en el subfield 'b'. · Reemplazó $ Field-Tag () con $ Tag en el mensaje de error Informe en check_nonpunctendingfields ($ registro) . · Desactivado el límite de 50 campos de verificación en check_fieldlength ($ récord). · Actualizado parse008vs300b ($ illcodés, $ field300subb) para buscar / mapa / en lugar de solo 'mapa' cuando 008 está codificado 'b'. · Actualizado check_bk008_vs_bibrefandindex ($ récord) Para buscar un espaciado en cada lado de la paginación entre paréntesis. · Actualizado check_internal_spaces ($ registro) para reportar 10 caracteres a cada lado de cada conjunto de múltiples espacios internos. · Líder de nivel-5 y nivel 7 no comprometido. valores como aceptables. El nivel-3 aún está comentado, pero podría ser resuelto para las bibliotecas que lo permiten. · Incluye la versión 1.14 de Marc :: Lint :: Codedata.
Marc :: ErrorCompetes Software relacionado