remove_blank_lines.perl

来自「C语言前端编译器,yacc/lex编写,可自行修改代码.」· PERL 代码 · 共 9 行

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

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