UC知道perl 的grep函数的用法
来源：百度知道 编辑：UC知道 时间：2024/06/21 00:42:24
grep BLOCK LIST
grep EXPR, LIST
其中list可不可以是一个句柄，比如：
open（FH,"源文件路径"）；
open（SH，“目标文件路径”）；
@a=grep /\s（.*）\/m/,FH;
print SH @a;
想要输出匹配 **/m形式的词语，并输出到目标文件中。
这种写法好像不对，怎么才能实现呢？
grep EXPR, LIST
其中list可不可以是一个句柄，比如：
open（FH,"源文件路径"）；
open（SH，“目标文件路径”）；
@a=grep /\s（.*）\/m/,FH;
print SH @a;
想要输出匹配 **/m形式的词语，并输出到目标文件中。
这种写法好像不对，怎么才能实现呢？
不可以使用句柄的，可以使用数组，例子程序：
open（FH,"源文件路径");
@b=<FH>;
close(FH);
open(SH,"目标文件路径");
@a=grep {/\s（.*）\/m/} @b;
print SH @a;
close(SH);