http://qs321.pair.com?node_id=1172263


in reply to Re^2: Parsing with perl - Regexes and beyond
in thread RFC: Parsing with perl - Regexes and beyond

Your correction needs a small correction:) We need to do the sort by length after the quotemetaing:

my $reOps = qr[@{[ join '|', sort { length $b <=> length $a } map{ quo +temeta } keys %ops ]}];

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.