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

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

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下没有这样的程序，于是本人实现了一个。

use 5.010;
use strict;
use warnings;

use Win32::Console;
use Win32::Console::ANSI;
use Term::ANSIColor;
use POSIX();


use utf8;
use Encode::Locale;

binmode STDIN, ":encoding(console_in)";
binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";

sub Main;

Main @ARGV;

my $is_dir_show;
my $is_file_show;

my $is_show_size;
my $is_sort_by_size;

my @folds;
my @files;

my $max;

my $col_count;
my $col_width;

my $con_w;
my $con_h;

sub Help {
    #system("chcp 936");
    my $str = "ls 显示当前目录下的文件和文件夹名
".
    "默认情况下文件和文件夹都将显示。-f 显示文件   -d 显示文件夹
".
    "默认情况下不显示文件和文件夹的大小。   -s 将显示其大小
".
    "如果文件名中有中文，则一定要确保控制台的代码页为936，用chcp 936可以改变代码页";
    print $str;
}

sub IsHelp {
    foreach (@_) {
        if (lc($_) eq '?' ||
        lc($_) eq '/?' ||
        lc($_) eq '-help' ||
        lc($_) eq '--help'
        ) {
            return 1;
        }
    }
    return 0;
}

#---------------
# 判断命令行中是否有-d，如果有则表示显示文件夹
#---------------
sub IsDir {
    foreach (@_) {
        if (lc($_) eq '-d') {
            return 1;
        }
    }
    return 0;
}
#---------------
# 多年命令行中是否有-f,如果有则表示显示文件
#---------------
sub IsFild {
    foreach (@_) {
        if (lc($_) eq '-f'){
            return 1;
        }
    }
    return 0;
}
#---------------
# 判断命令行中是否有-s， 如果有则要显示大小
#---------------
sub IsSize {
    foreach (@_) {
        if (lc($_) eq '-s') {
            return 1;
        }
    }
    return 0;
}

#---------------
# 判断命令行是否有-S，如果有则要按照文件大小排序，并且显示文件大小
#     即-S包含-s
#---------------
sub IsSortBySize {
    foreach (@_) {
        if ($_ eq '-S') {
            return 1;
        }
    }
    return 0;
}
#---------------
# 获取文件夹的大小
# par_1: path
#---------------
sub GetFoldSize {
    my $path = shift;
    my $size = 0;

    if (-d $path) {
        my $r = opendir(DIR, $path);

        if (!$r) {
            return 0;
        }

        my @files = readdir(DIR);
        closedir(DIR);

        foreach (@files) {
            next if $_ eq '.' or $_ eq '..';
            my $file = "$path\$_";

            if (-d $file) {
                $size += GetFoldSize($file);
            } else {
                my $s = (-s $file);
                $size = $size + $s;

            }
        }
    }
    return $size;
}

#---------------
# 将字节数转化为G M K 显示
# par_1:byte_size;
#---------------
sub ByteToString {
    my $b = shift;
    my $k=0;
    my $m=0;
    my $g=0;

    if ($b >= 1024) {
        $k = int($b/1024);
        $b -= $k * 1024;
    }

    if ($k >= 1024) {
        $m = int($k/1024);
        $k -= $m * 1024;
    }

    if ($m >= 1024) {
        $g = int($m/1024);
        $m -= $g * 1024;
    }

#    my $str="";
#    my $temp;
#    if ($g != 0) {
#        $str .= "$g"."G";
##        $str .= $temp." "x(6 - length($temp)) ;
#    }
#    if ($m != 0) {
#        $str .= "$m"."M ";
##        $str .= $temp." "x(6 - length($temp)) ;
#    }
#    if ($k != 0) {
#        $str .= "$k"."K ";
##        $str .= $temp." "x(6 - length($temp)) ;
#    }
#    if ($b != 0) {
#        $str .= "$b"."B ";
##        $str .= $temp." "x(6 - length($temp)) ;
#    }
    
    if ($g) {
        sprintf("%4dG %4dM %4dK %4dB", $g, $m, $k, $b);
    } elsif ($m) {
        sprintf("%10dM %4dK %4dB", $m, $k, $b);
    } elsif ($k) {
        sprintf("%16dK %4dB", $k, $b);
    } else {
        sprintf("%22dB", $b);
    }
    

#    if ($str eq "") {
#        return "0B";
#    }
#
#    return $str;
}

