怎么提取perl匹配上的字符串
1个回答
展开全部
#!/usr/bin/perl
open(FH,"A")||die "Cannot open the file!\n";
my @array=grep (/DL.*/,<FH>);
close(FH);
$len=$#array;
for($i=0;$i<$len;$i++)
{
open(FH,">>B")||die "Cannot open the file!\n";
syswrite(FH, "$arry[$i]\n");
close(FH);
}
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
