How to find & list 0 byte files in a directory

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to find & list 0 byte files in a directory by BrowserUk (Patriarch) on Apr 10, 2012 at 17:43 UTC
`perl -E"-s or say for grep -f,glob '*'"` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]
Re^2: How to find & list 0 byte files in a directory by Anonymous Monk on Apr 10, 2012 at 18:19 UTC
A little bit smaller: `perl -E"-z-f&&say,while<*>"`	[reply] [d/l]
Re^3: How to find & list 0 byte files in a directory by ikegami (Patriarch) on Apr 11, 2012 at 03:11 UTC
Two less: `perl -E"-z-f&&say for<*>"` [download] And you can remove the trailing `"`.	[reply] [d/l] [select]
Re: How to find & list 0 byte files in a directory by MidLifeXis (Monsignor) on Apr 10, 2012 at 17:47 UTC
-z should be the desired command. opendir, readdir, glob, closedir (and possibly some others) may come in handy. --MidLifeXis	[reply]
Re: How to find & list 0 byte files in a directory by ikegami (Patriarch) on Apr 11, 2012 at 03:05 UTC
Non-recursive: `c:\progs\cygwin\bin\find . -maxdepth 1 -type f -size 0c` [download] `:: In a batch file. @echo off for %%q in () do if (%%~zq)==(0) echo %%q` [download] `perl -E"say for grep -z -f, glob ''"` [download] `perl -MFile::Find::Rule -E"say for File::Find::Rule->maxdepth(1)->file +->empty->in('.');"` [download] Recursive: `c:\progs\cygwin\bin\find . -type f -size 0c` [download] `:: In a batch file. @echo off for /r %%q in (.) do if (%%~zq)==(0) echo %%q` [download] `perl -MFile::Find::Rule -E"say for File::Find::Rule->file->empty->in(' +.');"` [download]	[reply] [d/l] [select]