#---------------
# 获取数组中最大的字符串长度
# par:@_ 数组
#---------------
sub MaxLength {
    my $max = 0;

    foreach (@_) {
        my $len = length $_;
        if ($len > $max) {
            $max = $len;
        }
    }
    return $max;
}

#---------------
# 根据获取的col_count, col_width打印文件和文件夹名
# 在没有-s选项中这样显示，只显示文件夹名和文件名
# par:@_ 文件或文件夹名数组
#---------------
sub PrintFileName {
    my $c = 0;

    foreach (@_) {
        my $s = $_;
        print Encode::decode("gb2312", $s);

        my $len = length $_;
        my $diff = $col_width - $len -1; #-1 是为了防止窗口宽等于缓冲区宽时引起的空白行问题
        my $black = " " x $diff;
        print $black;

        ++$c;
        if ($c == $col_count) {
            print "
";
            $c = 0;
        }
    }
}

#---------------
# 当不指定显示大小，或者不按大小排序时显示文件
#---------------
sub PrintNoSize {
    my $console = Win32::Console->new();
    ($con_w, $con_h) = $console->Size();

    $col_count = POSIX::floor($con_w / ($max+4));
    if ($col_count == 0) {
        $col_count = 1;
    }
    $col_width = POSIX::floor($con_w / $col_count);

    #print "screen_ $con_w 
";
    #print "max_ $max 
";
    #print "col_cout: $col_count
";
    #print "col_ $col_width 
";

    if ($is_dir_show && scalar(@folds)) {
        my $c = $#folds+1;
        my $s = "文件夹: $c 个
";
        print $s;
        print color 'bold yellow';
        PrintFileName @folds;
        print color 'reset';
        print "
";
    }

    if ($is_file_show && scalar(@files)) {
        my $c = $#files+1;
        my $s = "文件: $c 个
";
        print $s;
        print color 'bold green';
        PrintFileName @files;
        print color 'reset';
    }
}

#---------------
# 显示文件或文件夹的大小
#---------------
sub PrintBySize {
    
    my $width = $max + 4;
    
    if ($is_dir_show) {
        
        my %hash_dir;
        foreach (@folds) {
            $hash_dir{$_} = GetFoldSize($_);
        }
        
        my @k;
        if ($is_sort_by_size) {
            @k = sort { $hash_dir{$b} <=> $hash_dir{$a} } keys %hash_dir;
        } else {
            @k = sort keys %hash_dir;
        }

        foreach (@k) {
            print color 'bold yellow';
            print $_;
            print color 'reset';

            my $len = length $_;
            my $diff = $width - $len;
            my $black = " " x $diff;
            print $black;

            print ByteToString($hash_dir{$_});
            print "
";
        }
    }
    if ($is_file_show) {
        my %hash_file;
        
        foreach (@files) {
            $hash_file{$_} = -s $_;
        }
        
        my @k;
        if($is_sort_by_size) {
            @k = sort { $hash_file{$b} <=> $hash_file{$a}} keys %hash_file;
        } else {
            @k = sort keys %hash_file;
        }
        
        foreach (@k) {
            print color 'bold green';
            print $_;
            print color 'reset';

            my $len = length $_;
            my $diff = $width - $len;
            my $black = " " x $diff;
            print $black;
            print ByteToString($hash_file{$_});
            print "
";
        }
    }
}

sub List {
    $is_dir_show = IsDir @_;
    $is_file_show = IsFild @_;
    $is_show_size = IsSize @_;
    $is_sort_by_size = IsSortBySize @_;

    #如果即没有指定-f,也没有指定-d,则默认为都显示
    if (!$is_dir_show && !$is_file_show) {
        $is_dir_show = 1;
        $is_file_show = 1;
    }

    opendir(DIR, '.');
    my @file = readdir(DIR);
    closedir(DIR);

    foreach (@file) {
        next if $_ eq '.' or $_ eq '..';

        if (-d $_) {
            push(@folds, $_);

        } else {
            push(@files, $_);
        }
    }

    my $len1 = MaxLength @folds;
    my $len2 = MaxLength @files;
    $max = $len1 > $len2 ? $len1 : $len2;

    if ($is_show_size) {
        PrintBySize;

    } else {
        PrintNoSize;
    }

}

