打磨程序员的专属利器——文本

打磨程序员的专属利器分三个专题展示--

1. 命令行&文件

2. 快捷键

3. 文本 （本文）

1. 记笔记

好记性不如烂笔头，对于程序员更是如此。学习某种新语言或者某个库，若事先不记点笔记，几年后再拣起来会非常地慢。

之前自己一直用“为知笔记”，但慢慢发现了几个问题。

a. 这个软件喜欢升级，而每次升级都将界面改得面目全非（其实现在绝大多数软件都喜欢没事升级）。我只是想一个简洁的软件界面，只想专注于笔记，而为知的每一次更新后都得花精力在熟悉界面上。

b. 为知的笔记不是文本，这样笔记内容几乎只能用为知才能打开。如果想在ubuntu或者Mac上看，只有期待它出对应的客户端或者用网页查看（但如果没网时也不能查看本地数据了）。不过现在我打开wiz的网页版笔记，只能另我大失所望，本人只是想要一个左边是树形控件展示笔记的结构，右边可以显示笔记内容的界面，而wiz网站的在线笔记做得太复杂了。

c. 有时不知是服务器还是网络问题，同步居然出现问题。在家里电脑写的东西，来到公司后发现居然没有同步过来，fuck!!!!

忍无可忍后，就动了自己实现个笔记软件的想法。最开始是用c#写，笔记保存成.mht格式，用IE控件进行预览，用word进行编辑(这是从wiz中得到的启发)。不过后来也发现不是文本的笔记根本不能跨平台。于是又重写了一遍，用c++实现，下面是软件的界面，很简洁，但完全够自己用了。

这个程序从底层反锯齿的2d图形库，到界面库，到Markdown的解析，都是自己重新造轮子实现(虽说在软件界不鼓励重新造轮子，但通过造轮子可以将图形库、界面库理解得更透彻)。由于太过简陋就不发布出来，等过段时间有空了用QT再重写一个相对漂亮点的界面再公布源码和程序。

2. Markdown

上面的笔记中提到了Markdown。《程序员修炼之道》中提到笔记得到文本来记录。最开始本人一直认为“文本”就是“纯文本”，直到在开源软件中发现有.md文件，于是知道了有Markdown这种东东，然后忽然识别到文本也可以做得很漂亮(html,css就是文本)。

Markdown是html的一个子集。可以用少量的标示符就可以构造出漂亮的文本排版。下面简单介绍下Markdown的标示符:

a. 行首的#可以指明段落，一个表示第一级，二个表示第二级，以此类推

