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.
8 lines
166 B
8 lines
166 B
13 years ago
|
#!/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");
|