Help for this page

Select Code to Download

Select or download this

# untested
foreach my $dir (@subdirs) {
...
}#next dir will be processed

Select or download this

  find . -type d -maxdepth 1 | perl -lne "system qq(ls $_ > ./$_/_list
+.txt)"