Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re^4: Malware on CPAN

by taint (Chaplain)
on Jun 20, 2012 at 17:57 UTC ( #977435=note: print w/replies, xml ) Need Help??

in reply to Re^3: Malware on CPAN
in thread Malware on CPAN

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;

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.

      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;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://977435]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2018-03-18 03:13 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (228 votes). Check out past polls.