Help for this page
my @wanted; opendir my $dh, $dir or die "Failed opening $dir: $!"; ... push @wanted, $_ if $num > 14 and $num < 51; } closedir $dh;
my @tim_file = do { opendir my $dh, $dir or die "Failed opening $dir: $!"; ... defined $num and $num > 14 and $num < 51; } readdir $dh; };