b. 两行```之间的内容可以被解析为code格式，就像上图中有灰色背景的区域，这种可以方便放代码。

c. 行首的 * 可以被解析成html的 <li>

d. 用[name](http://www.test.com "test") 这种格式可以指定超链接

e. 用下面的格式可以构造出如下的表格

name | age
---|---
man1 | 45
man2 |2

....

更多Markdown语法可以参数其官网。反正都挺好学，也比较易用，可以在记笔记时不因格式问题而花太多的精力，让我们专注于内容。

3. 备份、同步

有了上面DIY的笔记软件后，对于多地办公、多台电脑办公就得考虑如何同步笔记了。

开始本人是使用金山网盘，但也是因为同步问题，有时真是金山的服务器挂了，导致无法同步。还一个严重的问题，网盘没有像svn,git那样明确的update,commit,pull,push操作，这样在同步时真就会出现问题。然后本人试了几乎所有的网盘，发现在某些情况下100%的情况会出现同步失败的问题。

************************

在写这篇博文时为了再次证实下，于是本人又装了次金山快盘。

新建一个文件夹，在这个文件夹下再新建两个文本文档，往其中一个文本文档中随便写点东西，这时去网页版的金山快盘上，就发现真就没有把刚才的东西同步上来。比吃了蟑螂还恶心!!!

qq云盘和360网盘以前还可以在Explorer中查看本地数据，但现在只有用它自己的程序来操作本地数据了。

百度云盘同样也有这样问题，没有本地路径。

************************

同样是忍无可忍

开始使用 http://svn.jundie.net/，但由于本人小气，不想花钱买私有项目，只有把自己的笔记弄成开源项目，虽说没什么重要东西，但总感觉不靠谱。

于是找到git.oschina.net，并且发现基于git有非常多的服务器，并且都可以免费申请私有项目。于是爱上了git，为了保险，将自己所有的代码都放到git上，当然是私有项目(遥想当年，由于本人折腾电脑、折腾分盘，将大一下刚学程序半年写的vb6俄罗斯方块程序源码弄丢了，多么地心疼啊)~~

于是妈妈再也不用担心代码弄丢了。

为了方便在Explorer中访问笔记，可以使用前文介绍的subst命令，将笔记路径映射成一个虚拟磁盘以便访问。

4. 学习一门文本语言

《程序员修炼之道》中说程序员应该每一年学习一门新语言，我们打个折扣1~2年学习一门新语言。并且非常有必要学习一门文本操作语言，比如Python,Ruby或者是Perl。虽然用C#,java，甚至是c/c++都可以进行文本操作，但编写代码的速度肯定不及脚本语言。

本人最开始学习的是Perl语言。这门语言咋一看觉得不好学——充满了各种奇奇怪怪的符号。不过如果沉下心来将《Perl语言入门》、《Perl语言编程》两本书看完，然后再动手自己写几个实用的小程序，Perl的学习之路基本上就算是毕业了。

下面展示几个本人所写的perl程序。也是比较简陋(本人侧重于实用):

a. ls程序

linux下的ls命令可以将当前路径下的文件、文件夹都显示出来。windows下没有这样的程序，于是本人实现了一个。

  1 use 5.010;
  2 use strict;
  3 use warnings;
  4
  5 use Win32::Console;
  6 use Win32::Console::ANSI;
  7 use Term::ANSIColor;
  8 use POSIX();
  9
 10
 11 use utf8;
 12 use Encode::Locale;
 13
 14 binmode STDIN, ":encoding(console_in)";
 15 binmode STDOUT, ":encoding(console_out)";
 16 binmode STDERR, ":encoding(console_out)";
 17
 18 sub Main;
 19
 20 Main @ARGV;
 21
 22 my $is_dir_show;
 23 my $is_file_show;
 24
 25 my $is_show_size;
 26 my $is_sort_by_size;
 27
 28 my @folds;
 29 my @files;
 30
 31 my $max;
 32
 33 my $col_count;
 34 my $col_width;
 35
 36 my $con_w;
 37 my $con_h;
 38
 39 sub Help {
 40     #system("chcp 936");
 41     my $str = "ls 显示当前目录下的文件和文件夹名\n".
 42     "默认情况下文件和文件夹都将显示。-f 显示文件   -d 显示文件夹\n".
 43     "默认情况下不显示文件和文件夹的大小。   -s 将显示其大小\n".
 44     "如果文件名中有中文，则一定要确保控制台的代码页为936，用chcp 936可以改变代码页";
 45     print $str;
 46 }
 47
 48 sub IsHelp {
 49     foreach (@_) {
 50         if (lc($_) eq ‘?‘ ||
 51         lc($_) eq ‘/?‘ ||
 52         lc($_) eq ‘-help‘ ||
 53         lc($_) eq ‘--help‘
 54         ) {
 55             return 1;
 56         }
 57     }
 58     return 0;
 59 }
 60
 61 #---------------
 62 # 判断命令行中是否有-d，如果有则表示显示文件夹
 63 #---------------
 64 sub IsDir {
 65     foreach (@_) {
 66         if (lc($_) eq ‘-d‘) {
 67             return 1;
 68         }
 69     }
 70     return 0;
 71 }
 72 #---------------
 73 # 多年命令行中是否有-f,如果有则表示显示文件
 74 #---------------
 75 sub IsFild {
 76     foreach (@_) {
 77         if (lc($_) eq ‘-f‘){
 78             return 1;
 79         }
 80     }
 81     return 0;
 82 }
 83 #---------------
 84 # 判断命令行中是否有-s， 如果有则要显示大小
 85 #---------------
 86 sub IsSize {
 87     foreach (@_) {
 88         if (lc($_) eq ‘-s‘) {
 89             return 1;
 90         }
 91     }
 92     return 0;
 93 }
 94
 95 #---------------
 96 # 判断命令行是否有-S，如果有则要按照文件大小排序，并且显示文件大小
 97 #     即-S包含-s
 98 #---------------
 99 sub IsSortBySize {
100     foreach (@_) {
101         if ($_ eq ‘-S‘) {
102             return 1;
103         }
104     }
105     return 0;
106 }
107 #---------------
108 # 获取文件夹的大小
109 # par_1: path
110 #---------------
111 sub GetFoldSize {
112     my $path = shift;
113     my $size = 0;
114
115     if (-d $path) {
116         my $r = opendir(DIR, $path);
117
118         if (!$r) {
119             return 0;
120         }
121
122         my @files = readdir(DIR);
123         closedir(DIR);
124
125         foreach (@files) {
126             next if $_ eq ‘.‘ or $_ eq ‘..‘;
127             my $file = "$path\\$_";
128
129             if (-d $file) {
130                 $size += GetFoldSize($file);
131             } else {
132                 my $s = (-s $file);
133                 $size = $size + $s;
134
135             }
136         }
137     }
138     return $size;
139 }
140
141 #---------------
142 # 将字节数转化为G M K 显示
143 # par_1:byte_size;
144 #---------------
145 sub ByteToString {
146     my $b = shift;
147     my $k=0;
148     my $m=0;
149     my $g=0;
150
151     if ($b >= 1024) {
152         $k = int($b/1024);
153         $b -= $k * 1024;
154     }
155
156     if ($k >= 1024) {
157         $m = int($k/1024);
158         $k -= $m * 1024;
159     }
160
161     if ($m >= 1024) {
162         $g = int($m/1024);
163         $m -= $g * 1024;
164     }
165
166 #    my $str="";
167 #    my $temp;
168 #    if ($g != 0) {
169 #        $str .= "$g"."G";
170 ##        $str .= $temp." "x(6 - length($temp)) ;
171 #    }
172 #    if ($m != 0) {
173 #        $str .= "$m"."M ";
174 ##        $str .= $temp." "x(6 - length($temp)) ;
175 #    }
176 #    if ($k != 0) {
177 #        $str .= "$k"."K ";
178 ##        $str .= $temp." "x(6 - length($temp)) ;
179 #    }
180 #    if ($b != 0) {
181 #        $str .= "$b"."B ";
182 ##        $str .= $temp." "x(6 - length($temp)) ;
183 #    }
184
185     if ($g) {
186         sprintf("%4dG %4dM %4dK %4dB", $g, $m, $k, $b);
187     } elsif ($m) {
188         sprintf("%10dM %4dK %4dB", $m, $k, $b);
189     } elsif ($k) {
190         sprintf("%16dK %4dB", $k, $b);
191     } else {
192         sprintf("%22dB", $b);
193     }
194
195
196 #    if ($str eq "") {
197 #        return "0B";
198 #    }
199 #
200 #    return $str;
201 }
202
203 #---------------
204 # 获取数组中最大的字符串长度
205 # par:@_ 数组
206 #---------------
207 sub MaxLength {
208     my $max = 0;
209
210     foreach (@_) {
211         my $len = length $_;
212         if ($len > $max) {
213             $max = $len;
214         }
215     }
216     return $max;
217 }
218
219 #---------------
220 # 根据获取的col_count, col_width打印文件和文件夹名
221 # 在没有-s选项中这样显示，只显示文件夹名和文件名
222 # par:@_ 文件或文件夹名数组
223 #---------------
224 sub PrintFileName {
225     my $c = 0;
226
227     foreach (@_) {
228         my $s = $_;
229         print Encode::decode("gb2312", $s);
230
231         my $len = length $_;
232         my $diff = $col_width - $len -1; #-1 是为了防止窗口宽等于缓冲区宽时引起的空白行问题
233         my $black = " " x $diff;
234         print $black;
235
236         ++$c;
237         if ($c == $col_count) {
238             print "\n";
239             $c = 0;
240         }
241     }
242 }
243
244 #---------------
245 # 当不指定显示大小，或者不按大小排序时显示文件
246 #---------------
247 sub PrintNoSize {
248     my $console = Win32::Console->new();
249     ($con_w, $con_h) = $console->Size();
250
251     $col_count = POSIX::floor($con_w / ($max+4));
252     if ($col_count == 0) {
253         $col_count = 1;
254     }
255     $col_width = POSIX::floor($con_w / $col_count);
256
257     #print "screen_width: $con_w \n";
258     #print "max_width: $max \n";
259     #print "col_cout: $col_count\n";
260     #print "col_width: $col_width \n";
261
262     if ($is_dir_show && scalar(@folds)) {
263         my $c = $#folds+1;
264         my $s = "文件夹: $c 个\n";
265         print $s;
266         print color ‘bold yellow‘;
267         PrintFileName @folds;
268         print color ‘reset‘;
269         print "\n";
270     }
271
272     if ($is_file_show && scalar(@files)) {
273         my $c = $#files+1;
274         my $s = "文件: $c 个\n";
275         print $s;
276         print color ‘bold green‘;
277         PrintFileName @files;
278         print color ‘reset‘;
279     }
280 }
281
282 #---------------
283 # 显示文件或文件夹的大小
284 #---------------
285 sub PrintBySize {
286
287     my $width = $max + 4;
288
289     if ($is_dir_show) {
290
291         my %hash_dir;
292         foreach (@folds) {
293             $hash_dir{$_} = GetFoldSize($_);
294         }
295
296         my @k;
297         if ($is_sort_by_size) {
298             @k = sort { $hash_dir{$b} <=> $hash_dir{$a} } keys %hash_dir;
299         } else {
300             @k = sort keys %hash_dir;
301         }
302
303         foreach (@k) {
304             print color ‘bold yellow‘;
305             print $_;
306             print color ‘reset‘;
307
308             my $len = length $_;
309             my $diff = $width - $len;
310             my $black = " " x $diff;
311             print $black;
312
313             print ByteToString($hash_dir{$_});
314             print "\n";
315         }
316     }
317     if ($is_file_show) {
318         my %hash_file;
319
320         foreach (@files) {
321             $hash_file{$_} = -s $_;
322         }
323
324         my @k;
325         if($is_sort_by_size) {
326             @k = sort { $hash_file{$b} <=> $hash_file{$a}} keys %hash_file;
327         } else {
328             @k = sort keys %hash_file;
329         }
330
331         foreach (@k) {
332             print color ‘bold green‘;
333             print $_;
334             print color ‘reset‘;
335
336             my $len = length $_;
337             my $diff = $width - $len;
338             my $black = " " x $diff;
339             print $black;
340             print ByteToString($hash_file{$_});
341             print "\n";
342         }
343     }
344 }
345
346 sub List {
347     $is_dir_show = IsDir @_;
348     $is_file_show = IsFild @_;
349     $is_show_size = IsSize @_;
350     $is_sort_by_size = IsSortBySize @_;
351
352     #如果即没有指定-f,也没有指定-d,则默认为都显示
353     if (!$is_dir_show && !$is_file_show) {
354         $is_dir_show = 1;
355         $is_file_show = 1;
356     }
357
358     opendir(DIR, ‘.‘);
359     my @file = readdir(DIR);
360     closedir(DIR);
361
362     foreach (@file) {
363         next if $_ eq ‘.‘ or $_ eq ‘..‘;
364
365         if (-d $_) {
366             push(@folds, $_);
367
368         } else {
369             push(@files, $_);
370         }
371     }
372
373     my $len1 = MaxLength @folds;
374     my $len2 = MaxLength @files;
375     $max = $len1 > $len2 ? $len1 : $len2;
376
377     if ($is_show_size) {
378         PrintBySize;
379
380     } else {
381         PrintNoSize;
382     }
383
384 }
385
386 sub Test {
387     #$s = "d:\\1.jpg";
388     #my $size = GetFoldSize "d:\\lib";
389     #print ByteToString $size;
390
391     #print length($str);
392
393 #    opendir(DIR, "e:\\");
394 #    my @files = readdir(DIR);
395 #    closedir(DIR);
396
397 #    foreach (@files) {
398 #        print $_, "\n";
399 #    }
400
401     my $len = -s "D:\\pagefile.sys";
402     print "$len \n";
403     print ByteToString($len) , "\n";
404 }
405
406 sub Main {
407     if (IsHelp @_) {
408         Help;
409     } else {
410         List @_;
411 #        Test;
412     }
413 }

将上面的代码保存为ls.pl，放在系统路径中。然后在命令行中就可以用 perl ls.pl 来执行它。如果嫌这个命令太复杂，就想用ls来执行它，可以这样，在系统路径中建立一个ls.bat文件，内容为

@echo off
perl e:\Tools\ls.pl %*

这样输入ls时，先执行ls.bat文件，然后在这个文件中再真正执行perl代码（这里指定ls.pl的路径得用绝对路径）。其中%*是将 ls后面所有的命令行选项传递给ls.pl。

ls所支持的命令行选项有:

  • ls  -f 只显示文件
  • ls -d 只显示文件夹
  • ls -s 显示文件或文件夹的大小
  • ls -S 按文件大小排序后再显示

b. grep程序

当我们阅读某个开源项目时往往想找一个类名、或者一个变量名在哪些地方使用过，如果这时没有将项目组织用IDE组织起来，想要查找就比较麻烦。在linux下有个grep可以对文本进行搜索，然后本人就用perl写了一个类似grep的程序，可以在文本文件中查找字符串，并且可以指定在特定的文件上查找。

  1 use 5.010;
  2 use strict;
  3 use warnings;
  4 use Cwd;
  5
  6 use Win32::Console::ANSI;
  7 use Term::ANSIColor;
  8
  9 sub Main;
 10 sub MainTest;
 11
 12 Main @ARGV;
 13 #MainTest;
 14
 15 #--------------
 16 # return 返回是否只查看一级目录，bool
 17 #--------------
 18 sub OnlyLocal {
 19     foreach (@_) {
 20         if (lc($_) eq ‘-l‘) {
 21             return 1;
 22         }
 23     }
 24     return 0;
 25 }
 26
 27 #--------------
 28 # 获取命令行参数的一般方法
 29 # 用法 ：GetPar(‘-f‘, @_);
 30 # return 返回第一个参数后面的字符串
 31 #--------------
 32 sub GetPar {
 33
 34     my $next = 0;
 35     my $str = $_[0];
 36     shift @_;
 37     #say @_;
 38     foreach (@_) {
 39         if ($next) {
 40             return $_;
 41         }
 42         if ($_ =~ /\Q$str/i) {
 43             $next = 1;
 44         }
 45     }
 46     return ‘‘;
 47 }
 48
 49 #--------------------
 50 # param 输入的命令行
 51 # return 返回 -f后面的值
 52 #--------------------
 53 sub FileExp {
 54
 55     my $s = &GetPar(‘-f‘, @_);
 56     if ($s ne ‘‘) {
 57         return $s;
 58     }
 59     return ‘‘;
 60 }
 61
 62 #--------------------
 63 # return 返回 -t 后面的值
 64 #--------------------
 65 sub TxtExp {
 66     return &GetPar(‘-t‘ ,@_);
 67 }
 68
 69 my $is_loc;
 70 my $file_exp;
 71 my $txt_exp;
 72 my $count;
 73 my @scan_files;
 74
 75 #--------------
 76 # 用 $txt_exp查找文件中的每一行，返回所有符合条件的行
 77 #--------------
 78 sub ScanFile {
 79     my $file = shift;
 80     my @text;
 81
 82     open(FILE, "$file");
 83     while (<FILE>) {
 84         if (/$txt_exp/i) {
 85             #return 1;
 86             push(@text, $_);
 87         }
 88     }
 89     close FILE;
 90     #return 0;
 91     return @text;
 92 }
 93
 94 sub PrintColor;
 95 #--------------
 96 # 用不同颜色来突出显示匹配到的文本
 97 # [email protected]:line_text
 98 #--------------
 99 sub PrintColor {
100     my $text = shift;
101
102     if ($text =~ /$txt_exp/i) {
103
104         print $`;
105
106         print color ‘bold red‘;
107         print $&;
108         print color ‘reset‘;
109
110
111         PrintColor $‘;   #‘为了消除$后面的影响
112
113     } else {
114         print $text;
115     }
116
117 }
118
119 #--------------
120 # 显示文件信息
121 # par_0: $file
122 # par_1: @text
123 #--------------
124 sub PrintFile {
125     my $file = shift;
126
127     print color ‘bold cyan‘;
128
129     print "$count  $file\n";
130     print color ‘reset‘;
131
132     ++$count;
133     push(@scan_files, $file);
134
135     #现在一个文件中只显示一条信息
136
137     $_[0] =~ s/^\s+|\s+$//g; #去掉前后的空格
138     $_[0] =~ s/\s+/ /g; #将多个空格替换成一个空格
139
140     print "    ";
141     PrintColor $_[0];
142     print color ‘reset‘;
143     print "\n\n";
144
145 }
146
147 #--------------
148 # 查看一级目录中的文件
149 # param: $dir
150 #--------------
151 sub ScanFold {
152
153     my $dir = shift;
154     opendir(DIR, "$dir");
155     my @files = readdir(DIR);
156     closedir(DIR);
157
158     foreach (@files) {
159         next if $_ eq ‘.‘ or $_ eq ‘..‘;
160         my $file = "$dir\\$_";
161
162         if (-d $file) {
163             if (!$is_loc) {
164                 ScanFold($file);
165             }
166
167         } else {
168
169             my $file_valid = 0;
170
171             #如果文件表达式为空，则判断文件是否为文本文件
172             #否则用文件表达式去匹配 $_
173             if ($file_exp eq ‘‘) {
174                 $file_valid = -T $file;
175             } else {
176                 $file_valid = /$file_exp/i;
177             }
178
179              if ($file_valid) {
180
181                 if ($txt_exp ne ‘‘) {
182                     my @text = &ScanFile($file);
183
184                     if ($#text >= 0 ) {  # $#text是最后一个数组元素的index
185                         PrintFile($file, @text);
186                     }
187
188                 } else {
189                     print color ‘bold cyan‘;
190                     print "$count $file\n";
191                     print color ‘reset‘;
192
193                     ++$count;
194                     push(@scan_files, $file);
195                 }
196              }
197         }
198
199     }
200 }
201
202 sub isnumeric {
203     my $val = shift;
204     ($val ^ $val) eq ‘0‘;
205 }
206
207 sub Scan {
208
209     $is_loc = &OnlyLocal(@_);
210
211     $file_exp = &FileExp(@_);
212     $txt_exp = &TxtExp(@_);
213
214     $count = 0;
215
216     if ($file_exp eq ‘‘ && $txt_exp eq ‘‘ && $#_==0) {
217         $txt_exp = $_[0];
218     }
219
220     #print "file_exp:", $file_exp, "\n";
221     #print "txt_exp:", $txt_exp, "\n";
222     #print "###============================\n";
223
224     &ScanFold(".");
225
226     print "如果想打开文件，则输入对应编号按回车\n";
227
228     my $num = <STDIN>;
229     chomp $num;
230
231     return if $num eq "";
232
233     if ($num>=0 && $num<=$#scan_files) {
234         my $path = getcwd;    #获取当前路径，用于获取文件的完整路径
235         $path =~ s%/%\\%g; #将/替换成\
236
237         my $file = $scan_files[$num];
238         $file = substr($file, 1);  #去掉$file前面的.
239         my $f = $path . $file;
240
241         system "OpenInExplorer.exe $f";
242     }
243
244 }
245
246 sub Main {
247     Scan @_;
248 }

