| Btrieve :: Save. Perl Extension para manipular BTrieve Salvar registros |
Baixe Agora |
Btrieve :: Save. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Derek Lane
- Site do editor:
- http://search.cpan.org/~dlane/
Btrieve :: Save. Tag
Btrieve :: Save. Descrição
Extensão Perl para manipular BTrieve Salvar registros Btrieve :: save é um módulo perl para ler em, manipular e produzir o formato de arquivo pervasiva para o seu btrieve products.btrieve :: Save usa btrieve :: salvar :: rec Aumenta um registro individual em todo o arquivo. Você deve ter Um arquivo de configuração para o seu arquivo Salvar: Permite Btrieve :: Salvar :: REC para analisar as partes fixas e encontrar as partes variáveis de cada btrieve :: Salvar registro.synopsis Use Btrieve :: Salvar Meu $ Btr = Btrieve :: Save- > Novo ('cc057.std', 'cc057.dar'); $ btr-> parse_file (); meu $ recs = $ btr -> {'array'}; para (@ $ recs) {my ($ rfixed, $ rfixed, $ rvar) = @ {$ _-> {valores}}; Imprimir $ RFixed -> {'título'}. "\ n"; } # Muitas vezes o primeiro registro é algum tipo de cabeçalho. Geralmente, um # trata registros de cabeçalho de maneira diferente daqueles que se seguem. Por exemplo, # eles geralmente têm contagens dos seguintes registros que devem ser ajustados # se formos matar ou adicionar registros. Aqui nós deixamos # sozinho. Meu $ Output = ""; $ header = shift @ $ recs; Meus $ Data = $ Cabeçalho-> Corrigido. $ Header-> var; $ Output. = $ Header-> Contado_rec ($ Data); foreach meu $ REC (@ $ recs) {my ($ rfixed, $ rfixed, $ rvar) = @ {$ rec -> {valores}}; $ rhifixed -> {'título'} = ~ s / ^ \ s * o / o /; $ Output. = $ rec-> contado_rec_hash (); } $ Output. = "\ CZ"; # Agora $ OUTPUT é um registro de salvamento Btrieve legal. # Para registros grandes, pode-se querer fazer tudo incrementalmente. abrir, ">> cc057.das" ou morrer "não pôde abrir CC057.das para anexar: $! \ n"; binmode fora; Meu $ IncBtr = Btieve-> NOVO ('CC057.STD', 'CC057.DAR'); meu cabeçalho $ = $ incgtr-> next_rec (); Meus $ Data = $ Cabeçalho-> Corrigido. $ Header-> var; Imprimir $ Header-> Contado_Crec ($ Data); while (definido (meu $ rec = $ incgtr-> next_rec)) {my ($ rfixed, $ rfixed, $ rvar) = @ {$ rec -> {valores}}; $ rhifixed -> {'título'} = ~ s / ^ \ s * o / o /; Imprimir $ Rec-> contado_rec_hash (); } Imprima "\ CZ"; fechar ou morrer "não pôde fechar CC057.das: $! \ n"; Requisitos: · Perl.
Btrieve :: Save. Software Relacionado