Perl/wecker.pl: Difference between revisions
Jump to navigation
Jump to search
(Created page with "#!/usr/bin/perl # Usage: perl wecker.pl <popup message> # Depends: perl-tk use strict; use Tk; use utf8; use Encode qw(decode encode); my $input = $ARGV[0]; my $message = d...") |
No edit summary |
||
| Line 1: | Line 1: | ||
<pre> |
|||
#!/usr/bin/perl |
#!/usr/bin/perl |
||
| Line 18: | Line 19: | ||
MainLoop; |
MainLoop; |
||
</pre> |
|||
Revision as of 21:14, 29 March 2023
#!/usr/bin/perl
# Usage: perl wecker.pl <popup message>
# Depends: perl-tk
use strict;
use Tk;
use utf8;
use Encode qw(decode encode);
my $input = $ARGV[0];
my $message = decode("utf8", $input);
$message = "Reminder" unless $ARGV[0];
my $main = MainWindow->new;
$main -> Label( -text=>$message, -height=>"20", -width=>"40")->pack;
$main -> Button( -text=>'quit', -command=>'exit')->pack;
MainLoop;