Parse Question

catfish1116 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Parse Question by Corion (Patriarch) on Dec 10, 2019 at 16:59 UTC
What does your line look like? Maybe your XML file only has a single line? You discard the first line and do not do anything with it? Are you sure you want to split your input on the letter `N`?	[reply] [d/l]
Re^2: Parse Question by catfish1116 (Beadle) on Dec 10, 2019 at 17:41 UTC
In my first print statement, I just wanted to see if the message was read in. Basically it is just one record from an XML file, as the entire XML file would be too big to test this simple code. Initially, I was splitting the message on the '>', but that didn't work, so I used N to see if that would change anything. Since my second print statement wasn't working, I commented it out, and just tried to throw another print statement at the end to see if it would execute, (it didn't). Any thoughts ?	[reply]
Re^3: Parse Question by Corion (Patriarch) on Dec 10, 2019 at 17:56 UTC
My first thought is to look at your input file. What does it look like? Are you sure that you opened the right file? If your print statement doesn't work, maybe you are not reading in the correct file from your code? How are you calling your program?	[reply]
Re^4: Parse Question by catfish1116 (Beadle) on Dec 10, 2019 at 20:27 UTC
Re^5: Parse Question by Corion (Patriarch) on Dec 10, 2019 at 20:33 UTC
Re: Parse Question by hippo (Archbishop) on Dec 10, 2019 at 19:06 UTC
No output? Works fine for me: `$ echo foo \| perl 11109932.pl This is what line looks like foo $ echo -e "foo\nbar" \| perl 11109932.pl This is what line looks like foo This is what line looks like bar .ELEPHANTS $` [download] See also How to ask better questions using Test::More and sample data.	[reply] [d/l]
Re^2: Parse Question by catfish1116 (Beadle) on Dec 10, 2019 at 20:30 UTC
The code worked great for me as well … until I used a file that consisted of an XML message :(	[reply]
Re^3: Parse Question by hippo (Archbishop) on Dec 11, 2019 at 09:37 UTC
Still works fine for me even with XML input: `$ cat base.xml <?xml version="1.0" encoding="UTF-8"?> <root> <foo>bar</foo> </root> $ perl 11109932.pl < base.xml This is what line looks like <?xml version="1.0" encoding="UTF-8"?> This is what line looks like <root> .ELEPHANTS This is what line looks like <foo>bar</foo> .ELEPHANTS This is what line looks like </root> .ELEPHANTS $` [download] Your steadfast reluctance to provide an SSCCE is doing you no favours.	[reply] [d/l]
Re^3: Parse Question by AnomalousMonk (Archbishop) on Dec 10, 2019 at 22:00 UTC
... I used a file ... What file?!? Throw us a frickin' bone here! Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re: Parse Question by karlgoethebier (Abbot) on Dec 10, 2019 at 19:17 UTC
Reading XML files by line is probably not a good idea. You may consider to use XML::LibXML::Simple or one of the more advanced modules for XML processing. Regards, Karl «The Crux of the Biscuit is the Apostrophe» `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]