X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=README;h=c7bd7943c1d5e2dbd77dcbb316fcb2d852224ba9;hb=6305572fe1d1790682966644ede8f267f22bd1d1;hp=037d0d2df1fedc7319b5347a375e2c2db0584e3e;hpb=46111541589202352d6a6a665eb03fe24e3861a6;p=perl%2Fmodules%2FRegexp-Wildcards.git diff --git a/README b/README index 037d0d2..c7bd794 100644 --- a/README +++ b/README @@ -1,9 +1,9 @@ NAME - Regexp::Wildcards - Converts wildcards expressions to Perl regular + Regexp::Wildcards - Converts wildcard expressions to Perl regular expressions. VERSION - Version 0.02 + Version 0.04 SYNOPSIS use Regexp::Wildcards qw/wc2re/; @@ -16,61 +16,124 @@ SYNOPSIS DESCRIPTION In many situations, users may want to specify patterns to match but don't need the full power of regexps. Wildcards make one of those sets - of simplified rules. This module converts wildcards expressions to Perl + of simplified rules. This module converts wildcard expressions to Perl regular expressions, so that you can use them for matching. It handles the "*" and "?" jokers, as well as Unix bracketed alternatives "{,}", and uses the backspace ("\") as an escape character. Wrappers are provided to mimic the behaviour of Windows and Unix shells. -EXPORT - Four functions are exported only on request : "wc2re", "wc2re_unix", - "wc2re_win32" and "wc2re_jokers". +VARIABLES + These variables control if the wildcards jokers and brackets must + capture their match. They can be globally set by writing in your program + + $Regexp::Wildcards::CaptureAny = -1; + # From then, '*' jokers are capturing + + or can be locally specified via "local" + + { + local $Regexp::Wildcards::CaptureAny = -1; + # In this block, the '*' joker is capturing. + ... + } + # Back to the situation from before the block + + This section describes also how those elements are translated by the + functions. + + $CaptureSingle + When this variable is true, each occurence of the unescaped "?" joker is + made capturing in the resulting regexp (they are be replaced by "(.)"). + Otherwise, they are just replaced by ".". Default is the latter. + + 'a???b\\??' is translated to 'a(.)(.)(.)b\\?(.)' if $CaptureSingle is true + 'a...b\\?.' otherwise (default) + + $CaptureAny + By default this variable is false, and successions of unescaped "*" + jokers are replaced by one single ".*". When it evalutes to true, those + sequences of "*" are made into one capture, which is greedy ("(.*)") for + "$CaptureAny > 0" and otherwise non-greedy ("(.*?)"). + + 'a***b\\**' is translated to 'a.*b\\*.*' if $CaptureAny is false (default) + 'a(.*)b\\*(.*)' if $CaptureAny > 0 + 'a(.*?)b\\*(.*?)' otherwise + + $CaptureBrackets + If this variable is set to true, valid brackets constructs are made into + "( | )" captures, and otherwise they are replaced by non-capturing + alternations ("(?: | ")), which is the default. + + 'a{b\\},\\{c}' is translated to 'a(b\\}|\\{c)' if $CaptureBrackets is true + 'a(?:b\\}|\\{c)' otherwise (default) FUNCTIONS - "wc2re_unix" + "wc2re_jokers" This function takes as its only argument the wildcard string to process, - and returns the corresponding regular expression according to standard - Unix wildcard rules. It successively escapes all unprotected regexp - special characters that doesn't hold any meaning for wildcards, turns - jokers into their regexp equivalents, and changes bracketed blocks into - "(?:|)" alternations. If brackets are unbalanced, it will try to - substitute as many of them as possible, and then escape the remaining - "{" and "}". Commas outside of any bracket-delimited block will also be - escaped. - - # This is a valid brackets expression which is correctly handled. + and returns the corresponding regular expression where the jokers "?" + and "*" have been translated into their regexp equivalents (see + "VARIABLES" for more details). All other unprotected regexp + metacharacters are escaped. + + # Everything is escaped. + print 'ok' if wc2re_jokers('{a{b,c}d,e}') eq '\\{a\\{b\\,c\\}d\\,e\\}'; + + "wc2re_unix" + Similar to the precedent, but this one conforms to standard Unix shell + wildcard rules. It successively escapes all unprotected regexp special + characters that doesn't hold any meaning for wildcards, turns jokers + into their regexp equivalents (see "wc2re_jokers"), and changes + bracketed blocks into (possibly capturing) alternations as described in + "VARIABLES". If brackets are unbalanced, it tries to substitute as many + of them as possible, and then escape the remaining "{" and "}". Commas + outside of any bracket-delimited block are also escaped. + + # This is a valid bracket expression, and is completely translated. print 'ok' if wc2re_unix('{a{b,c}d,e}') eq '(?:a(?:b|c)d|e)'; - Unbalanced bracket expressions can always be rescued, but it may change - completely its meaning. For example : + The function handles unbalanced bracket expressions, by escaping + everything it can't recognize. For example : - # The first comma is replaced, and the remaining brackets and comma are - # escaped. + # The first comma is replaced, and the remaining brackets and comma are escaped. print 'ok' if wc2re_unix('{a\\{b,c}d,e}') eq '(?:a\\{b|c)d\\,e\\}'; # All the brackets and commas are escaped. print 'ok' if wc2re_unix('{a{b,c\\}d,e}') eq '\\{a\\{b\\,c\\}d\\,e\\}'; "wc2re_win32" - Similar to the precedent, but for Windows wildcards. Bracketed blocks - are no longer handled (which means that brackets will be escaped), but - you can provide a comma-separated list of items. + This one works just like the two before, but for Windows wildcards. + Bracketed blocks are no longer handled (which means that brackets are + escaped), but you can provide a comma-separated list of items. # All the brackets are escaped, and commas are seen as list delimiters. print 'ok' if wc2re_win32('{a{b,c}d,e}') eq '(?:\\{a\\{b|c\\}d|e\\})'; - "wc2re_jokers" - This one only handles the "?" and "*" jokers. All other unquoted regexp - metacharacters will be escaped. - - # Everything is escaped. - print 'ok' if wc2re_jokers('{a{b,c}d,e}') eq '\\{a\\{b\\,c\\}d\\,e\\}'; - "wc2re" A generic function that wraps around all the different rules. The first argument is the wildcard expression, and the second one is the type of - rules to apply, currently either "unix", "win32" or "jokers". If the - type is undefined, it defaults to "unix". + rules to apply which can be : + + 'unix', 'win32', 'jokers' + For one of those raw rule names, "wc2re" simply maps to + "wc2re_unix", "wc2re_win32" and "wc2re_jokers" respectively. + + $^O If you supply the Perl operating system name, the call is deferred + to "wc2re_win32" for $^O equal to 'dos', 'os2', 'MSWin32' or + 'cygwin', and to "wc2re_unix" in all the other cases. + + If the type is undefined or not supported, it defaults to 'unix'. + + # Wraps to wc2re_jokers ($re eq 'a\\{b\\,c\\}.*'). + $re = wc2re 'a{b,c}*' => 'jokers'; + + # Wraps to wc2re_win32 ($re eq '(?:a\\{b|c\\}.*)') + # or wc2re_unix ($re eq 'a(?:b|c).*') depending on $^O. + $re = wc2re 'a{b,c}*' => $^O; + +EXPORT + These four functions are exported only on request : "wc2re", + "wc2re_unix", "wc2re_win32" and "wc2re_jokers". The variables are not + exported. DEPENDENCIES Text::Balanced, which is bundled with perl since version 5.7.3 @@ -81,8 +144,8 @@ SEE ALSO Net::FTPServer has a method for that. Only jokers are translated, and escaping won't preserve them. - File::Find::Match::Util has a "wildcar" function that compiles a - matcher. Only handles "*". + File::Find::Match::Util has a "wildcard" function that compiles a + matcher. It only handles "*". Text::Buffer has the "convertWildcardToRegex" class method that handles jokers.