On Tue, 29 Mar 2005 13:30:57 -0800, Wagner, David --- Senior Programmer Analyst --- WGO <[EMAIL PROTECTED]> wrote: > I have a directory which has output reports in them. The big problem > is that they are just a bunch of letters and numbers like > 2781424330fdac47c916.xls. So the user would like a more recognizable file > name. > > This is to run on Solaris w/ Perl 5.8.3. I have tried the following > two modules on my PC using ActiveState 5.8.3 under XP: > Spreadsheet::ParseExcel ( 15 minutes plus to read 4 files size 4 to > 12 meg) and Spreadsheet::ParseExcel::Simple ( 4 minutes for the same files as > ParseExcel ) > > I am running my first test on Solaris using Simple and the first file > took 5 minutes to process. Still have 3 to do. > > Any suggestions on what to do? The key for naming the file is ( > believe it or not ) the last column of the first row on worksheet 1. > > Any questions and/or problems, please let me know.
Hey Wags, I'm kind of confused on what you're asking help for. Are you asking for help on getting the last column of the first row on worksheet 1 for each file you have? If so, my suggestion is to use File::Find to parse down through your directory and use a regex to identify the files you want, then use Spreadsheet::ParseExcel to read the first worksheet and get the first row. Use the code on http://search.cpan.org/~kwitknr/Spreadsheet-ParseExcel-0.2603/ParseExcel.pm in the Synopsis section and play around with the for loops to have it break after the first row. Here's a great column on using File::Find. http://www.stonehenge.com/merlyn/LinuxMag/col45.html Sorry for the lack of syntax, but if you need some later, let me know! Hope this helps, Kevin -- Kevin Old [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
