Btrieve :: Kaydet Perl uzantısı, Btrieve'i manipüle etmek için kayıtları kaydetme
Şimdi İndirin

Btrieve :: Kaydet Sıralama ve Özet

Btrieve :: Kaydet Etiketler

Perl modülü kayıt etmek Kayıtlar Btrieve Kayıtları Kaydet Btrieve

Btrieve :: Kaydet Açıklama

Btrieve'i manipüle etmek için perl uzantısı kayıtları kaydetme BTRIEVE :: FAZLA, PERVASIVE'NİN BTRIEVE MADDESİ İÇİN DOSYA FORMATIĞINI KAZANMAK VE OKUMA İÇİN BİR PERL MODÜLÜdir. Kaydet dosyanız için bir yapılandırma dosyası: Bu, Btrieve :: Kaydet :: REC, sabit parçaları analiz etmek ve her bir btrievin değişken parçalarını bulmak için :: Record.Synopsis kullanıcısını kullanan btrieve :: $ btr = btrieve :: Save- Kaydetmek - > yeni ('cc057.std', 'cc057.dar'); $ BTR-> Parse_File (); $ recs = $ btr -> {'dizi'}; (@ $ recs) {($ rhfixed, $ rfixed, $ rvar) = {$ _-> {değerler}}; $ rhfxed -> {'unvanı'} yazdırın. "\ n"; } # Genellikle ilk kayıt bir tür başlıktır. Genellikle bir # # başlık kayıtlarını takip edenlerden farklı şekilde ele alır. Örneğin, # genellikle kayıtları öldürecek veya ekleyeceksek # ayarlanmış olan aşağıdaki kayıtların sayıları var. Burada yalnız bırakıyoruz. $ çıktım = ""; $ Header = Shift @ $ recs; $ veri = $ başlık-> sabit. $ başlık-> var; $ çıktı. = $ header-> counted_rec ($ veri); foreach benim $ rec (@ $ recs) {benim ($ rhfixed, $ rfixed, $ rvar) = {$ rec -> {değerler}}; $ rhfixed -> {'unvanı'} = ~ s / ^ \ s * /; $ çıktı. = $ rec-> counted_rec_hash (); } $ çıktı. = "\ cz"; # Şimdi $ çıktı, bir yasal btrieve kaydını kaydetmedir. # Büyük kayıtlar için, biri artan her şeyi yapmak isteyebilir. Açık, ">> cc057.das" ya da ölü ", APPEND için CC057.das'ı açamadı: $! \ n"; Binmode dışarı; $ INCBTR = BTRIEVE-> YENİ ('CC057.STD', 'CC057.DAR'); $ başlığım = $ incbtr-> next_rec (); $ veri = $ başlık-> sabit. $ başlık-> var; $ Başlık-> Counted_Rec ($ veri) yazdırın; süre (tanımlanmış ($ REC = $ INCBTR-> NEXT_REC)) {($ rhfixed, $ rfixed, $ rvar) = {$ rec -> {değerler}}; $ rhfixed -> {'unvanı'} = ~ s / ^ \ s * /; $ Rec-> counted_rec_hash () yazdırın; } "\ cz" yazdırın; kapat ya da öl "CC057.das'ı kapatamadı: $! \ n"; Gereksinimler: · Perl

Btrieve :: Kaydet İlgili Yazılım