The code you posted doesn't produce the output you posted. However, it does seem to do what you want. So you haven't posted the portion of your code that is producing the problem. The following code was modified only in the formatting of its output, and where we're taking input from. Aside from that it's your code:

use strict;
use warnings;

my $sum = 0;

while (my $line = <DATA>) {

  chomp $line;
  print "Original data:[$line]\n";
  my ($target,$variables) = split (/;/ , $line);
  print "\t$target\n";
  print "\t$variables\n";
}

__DATA__
planet;World|Earth
planet;celestial body|moon
psychology;therapy|sociology
psychology;humanity|sociology

[download]

...produces...

Original data:[planet;World|Earth]
    planet
    World|Earth
Original data:[planet;celestial body|moon]
    planet
    celestial body|moon
Original data:[psychology;therapy|sociology]
    psychology
    therapy|sociology
Original data:[psychology;humanity|sociology]
    psychology
    humanity|sociology

[download]

Where's the problem?


Dave

In reply to Re: Parse csv file line by line by davido
in thread Parse csv file line by line by albascura

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.