Parse Question

[catfish1116]

I got a parsing script to work on a regular file. Now, when I try to use with an XML file to doesn't work, (no ouput). I even tried a regular print statement after creating the array, (\n\n\ELEPHANTS), Below is the code.

  my $line = <>;
    print "This is what line looks like $line \n";
  while (defined($line = <>)) {
    #chomp($line);
    print "This is what line looks like $line \n";
    my @items = (split /N/, $line);
    #printf "\n\n\nCustomer Name: %-24s \n", $items[31], $items[32], [
+33];
    print  "\n\n\n.ELEPHANTS\n";
   
  }

TIA The Catfish

[Corion]

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?

[catfish1116]

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 ?

[Corion]

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?

[hippo]

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
$

See also How to ask better questions using Test::More and sample data.

[catfish1116]

The code worked great for me as well … until I used a file that consisted of an XML message :(

[hippo]

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
$

Your steadfast reluctance to provide an SSCCE is doing you no favours.

[AnomalousMonk]

... I used a file ...

What file?!? Throw us a frickin' bone here!

[karlgoethebier]

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