Btrieve :: guardar Extensión de Perl para manipular Btrieve Guardar registros
Descargar ahora

Btrieve :: guardar Clasificación y resumen

Btrieve :: guardar Etiquetas

Módulo perl ahorrar Registros registros BTRIEVE SAVE Btrieve

Btrieve :: guardar Descripción

extensión Perl para manipular registros BTRIEVE SAVE BTRIEVE :: SAVE es un módulo de Perl para leer en, la manipulación, y la salida de Generalizados del formato de almacenamiento de archivos para su BTrieve products.BTRIEVE :: Save utiliza BTRIEVE :: :: SAVE REC que abstrae un registro individual en toda la file.You debe tener un archivo de configuración para su reserva de archivos: esto permite BTRIEVE :: :: SAVE REC para analizar las partes fijas y encontrar las partes variables de cada BTRIEVE :: GUARDAR record.SYNOPSIS uso BTRIEVE :: salvar mi $ BTR = BTRIEVE :: Guardar- > nueva ( 'cc057.std', 'cc057.dar'); $ BTR-> parse_file (); mi Recs $ = $ BTR -> { 'array'}; de ($ @ CER) {my ($ rhfixed, rfixed $, $ rvar) = $ {@ _-> {}} valores; imprimir $ rhfixed -> { 'Título'} "\ n".; } # A menudo, el primer disco es una especie de cabecera. En general se trata # registros de encabezamiento de forma diferente a los que siguen. Por ejemplo, # que a menudo tienen recuentos de los siguientes documentos que deben ajustarse # si estamos a matar o agregar registros. Aquí lo dejamos # solo. mi $ salida = ""; $ Encabezado = desplazamiento @ $ Recs; mis datos $ = $ Header> fijo $ Header> var.; $ Salida = $ Header> counted_rec ($ datos).; foreach mi $ rec (@ $ CER) {my ($ rhfixed, rfixed $, $ rvar) = @ {$ rec -> {}} valores; $ Rhfixed -> { 'Título'} = ~ s / ^ \ s * el / la /; $ Salida = $ reco-> counted_rec_hash (.); } $ Salida = "\ cZ."; # Ahora $ salida es una BTrieve legal Guardar registro. # Para los registros grandes, uno puede querer hacer todo de forma incremental. OUT abierta, ">> cc057.das" o morir "Podría cc057.das no abiertas para anexar: $ \ n"; binmode OUT; mi incbtr $ = BTRIEVE-> nueva ( 'cc057.std', 'cc057.dar'); mi cabecera $ = $ incbtr-> next_rec (); mis datos $ = $ Header> fijo $ Header> var.; Imprima $ Header> counted_rec ($ data); mientras que (definida (mi rec $ = $ incbtr-> next_rec)) {my ($ rhfixed, rfixed $, $ rvar) = @ {$ rec -> {}} valores; $ Rhfixed -> { 'Título'} = ~ s / ^ \ s * el / la /; Imprima $ reco-> counted_rec_hash (); } Imprima "\ cZ"; "! No se pudo cerrar cc057.das: $ \ n" cerrar o morir; Requisitos: · Perl

Btrieve :: guardar Software relacionado