perl 中使用map正则替换的问题

whn3375

print map { (split)[6] . "\n" } grep {/from=</ && /6 09:/} sed {s/from=<\(.*\)>/\1/} <FILE>;

编译出现
can't call method "sed" without a package or object reference at ...

sed的用法错在了哪里？

[ 本帖最后由 whn3375 于 2007-3-6 12:39 编辑 ]

兰花仙子

原帖由 whn3375 于 2007-3-6 10:13 发表
print map { (split)[6] . "\n" } grep {/from=</ && /6 09:/} sed {s/from=<\(.*\)>/\1/} <FILE>;

编译出现
can't call method "sed" without a package or obj ...

print map { (split)[6] . "\n" } grep ,{/from=</ && /6 09:/} sed {s/from=<\(.*\)>/\1/} <FILE>;

寒...Perl中有sed么?
你这句该这样写:

map {  (split)[6] . "\n" } grep {/from=</ && /6 09:/} map { s/from=<\(.*\)>/$1/ } <FILE>;

whn3375

以为可以和grep一样用呢！汗！
仙子，grep后面没有逗号吧？这次编译通过了，就是print不出来结果啊！后面的替换还是有问题，去掉的话就有加上from=< 的输出。

兰花仙子

原帖由 whn3375 于 2007-3-6 10:25 发表
以为可以和grep一样用呢！汗！
仙子，grep后面没有逗号吧？这次编译通过了，就是print不出来结果啊！后面的替换还是有问题，去掉的话就有加上from=< 的输出。

把=号和<号等全部用\转义看看咯.
另外结果你要自己用print打印出来,我那句前面没加print的...

whn3375

这个这个，regex中应该没有问题的，不过还是把=号和<,>号转了一下，还是不成。晕啊！！

whn3375

print没有漏掉欧！我哭！

Namelessxp

不如去写shell脚本

whn3375

shell脚本没问题，现在想试试用perl，那位大虾可以指教一下。后面还要用到类似uniq的功能，还没试呢，就卡在这里了。

兰花仙子

原帖由 whn3375 于 2007-3-6 11:52 发表
shell脚本没问题，现在想试试用perl，那位大虾可以指教一下。后面还要用到类似uniq的功能，还没试呢，就卡在这里了。

为什么不自己try下呢?思路偶已经写出了,谁知道你的具体情况是什么样???
等着别人给代码是很不好的习惯!

jacksting

原帖由 兰花仙子 于 2007-3-6 12:17 发表

为什么不自己try下呢?思路偶已经写出了,谁知道你的具体情况是什么样???
等着别人给代码是很不好的习惯!

嘿嘿，仙子生气了，后果很严重。
如果非要用sed，那就用``好啦。
但是这样不如就用bash，没必要挂perl头卖shell肉。