!/usr/bin/perl -w
use strict;
use Image::Size;
use Data::Dumper;
use File::Find;
use File::Spec;

use vars qw/*name *dir/;
*name        = *File::Find::name;
*dir         = *File::Find::dir;

die "Usage: filecomp <path> <pattern>\n" unless (@ARGV == 2);

my ($path, $pat) = @ARGV;
my $qpat = qr/$pat/i;

chomp (my $cwd = `pwd`);
my $abspath = File::Spec->rel2abs($path, $cwd);

print "Absolute base path is ",$abspath, "\n";

print "Location                                   Filesize\n";

File::Find::find({wanted => \&wanted, 
#             follow => 1
            }, 
            $path);

sub wanted {
  /^$qpat/ && do {
    my $fullname = File::Spec->rel2abs($name, $abspath);
    printf "\n ------------- \n\$fullname is %s\n", $fullname;
    printf "\$name is %s\n", $name;

--Results, with output from find to show that the files do exist--
[eggie@sunlink eggie]$ find tmp -name 'term*' -ls
  4103    1 -rw-------   1 eggie    eggie         160 Sep  2 16:52 tmp
+/terminal.txt
675863    1 -rw-------   1 eggie    eggie         160 Sep  3 14:35 tmp
+/foo/terminal.txt
[eggie@sunlink eggie]$ filecomp.pl tmp 'term.*'
Absolute base path is /home/eggie/tmp
Location                                   Filesize

 ------------- 
$fullname is /home/eggie/tmp/tmp/terminal.txt
$name is tmp/terminal.txt

 ------------- 
$fullname is /home/eggie/tmp/tmp/foo/terminal.txt
$name is tmp/foo/terminal.txt
[download]

See the extra "tmp/" in the $fullname variable? Things look even uglier the deeper in the subdir that a file is found, something like /home/eggie/tmp/foo/bar/baz/foo/bar/baz/terminal.txt when it should be only /home/eggie/foo/bar/baz/terminal.txt Is this a bug/limitation in File::Spec? Do any of you know of a way around this, other than enabling follow in File::Find? (This is Perl, fer crying out loud, it should be possible.) Thanks in advance.

--

There are 10 kinds of people -- those that understand binary, and those that don't.