请问一下，shell 中的sed 和perl 正则表达式中的

zhangkeyijian

shell 中的sed 和perl 中的替换功能s/// 的问题
例：
s,^,'$( cat file1 )'                  （shell）

perl 中能不能实现$(cat file1)这样的功能。

谢谢各位了。

[ 本帖最后由 zhangkeyijian 于 2007-3-30 19:37 编辑 ]

ulmer

原帖由 zhangkeyijian 于 2007-3-30 19:16 发表
shell 中的sed 和perl 中的替换功能s/// 的问题
例：
s,^,'$( cat file1 )'                  （shell）

perl 中能不能实现$(cat file1)这样的功能。

谢谢各位了。

perl is most likely as sed -e "/foo/`cat file1`/" file2:
# same as sed, to use backt stick "`" operator to call cat
perl -ne "s/foo/`cat file1`/; print" file2

-- ulmer

zhangkeyijian

谢谢