Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^5: Creating a table from raw data!

by graff (Chancellor)
on Nov 19, 2009 at 22:24 UTC ( [id://808273]=note: print w/replies, xml ) Need Help??


in reply to Re^4: Creating a table from raw data!
in thread Creating a table from raw data!

I'm sorry, but the code you just posted could not have produced the output that you posted with it. The script has a syntax error on this line (inside the last "if" block, line 42 when I downloaded it):
push (@{$Storage->{LUNs}}->{WWN}}, "$info");
Note the extra close-curly-brace. I think if you change it to read as follows:
push (@{$$Storage{LUNs}{WWN}}, $info);
there won't be a syntax error, and it might behave better. Apart from that, there's a warning from this line:
$Storage->{SAN} = $sheet->Name, $/;
The ", $/" part does no good at all -- the warning is "useless use of a variable in void context". Just remove those four characters.

There's nothing more I can say, because I don't use windows or Win32::OLE. To read from an Excel file, I use Spreadsheet::ParseExcel, which works fine.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://808273]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2024-04-12 14:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found