忽略perl中的空行？

Question

我正在尝试为Xcode编写一个Automator shell脚本,以使我的导入列表独一无二.诀窍是,我不希望它们排序.所以我发现这个perl魔法几乎完美无缺:

# Print all unique lines
perl -ne 'print unless $a{$_}++'

唯一的问题是它删除了我的#imports之间的所有空格.我喜欢按功能对进口进行分组......

//Model  
#import This.h
#import That.h

// ViewControllers
#import ThisView.h
#import ThatView.h

......所以我想保留空间.

上述咒语会有一些变化会忽略空格吗？如果没有,是否有其他方式影响这个？

Answer 1

像这样的东西:

perl -ne 'print unless /\S/ && $a{$_}++'

"打印除非该行包含非空白字符并且已存在于您的哈希中"