This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
#### Pure Perl implementation of a terminal calendar app ### | |
# # | |
# * by default produce a monthly calendar for current month # | |
# * if passed a number less than 12 produces a calendar for # | |
# that month in current year # | |
# * if passed two numbers and first is less than 12 then prints # | |
# corresponding month in that year # | |
# * if passed number greater than 12 prints the calendar for # |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
no warnings 'utf8'; | |
use strict; | |
use Image::Magick; | |
use Term::Size; | |
use Getopt::Long; | |
use Time::HiRes qw(gettimeofday tv_interval); | |
our ($cachehit,$cachemiss,$nocache,$filter); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/env perl | |
use strict;use warnings; | |
my %config; | |
loadConfig(); ##load config from __DATA__ | |
foreach (sort keys %config){ | |
print $_, " => ",$config{$_},"\n__\n";# display config | |
print "Enter new Value for $_\n>>"; # offer to modify it | |
chomp( $config{$_}=<>); # modify it | |
} | |
saveConfig(); #save new config |