BAGAZO Marc es una extensión de Perl para manipular registros de catalogación de la máquina legible.
Descargar ahora

BAGAZO Clasificación y resumen

BAGAZO Etiquetas

Módulo perl máquina legible BAGAZO Máquina legible Registros de catalogación

BAGAZO Descripción

Marc es una extensión de Perl para manipular registros de catalogación de la máquina. Marc es una extensión de Perl para manipular las grabaciones de catalogación de lectura de la máquina.Synopsis Use Marc; # constructores $ x = marc-> nuevo (); $ x = Marc-> Nuevo ("nombre de archivo", "FileFormat"); $ x-> OpenMARC ({file => "makrbrkr.mrc", 'Format' => "Marcmaker", Increment => "5", LineTerm => "N", Charset =>% char_hash}); $ record_num = $ x-> createrecord ({líder => "00000nmm 2200000 a 4500"}); # Operaciones de entrada / salida $ y = $ X-> NextMarc (10); # incrementar $ x-> closemarc (); Imprimir $ X-> MARC_COUNT (); $ x-> Deletemarc ({rig => '2', Field => '110'}); $ y = $ X-> SelectMARC (; # Carácter Traducción MI% INC =% {$ X-> USMARC_DEFAULT ()}; # MARCMAKER ENTRADA CHARST MI% OUTC =% {$ X-> USTEXT_DEFAULT ()}; # Marcilla de salida Chartset # Data consulta @Records = $ X-> SearchMarc ({Field => "245"}); @Records = $ X-> SearchMarc ({Field => "260", Subfield => "C", regex => "/ 19 ../"}); @Records = $ X-> SearchMarc ({Field => "245", NotreReGex => "/ HuckleBerry / I"}); @Results = $ X-> getValue ({rig => '12', Field => '856', Subfield => 'U'}); # Operaciones de campo de encabezado y control $ rldr = $ x-> desempaquete_ldr ($ récord); Imprimir "Desc es $ RLDR -> {DESC}"; Siguiente si ($ x-> bib_format ($ registro) EQ 'Serials'); $ rff = $ x-> noack_008 ($ récord); Último IF ($ RFF -> {'date1'} = ~ / 00 / o $ RFF -> {'date2'} = ~ / 00 /); # Modificaciones de datos $ X-> Addfield ({récord => "2", Field => "245", I1 => "1", i2 => "4", ordenado => 'y', valor => }); My $ update245 = {field => '245', registro => 2, ordenado => 'y'}; my @ u245 = $ x-> getupdate ($ update245); $ x-> Deletemarc ($ update245); $ X-> Addfield ($ update245, @ u245_modified); # salidas $ y = $ X-> Salida ({'Format' => "Marcmaker", Charset =>% outc}); $ x-> Salida ({file => ">> my_text.txt", 'Format' => "ASCII", registro => 2}); $ x-> Salida ({file => "> my_marcmaker.mkr", 'Format' => "Marcmaker", nolinebrebreak => 'y', lineterm => 'n'}); $ x-> Salida ({file => "> titles.html", 'Format' => "HTML", 245 => "Título:"}); # Manipulación de registros individuales de Marc. @recs = $ x ; grep {$ _-> desempaquete_ldr () 0} @RECS; @LCS = GREP {$ _-> UNP_LDR {DESC} EQ 'A' $ _-> getValue ({field => '040'} = ~ / dlcc_.dlc /} @recs; foreach My $ Rec (@lcs) {imprimir $ rec *> salida ({format => 'usmarc'}); } # Manipulación como cuerdas. foreach My $ REC (@lcs) {My $ stringvar = $ rec-> as_string (); $ stringvar = ~ s xm; # x significa 'ignorar el espacio en blanco y permitir los comentarios incrustados'. $ rec-> de_string ($ stringvar); Mi ($ i2, $ artículo) = $ stringvar = ~ / 245. (.) C _. (. {0,9}) /; $ Artículo = Substr ($ artículo, 0, $ i2) si $ i2 = ~ / d /; Imprimir "El artículo Artículo $ no es común" a menos que $ common_arts {$ artículo}; } Marc.PM es un módulo Perl 5 para leer, manipular y emitir registros bibliográficos en el formato de USMARC. Deberá tener PERL 5.004 o más para que Marc.PM funcione correctamente. Dado que es un módulo PERL, usa MARC.PM de uno de sus propios scripts Perl. Para ver qué tipo de conversiones es posible, puede probar una interfaz web a MARC.PM, lo que le permitirá cargar archivos Marc y recuperar los resultados (para obtener más información, consulte la sección a continuación "Interfaz web"). Sin embargo, para obtener el Funcionalidad completa Es probable que desee instalar MARC.PM en su servidor o PC. MARC.PM puede manejar tanto solo como lotes de registros de MARC. El límite en el número de registros en un lote se determina mediante la capacidad de memoria de la máquina que está ejecutando. Si la memoria es un problema para usted, Marc.PM le permitirá leer registros de un lote gradualmente. Marc.PM también incluye una variedad de herramientas para buscar, eliminar e incluso crear registros desde cero. Requisitos: · Perl

BAGAZO Software relacionado