Select Code to Download

print "RULE_FILE :  $rulefile \n";

my $rulesdir = "C:\\Snort\\rules\\*.rules";

my $rulesdir = "C:\\Snort\\rules\\";

my $rulesdir = "C:/Snort/rules/";

@rulefiles = `ls $rulesdir\/*.rules`;

my $rulesdir = "C:\\Snort\\rules";
my @rulefiles = glob "$ruledir/*.rules";

for my $rulefile (@rulefiles){
    open my $INFILE, "<", $rulefile or die "Can't open  $rulefile $!";
    my @rules = <$INFILE>;
    close $INFILE;
}