Thanks guys for your replies! I'm still quite confused. This is my first perl script and I haven't done any programming since uni.

The reason it wouldn't compile (works fine for me) is because I have perl as a part of proprietary mining software which has their own extension modules installed, e.g. Lava. I don't get any errors or warnings when running it.

The part of code that does the parsing I got from somewhere on the internet and modified for my purpose and I'm not quite sure where the inner while cycle is from. I'm pretty sure it shouldn't be there.

So I've commented out the inner cycle and moved the part where I open TEMP file for editing and insert two lines up the top out of the outer cycle. Now this part of code looks like this: 

        while ( <OLD> )
            {
                next if ($. == 1);
                    if ($csv->parse($_))
                    {
                        my @columns = $csv->fields();

                # print the parsed body of old file

                        print TEMP "$columns[0], $columns[2], $columns
+[1], $columns[3], $columns[0]\n";

#while( <OLD> )
#{
#print TEMP $_;
#last if $. % 1;
#}

                        }
                        else
                        {
                        my $err = $csv->error_input;
                        Lava::Message("Failed to parse line: $err");
                        }
               }

[download]

The output that I get now has only the top 2 and bottom 2 lines:

W1582165 ,01-Sep-12,,Dist=Metres
0, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000
0, 0.000, 0.000, 0.000,
0, 0.000, 0.000, 0.000, END

[download]

I still can't figure out how to make parsing work properly. I'm actually very confused about this line:

next if ($. == 1);

It says next if line number equals to 2? In the example that I saw it parsed the whole file but here does it just parse the second line?

In reply to Re^2: Parsing CSV only returns the second line of the file by saint_geser
in thread Parsing CSV only returns the second line of the file by saint_geser

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.