Monthly Archives: August 2015

Compare File Permission Recussively on Linux Directories

Scan 12345678910111213141516171819202122#!/usr/bin/perl use File::Find; my $directory1 = ‘/root/rpmbuild/RPMSX’; my $directory2 = ‘/root/rpmbuild/RPMSX.bak’; find(\&hashfiles, $directory1); sub hashfiles {   my $file1 = $File::Find::name;   (my $file2 = $file1) =~ s/^$directory1/$directory2/;         return(0) if (! -f $file2) ;   … Continue reading

Posted in Uncategorized | Leave a comment