From a3a92bf97b14a0d04dd57bca6bb8e1674733b27d Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Wed, 23 Nov 2011 21:45:37 +0200 Subject: parse and 'value --> Var: value sub extract_xml_key($) { my $xml_line = shift; - if ($xml_line !~ m{^\s*<([a-zA-Z0-9]*)>([^<]*)}) { + if ($xml_line !~ m{^\s*<([a-z_A-Z0-9]+)(\s+([^>]*))?>([^<]*)}) { warning "parsed empty value from XML line $xml_line"; return ('', ''); # warn? } -- cgit v1.2.3