Here's a simple(-minded) way to check a file for the number of commas per line: 
perl -lne '$n=tr/,//;$h{$n}++;END{print "$h{$_} rows have $_ commas" f
+or (keys %h)}' some_file.csv

[download]
If that produces only one line of output for a given file, you know the file has the same number of commas in all rows (and it tells you how many commas per row).

If some lines have more and others have fewer, you'll get a breakdown of the variance. It still could be a "valid" CSV file, if lines with extra commas happen to have quotes or escapes (meaning that you really need to use a parsing module like Text::xSV).

Apart from that, even if the CSV data is simple (no quoted/escaped commas) and has the same number of commas on every line, you need to be careful with your use of split() -- this would be wrong: 

    split(",")

[download]
You should do it like this instead: 
    split( /,/, $_, -1 );

[download]
If you don't do that, split() will ignore "extra" commas at the end of a line -- e.g. this: 
   @array = split( /,/, "field1,field2,,field4,field5,,," );

[download]
will fill @array like this: 
   ( 'field1', 'field2', undef, 'field4', 'field5' );

[download]
Note how the trailing empty fields are truncated. Please read about split.

In reply to Re: testing files for valid content by graff
in thread testing files for valid content by grashoper

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.