grep

同样为了方便，建立一个grep2.bat文件，其内容为（这里只所有取名为grep2，是因为本人在widnows中装了linux的一些软件后有grep程序了，为了不引起冲突而取名grep2）

@echo off
perl e:\Tools\grep.pl %*

grep2 ClassName 查找所有文本文件中的ClassName

grep2 -f file　　只查找文件名(不查找内容)

grep2 -f \.cpp$ -t ClassName 在以.cpp结尾的文件中查找ClassName

c. 从开源代码构建vs项目

分析linux下的开源项目时往往没有IDE的支持，这里想要定位到变量的定义处，或者想查找在哪些地方有使用这个变量就很不方便。于是可以建立一个不能编译的vs项目，将所有源码添加到vs后，仅仅用来浏览代码。但基本上开源项目的结构都非常复杂，子文件夹中包括子文件夹，而vs也只支持批量添加同一个文件夹中的所有文件。如果一个个文件夹手动去添加代码文件，是个非常重复的工作。——于是程序的天性，消除重担劳动在此得到体现。

如果是建立c/c++项目，其项目拓展名是.vcproj，可以发现它就是一个xml文件。

其包括文件的关键节点如下:

<Files>
<Filter Name="app">
<File ReleativePath=".\app\about.h">
<File Releativepath=".\app\cpp.c">
</Filter>
<Files>

