从文件获取某一特定行的前面一行

hubenxia

#!/usr/bin/perl -w
open OUT1,">out1.txt";
open IN1,"<1.txt";
my @seq;
while (<IN1>) {
        chomp;
        push @seq,$_;
}
for ($i=0;$i<@seq;$i++) {
        if ($seq[$i]=~/^\./) {
                print "$seq[$i-1]\n";
                print OUT1 "$seq[$i-1]\n";

        }
}
close IN1;
close OUT1;