Re: XML::Simple XML / XMLin / XMLout? or something else?

With your posted example after the __DATA_ tag, this:

#! perl -slw
use strict;
use XML::Simple;

my $xml = XMLin( \*DATA );
print XMLout( $_, NoAttr => 1, RootName => 'book' ) for @{ $xml->{book
+} };

__DATA__
[download]

Produces this:

C:\test>junk
<book>
  <author>Book 1 author 1</author>
  <author>Book 1 author 2</author>
  <isbn>Book1ISBN</isbn>
  <title>Book 1 title</title>
</book>

<book>
  <author>Book 2 author 1</author>
  <author>Book 2 author 2</author>
  <isbn>Book2ISBN</isbn>
  <title>Book 2 title</title>
</book>

<book>
  <author>Book 3 author 1</author>
  <author>Book 3 author 2</author>
  <author>Book 3 author 3</author>
  <isbn>Book3ISBN</isbn>
  <title>Book 3 title</title>
</book>
[download]

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".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong

Comment on Re: XML::Simple XML / XMLin / XMLout? or something else? Select or Download Code

Replies are listed 'Best First'.
Re^2: XML::Simple XML / XMLin / XMLout? or something else? by Roboz (Novice) on Oct 12, 2012 at 14:26 UTC
This also looks like it'll do what I need. Man all you folk are awesome! Thanks for the help.	[reply]
Re^3: XML::Simple XML / XMLin / XMLout? or something else? by McA (Priest) on Oct 12, 2012 at 14:42 UTC
I can't resist: How does the output of the last approach differ from mine where I said you have to just throw away the <booklist> tag from your input file? By the way: Extra newlines are also simple. But if you really need perl: `perl -ne 'print unless /booklist/' < data.xml` [download] Best regards McA	[reply] [d/l]
Re^4: XML::Simple XML / XMLin / XMLout? or something else? by BrowserUk (Patriarch) on Oct 12, 2012 at 14:54 UTC
How about if the xml gets received like this? `<booklist> <book> <author>Book 1 author 1</author> <author>Book 1 auth +or 2</author> <title>Book 1 title</title> <isbn>Book1ISBN</isbn> </bo +ok> <book> <author>Book 2 author 1</author> <author>Book 2 author 2</ +author> <title>Book 2 title</title> <isbn>Book2ISBN</isbn> </book> <b +ook> <author>Book 3 author 1</author> <author>Book 3 author 2</author +> <author>Book 3 author 3</author> <title>Book 3 title</title> <isbn> +Book3ISBN</isbn> </book> </booklist>` [download] 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". In the absence of evidence, opinion is indistinguishable from prejudice. RIP Neil Armstrong	[reply] [d/l]
Re^5: XML::Simple XML / XMLin / XMLout? or something else? by McA (Priest) on Oct 12, 2012 at 15:51 UTC
Re^4: XML::Simple XML / XMLin / XMLout? or something else? by brap (Pilgrim) on Oct 12, 2012 at 14:59 UTC
Hey McA, One possibility (that I've run into myself) is `$corporate` mandates that say that data can't be edited by hand, and that you have to write a program (to be executed only by those with sufficient authority) to modify said data. Of course, another possibility is that this is more than a one-time thing -- maybe these book list files show up daily. A warning about your one-liner (cool though it is), XML documents don't necessarily have to have newlines between elements. I've encountered some with no newlines at all -- I believe your solution would empty the file in that case. Just some random thoughts... Update: And BrowserUk phrases it better than I :)	[reply] [d/l]