perl + sed +删除以“#”开头的行

请指教

我有Linux和solaris机器,而且我需要在两个操作系统上工作的命令

我使用下面的perl行来删除所有以“#”开头的行,为什么perl命令不工作,

备注 – 还需要支持以空格或TAB开头的行,然后是“#”

perl -i -pe 'next if /^ *#/' file 

  more file # aa a # bbb #xxx 

这将在linux上工作,也许在solaris上

 sed -e '/^\s*#/d' file 

编辑 :如果\不支持,也许这将工作…

 sed -e '/^[ \t]*#/d' file 

要在文件中执行该操作,只需将-i添加到命令中即可

如果你不想在结果中连续多个空白行,只需通过uniqpipe道