MVS :: vbfile MVS :: VBFile, değişken uzunluktaki MVS dosyalarını okumak ve yazmak için perl uzantısıdır.
Şimdi İndirin

MVS :: vbfile Sıralama ve Özet

MVS :: vbfile Etiketler

Perl modülü MVS dosyalarını oku MVS dosyalarını yaz Mvs Vbfile değişken uzunluk

MVS :: vbfile Açıklama

MVS :: VBFile, değişken uzunluktaki MVS dosyalarını okumak ve yazmak için perl uzantısıdır. MVS :: VBFile, değişken uzunlukta MVS dosyalarını okumak ve yazmak için bir perl uzantısıdır .Synopsis, MVS kullanın :: vbfile qw (: hepsi); # Sadece Vbget, varsayılan $ next_record = vbget (* filehandle) tarafından dışa aktarılır; @whole_enchilada = vbget (* filehandle); vbopen (* filehandle, "> çıkış_file", $ blksize); vbput (* FileHandle, $ Kayıt); vbClose (* filehandle); $ B = vb_blocks_written (* filehandle); Bu modül, ana bilgisayardan MVS dosyalarından değişken bloke (VB) biçiminde kayıtları elde etmek ve benzer bir formatta kayıt yazmak için işlevler sunar. Vbget varsayılan olarak dışa aktarılır; Başka bir işlevi istiyorsanız, onlar için isimlerle sormanız gerekir. QW (: Hepsi) Tüm fonksiyonları dışa aktarır. Vbget * FileHandLethe Giriş işlevi, Vbget (), Açı operatörü gibi çalışır: Skaler bağlamında çağrıldığında, bir sonraki kaydı döndürür; Dizi bağlamında, tüm dosyayı tek bir dizide döndürür. Dosya "ikili" biçiminde olmalıdır (baytların çevirisi yok) ve kayıt tanımlayıcı kelimeleri ekleyin. Dosya blok tanımlayıcı kelimeleri içerebilir, ancak gerekmez. Bunun arkasındaki gerekçe aşağıdaki gibidir. MVS sistemlerinden gelen çoğu dosya sabit uzunlukta (kayıt formatı FB) veya değişken uzunluğu (RECFM VB). Perl, sabit uzunlukta ana film dosyalarını okuyabilir. Perl açık ve kapanış sağladığından beri, gereken tek fonksiyonun bir sonraki kaydı almak için bir tanedir. Dosyayı aşağıdaki gibidir: Açık FileHandle, "..NAME .."; süre (vbget (* filewhandle)) {# '*' kullandığınızdan emin olun !! # işlem ve gerçeklik ...} # veya bunu yapın: @much_in_little = vbget (* filehandle); # ve ardından diziyi işleyin (yalnızca elbette küçük dosyalarda). FilleHandle; Vbopen * FileHandle Expr Üç çıkış işlevi sağlanır: VBOPEN (), VBPUT () ve VBCLOSE (). Bu işlevler, daha sonra bir MVS sistemi tarafından okunabilen kayıtları (büyük olasılıkla) yazmanıza izin verir. Vbget () gibi, bu işlevler, onlara verilen verilerin herhangi birini tercüme etmiyor; Kayıt yazılmadan önce EBCDIC (veya başka bir şey) yapılmalıdır. ). Üçüncü argüman, dosyanın bktizidir. Minimum BKSize 9 bayttır; maksimum, 256kb (262_144 bayt); Varsayılan, 32760. 32760'tan büyük bir BKSize kullanmak istiyorsanız, MVS sisteminizin destekleyeceğinden emin olun. Çıkışınız engellenmelidir; Başka bir deyişle, RDW'ler ile dosyaları yazamazsınız, ancak BDW's. Bu işlevi kullandığınızdan emin olun, çünkü kalan herhangi bir mantıksal records.vb_blocks_written * filehandlecan, dosyaya yazılan blok sayısını bulmak için herhangi bir zamanda aranır. Bu dosyayı kapattıktan sonra en yararlı olur; Örneğin, bir MVS tarzı bir bant başlığı oluşturmak için kullanılabilir. Yazı çıktısının tam bir örneği: Vbopen (* vbo, "> $ Outfile", 32760); foreach $ rekor (@my_array) {VBPut (* vbo, $ rekor); } vbClose (* vbo); $ B = vb_blocks_written (* vbo); Gereksinimler: · perl

MVS :: vbfile İlgili Yazılım