###################################################################### use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; ###################################################################### $Win32::OLE::Warn = 3; my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application','Quit'); my $fielname = q(D:\EDW_VSS\供数APS\01-设计\保全SDM映射.xls); my $Book = $Excel->Workbooks->Open("$fielname"); open(F,'>C:\Documents and Settings\Administrator\桌面\create_proc\aps_table_comments.sql'); #程序主题部分 # clean up after ourselves $Book->Close; close(F);
2、获取系统时间
my$Create_Time = localtime();
3、固定字符与变量字符相连
my$Proc_Name = "P_APS_".${Target_Table_Name};
my$Src_Tab_Ch_Name = $Sheet->Cells(1,9)->{'Value'};
5、将字符串转成大写或小写
$Source_Table_Name= uc($Source_Table_Name);
$Source_Table_Name= lc($Source_Table_Name);
6、引用字符串变量时如果有时候不起作用,可以带上大括号
${Target_Table_Name};
7、打印文本到文件
print F"------------${Proc_Name}的生成代码脚本------------\n";
8、perl读取的EXCEL文件或生成的文本文件路径不能有空格
如:open(F,'>C:\Documentsand Settings\Administrator\桌面\create_proc\aps_table_comments.sql');
执行将不成功。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。