复制除标识符之外的两个字符串

Question

我想读取两个字符串之间的数据并粘贴到新文件....

open ($gen_xml,">test.xml") or die "can not open file $gen_xml : $!\n" ;

$i='start';
$j='end';
while($line = <$fh>){
    if ($line =~ /$i/../$j/) 
        { print $gen_xml $line; }
}

Answer 1

只需在代码上方的print语句

上添加以下两行

$line=~s/$i//;
$line=~s/$j//;