in reply to Need help with a loop (i think)

If this is going to be run as a weekly sheet, if the number resets to 2,0 every monday, then you can do something simple like this: 
my $cell = (localtime)[6] + 1;

$worksheet->write($cell, 0, "$month $date");
$worksheet->write($cell, 0, $day);

[download]
If its monthly, you can use the month day return value from localtime() to play with. You could also use a temp file to store the month/day that the file was first created and index everything from that, creating a new file when the month value changes and reseting the index to 0.

just a few ideas..


-brad..

Replies are listed 'Best First'.
Re: Re: Need help with a loop (i think)
by vxp (Pilgrim) on Aug 20, 2002 at 15:14 UTC
    its a daily script. each day it'll write to a new cell, with current day's data
[reply]
      Here is some code to show what you could do, I have split it out into a lot of lines so it will be easier for you to read...
      open (CELLNUM, "/usr/local/share/dailystats/.cellnum") or die "Cant op
+en Cell num file: $!\n";
open (CELLNUM2, ">/usr/local/share/dailystats/.cellnum") or die "Cant 
+open Cell num file: $!\n";
$cellnum = <CELLNUM>;
$cellnum++
print CELNUM2 "$cellnum";
close CELNUM;
close CELNUM2;

      [download]
      Then use $celnum in place of "3" in your orig script.. You will want to refine this approach but you get the idea.

      -Waswas
[reply]
[d/l]
      You do realize that Spreadsheet::WriteExcel creates a new spreadsheet. It cannot append data to an already existing spreadsheet. You have to add that functionality yourself.
[reply]
      Is there some limit to the number or is the cell num going to go on forever ? Even if this is just a personal project that's not going to really break anything if it breaks, you might want to use it as an opportunity to think about "what if its still runnning a year from now? Are the 365 cells overkill?" That kinda stuff and try to come up with a nifty idea to manage that amount of data.

      -brad..
[reply]

In Section Seekers of Perl Wisdom