参考计数
在perl 5中，通过参考计数。当在Perl 5中创建某物时，它的引用计数为1或更多，这使它保持活力。在最简单的情况下，如下所示：
|
1
2
|
# reference count of $a = 1, because lives in lexical pad
# lexical pad is gone, reference count to 0
|
在Perl 5中，如果该值是一个对象，则DESTROY方法将被调用。
|
1
2
|
Foo->
# $a->DESTROY called
|
如果不涉及外部资源，及时销毁只是管理程序使用的内存的另一种方式。作为一个程序员，你不需要关心如何以及什么时候被回收。话虽如此，如果您需要处理外部资源，例如数据库句柄(数据库服务器提供的数据库句柄通常只有有限的数量)，那么及时销毁是一个非常好的特性。参考计数可以提供这一点。
然而，引用计数有几个缺点。它采用了perl 5核心开发人员。许多数年才能使参考计数正常工作。如果你在工作Xs，您总是需要知道引用计数，以防止内存泄漏或过早破坏。
在多线程环境中保持同步变得更加困难，因为您不希望同时丢失来自多个线程的引用的任何更新(因为这会导致内存泄漏和/或外部资源不被释放)。为了避免这种情况，需要进行某种锁定或原子更新，两者都不便宜。
- 请注意，perl 5 ithread更像是在解释器之间具有未共享内存的内存分叉，而不是像C这样的编程语言中的线程，因此，它仍然不需要对其引用计数进行任何锁定。
引用计数还有一个基本缺点：如果两个对象包含彼此的引用，它们将永远不会被销毁，因为它们将对方的引用计数保持在0以上(循环引用)。在实践中，这往往要深入得多，更像是A -> B -> C -> A，其中A，B和C都保持着彼此的生存。
a的概念弱参考是为了避开Perl 5中的这些情况而开发的。虽然这个能，会，可以修正循环引用问题，它具有性能含义，而不是首先解决循环引用(和查找)的问题。你需要知道哪里弱引用可以最佳方式使用；否则，您可能会得到不必要的过早对象销毁。
可达性分析
由于Perl 6的核心是多线程的，所以在早期阶段就决定了引用计数在性能和维护方面都是有问题的。相反，当需要更多内存时，对象就会从内存中被逐出。和该对象可以安全地移除。
在Perl 6中能，会，可以创建一个DESTROY方法，就像在Perl 5中一样。但是你。不可能确定何时(如果有的话)它将被调用。
不进则退太多细节，Perl 6中的对象只有在垃圾收集运行启动时才被销毁，例如，当达到一定的内存限制时。只有这样，如果内存中的其他对象无法再访问一个对象和它有一个DESTROY方法，它会在对象被移除之前调用吗？
当程序退出时，Perl 6不进行垃圾回收。适用相位器(如LEAVE和END) 将要GET调用，但除了在阶段程序中运行的代码(间接)启动的垃圾收集之外，不会进行任何垃圾收集。
如果您始终需要有序关闭程序所使用的外部资源(例如数据库句柄)，则可以使用位相器确保以正确和及时的方式释放外部资源。
例如，可以使用END相位器(称为END块(在Perl 5中)，以便在程序退出时(无论出于何种原因)正确断开与数据库的连接：
|
1
2
|
DBIishconnect "Couldn't connect"
END disconnect<br>
|
注意，END相位器不需要有块(如{ ... })在Perl 6中。如果没有，则相位器中的代码与周围的代码共享词法块(Lexpad)。
上面的代码有一个缺陷：如果程序退出以前数据库连接已经建立，或者如果数据库连接由于任何原因而失败，它将仍然尝试调用.disconnect方法中的任何内容。$dbh，这将导致执行错误。那里是然而，在perl 6中有一个简单的成语可以避免这种情况。用与.
END disconnect with
后缀with只有在定义给定值(通常是实例化对象)并将其主题化为$_。.disconnect是缩写$_.disconnect.
如果您希望随时清理外部资源，那么范围退出，您可以使用LEAVE范围内的相位。
|
1
2
3
4
|
DBIishconnect ->
LEAVE disconnect # no need for `with` here
# do your stuff with the database
say "Could not do the stuff that needed to be done"
|
作用域if是左边的，任何LEAVE相位器将被执行。因此，每当代码在该范围内运行时，数据库资源将被释放。
摘要
尽管perl 6没有及时销毁perl 5用户习惯的对象，但是是吗？具有易于使用的替代方法，以确保外部资源的管理，类似于Perl 5中的方法。
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接
原文链接：https://opensource.com/article/18/8/garbage-collection-perl-6