Hey guys ive been working on a code to convert CSV to XLS how ever i cant figure out how to just output 10 rows of data per sheet. my objective-create a program that will convert a csv to xls and if the number of rows exceed lets say 10 then the 11th row will be the first in the next(newly created worksheet). please don't give me references to pre made programs... i want to learn :) please fix this code and help me out..thanks in advance 
  #!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;
    use Data::Dumper;

#count the number of records
use strict;
open(IN, "t.txt");
my @str = <IN>;
close(IN);
print scalar(@str);
#end counting the no.of records

open (TABFILE, 't.txt') or die "t.txt: $!";

my $worksheetno=(int(@str/10))+1;
print "\n$worksheetno\n";

    my $workbook  = Spreadsheet::WriteExcel->new('tab.xls');


    my $row = 0;
    my $rowcount=0;


     while($worksheetno>0)
      {
      my $worksheet = $workbook->add_worksheet();
       while (<TABFILE>) {


       chomp;
        my @Fld = split(',');
        print "@Fld\n";

        my $col = 0;
        foreach my $token (@Fld) {
            $worksheet->write($row, $col, $token);
            $col++;
            
        }
        $row++; }

        open (TABFILE, 't.txt') or die "t.txt: $!";
        $row=0;

      $worksheetno--;
    }

[download]

In reply to CONVERTING CSV TO XLS by mayanks94

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.