XML parsing

[catfish1116]

I got my script to parse out an XML message. However, I did receive a few error messages. Below is code and errors

  my $line = <>;
    print "This is what line looks like $line \n";
  #while ($line = !<>) {
    chomp($line);
    print "This is what line looks like $line \n";
    my @items = (split /></, $line);
    printf "\n\n Item 1 $items[1], \n Item 2 $items[2],  \n Item 3 $it
+ems[3]\n";
   
#  }

Missing argument in printf at ./XML_parse line 19, <> line 1.
Invalid conversion in printf: "%20R" at ./XML_parse line 19, <> line 1
+.

Also, how could I parse a file that has more than 2 messages? I.e. what would be the message delimiter? I have been 'asked' not to download the XML module on my workstation, so I am trying to be creative. :) TIA The Catfish

[choroba]

These are not error messages, but warnings. Are you sure you wanted printf and not just print? Interpolation of user supplied data in a printf template is a security risk, don't do that (see e.g. %n).

Parsing XML with regular expressions is crazy. If the format of the input is not always the same, using an XML-aware module is the only possible path.

[Fletch]

Unless you can guarantee a very limited scope of XML input (e.g. something only ever produced by a single source that will always produce the exact same formatting / layout / character encoding / ...) you're just asking for trouble. Even with such constraints your code is going to be "brittle" because a valid XML document that varies from those constraints will break your parsing. And inevitably you'll get said valid-but-unexpected document at just the wrong time.

If you're going to need to handle arbitrary XML you want to use a real parser.

[haukex]

I have been 'asked' not to download the XML module on my workstation, so I am trying to be creative.

See Parsing HTML/XML with Regular Expressions and Yes, even you can use CPAN, and for the sake of your own sanity, you really, really should use something like XML::LibXML.

[stevieb]

"I have been 'asked' not to download the XML module on my workstation"

I'd be asking about the reasoning behind this nonsense.

Regarding your printf warnings, it appears as though the code you provide is not the same code generating the warnings (given one of the warnings states an actual format, where your code does not). printf requires a string format template, followed by a list of items to inject into the string. Here's an example:

printf "Hello %s, your number is %d\n", $name, $num;

See this for the list of valid formats.

In your case, you don't need printf, as your variables interpolate just fine with print. Besides, as choroba says, sending user data into printf without any validation checks can be problematic.

[hippo]

The printf statement in the OP has one argument which includes interpolated strings from some arbitrary XML. It's quite possible that those contain unescaped % symbols. With certain input I'm sure such warnings could be generated by catfish1116's code.

However since catfish1116 still hasn't deigned to provide us with the input data, despite numerous requests in the other thread, it's all just guesswork.

[Jenda]

You were asked not to download. Mkay. But did you check whether you have any already?