Regex help

Dave Hodgkinson davehodg at gmail.com
Sat Apr 21 21:03:32 BST 2012


On 21 Apr 2012, at 19:13, Torsten Knorr wrote:

> ($label, $opcode) = m/^\s*
>    (?::(\w+)\s+)?       # label
>    ([A-Za-z]+)\s+      # opcode
>    (?:([^,\s]+)(?{push(@operands, $^N)}),?\s*)* # operands
>    $/x;

~~~NO CARRIER

Your modem cable is loose.



More information about the london.pm mailing list