83 lines
1.5 KiB
Perl
83 lines
1.5 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings "all";
|
|
use 5.10.0;
|
|
use Getopt::Long;
|
|
|
|
sub readtodo();
|
|
|
|
my $file = "$ENV{HOME}/todo.txt";
|
|
my ($delete, $help);
|
|
|
|
Getopt::Long::GetOptions(
|
|
"del" => \$delete,
|
|
"d" => \$delete,
|
|
"delete" => \$delete,
|
|
"help" => \$help
|
|
);
|
|
|
|
if ($help) {
|
|
say "Usage: $0 --delete NUM";
|
|
say " $0 --del NUM";
|
|
say " $0 --d NUM";
|
|
say " deletes string number NUM";
|
|
say "";
|
|
say " $0 some thing to-do";
|
|
say " adds memo";
|
|
exit 0;
|
|
}
|
|
|
|
if ($delete) {
|
|
say Dumper(\@ARGV);
|
|
die "NUM not set\n" if ($ARGV[0] !~ /^\d+$/);
|
|
my @TODO = readtodo();
|
|
die "NUM too big\n" if ($ARGV[0] > @TODO);
|
|
|
|
my $cnt = 0;
|
|
my $str = '';
|
|
open (TD, ">", $file) or die "Unable to open $file: $!\n";
|
|
|
|
for (my $i = 0; $i < @TODO; $i++) {
|
|
next if ($i == $ARGV[0]);
|
|
next unless (defined($TODO[$i]));
|
|
print sprintf("%s. %s\n", $cnt, $TODO[$i]);
|
|
print TD sprintf("%s. %s\n", $cnt, $TODO[$i]);
|
|
$cnt++;
|
|
}
|
|
|
|
close TD;
|
|
} else {
|
|
die "Specify what to put in memo\n" unless (@ARGV > 0);
|
|
|
|
my @TODO = readtodo();
|
|
push @TODO, join(" ", @ARGV);
|
|
|
|
open (TD, ">", $file) or die "Unable to open $file: $!\n";
|
|
|
|
for (my $i = 0; $i < @TODO; $i++) {
|
|
next unless (defined($TODO[$i]));
|
|
print sprintf("%s. %s\n", $i, $TODO[$i]);
|
|
print TD sprintf("%s. %s\n", $i, $TODO[$i]);
|
|
}
|
|
|
|
close TD;
|
|
}
|
|
|
|
exit 0;
|
|
|
|
sub readtodo() {
|
|
my @TODO;
|
|
open (T, "<", $file) or return @TODO;
|
|
@TODO = <T>;
|
|
close T;
|
|
|
|
@TODO = map {
|
|
chomp;
|
|
$_ =~ /\s*\d+\. (.+)/;
|
|
$1;
|
|
} @TODO;
|
|
|
|
return @TODO;
|
|
}
|