知道了这个结构后，就可以用程序自动生成了~~

文本操作，本人依然用Perl !!

 1 #
 2 #使用方法：将些文件复制到要建立VS项目的文件夹内，用perl create_vs.pl运行此文件。
 3 #           在运行前先vs_pre.txt复制到与create_vs.pl同目录下，这样就可以生成直接生成vcproj文件
 4 #
 5
 6 use Win32::OLE;
 7 use warnings;
 8 use 5.010;
 9
10 use XML::Simple;
11 use XML::DOM;
12
13 #use XML::Tidy;
14 use strict;
15 use Encode;
16
17 sub addFile;
18
19 my $parser = new XML::DOM::Parser;
20 my $doc    = $parser->parse(‘<Files/>‘);
21
22 #addFile( 2, 4 );
23 addFile( $doc->getDocumentElement(), ‘.‘ );
24 $doc->printToFile(‘file.xml‘);
25 $doc->dispose;
26
27 open file_out, ">temp.vcproj";
28 open file_in1, "vs_pre.txt";
29 open file_in2, "file.xml";
30
31 while(<file_in1>) {
32     chomp($_);
33     say file_out $_;
34 }
35 while(<file_in2>) {
36     chomp($_);
37     say file_out $_;
38 }
39 my $end ="     <Globals>
40     </Globals>
41 </VisualStudioProject>";
42 say file_out $end;
43
44
45 #下面的格式正则代码有问题
46 #my $tidy = XML::Tidy->new( ‘filename‘ => ‘file.xml‘ );
47 #$tidy->tidy();
48 #$tidy->write();
49
50 sub addFile {
51     my $node = shift;
52     my $path = shift;
53
54     opendir( DIR, "$path" );
55     my @file = readdir(DIR);
56     closedir(DIR);
57     foreach (@file) {
58         next if $_ eq ‘.‘ or $_ eq ‘..‘;
59         my $file = "$path\\$_";
60         if ( -d $file ) {
61
62             #print $file,"\n";
63             my $n = $doc->createElement(‘Filter‘);
64             my $att = $doc->createAttribute( ‘Name‘, $_ );
65             $n->setAttributeNode($att);
66             $node->appendChild($n);
67             addFile( $n, $file );
68         }
69         else {
70             my $s = substr( $file, rindex( $file, "." ) );
71             print $s,"\n";
72             #只添加h,c文件
73             if ( $s ~~ /[h|hpp|cpp]/) {
74                 my $n = $doc->createElement(‘File‘);
75                 my $att = $doc->createAttribute( ‘RelativePath‘, $file );
76                 $n->setAttributeNode($att);
77                 $node->appendChild($n);
78             }
79
80         }
81     }
82     #如果这个节点上没有子节点，则将其去掉
83     if ( !$node->hasChildNodes() ) {
84         $node->getParentNode()->removeChild($node);
85     }
86 }

