在perl中向行追加文本

我把这些行归档了

VSSC!.extra181 + NET VSSC!

+ DIRECTION INOUT
+ USE GROUND
+ LAYER BA ( 0 0 ) ( 1500 80870 )
+ PLACED ( 1151560 1571000 ) N ;

我需要把第三行复制到第一行的末尾。有30000个类似的案例，所以我只需要知道如何为一个这样我就可以为其他人重复

`open (FILE, $filetoget) or die $!
while (<FILE>)
{if($_=~m/regular expression to catch the third line/)
{@array=$_; $line=~s/\!$/ .@array/; print $Line; } `enter code here`

`open（FILE，$filetoget）或die$！
而（）
{if（$\ux=~m/正则表达式以捕获第三行/）
{@array=$\u；$line=~s/\！$/.@array/；print$line；}`在此处输入代码`

---

我没有得到附加的部分。

这只需使用模块即可完成

只需将一个数组绑定到文件，并将第三个数组元素附加到第一个数组元素

看起来是这样的。程序希望文件名作为命令行上的参数进行修改

use strict;
use warnings;

use Tie::File;

tie my @file, 'Tie::File', $ARGV[0] or die $!;

$file[0] .= $file[2];

输出

---

你打算修改文件，还是只打印文件的内容？Dummy“请为我编写正则表达式”代码不是真正的MCVE。@hakon haegland…我正试图将每三行附加到第一行…我有30000个类似的情况…谢谢你borodin…但我有另一个问题…我如何概括它？我有很多这样的行…如果我使用for循环，我会出错。。。。。

VSSC!.extra181 + NET VSSC!+ DIRECTION INOUT

+ DIRECTION INOUT
+ USE GROUND
+ LAYER BA ( 0 0 ) ( 1500 80870 )
+ PLACED ( 1151560 1571000 ) N ;