perl 如何在指定行插入字符串?

Question

比如:
1 aaaaaa
2 bbbbb
3 .........
. .........
n .........
我想在X行插入lala,怎么做?

Answer 1

做个marker，从文件中每读入一行就让marker加1.当marker跟你的x行相同的时候。插入你需要插入的内容。
举个简单的例子：
open IN,"f:/a.txt"||die $!; #读入文件
open OUT,">f:/b.txt"||die $!; #输出文件
$marker=0;
$x=5; #要插入的行
while(<IN>){
$marker++;
if($marker==5){
print OUT "5\tlala\n";
}
print OUT $_;
}
当然你可把他写成一个函数，传参进去，那样更加灵活。希望有帮助~~。

追问

open IN,"f:/a.txt"||die $!; #读入文件
open OUT,">f:/b.txt"||die $!; #输出文件
$marker=0;
$x=5; #要插入的行
while(){
$marker++;
if($marker==5){
print OUT "5\tlala\n";
}
print OUT $_; #这行是什么意思??
}

文中倒数第2行是什么意思?
输出文件和原来的文件不是同一个吗?

追答

嗯 是同一个啊。不是同一个的话，你不就把你原来的数据删掉了吗？只是在原来的基础上在特定的位置上插入一条啊。你要的不就是往里面插入一条数据吗？难道我理解错了~~？？你可以先运行下嘛。如果不对再讨论讨论~呵呵呵

追问

是这样的:如果我原来是:1 2 3 4 5 运行后变成 1 2 3 4 5 1 2 3 4 5 lala 前面的是我原本的资料,后面是把原来的和新增的一起输出了~``~ 等于说原来的资料多了一份! 你知道有没有>> 到指定行的?

追答

呵呵 我想我理解错了，我以为只需要输出1 2 3 4 5 lala就OK，不好意思。如果是这样的话你就在上面的循环开始前，加一个文件复制吧。像楼下说的那样把文本放在一个数组中，连着输出两次就行了。第一不要加判断语句直接输出，第二次加个判断语句然后输出就OK了。

Answer 2

我只会这么个笨方法：
假设x=5 原数据在test.txt中
$string="lalala\n";
open(IN,"test.txt")||die"Can't open\n";
@array=<IN>;
close(IN);
for($i=0;$i<scalar(@array);$i++)
{
if($i!=5)
{
push(@arr,$array[$i]);
}
else
{
push(@arr,$string);
}
}
print @arr;

Answer 3

#! usr/bin/perl
my $row=n; #------n就是你设的第几行
my $i=1;
open IN,"< 1.txt"; #--源文件
open OUT,"> out.txt" #-----输出文件
while(<IN>){
print OUT $_ if($i != $row);
print OUT "$_\nlala\n" if($i == $row);
$i++;
}
close IN;
close OUT;

追问

能不能在同一个文件中进行操作