Btrieve :: Opslaan PERL-extensie om btrieve records te manipuleren
Download nu

Btrieve :: Opslaan Rangschikking & Samenvatting

Btrieve :: Opslaan Tags

Perl-module sparen archief BTRIEVE Records opslaan BTRIEVE

Btrieve :: Opslaan Beschrijving

Perl-extensie om btrieve records te manipuleren BTRIVE :: Opslaan is een PERL-module voor het lezen van in, manipuleren en uitvoeren van de opslagbestandsindeling van pervasive voor zijn btrieve-producten.btrieve :: Opslaan Gebruikt Btrieve :: Opslaan :: REC die een individuele record in het hele bestand abstracteert. U moet hebben Een config-bestand voor uw Save-bestand: dit maakt BTRIEK :: Opslaan :: REC om de vaste onderdelen te analyseren en de variabele delen van elke btrieve :: Opslaan record.synopsis Gebruik Btrieve :: Save My $ Btr = Btrieve :: Save- > NIEUW ('CC057.STD', 'CC057.DAR'); $ btr-> parse_file (); mijn $ Recs = $ BTR -> {'array'}; voor (@ $ recs) {mijn ($ rhfixed, $ rfixed, $ rvar) = @ {$ _-> {waarden}}; Print $ Rhfixed -> {'titel'}. "\ N"; } # Vaak is het eerste record een soort kop. Over het algemeen behandelt één # header-records anders dan die volgen. B.v. # ze hebben vaak tellingen van de volgende records die # moeten worden aangepast als we gaan doden of add-records toevoegen. Hier laten we het # alleen. mijn $ output = ""; $ header = shift @ $ rcs; Mijn $ Gegevens = $ kop-> vastgesteld. $ header-> var; $ output. = $ kop-> geteld_rec ($ gegevens); Foreach My $ Rec (@ $ Recs) {My ($ rhfixed, $ rfixed, $ rvar) = @ {$ rec -> {waarden}}; $ rhfixed -> {'titel'} = ~ s / ^ \ s * de / de /; $ output. = $ rec-> geteld_rec_hash (); } $ output. = "\ cz"; # Nu $ uitvoer is een juridisch btrieve-opslagrecord. # Voor grote records, misschien wil je er alles uitkomen. open, ">> CC057.DA's" of sterven "kon CC057.das niet openen voor aanhang: $! \ N"; Binmode uit; mijn $ incbtr = btrieve-> nieuw ('cc057.std', 'cc057.dar'); mijn $ header = $ incbtr-> next_rec (); Mijn $ Gegevens = $ kop-> vastgesteld. $ header-> var; Print $ header-> geteld_rec ($ gegevens); Terwijl (gedefinieerd (mijn $ REC = $ INCBTR-> NEXT_REC)) {MY ($ RHFIXED, $ RFIXED, $ RVAR) = @ {$ Rec -> {Waarden}}; $ rhfixed -> {'titel'} = ~ s / ^ \ s * de / de /; Print $ rec-> geteld_rec_hash (); } afdrukken "\ cz"; Sluiten of sterven "kon CC057.DAS niet sluiten: $! \ N"; Vereisten: · Perl

Btrieve :: Opslaan Gerelateerde software