“

Say, why would you do while loop instead of xargs ...
find ... -print0 | xargs -0 chmod ...
... ?

”

For consistency across *NIX's && versions || find(1) is guaranteed to return the same results, regardless of *NIX || version. :)

#!/usr/bin/perl -Tw
use strict;
use perl::always;
my $perl_version( 5.12.4 );
print $perl_version;

Comment on Re^4: Malware on CPAN Download Code

Replies are listed 'Best First'.
Re^5: Malware on CPAN by Anonymous Monk on Jun 20, 2012 at 23:22 UTC
"For consistency across *NIX's && versions \|\| find(1) is ...." Woah! The question was why are you using a while loop instead of xargs. You did nothing to show how xargs fails to work as reliably as a while loop.	[reply]
Re^6: Malware on CPAN by taint (Chaplain) on Jun 21, 2012 at 00:13 UTC
D'OH! Right you are! Sorry, I'm afraid I hadn't finished my first cup of coffee yet (late night). Operating a keyboard without sufficient coffee, should be considered as bad as drinking, and driving -- that's one citation for me! :/ To your original point; My previous attempts with xargs(1) produced inconsistent results -- hence, my previous reply. But what about the "for loop", you ask? Probably overkill; I used it, it worked && bad habits die hard. ;) I should use this as an opportunity to conjure up a perl script, to accomplish these same tasks. :) use perl::always; my $perl_version( 5.12.4 ); print $perl_version;	[reply]