You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 lines
166 B
7 lines
166 B
#!/usr/bin/perl
|
|
use Modern::Perl;
|
|
|
|
my ($d,$m,$y) = (localtime)[3,4,5];
|
|
$m++; $y+=1900;
|
|
my $date = sprintf "%4d_%02d_%02d", $y, $m, $d;
|
|
exec("$ENV{EDITOR} $date.md");
|
|
|