如何使用Perl读取文件中两行之间的所有行？

Question

我有一个文件的内容如下:

pch
rch
channel
cap
nch
kappa
.
.
.
kary
ban
....

现在我想从nch读取我的文件到kary并仅在其他文件中复制这些行.我怎么能在Perl中做到这一点？

Answer 1

如果我理解你的问题,这很简单.

    #!perl -w
    use strict;
    use autodie;

    open my $in,'<',"File1.txt";
    open my $out,'>',"File2.txt";

    while(<$in>){
    print $out $_ if /^nch/ .. /^kary/;
    }