Perl: Kapsam dışı kalmaksızın serbest bırakılan skaler belleğin ne zaman boş olduğu?

Question

Ben boyutunda, bir büyüklük haline hatta bazen GBs metinsel verilerin dev bir yığın okur bir uygulama var. Bu skaler üzerinde substr kullanıyorum, verilerin çoğunu başka bir skalaya okumak ve ayıklanan veriyi boş bir dizeyle değiştirmek, çünkü artık ilk skalerde gerekmiyor. Yakın zamanda bulduğum şey, Perl'in ilk skalenin belleğini boşa çıkarmaması, mantıksal uzunluğunun değiştiğini kabul etmesiydi. Yani yapmam gereken şey, ilk skalerden gelen verileri bir üçüncü tekrar, undef ilk skaler ayıklamak ve ayıklanan verileri tekrar yerine koymaktır. Sadece bu şekilde, ilk skaler tarafından işgal edilen hafıza gerçekten serbest kalır. Bu scalar veya ayrılmış bellek bloğundan daha az başka bir değere undef atanması, ayrılan bellekle ilgili hiçbir şeyi değiştirmez.

 $$extFileBufferRef = substr($$contentRef, $offset, $length, ''); 
    $length   = length($$contentRef); 
    my $content   = substr($$contentRef, 0, $length); 
    $$contentRef  = undef($$contentRef) || $content; 

$$contentRef örneğin olabilir:

aşağıdaki

Şimdi ne yaptığım olduğunu İlk satırda 5 GB boyutunda, 4,9 GB veri alıp çıkarılan verileri değiştiriyorum. İkinci satır şimdi, ör. Dizenin uzunluğu olarak 100 MB veri, ancak ör. Devel::Size::total_size hala, bu skalar için 5 GB'lik verilerin tahsis edildiğini gösterir. Ve $$contentRef için undef veya atama bu konu hakkında bir şey değişmez görünmüyor, bunu sayısal alan üzerinde bir fonksiyonu olarak undef çağırmanız gerekir.

$$contentRef'un arkasındaki belleğin substr uygulandıktan sonra en azından kısmen serbest kalmasını beklerdim. değişkenler kapsam dışına giderseniz ... vaka olmak Yani, bellek sadece arındırılır

gelmiyor mu? Ve eğer öyleyse, neden aynı sayısal alan üzerinde bir fonksiyonu olarak undef çağrılmasına farklı undef atama nedir?

Answer 1

Sizin analiz doğrudur.

$ perl -MDevel::Peek -e' 
    my $x; $x .= "x" for 1..100; 
    Dump($x); 
    substr($x, 50, length($x), ""); 
    Dump($x); 
' 
SV = PV(0x24208e0) at 0x243d550 
    ... 
    CUR = 100  # length($x) == 100 
    LEN = 120  # 120 bytes are allocated for the string buffer. 

SV = PV(0x24208e0) at 0x243d550 
    ... 
    CUR = 50  # length($x) == 50 
    LEN = 120  # 120 bytes are allocated for the string buffer. 

Sadece Perl overallocate dizeleri yapar, yok mu bunun yerine onlara kapsamı girilir dahaki sefere yeniden, kapsam dışına çıkar hatta ücretsiz değişkenler.

Mantık, belleğe bir kez gereksinim duyduysanız, yeniden gereksinim duyacağınız büyük bir olasılık var. bir sayısal için undef atama Aynı nedenle

, onun dize tampon özgür değildir. Ancak Perl, eğer isterseniz, arabellekleri serbest bırakma şansı verir, böylece skaler'i undef'a aktarmanız, skaler iç tamponların serbest kalmasını zorlar.

$ perl -MDevel::Peek -e' 
    my $x = "abc"; $x .= "def"; Dump($x); 
    $x = undef;     Dump($x); 
    undef $x;     Dump($x); 
' 
SV = PV(0x37d1fb0) at 0x37eec98 # PV: Scalar may contain a string 
    REFCNT = 1 
    FLAGS = (POK,pPOK)    # POK: Scalar contains a string 
    PV = 0x37e8290 "abcdef"\0  # The string buffer 
    CUR = 6 
    LEN = 10      # Allocated size of the string buffer 

SV = PV(0x37d1fb0) at 0x37eec98 # PV: Scalar may contain a string 
    REFCNT = 1 
    FLAGS =()      # No "OK" flags: undef 
    PV = 0x37e8290 "abcdef"\0  # The string buffer is still allcoated 
    CUR = 6 
    LEN = 10      # Allocated size of the string buffer 

SV = PV(0x37d1fb0) at 0x37eec98 # PV: Scalar may contain a string 
    REFCNT = 1 
    FLAGS =()      # No "OK" flags: undef 
    PV = 0       # The string buffer has been freed.