处理emacs-org模式TODO的一个脚本

处理前：

处理后：

1 前言

最近风帆问我一个问题，也就是处理org模式中的TODO。写一个脚本，主要功能是未完成的按照“重要性”与“紧急性”进行分类。然后完成的任务列出最近一周完成的。感觉还听有用的，我自己也经常用org模式所以用了一晚上的时间，写了这个脚本，然后上午来了以后由修改了一下。基本算是可以用了。在写这个脚本的过程中，通过遇到的问题从中又学习了几点。总结一下，方便后来查看。

2 中文的处理

Perl处理中文会遇到乱码的问题。我用的vim编辑器也有编码的问题。这里一并总结一下。

2.1 vim相关

在vim中直接查看文件编码：：set fileencoding
解决vim查看文件乱码的问题：在～/.vimrc中添加一下内容：
let &termencoding=&encoding
set fileencoding=utf-8,ucs-bom,gbk,cp936
这样vim就可以自动识别编码。

2.2 perl 相关

网址：wyllife.blog.163.com/blog/static/4116390120112152541260

Perl实用中文处理步骤（修改版）

2011-03-15 14:05:41| 分类： PERL 相关知识 |字号订阅发信人: FenRagwort (泽), 信区: Perl 标题: Perl实用中文处理步骤（修改版）发信站: 水木社区 (Mon Feb 14 12:52:14 2011), 转信

（修改版感谢Invader）

0、你至少得知道编码是怎么回事，utf-8、gbk是什么意思你的文本编辑器能显示一个文件是什么编码，不然你要处理中文文件，都不知道用什么编码打开不过一般就是gbk和utf8两种，实在不行两个都试一遍注意也许你看到的不是gbk，而是gb2312，这两个使用上实际是一样的，gbk完全包含gb2312

1、让你的脚本文件本身用utf8保存，最好养成写任何脚本都用utf8的习惯

2、脚本开头加上： use utf8; use open ":encoding(gbk)", ":std"; 意思是脚本里的字符串都用utf8处理，但是标准输入输出用gbk（默认的代码页编码）做到这一步，脚本里就可以直接用中文了，字符串、正则表达式都没问题

如果要打开的文件全部是一种编码，如utf8，则可以加上： use open ":encoding(utf8)"; #如果文件全是gbk，那么承上编码设置，此行可省略

3.1、打开内有中文的文件前，先要确定它的编码，最常见是gbk或utf8，台湾来的可能是big5，utf16le的偶有可能，其他较少见这样打开： open my $fh, "<:encoding(gbk)", "file.txt" or die; # 读文件 open my $fh, ">:encoding(utf8)", "file.txt" or die; # 写文件

如果Win32系统下打开utf16le或be文件，需要写成： open my $fh, "<:raw:encoding(utf16le):crlf", "file.txt" or die; 否则会有crlf转换的bug

3.2、也可以先打开文件，立刻再用binmode绑定编码 open my $fh, "file.txt" or die; binmode($fh, ":encoding(gbk)"); 一般情况，直接在open里指定encoding即可，有时需要先接收数据，再binmode

4、如果你的文件名是中文，有点麻烦，得这样： use Encode qw/encode/; my $file = "2011年工作记录.txt"; # 中英文数字混合文件名也没问题 $file = encode("gbk", $file); # 文件名是通过标准输出传给命令行的，而命令行 open my $fh, "<:encoding(gbk)", $file or die;

OK，中文问题搞定了，然后该干嘛干嘛，除了一些以字节为对象的操作（如seek、pack），你就把“甲乙丙丁”当“ABCD”用吧，冇问题

