bin/crlf_trim_blanks.pl

   1 #! /usr/bin/perl
   2 #
   3 # $Id: crlf_trim_blanks.pl,v 1.3 2006/03/31 15:02:16 mdk Exp $
   4 # See also: JF.rules
   5 #
   6 # ¡¦Ï¢Â³¤·¤¿¶õ¹Ô¤ò¤Ò¤È¤Ä¤Ë¤Þ¤È¤á¤ë.
   7 # ¡¦¹ÔËö¤ò CRLF ¤Ë.
   8 # ¡¦groff 1.18.1 ¤Î½ÐÎÏ¤¹¤ë¥¨¥¹¥±¡¼¥×¥·¡¼¥±¥ó¥¹ (¥Ü¡¼¥ë¥É) ¤òºï½ü
   9 #  ¤¹¤ë¤è¤¦¤Ë. ËÜÍè¤Ï linuxdoc-tools Â¦¤Ç½¤Àµ¤¹¤Ù¤ (2006-03-31).
  10
  11 $blank_line = 0;
  12 while (<>) {
  13   if (/^$/) {
  14     next if $blank_line;
  15     $blank_line = 1;
  16   } else {
  17     $blank_line = 0;
  18   }
  19   s/\e\[[01]m//g; # for groff 1.18.1
  20   chomp;
  21   print;
  22   print "\r\n";
  23 }