create.pl

<?xml version="1.0" encoding="gb2312"?>
<VisualStudioProject
    ProjectType="Visual C++"
    Version="9.00"
    Name="coreutils"
    ProjectGUID="{D5524811-7F7F-49A7-80E0-85645B1D2B68}"
    RootNamespace="coreutils"
    Keyword="Win32Proj"
    TargetFrameworkVersion="196613"
    >
    <Platforms>
        <Platform
            Name="Win32"
        />
    </Platforms>
    <ToolFiles>
    </ToolFiles>
    <Configurations>
        <Configuration
            Name="Debug|Win32"
            OutputDirectory="$(SolutionDir)$(ConfigurationName)"
            IntermediateDirectory="$(ConfigurationName)"
            ConfigurationType="1"
            CharacterSet="1"
            >
            <Tool
                Name="VCPreBuildEventTool"
            />
            <Tool
                Name="VCCustomBuildTool"
            />
            <Tool
                Name="VCXMLDataGeneratorTool"
            />
            <Tool
                Name="VCWebServiceProxyGeneratorTool"
            />
            <Tool
                Name="VCMIDLTool"
            />
            <Tool
                Name="VCCLCompilerTool"
                Optimization="0"
                PreprocessorDefinitions="WIN32;_DEBUG;_CONSOLE"
                MinimalRebuild="true"
                BasicRuntimeChecks="3"
                RuntimeLibrary="3"
                UsePrecompiledHeader="2"
                WarningLevel="3"
                DebugInformationFormat="4"
            />
            <Tool
                Name="VCManagedResourceCompilerTool"
            />
            <Tool
                Name="VCResourceCompilerTool"
            />
            <Tool
                Name="VCPreLinkEventTool"
            />
            <Tool
                Name="VCLinkerTool"
                LinkIncremental="2"
                GenerateDebugInformation="true"
                SubSystem="1"
                TargetMachine="1"
            />
            <Tool
                Name="VCALinkTool"
            />
            <Tool
                Name="VCManifestTool"
            />
            <Tool
                Name="VCXDCMakeTool"
            />
            <Tool
                Name="VCBscMakeTool"
            />
            <Tool
                Name="VCFxCopTool"
            />
            <Tool
                Name="VCAppVerifierTool"
            />
            <Tool
                Name="VCPostBuildEventTool"
            />
        </Configuration>
        <Configuration
            Name="Release|Win32"
            OutputDirectory="$(SolutionDir)$(ConfigurationName)"
            IntermediateDirectory="$(ConfigurationName)"
            ConfigurationType="1"
            CharacterSet="1"
            WholeProgramOptimization="1"
            >
            <Tool
                Name="VCPreBuildEventTool"
            />
            <Tool
                Name="VCCustomBuildTool"
            />
            <Tool
                Name="VCXMLDataGeneratorTool"
            />
            <Tool
                Name="VCWebServiceProxyGeneratorTool"
            />
            <Tool
                Name="VCMIDLTool"
            />
            <Tool
                Name="VCCLCompilerTool"
                Optimization="2"
                EnableIntrinsicFunctions="true"
                PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE"
                RuntimeLibrary="2"
                EnableFunctionLevelLinking="true"
                UsePrecompiledHeader="2"
                WarningLevel="3"
                DebugInformationFormat="3"
            />
            <Tool
                Name="VCManagedResourceCompilerTool"
            />
            <Tool
                Name="VCResourceCompilerTool"
            />
            <Tool
                Name="VCPreLinkEventTool"
            />
            <Tool
                Name="VCLinkerTool"
                LinkIncremental="1"
                GenerateDebugInformation="true"
                SubSystem="1"
                OptimizeReferences="2"
                EnableCOMDATFolding="2"
                TargetMachine="1"
            />
            <Tool
                Name="VCALinkTool"
            />
            <Tool
                Name="VCManifestTool"
            />
            <Tool
                Name="VCXDCMakeTool"
            />
            <Tool
                Name="VCBscMakeTool"
            />
            <Tool
                Name="VCFxCopTool"
            />
            <Tool
                Name="VCAppVerifierTool"
            />
            <Tool
                Name="VCPostBuildEventTool"
            />
        </Configuration>
    </Configurations>
    <References>
    </References>

