Help for this page

Select Code to Download


  1. or download this
    perl -le'$d=pop;opendir(D,$d)||die$!.$/;print~~grep{-f"$d/$_"}readdir D' dir
  2. or download this
    perl -le'opendir D,".";print~~grep{-f}readdir D'