__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
/usr/bin/perl -w
#
# naive - generate a regular expression that will lex regular expressions
# it is naive in the sense that it can't lex certain patterns, such as a
# pattern that contains nested parentheses (e.g. /ab(?:cd(?ef)?gh)+ij/ )
#
# The emitted regular expression is the default pattern that Regexp::Assemble
# uses to pick apart a string into tokens suitable for being assembled. If it
# isn't sufficiently sophisticated, you will have to supply your own lexer.
#
# Copyright (C) David Landgren 2004-2005
use strict;
my $directive = q{[bABCEGLQUXZ]};
my $punct = q{[^\\w]};
my $meta = q{[aefnrtdDwWsS]};
my $ctrl = q{c.};
my $octal = q{0\\d{2}};
my $hex = q{x(?:[\\da-fA-F]{2}|{[\\da-fA-F]{4}})};
my $named = q{N\\{\w+\\}};
my $prop = q{[Pp](?:\\{\w+\\}|.)};
my $single = q{[^\\w\\/{|}-]};
my $modifiable = qq{$punct|$meta|$ctrl|$octal|$hex|$named|$prop};
my $modifier = q{(?:[*+?]\\??|\\{\\d+(?:,\\d*)?\\}\\??)?};
my $backslash = qq{\\\\(?:$directive|[lu].|(?:$modifiable)$modifier)};
my $class = q{\\[.*?(?<!\\\\)\\]};
my $group = q{\\(.*?(?<!\\\\)\\)};
# \$Default_Lexer = qr/(?![[(\\\\]).$modifier|$backslash|$class$modifier|$group$modifier/;
print <<PATTS;
# The following patterns were generated with eg/naive
\$Default_Lexer = qr/(?![[(\\\\]).$modifier|$backslash|$class$modifier|$group$modifier/;
\$Single_Char = qr/^(?:\\\\(?:$meta|$ctrl|$single|$octal|$hex)|[^\$^])\$/;
PATTS
# my brain hurts just looking at this
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| hostmatch | Folder | 0755 |
|
|
| assemble | File | 4.88 KB | 0644 |
|
| debugging | File | 2.82 KB | 0644 |
|
| failure.01.pl | File | 1.56 KB | 0644 |
|
| fee | File | 284 B | 0644 |
|
| file.1 | File | 20 B | 0644 |
|
| file.2 | File | 21 B | 0644 |
|
| file.3 | File | 16 B | 0644 |
|
| file.4 | File | 19 B | 0644 |
|
| ircwatcher | File | 1.14 KB | 0644 |
|
| naive | File | 1.43 KB | 0644 |
|
| roman | File | 610 B | 0644 |
|
| stress-test.pl | File | 2.73 KB | 0644 |
|
| tld | File | 608 B | 0644 |
|
| track-5.10 | File | 308 B | 0644 |
|
| unquotemeta | File | 395 B | 0644 |
|