Hello oh great monks of perl, I am very very new to perl - started today. I have multiple files in a folder and these files have the same format and the data is arranged in exact same way in all of them. I need to extract 2 columns of each file and put them all in one spreadsheet preceeded by the file name. this is what I have written (copied from one of the threads on this site) to extract data and put in an excel,, then grab first two columns from all the files in the folder and put them in one giant spreadsheet. thank you so much for the help,, 
 #!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;

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

    open INPUT, 'data.SSM' or die "Couldn't open file: $!";

    $worksheet->write($.-1, 0, [split]) while <INPUT>;

[download]
I wrote another but its not working, am pretty sure it's not the right code/is full of errors. 
  #!/usr/bin/perl -w

    use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;



my %count; 
my $directory = "c:\\perl test scripts";


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


opendir(DIR, $directory )
  || die "Unable to open directory - $!\n";
my @files = grep /\.txt/, readdir( DIR );
closedir( DIR );



foreach my $file (@files) {
    open( FH, "$directory\\$file" )
      || die "Unable to open $file - $!\n";
   
 while( <FH> ) {

    $worksheet->write($.-1, 0, [split]) while <FH>;
 
   }
    close( FH );
}

[download]

In reply to export data from multiple files in a folder to an excel file by veeru612

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.