请教一个perl来实现sed匹配字符串的问题

请教一个perl来实现sed匹配字符串的问题

请教一个perl来实现sed匹配字符串的问题
如果我想把一个文件内含abc字符串的一行取出来
sed -n -e '/abc/p' filename

在perl里怎样才能不用open这个文件,直接获取这个文件中含abc字符串的一行
并赋给一个变量$string呢?

多谢!
可不可以用system "sed ...
可不可以用system "sed .." 来实现呢? 然后把得到的数据传给变量

或则open文件也可以,能否不用
while(<FILE>) 来一行一行的读的方法来匹配,而是直接得到?
已经解决
已经解决