Re^2: UNIX command - remove 0 byte file

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)

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

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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]