vs_pre.txt

将create.pl vs_pre.txt得到到需要构建项目的地方，然后执行perl create.pl，这样就会生成一个temp.vcproj的项目，其中就包括了这相目录所所有的.h, .hpp, .cpp文件，在create.pl 的73行可以指定添加文件的类型。

之前本人分析gimp和ffmpeg的源码就是用这种方法建立了vs项目，然后就极大地提高了分析代码的效率。

如果以后有心情了，分析linux系统源码时也会用这种方式来构建项目。

d. git项目的批量pull, push

自从爱上了git.oschina.net后，将所有代码都放到git的私有项目中。c++代码都放在本地的 e:\cpp_app\ 文件夹下

如图所示，左下角有小绿圆圈的标志都是有提交git的项目。

这么多项目，如果一个个手动地进入文件夹然后pull,push，非常繁琐。

于是先建立下面的git_syn.pl文件

 1 my $one = $ARGV[0];
 2 my $path = "e:\\cpp_app\\";
 3 opendir(DIR, $path);
 4 my @files = readdir(DIR);
 5
 6 foreach (@files) {
 7     next if $_ eq ‘.‘ or $_ eq ‘..‘;
 8
 9     my $str = $path . $_ . "\\" . ".git";
10     if (-d $str) {
11         my $s = $path . $_;
12
13         say "\n\n=============== now directory : $s";
14         chdir $s;
15
16         if ($one == 0) {
17             system "git add .";
18             system "git commit -a";
19             system "git push";
20         } elsif ($one == 1) {
21             system "git pull";
22         }
23     }
24 }

