The point i was trying to make was that the user shouldnt have to leave the web page environment, but should only have to choose which file they want to view the data of.

The user doesnt want to see any of the actual raw data, but merely an overall graph to display the data on the screen in a graphical format that can easily be understood.

** not meaning to be arsey about it :)****

I may be a bit stupid but can you tell me of a way that i can loop through all the column headings in the file (say writing them to the screen), i.e. stored in an array, then for each row do the same. Currently i have the following code, although i know it doesnt work. I was thinking of a hash table for the column and value but im new to this perl game. The problem i have is to recognise the number of columns there are and loop through each row upto and including the last column, then go to the next line and start again. My brain is wrecked at this stage. Im normally a java programmer and cant seem to see a way forward....HELP!.

# read from a file and extract the contents into an Excel file
sub write_to_Excel()
{

  use Spreadsheet::WriteExcel;

  my @columnNames;
  my @rowValues;
  my $count = 0;
  my $row = 0;
  my $fileArray = "F:/User_Interface/dbStuff/ArrayExpress.txt";

  open( INFILE, "<$fileArray") or
    die "Cannot open the file";

  print("Searching File...");
  foreach $line ( <INFILE> )
  {
      if( $line =~ /^Name/ )
      {
        @columnNames = split(/\t/, $line);
     }
      else
      {
         @rowValues = split(/\t/, $line);
      }
  }

  # Create a new workbook and save a file called example.xls
  # and add a worksheet called Summary to that.
  my $workbook = Spreadsheet::WriteExcel->new("ArrayExpress.xls");
  my $worksheet = $workbook->add_worksheet(`Summary`);

  # Set text bold, red, underlined for values
  # designated as high
  # my $high_val = $workbook->add_format();
  # $high_val->set_bold();
  # $high_val->set_color(`red`);
  # $high_val->set_underline();


  ###### not sure how to loop through array to put rows across then do
+wn and same with cols
  $worksheet->write($row,$count,$element);
  foreach $element(@columnNames)
  {
    $count++;
    $worksheet->write($row,$count,$element);
  }

  foreach my $element(@rowValues)
  {
    $worksheet->write($row,$count,$element);
    $count++;
    $row++;
  }
}
[download]

Sorry about the mess with the node changing. Again im new to this.
MonkPaul.

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.