64 # Insert the ExcelXML code into a Html doc using a simple template. 65 # Use HTML::Template or the Template::Toolkit for real applications. 66 # 67 my $clsid2002 = "CLSID:0002E541-0000-0000-C000-000000000046" ; 68 my $clsid2003 = "CLSID:0002E559-0000-0000-C000-000000000046" ; 69 70 my $template = do {local $/; }; 71 $template =~ s/__EXCEL_XML_DATA__/$xml_str/g; 72 $template =~ s/__SPREADSHEET_CLSID2002__/$clsid2002/; 73 $template =~ s/__SPREADSHEET_CLSID2003__/$clsid2003/; 74 75 print $template; 76 77 78 79 __END__ 80 Content-type: text/html 81 82 83 86 87 88
89 90 91 92 93 94 95 96 97 98 99

100 To use this Web page interactively, you must have Microsoft Internet Explorer 5.01 Service Pack 2 (SP2) or later and the Correct V ersion of Microsoft Office Web Components. 101

102

103 See the 104 Microsoft Office Web site for more information. 105

106 107 108
109 110