Help for this page

Select Code to Download

Select or download this

opendir(DIR, $some_dir) || die "can't opendir some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;

Select or download this

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@xxxx = grep { /^xxxx/ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;

print "@xxxx";