Perl: Report Files Resource Fork

By Xah Lee. Date: .

Here's a perl script that list files with resource fork. Or, delete them.

# -*- coding: utf-8 -*-
# perl
# 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";