perl删除空白行或空格的方法

一、删除所有空白行
perl -ne  'print if s/^s*//p'
perl -ne 'print unless /^$/'
perl -ne 'print if /./'

二、删除行首空格
perl -ne  'print if s/^ *//p'
perl -pe 's/^s+//'