Perl 删除空白行或空格

1.删除所有空白行

perl -ne  'print if s/^\s*//p'

perl -ne 'print unless /^$/'

perl -ne 'print if /./'

2.删除行首空格

perl -ne  'print if s/^ *//p'

perl -pe 's/^\s+//'