使用Win32::GUI模块，如何在打开GUI是触发包含连接数据库的子函数？

hmlijg

使用Win32::GUI模块，如何在打开GUI时触发连接数据库的子函数？
跪谢

609854

hmlijg 发表于 2014-06-22 20:41
使用Win32::GUI模块，如何在打开GUI时触发连接数据库的子函数？
跪谢

参考

1. use Win32::GUI();
   
2. 
   
3. sub readConf()
   
4. {
   
5.         my @text = <DATA>;
   
6.         return \@text;
   
7. }
   
8. 
   
9. 
   
10. my $text = &readConf();
    
11. 
    
12. my $window = Win32::GUI::Window->new(
    
13.         -name => 'mainWindow',
    
14.         -text   => "$text->[1]",
    
15.         -minsize => [170, 150],
    
16.         -maxsize => [790, 460],
    
17.         -size => [790, 460],
    
18. );
    
19. 
    
20. $window->Show();
    
21. Win32::GUI::Dialog();
    
22. $window->Hide();
    
23. undef $window;
    
24. exit(0);
    
25. sub Main_Terminate
    
26. {
    
27.     -1;
    
28. }
    
29. 
    
30. 
    
31. __DATA__
    
32. text1
    
33. text2

复制代码

把readConf()函数换成操作数据库的函数

stanley_tam

放在BEGIN函数里面行不行{:3_193:}