eleksir/misc
1
Fork 0
Code Activity

todo: show memo on empty args

Browse Source
This commit is contained in:
eleksir
2020-03-19 01:26:15 +03:00
parent 485ec0cab6
commit fada22df78
1 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
todo
View File

@@ -1,5 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
# simple TODO-manager
use strict; use strict;
use warnings "all"; use warnings "all";
use 5.10.0; use 5.10.0;
@@ -29,7 +31,6 @@ if ($help) {
} }
if ($delete) { if ($delete) {
say Dumper(\@ARGV);
die "NUM not set\n" if ($ARGV[0] !~ /^\d+$/); die "NUM not set\n" if ($ARGV[0] !~ /^\d+$/);
my @TODO = readtodo(); my @TODO = readtodo();
die "NUM too big\n" if ($ARGV[0] > @TODO); die "NUM too big\n" if ($ARGV[0] > @TODO);
@@ -48,20 +49,25 @@ if ($delete) {
close TD; close TD;
} else { } else {
die "Specify what to put in memo\n" unless (@ARGV > 0);
my @TODO = readtodo(); my @TODO = readtodo();
push @TODO, join(" ", @ARGV);
open (TD, ">", $file) or die "Unable to open $file: $!\n"; if (@ARGV > 0) {
push @TODO, join(" ", @ARGV);
open (TD, ">", $file) or die "Unable to open $file: $!\n";
for (my $i = 0; $i < @TODO; $i++) { for (my $i = 0; $i < @TODO; $i++) {
next unless (defined($TODO[$i])); next unless (defined($TODO[$i]));
print sprintf("%s. %s\n", $i, $TODO[$i]); print sprintf("%s. %s\n", $i, $TODO[$i]);
print TD sprintf("%s. %s\n", $i, $TODO[$i]); print TD sprintf("%s. %s\n", $i, $TODO[$i]);
}
close TD;
} else {
for (my $i = 0; $i < @TODO; $i++) {
next unless (defined($TODO[$i]));
print sprintf("%s. %s\n", $i, $TODO[$i]);
}
} }
close TD;
} }
exit 0; exit 0;