in reply to Zero out particular file extentions once found

use the truncate function:
# In your wanted sub:
return unless -f and /\.jpg$/;
truncate $_, 0 or warn "Error truncating $File::Find::name: $!";

[download]

Replies are listed 'Best First'.
Re^2: Zero out particular file extentions once found
by trenchwar (Beadle) on Mar 05, 2008 at 17:35 UTC
    AWESOME! ++

    I did add a /i since people choose to do upper and lower case.

[reply]

In Section Seekers of Perl Wisdom