论坛 › Perl › 使用Perl/Tk模块建立可视化图形GUI界面1-AndyLeung

痴心VS绝对 发表于 2018-8-30 12:13:53

使用Perl/Tk模块建立可视化图形GUI界面1-AndyLeung

#!/usr/bin/perl -w　　
      # Display Hello World program
　　

　　
      use Tk;
　　
      use strict;
　　

　　
      my $mw = MainWindow->new;
　　
      $mw->geometry("200x100");
　　
      $mw->title("Hello World!!!");
　　

　　
      $mw->Label(-text => 'Hello World')->pack();
　　

　　
      $mw->Button(-text => "Close", -command =>sub{exit})->pack();
　　

　　
      MainLoop;

查看完整版本: 使用Perl/Tk模块建立可视化图形GUI界面1-AndyLeung