sub Test {
    #$s = "d:\1.jpg";
    #my $size = GetFoldSize "d:\lib";
    #print ByteToString $size;

    #print length($str);

#    opendir(DIR, "e:\");
#    my @files = readdir(DIR);
#    closedir(DIR);

#    foreach (@files) {
#        print $_, "
";
#    }

    my $len = -s "D:\pagefile.sys";
    print "$len 
";
    print ByteToString($len) , "
";
}

sub Main {
    if (IsHelp @_) {
        Help;
    } else {
        List @_;
#        Test;
    }
}

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

@echo off
perl e:Toolsls.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的程序，可以在文本文件中查找字符串，并且可以指定在特定的文件上查找。

use 5.010;
use strict;
use warnings;
use Cwd;

use Win32::Console::ANSI;
use Term::ANSIColor;

sub Main;
sub MainTest;

Main @ARGV;
#MainTest;

#--------------
# return 返回是否只查看一级目录，bool
#--------------
sub OnlyLocal {
    foreach (@_) {
        if (lc($_) eq '-l') {
            return 1;
        }
    }
    return 0;
}

#--------------
# 获取命令行参数的一般方法
# 用法 ：GetPar('-f', @_);
# return 返回第一个参数后面的字符串
#--------------
sub GetPar {

    my $next = 0;
    my $str = $_[0];
    shift @_;
    #say @_;
    foreach (@_) {
        if ($next) {
            return $_;    
        }
        if ($_ =~ /Q$str/i) {
            $next = 1;
        }
    }
    return '';
}

#--------------------
# param 输入的命令行
# return 返回 -f后面的值
#--------------------
sub FileExp {

    my $s = &GetPar('-f', @_);
    if ($s ne '') {
        return $s;    
    }    
    return '';
}

#--------------------
# return 返回 -t 后面的值
#--------------------
sub TxtExp {
    return &GetPar('-t' ,@_);
}

my $is_loc;
my $file_exp;
my $txt_exp;
my $count;
my @scan_files;

#--------------
# 用 $txt_exp查找文件中的每一行，返回所有符合条件的行
#--------------
sub ScanFile {
    my $file = shift;
    my @text;
    
    open(FILE, "$file");
    while (<FILE>) {
        if (/$txt_exp/i) {
            #return 1;
            push(@text, $_);
        }
    }
    close FILE;
    #return 0;
    return @text;
}

