#!/usr/bin/perl -w

$a='namelessp2/var/information';
$b='^namelessp2\/var\/i[^n]';

if ( $a =~ m/$b/ ) { print("match\n") }
else { print("no match\n") }

__END__

This is for testing the perl matching patterns in the include/exclude and
directory exclude files. set $a to the file name, set $b to the pattern, and
run this program and it will tell you whether or not it matches. Then adjust
the pattern until it does what you want.


$b='^namelessp2\/var\/[^ih]';  does not matches iptraf
$b='^namelessp2\/var\/i[^n]';  matches iptraf


namelessp2/var/home
namelessp2/var/iptraf
namelessp2/var/information
