praat_module/WhatsNew.pl

   1 #!/opt/local/bin/perl
   2
   3 # Copy man page form to man page
   4 `cp ../ManPages/What_s_new_in_SpeakGoodChinese_.txt ../ManPages/What_s_new_in_SpeakGoodChinese_.man`;
   5 open(MANPAGE, ">>../ManPages/What_s_new_in_SpeakGoodChinese_.man");
   6 open(GITLOG, "git log|" || die "git log: $!\n");
   7 while(<GITLOG>) {
   8         chomp;
   9         if(m/^Date\:\s*(.*) +/){
  10                 $d = $1;};
  11                 s/^\s+//g;
  12                 if(s/Feature:\s*//g){
  13                         print MANPAGE "<list_item> \"\\bu $_ ($d)\"\n"
  14                 };
  15 };