Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
print "has_matched $has\n" if $has =~ /^($start(\w+(,\s)?)+)(?!$end)$/
+;
print "needs_matched $needs\n" if $needs =~ /^(log4j.rootLogger=INFO, 
+FILE)(?!, SYSLOG)$/;
print "has_matched $has\n" if $has =~ /^(log4j.rootLogger=INFO, FILE)(
+?!, SYSLOG)$/;