XML::Parser help

[Tonearm]

Huge edit: I've got my problem narrowed down to this line of Perl:

next if (($line eq "")¦¦($line eq "\n")¦¦($line eq "\r")¦¦($line eq "\s"));

I get the following when trying to run perl -cw :

Unrecognized escape \s passed through at parsexml_temp.tag line 41.

Which refers to the above code. I know very little about Perl. Can anyone help me decipher this?

[MonkeeSage]

In regular expressions the "\s" is the escape for a single white space, but I'm not sure if it can be used elsewhere...try...

...($line eq " "))

Jordan

[Robber]

You could try changing to:
¦¦($line eq "\s"));

to

¦¦($line =~ /\s/));

This would use the \s in a regex rather than equality

[Storyteller]

Robber, this will check for existance of a single whitespace in the string, not its equality to it. He needs to use /^\s$/ to imitate the behavior of eq.

[Tonearm]

Storyteller -

Would ($line eq " ") work or is ($line eq /^\s$/) better?

[Storyteller]

Depends on what you want to do. The difference is that \s will match all whitespace, including tabs and newlines.

[Tonearm]

Ok, definitely good to know.

Can you tell me if there's anything wrong with this Perl:

$result.=$tag."=".$el."\n";
push @field,$tag;$tag="";

[Storyteller]

There's nothing wrong with it, although variable interpolation would make perfect sense here:

$result .= "$tag=$el\n";

[Tonearm]

Thanks Storyteller, I'm going to post a new thread called "XML parsing".

edit: No I'm not. I can't seem to get the script based on XML::Parser working so I'm going to give XML::Simple a try. Thanks for your help guys, it's in exchanges like this that I learn about Perl.