Оконный Perl-скрипт для добавления в каждую строку текстового файла

Question

Я хотел бы знать, как добавить в текстовый файл, используя Perl в этом состоянии.

У меня есть текстовый файл, содержание которого:

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

У меня есть переменная в цикле, как это

для 1-го цикла:

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

для 2-го цикла:

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

Я хотел бы иметь результат в текстовом файле

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

Как я могу это сделать?

Answer 1

Вы не очень хорошо описали свою проблему и, похоже, игнорируете запросы на дополнительную информацию. Тем не менее, вот программа, которая соответствует вашему описанию и может помочь вам

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

выход

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