demo_hashdir.pl

来自「source of perl for linux application,」· PL 代码 · 共 10 行

use Attribute::Handlers autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' };

my %dot : Dir('.', DIR_UNLINK);

print join "\n", keys %dot;

delete $dot{killme};

print join "\n", keys %dot;