remove_blank_lines.perl

C语言前端编译器,yacc/lex编写,可自行修改代码.

#!/usr/bin/env perl
BEGIN{ $^W=1 }

while (<>) {
  if (/\S+/) {
    print;
  }
}