sub PrintColor;
#--------------
# 用不同颜色来突出显示匹配到的文本
# par_0@:line_text
#--------------
sub PrintColor {
    my $text = shift;
    
    if ($text =~ /$txt_exp/i) {
    
        print $`;
        
        print color 'bold red';
        print $&;
        print color 'reset';
        
        
        PrintColor $';   #'为了消除$后面的影响
        
    } else {
        print $text;
    }

}

#--------------
# 显示文件信息
# par_0: $file
# par_1: @text
#--------------
sub PrintFile {
    my $file = shift;
    
    print color 'bold cyan'; 

    print "$count  $file
";
    print color 'reset';
        
    ++$count;
    push(@scan_files, $file);
    
    #现在一个文件中只显示一条信息
    
    $_[0] =~ s/^s+|s+$//g; #去掉前后的空格
    $_[0] =~ s/s+/ /g; #将多个空格替换成一个空格

    print "    ";
    PrintColor $_[0];
    print color 'reset';
    print "

";
    
}

#--------------
# 查看一级目录中的文件
# param: $dir
#--------------
sub ScanFold {
    
    my $dir = shift;
    opendir(DIR, "$dir");
    my @files = readdir(DIR);
    closedir(DIR);
    
    foreach (@files) {
        next if $_ eq '.' or $_ eq '..';
        my $file = "$dir\$_";
        
        if (-d $file) {
            if (!$is_loc) {
                ScanFold($file);
            }
            
        } else {
            
            my $file_valid = 0;
            
            #如果文件表达式为空，则判断文件是否为文本文件
            #否则用文件表达式去匹配 $_
            if ($file_exp eq '') {
                $file_valid = -T $file;
            } else {
                $file_valid = /$file_exp/i;
            }
        
             if ($file_valid) {
                
                if ($txt_exp ne '') {
                    my @text = &ScanFile($file);
                    
                    if ($#text >= 0 ) {  # $#text是最后一个数组元素的index
                        PrintFile($file, @text);
                    }
                    
                } else {
                    print color 'bold cyan';
                    print "$count $file
";
                    print color 'reset';
                                        
                    ++$count;
                    push(@scan_files, $file);
                }
             }
        }
        
    }
}

sub isnumeric {
    my $val = shift;
    ($val ^ $val) eq '0';    
}

sub Scan {

    $is_loc = &OnlyLocal(@_);
    
    $file_exp = &FileExp(@_);
    $txt_exp = &TxtExp(@_);
    
    $count = 0;
    
    if ($file_exp eq '' && $txt_exp eq '' && $#_==0) {
        $txt_exp = $_[0];
    }
    
    #print "file_exp:", $file_exp, "
";
    #print "txt_exp:", $txt_exp, "
";
    #print "###============================
";
    
    &ScanFold(".");
    
    print "如果想打开文件，则输入对应编号按回车
";
    
    my $num = <STDIN>;
    chomp $num;
 
    return if $num eq "";
        
    if ($num>=0 && $num<=$#scan_files) {
        my $path = getcwd;    #获取当前路径，用于获取文件的完整路径
        $path =~ s%/%\%g; #将/替换成
        
        my $file = $scan_files[$num];
        $file = substr($file, 1);  #去掉$file前面的.
        my $f = $path . $file;
         
        system "OpenInExplorer.exe $f";
    }    
    
}

sub Main {
    Scan @_;
}

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

@echo off
perl e:Toolsgrep.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=".appabout.h">
<File Releativepath=".appcpp.c">
</Filter>
<Files>

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

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

#
#使用方法：将些文件复制到要建立VS项目的文件夹内，用perl create_vs.pl运行此文件。
#           在运行前先vs_pre.txt复制到与create_vs.pl同目录下，这样就可以生成直接生成vcproj文件
#

use Win32::OLE;
use warnings;
use 5.010;

use XML::Simple;
use XML::DOM;

#use XML::Tidy;
use strict;
use Encode;

sub addFile;

my $parser = new XML::DOM::Parser;
my $doc    = $parser->parse('<Files/>');

#addFile( 2, 4 );
addFile( $doc->getDocumentElement(), '.' );
$doc->printToFile('file.xml');
$doc->dispose;

open file_out, ">temp.vcproj";
open file_in1, "vs_pre.txt";
open file_in2, "file.xml";

while(<file_in1>) {
    chomp($_);
    say file_out $_;
}
while(<file_in2>) {
    chomp($_);
    say file_out $_;
}
my $end ="     <Globals>
    </Globals>
</VisualStudioProject>";
say file_out $end;


#下面的格式正则代码有问题
#my $tidy = XML::Tidy->new( 'filename' => 'file.xml' );
#$tidy->tidy();
#$tidy->write();

sub addFile {
    my $node = shift;
    my $path = shift;

    opendir( DIR, "$path" );
    my @file = readdir(DIR);
    closedir(DIR);
    foreach (@file) {
        next if $_ eq '.' or $_ eq '..';
        my $file = "$path\$_";
        if ( -d $file ) {

            #print $file,"
";
            my $n = $doc->createElement('Filter');
            my $att = $doc->createAttribute( 'Name', $_ );
            $n->setAttributeNode($att);
            $node->appendChild($n);
            addFile( $n, $file );
        }
        else {
            my $s = substr( $file, rindex( $file, "." ) );
            print $s,"
";
            #只添加h,c文件
            if ( $s ~~ /[h|hpp|cpp]/) {
                my $n = $doc->createElement('File');
                my $att = $doc->createAttribute( 'RelativePath', $file );
                $n->setAttributeNode($att);
                $node->appendChild($n);
            }

        }
    }
    #如果这个节点上没有子节点，则将其去掉
    if ( !$node->hasChildNodes() ) {
        $node->getParentNode()->removeChild($node);
    }
}

<?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>

将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文件

my $one = $ARGV[0];
my $path = "e:\cpp_app\";
opendir(DIR, $path);
my @files = readdir(DIR);

foreach (@files) {
    next if $_ eq '.' or $_ eq '..';
        
    my $str = $path . $_ . "\" . ".git";
    if (-d $str) {
        my $s = $path . $_;

        say "

=============== now directory : $s";
        chdir $s;

        if ($one == 0) {
            system "git add .";
            system "git commit -a";
            system "git push";
        } elsif ($one == 1) {
            system "git pull";
        }
    }
}

建立pull.bat文件

echo off
perl git_syn.pl 1
pause

建立push.bat文件

echo off
perl git_syn.pl 0
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].*[^{]} :b*{  替换为 1{
• 给所有逗号后面都加上一个空格。查找部分为,{[^ ]}，替换为, 1

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

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

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