Question

用perl实现，怎样保留“+”前两行的内容最后输出

这一个文档总共提取了1000行

Answer 1

open F, "F:/1.txt"; #1.txt是你画面上那个文件
@array=<F>;

$count=-1;
foreach $hang(@array) {
$count++;
if ($hang=~/^\+$/) { $c=$count; $a=($c-2); $b=($c-1);
print "$array[$a]";
print "$array[$b]\n";}}

满意的话给我多加点分吧~

Answer 2

题意不明。。。

追问

比如说总共有1、2、3、4、5、6、7、8、9、10·················1000行，现在编一个perl程序输出1、2、5、6、9、10············行