Perl: Report Files Resource Fork
Here's a perl script that list files with resource fork. Or, delete them.
# File name: report_files_resource_fork.pl # Purpose: Report or delete file's resource fork of a given dir. # creation date: 2009-05-31 # home page: http://xahlee.info/perl/perl_report_files_resource_fork.html # USAGE: # list files that have resource fork: # perl report_files_resource_fork.pl dirFullPath # delete the resource forks: # perl report_files_resource_fork.pl dirFullPath d use strict; use File::Find; if (not defined $ARGV[0]) {die "Error: argument not received. $0 <dir absolute path> 'd'. If the second argument 'd' is missing, then no deletion will take place, only do report."} my $path = $ARGV[0]; # should give a full path, not relative path. Else, the $File::Find::dir won't give full path. my $sizesum=0; my $filenum=0; sub wanted { if ( ! -d $File::Find::name && -f $File::Find::name ) { if (-s "$File::Find::name/rsrc" > 0) { print $File::Find::name, "\n"; $sizesum += -s "$File::Find::name/rsrc"; $filenum++; if ($ARGV[1] eq 'd') { open (FF, ">$File::Find::name/rsrc") or die "cannot open $!"; close FF;} } } } find(\&wanted, $path); print "number of file: $filenum.\n"; print "total size in bytes: $sizesum.\n"; print "Done.\n";