JezK
Edit File: regexp-assemble.pl
#!/usr/bin/env perl # # Create one regexp from a set of regexps. # Regexps can be submitted via standard input, one per line. # # Requires Regexp::Assemble Perl module. # To install: cpan install Regexp::Assemble # # See: http://blog.modsecurity.org/2007/06/optimizing-regu.html # use strict; use Regexp::Assemble; my $ra = Regexp::Assemble->new; while (<>) { $ra->add($_); } print $ra->as_string() . "\n";