Help for this page

Select Code to Download


  1. or download this
    open(FILE, 'file') || die("Yaroo!\n");
    my $N = 3; # 3 lines above and below
    ...
        shift @window;
        print @window, "\n\n" if($window[$N] =~ /$target/);
    }