Over a million developers have joined DZone.
{{announcement.body}}
{{announcement.title}}

Closure

DZone's Guide to

Closure

·
Free Resource

#!/usr/bin/perl -w
#
#
#
use strict;

my $x = 12;
{ my $x; sub inc { $x++; print "$x\n" } sub dec { $x-- ; print "$x\n"} }

inc();
inc();
inc();
inc();
dec();
inc();

print "$x\n";

Topics:

Opinions expressed by DZone contributors are their own.

THE DZONE NEWSLETTER

Dev Resources & Solutions Straight to Your Inbox

Thanks for subscribing!

Awesome! Check your inbox to verify your email so you can start receiving the latest in tech news and resources.

X

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}