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 difference)
|
Revision as of 21:13, 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;