Re: UNIX command - remove 0 byte file

This is a perl forum so I'll answer with some perl code...

foreach(glob('*.*')) {
    unlink if -f and !-s _;
}
[download]

You can change the glob pattern to taste; you may even include a relative or absolute path.

Comment on Re: UNIX command - remove 0 byte file Download Code

Replies are listed 'Best First'.
Re^2: UNIX command - remove 0 byte file by rinceWind (Monsignor) on Sep 23, 2005 at 09:35 UTC
Methinks you have an operator precedence bug here. On second thoughts, what you have is pseudocode (unless you intended it to be a perl 6 style junction :). Should be: `foreach(glob('.')) { unlink if (-f $_) && !-s _; }` [download] -- Oh Lord, won’t you burn me a Knoppix CD ? My friends all rate Windows, I must disagree. Your powers of persuasion will set them all free, So oh Lord, won’t you burn me a Knoppix CD ? (Missquoting Janis Joplin)	[reply] [d/l]
Re^3: UNIX command - remove 0 byte file by VSarkiss (Monsignor) on Sep 23, 2005 at 14:15 UTC
Actually, the two code snippets work exactly the same. Witness: `$ cat x.pl foreach(glob('.')) { unlink if -f and !-s _; } foreach(glob('.')) { unlink if (-f $_) && !-s _; } $ perl -MO=Deparse x.pl use File::Glob (); foreach $_ (glob('.')) { unlink $_ if -f $_ and not -s _; } foreach $_ (glob('.')) { unlink $_ if -f $_ and not -s _; } x.pl syntax OK` [download] Do not rebuke them with harsh words ... but rather lead them gently - with URLs - so that they may learn wisdom.	[reply] [d/l]