Настройка NFS openmediavault в Ubuntu 17.10

Путь perl, легко понять:

#!/usr/bin/perl
$filename1=$ARGV[0];
$filename2=$ARGV[1];

open(my $fh1, "<", $filename1) or die "cannot open < $filename1: $!";
open(my $fh2, "<", $filename2) or die "cannot open < $filename2: $!";

my @array1;
my @array2;

while (my $line = <$fh1>) {
  chomp $line;
  push @array1, $line;
}
while (my $line = <$fh2>) {
  chomp $line;
  push @array2, $line;
}

for my $i (0 .. $#array1) {
  print @array1[$i].@array2[$i]."\n";
}

Начать с:

./merge file1 file2

Выход:

foobar
icecream
twohundred
0
задан 27 February 2018 в 21:40

0 ответов

Другие вопросы по тегам:

Похожие вопросы: