%cat ffilediff.pl
#!/bin/perl

my %f1=&readf($ARGV[0]);
my %f2=&readf($ARGV[1]);
while(($k,$v)=each %f1) {
        if((-e $v)&&(-e $f2{$k})) { print("jdiff $v $f2{$k}\n");}
}
while(($k,$v)=each %f1) { if(! $f2{$k}) {print "$v not exist in $ARGV[1]\n";}}
while(($k,$v)=each %f2) { if(! $f1{$k}) {print "$v not exist in $ARGV[0]\n";}}

sub readf {
        my ($l)=@_;
        my @as=();
        open(IN,"$l")||die("Can't open file:$l\n");
        while($l=<IN>) {
                $l=~s/^[\s]*//g;
                $l=~s/[\s]*$//g;
                if($l) {
                        my @ls=split(/\//,$l);
                        push(@as,$ls[$#ls],$l);
                }
        }
        close(IN);
        return @as;
}