Help for this page

Select Code to Download


  1. or download this
    # notional dereference, use whatever is correct for your xml struct
$xml->{'Level'} = eval $xml->{'Level'};
  2. or download this
    my %level = {
    LOG_DEBUG => 0,
...
    my $regex = qr/(${\join '|', keys %level})/;
    s/$regex/$level{$1}/g;
}