# Example of using weak references in Perl
use Scalar::Util 'weaken';
{
my $object1 = {};
my $object2 = {};
$object1->{ref} = $object2;
$object2->{ref} = $object1;
# Creating a weak reference to object2
weaken($object1->{ref});
# Circular reference handling: without weaken, both objects would persist
print "Object1 is still alive\n" if defined $object1->{ref};
undef $object2; # Now object2 is freed even if object1 holds a reference
print "Object1 is dead now\n" if not defined $object1->{ref};
}
How do I avoid rehashing overhead with std::set in multithreaded code?
How do I find elements with custom comparators with std::set for embedded targets?
How do I erase elements while iterating with std::set for embedded targets?
How do I provide stable iteration order with std::unordered_map for large datasets?
How do I reserve capacity ahead of time with std::unordered_map for large datasets?
How do I erase elements while iterating with std::unordered_map in multithreaded code?
How do I provide stable iteration order with std::map for embedded targets?
How do I provide stable iteration order with std::map in multithreaded code?
How do I avoid rehashing overhead with std::map in performance-sensitive code?
How do I merge two containers efficiently with std::map for embedded targets?