建立pull.bat文件

1 echo off
2 perl git_syn.pl 1
3 pause

建立push.bat文件

1 echo off
2 perl git_syn.pl 0
3 pause

git_syn.pl遍历e:\cpp_app文件夹下的所有文件夹，如果发现有.git子文件夹，则根据传入参数判断是push还是pull操作。

有了pull.bat, push.bat后，妈妈再也不会担心有代码没更新了。使用svn的项目也这样弄，只要将git 改成svn，pull,push换成update,commit即可。参见《命令行&界面》

5. 正则表达式

个人认为程序员应该将正则表达式融入自己的血液。

如果不沉下心来学习，或者学了后不用，都会出现想使用正则表达式而很茫然的情况。

本人借着学习Perl的机会，将正则表达式重新好好学了一遍，并且在日常的工作中有意识地强迫自己去使用，几个月下来后基本上可以称得上熟练掌握了正则表达式。

下面就介绍几个在vs中用正则表达式进行查找/替换的例子(vs的正则和标准的正则有所不同，不过思想是一样的，只是在表示符号上不所不同):

用如下图所示的方法打开vs的正则表达式查找、替换功能：

  • 查找被注释掉的代码   .*//.*GetTickCount
  • 将for,if, while后面的 { 放在与其同一行。查找部分为 ^{:b*[for|if|while].*[^\{]}\n:b*\{  替换为 \1{
  • 给所有逗号后面都加上一个空格。查找部分为,{[^ ]}，替换为, \1

其中{}表示分组（相当于标准正则中的()），[]表示一类字符集（相当于标准正则中的{}）

关于正则表达式的具体使用情况还有很多，结合上面介绍的grep2，可以用\.cpp$来查找所有后缀是cpp的文件。

总之，学习正则表达式的回报会随着时间的累积越来越多，随着对其掌握的熟练程序而越来越多。

时间： 2024-10-10 23:48:58

打磨程序员的专属利器——文本的相关文章

打磨程序员的专属利器——快捷键

打磨程序员的专属利器分三个专题展示-- 1. 命令行&文件 2. 快捷键(本文) 3. 文本 ------------------------------------------aj的分隔线------------------------------------------ 前言 本人与快捷键的渊源应该从游戏开始说起.10年前的经典游戏wow,游戏里的技能非常多,所以玩游戏时将所有比较常用的技术都设置成了快捷键.方向控制改成sdf,然后左手的其它字母键都是技能快捷键.甚至是鼠标滚轮的上下滚动都被

打磨程序员的专属利器——命令行&amp;界面

工欲善其事,必先利其器,程序员更是如此,如果没有一套与自己思维同步的工具,将非常难受并且编码效率会非常低. 但十个程序员就有对工具的十种不同理解,本人现在冒然将自己的“工具箱”拿出来晒晒.若对大家没帮助,轻轻飘过即可,若能引起一丝共鸣,便有了价值. 分三个专题来进行展示-- 1. 命令行&界面 2. 快捷键 3. 文本 ------------------------------------------aj的分隔线-----------------------------------------

程序员的专属语言-----注释（04）

记得以前有个笑话,说一个程序员和他的朋友去吃饭,他拿着本记录菜名,几个人商量之后决定有一个菜不点了.过了一会儿上菜的时候还是上来了,大家都问为什么,服务员拿来菜单一看:    //鱼香肉丝.对于不懂程序的服务员,她显然没有明白这两个斜杠是什么意思 ,所以就闹出了这个笑话.在程序开发中,如果一味的写程序可执行的代码,运行起来可能没有问题,但是后续更改或维护就比较吃力,毕竟人直接看程序难度是有点大的,所以为了方便在以后阅读程序或者别人阅读程序时能比较容易读懂,为程序添加注释是必要的.听人说,一个完整

程序员开发学习利器篇（下）之文档资料软件-获取软件、资料的最好途径

以下内容,开发初学者看,熟手略过. 论语有言: 工欲善其事 必先利其器 ,意思是工匠想要使他的工作做好,一定要先让工具锋利.比喻要做好一件事,准备工作非常重要. 第二篇我们来说说软件.文档资料.信息获取的高效途径. 首先说句题外话,程序员的软件.资料学习盘 应该是这个样子的: 文件夹视图应该是 详细列表 并且应用到电脑所有文件夹,方便查看文件的全名 最新的修改日期 类型 大小.并且文件显示应该是全名称 包括后缀名,文件目录起名字最好都是英文的,尤其是软件的安装目录,因为有些软件不识别中文的路径.

一个java程序员自学IOS开发之路（十四）

上个月实在是太忙了,在系统上线的前几天,业务人员还在不停的提新需求,真是醉了.上线那天晚上一直在出问题,熬到2点才搞定 2015/12/12 Day 47 今天开始学习网络编程 在移动互联网时代,移动应用,只有通过网络进行数据交互,才能保持活力!缺少了数据变化,无论多么华丽的应用,终将变成一潭死水 移动网络应用(良好的UI+良好的用户体验): 即时通讯:QQ 新闻:网易.凤凰新闻 视频:优酷.百度视频 音乐:虾米.QQ音乐 照片:Facebook.Flickr LBS(基于位置服务):高德.大众

程序员必读书单

作者:Lucida 微博:@peng_gong 豆瓣:@figure9 原文地址:http://www.cnblogs.com/figure9/p/developer-reading-list.html 关于 本文把程序员所需掌握的关键知识总结为三大类19个关键概念,然后给出了掌握每个关键概念所需的入门书籍,必读书籍,以及延伸阅读.旨在成为最好最全面的程序员必读书单. 前言 Reading makes a full man; conference a ready man; and writing

程序员必读书

前言 Reading makes a full man; conference a ready man; and writing an exact man. Francis Bacon 优秀的程序员应该具备两方面能力: 良好的程序设计能力: 掌握常用的数据结构和算法(例如链表,栈,堆,队列,排序和散列): 理解计算机科学的核心概念(例如计算机系统结构.操作系统.编译原理和计算机网络): 熟悉至少两门以上编程语言(例如C++,Java,C#,和Python): 专业的软件开发素养: 具备良好的编程

程序员必读书单（转）

作者:Lucida 微博:@peng_gong 豆瓣:@figure9 原文链接:http://lucida.me/blog/developer-reading-list/ 关于 本文把程序员所需掌握的关键知识总结为三大类19个关键概念,然后给出了掌握每个关键概念所需的入门书籍,必读书籍,以及延伸阅读.旨在成为最好最全面的程序员必读书单. 前言 Reading makes a full man; conference a ready man; and writing an exact man.

程序员必读书目

作者:Lucida 微博:@peng_gong 豆瓣:@figure9 原文链接:http://lucida.me/blog/developer-reading-list/ 关于 本文把程序员所需掌握的关键知识总结为三大类19个关键概念,然后给出了掌握每个关键概念所需的入门书籍,必读书籍,以及延伸阅读.旨在成为最好最全面的程序员必读书单. 前言 Reading makes a full man; conference a ready man; and writing an exact man.