Perl/wecker.pl - Revision history

Sunflower at 18:47, 3 August 2023

2023-08-03T18:47:15Z

← Older revision		Revision as of 18:47, 3 August 2023
Line 2:		Line 2:
	#!/usr/bin/perl		#!/usr/bin/perl

			# script for automagic pop-ups
	# Usage: perl wecker.pl <popup message>		# Usage: perl wecker.pl 'popup message'
	# Depends: perl-tk		# Depends: perl-tk

Line 10:		Line 11:
	use Encode qw(decode encode);		use Encode qw(decode encode);

	my $~~input~~ = $ARGV[0];		my $text = $ARGV[0];
	my $message = decode("utf8", $~~input~~);		my $message = decode('utf8', $text);
	$message = "Reminder" unless $~~ARGV[0]~~;		$message = 'Reminder' unless $text;

	my $main = MainWindow->new;		my $main = MainWindow->new;
	$main -> Label( -text=>$message, -height=>"20", -width=>"40")->pack;		$main -> Label(-text=>$message, -height=>"40", -width=>"80")->pack;
	$main -> Button( -text=>'quit', -command=>'exit')->pack;		$main -> Button(-text=>'quit', -command=>'exit',)->pack;

	MainLoop;		MainLoop;

	</pre>		</pre>

Sunflower at 21:14, 29 March 2023

2023-03-29T21:14:19Z

← Older revision		Revision as of 21:14, 29 March 2023
Line 1:		Line 1:
			<pre>
	#!/usr/bin/perl		#!/usr/bin/perl

Line 18:		Line 19:

	MainLoop;		MainLoop;
			</pre>

Sunflower: Created page with "#!/usr/bin/perl # Usage: perl wecker.pl # Depends: perl-tk use strict; use Tk; use utf8; use Encode qw(decode encode); my $input = $ARGV[0]; my $message = d..."

2023-03-29T21:13:56Z

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..."

New page

#!/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;