Window Perl脚本，用于附加到文本文件的每一行

Question

我想知道在这种情况下如何使用Perl附加到文本文件。

我有一个文本文件，其内容是：

apple,123,456,orange      
cat,789,lion

我在这样的循环中有一个变量

for 1st loop：

my $text1 = "hi"
my $text2 = "go"

第二次循环

：

my $text1 = "banana"
my $text2 = "car"

我想将结果放在文本文件

中

apple,123,456,orange,hi,banana      
cat,789,lion,go,car

我该怎么做？

Answer 1

您还没有很好地描述您的问题，似乎忽略了对其他信息的请求。但是，这是一个与您的描述相符的程序，可以帮助您

int posNew =Arrays.asList(board).indexOf(view.getId())

输出

use strict;
use warnings;

my @extra = (
    [qw/ hi go /],
    [qw/ banana car /],
);

my @data = <DATA>;
chomp @data;

for ( @extra ) {
  my ($text1, $text2) = @$_;
  $data[0] .= ",$text1";
  $data[1] .= ",$text2";
}

print "$_\n" for @data;

__DATA__
apple,123,456,orange
cat,789,lion