Help for this page

Select Code to Download


  1. or download this
    $complex_re = /^($ip) ($host) ($msg)$/ if (
    $ip   = /\d+\.\d+\.\d+\.\d+/,
    $host = /[\-\.\w]+/,
    $msg  = /.*/
);
  2. or download this
    my $complex_re = eval {
    my $ip   = qr/\d+\.\d+\.\d+\.\d+/;
...

    return /^($ip) ($host) ($msg)$/;
);
  3. or download this
                     Rate    with eval without eval
with eval    116279/s           --          -5%
without eval 121951/s           5%           --