求教：用perl脚本如何将文本中的2行代码合并为1行？

frankhyk

自己试着写了个将2行合为1行的脚本，总觉得有些啰嗦，
请教版上大侠有没有更简单直接的方法？


@ARGV="hadisi.pl";
$^I="";
while(<>)
{
if($.==6)
{
  chomp($string1=$_);
  #print("string1 = $string1\n");
}
elsif($.==7)
{
  $string2=$_;
  #print("string2 = $string2\n");
  print($string1 . $string2);
}
else
{
  print;
}
}