

re(3)            Perl Programmers Reference Guide           re(3)


NNNNAAAAMMMMEEEE
       re - Perl pragma to alter regular expression behaviour

SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
           use re 'taint';
           ($x) = ($^X =~ /^(.*)$/s);     # $x is tainted here

           $pat = '(?{ $foo = 1 })';
           use re 'eval';
           /foo${pat}bar/;                # won't fail (when not under -T switch)

           {
               no re 'taint';             # the default
               ($x) = ($^X =~ /^(.*)$/s); # $x is not tainted here

               no re 'eval';              # the default
               /foo${pat}bar/;            # disallowed (with or without -T switch)
           }

           use re 'debug';                # NOT lexically scoped (as others are)
           /^(.*)$/s;                     # output debugging info during
                                          #     compile and run time

           use re 'debugcolor';           # same as 'debug', but with colored output
           ...

       (We use $^X in these examples because it's tainted by
       default.)

DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
       When use re 'taint' is in effect, and a tainted string is
       the target of a regex, the regex memories (or values
       returned by the m// operator in list context) are tainted.
       This feature is useful when regex operations on tainted
       data aren't meant to extract safe substrings, but to
       perform other transformations.

       When use re 'eval' is in effect, a regex is allowed to
       contain (?{ ... }) zero-width assertions even if the regex
       contains variable interpolation.  This is normally
       disallowed, since it is a potential security risk.  Note
       that this pragma is ignored when the regular expression is
       obtained from tainted data, i.e.  evaluation is always
       disallowed with tainted regular expressions.  See the
       section on _(_?_{ _c_o_d_e _}_) in the _p_e_r_l_r_e manpage.

       For the purpose of this pragma, interpolation of
       precompiled regular expressions (i.e., the result of qr//)
       is _n_o_t considered variable interpolation.  Thus:

           /foo${pat}bar/

       _i_s allowed if $pat is a precompiled regular expression,
       even if $pat contains (?{ ... }) assertions.


13/Jul/1999            perl 5.005, patch 03                     1


re(3)            Perl Programmers Reference Guide           re(3)


       When use re 'debug' is in effect, perl emits debugging
       messages when compiling and using regular expressions.
       The output is the same as that obtained by running a
       -DDEBUGGING-enabled perl interpreter with the ----DDDDrrrr switch.
       It may be quite voluminous depending on the complexity of
       the match.  Using debugcolor instead of debug enables a
       form of output that can be used to get a colorful display
       on terminals that understand termcap color sequences.  Set
       $ENV{PERL_RE_TC} to a comma-separated list of termcap
       properties to use for highlighting strings on/off, pre-
       point part on/off.  See the section on _D_e_b_u_g_g_i_n_g _r_e_g_u_l_a_r
       _e_x_p_r_e_s_s_i_o_n_s in the _p_e_r_l_d_e_b_u_g manpage for additional info.

       The directive use re 'debug' is _n_o_t _l_e_x_i_c_a_l_l_y _s_c_o_p_e_d, as
       the other directives are.  It has both compile-time and
       run-time effects.

       See the section on _P_r_a_g_m_a_t_i_c _M_o_d_u_l_e_s in the _p_e_r_l_m_o_d_l_i_b
       manpage.


13/Jul/1999            perl 5.005, patch 03                     2