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:
# Purpose: Report or delete file's resource fork of a given dir.
# creation date: 2009-05-31
# home page:


# list files that have resource fork:
#  perl dirFullPath
# delete the resource forks:
#  perl 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";

    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";



Text Processing