X、附送小技巧：如果你是批量处理文本文件，那甚至可以不管中文文件名问题比如要处理ch_{files文件夹下的所有txt文件（包含中文文件名），那么} my @files = glob "ch_files/*.txt"; foreach my $file (@files) { # $file若print出来可能有乱码，但是无妨 open my $fh, "<:encoding(gbk)", $file or die; while (<$fh>) { print; } }

3 时间相关

直接在下面程序中解释包括本地的时间函数localtime,和一个模块，Date::Calc来求两个时间点的天数差。

4 程序解析

  1:  use strict;

  2:  use warnings;

  3:  use utf8;

  4:  use Encode;

  5:  use open ":encoding(utf8)",":std";

  6:  use Date::Calc qw(Delta_Days);

  7:  use Date::Calc qw(Add_Delta_Days);

  8:  use Data::Dumper;

  9:

 10:  my (%hash,%hash_finished,$renwu,$start_time);

 11:  my      $in_in = "TODO.org";

 12:  open  my $in, '<', $in_in or die "cannot open\n";

 13:  while(<$in>)

 14:  {

 15:          chomp;

 16:          my $first_line=$_;

 17:          next if /^#/;

 18:          next if /^$/;

 19:          if ($first_line=~m/^\* TODO/)

 20:          {

 21:                  if ($first_line=~m/^\* TODO(.+):重要紧急:/)

 22:                  {

 23:                          $hash{"重要紧急"}{$1}="A";

 24:                  }

 25:                  elsif($first_line=~m/^\* TODO(.+):重要不紧急:/)

 26:                  {

 27:                          $hash{"重要不紧急"}{$1}="A";

 28:                  }

 29:                  elsif($first_line=~m/^\* TODO(.+):不重要紧急:/)

 30:                  {

 31:                          $hash{"不重要紧急"}{$1}="A";

 32:                  }

 33:                  elsif($first_line=~m/^\* TODO(.+):不重要不紧急:/)

 34:                  {

 35:                          $hash{"不重要不紧急"}{$1}="A";

 36:                  }

 37:          }

 38:          elsif($first_line=~/^\* DONE/)

 39:          {

 40:                  $first_line=~/^\* DONE (.+)?\s+:.+:/;

 41:                  $renwu=$1;

 42:                  my $second_line=<$in>;

 43:                  chomp $second_line;

 44:                  $second_line=~m/^CLOSED: \[([-\d]+).+]/;

 45:                  my $third_line=<$in>;

 46:                  $third_line=~m/^.+\[(.+).....]/;

 47:                  $start_time=$1;

 48:                  $hash_finished{$renwu}{$start_time}{$second_line}="A";

 49:          }

 50:  }

 51:  close  $in;

 52:

 53:

 54:  my      $out_out = "dayreport.org";

 55:  open  my $out, '>', $out_out or die  "failed open$!\n";

 56:

 57:  print $out "#+STARTUP: showall\n";

 58:  print $out "#+TITLE:TODO\n";

 59:  print $out "#+HTML_HEAD: <link rel=\"stylesheet\" type=\"text/css\" href=\"todo.css\" />\n";

 60:  print $out "#+OPTIONS: H:3 num:nil toc:nil \\n:t \@:t ::t |:t ^:nil -:t f:t *:t \\<:t\n";

 61:  print $out "#+LANGUAGE: en\n";

 62:

 63:  =cut

 64:  foreach my $key1 (keys %hash)

 65:  {

 66:          print $out "* $key1\n";

 67:          foreach my $key2 (keys %{$hash{$key1}})

 68:          {

 69:                  print $out "   - $key2\n";

 70:          }

 71:  }

 72:  =cut

 73:  print $out "* 重要紧急\n";

 74:  foreach my $key2 (keys %{$hash{"重要紧急"}})

 75:  {

 76:          $key2=~s/\s+$//;

 77:          print $out "   - $key2\n";

 78:  }

 79:  print $out "* 重要不紧急\n";

 80:  foreach my $key2 (keys %{$hash{"重要不紧急"}})

 81:  {

 82:          $key2=~s/\s+$//;

 83:          print $out "   - $key2\n";

 84:  }

 85:  print $out "* 不重要紧急\n";

 86:  foreach my $key2 (keys %{$hash{"不重要紧急"}})

 87:  {

 88:          $key2=~s/\s+$//;

 89:          print $out "   - $key2\n";

 90:  }

 91:  print $out "* 不重要不紧急\n";

 92:  foreach my $key2 (keys %{$hash{"不重要不紧急"}})

 93:  {

 94:          $key2=~s/\s+$//;

 95:          print $out "   - $key2\n";

 96:  }

 97:

 98:  #follow is the number of today

 99:  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

100:  $mon=$mon+1;

101:  $year+=1900;

102:  #周一是从周日开始的，要进行一下改动

103:  if ($wday==0)

104:  {

105:          $wday=$wday+7;

106:  }

107:  print $wday;

108:  my %hash_day=(

109:                  周日 => "0",

110:                  周一 => "1",

111:                  周二 => "2",

112:                  周三 => "3",

113:                  周四 => "4",

114:                  周五 => "5",

115:                  周六 => "6",

116:          );

117:

118:          #用程序计算每周的起止时间,用到Date::Calc模块

119:  my ($monday_year,$monday_mouth,$monday_day);

120:  ($monday_year,$monday_mouth,$monday_day)=Add_Delta_Days($year,$mon,$mday,-$wday+1);

121:  my ($sunday_year,$sunday_mouth,$sunday_day);

122:  ($sunday_year,$sunday_mouth,$sunday_day)=Add_Delta_Days($year,$mon,$mday,7-$wday);

123:

124:  print $out "\n* 本周已经完成任务: <$monday_year-$monday_mouth-$monday_day>-<$sunday_year-$sunday_mouth-$sunday_day>\n";

125:  foreach my $key1 (keys %hash_finished)

126:  {

127:          foreach my $key2 (keys %{$hash_finished{$key1}})

128:          {

129:                  foreach my $key3 (keys %{$hash_finished{$key1}{$key2}})

130:                  {

131:                          #print "$key3\n";

132:                          $key3=~m/^CLOSED: \[(\d+)-0?(\d+)-0?(\d+) (.+) .+]/;

133:                          my $before_year=$1;

134:                          my $before_mon=$2;

135:                          my $before_mday=$3;

136:                          my $before_weekday=$4;

137:                          #print "$before_weekday\n";

138:                          #用模块来计算两个时间相差的天数

139:                          my $gap=Delta_Days($before_year,$before_mon,$before_mday,$year,$mon,$mday);

140:                          #print "$gap\n";

141:                          my $weekday=$hash_day{$before_weekday};

142:                          #print "$weekday\n";

143:                          if ($weekday <= $wday and $gap <= 7)

144:                          {

145:                                  $key1=~s/\s+/\t/g;

146:                                  print $out "  - $key1 SCHEDULED:<$key2>\t$key3\n";

147:                          }

148:                          else

149:                          {

150:                                  next;

151:                          }

152:                  }

153:          }

154:  }

155:

156:  close  $out;

Date: 2013-08-25T21:31+0800

Author: grc

Org version 7.9.3f with Emacs version 24

Validate XHTML 1.0