commit c137e4b768b28d315a564292d6da603db39451e8 Author: Elex Date: Sat Feb 25 02:14:32 2023 +0900 2023-02-25 02:14 diff --git a/gui-tk.pl b/gui-tk.pl new file mode 100755 index 0000000..b558396 --- /dev/null +++ b/gui-tk.pl @@ -0,0 +1,13 @@ +#!/usr/bin/perl + +use strict; +use utf8; +use Tk; # sudo apt install perl-tk + +my $mw = MainWindow->new(); +$mw->Label(-text => '안녕! 밥은 먹고 다니냐?')->pack; +$mw->Button( + -text => '종료', + -command => sub { exit }, +)->pack; +MainLoop; \ No newline at end of file diff --git a/hello.pl b/hello.pl new file mode 100755 index 0000000..8d85e80 --- /dev/null +++ b/hello.pl @@ -0,0 +1,5 @@ +#!/usr/bin/perl +use strict; + +# This is a simple Hello World program. +print "Hello, World.\n"; \ No newline at end of file