Блог

У меня возникли некоторые проблемы с массивом, как последовательно читать строку массива из входных данных. Вот мой код.

sites.txt : (входной файл)

 site1
site2
site3
  

программа

 #!/usr/bin/perl


my $file = 'sites.txt';
open(my $fh, '<:encoding(UTF-8)', $file)
     or die "Couldn't open file !'$file' $!";

my @rows = <$fh>;
chomp @rows;
foreach my $site (@rows) {
    $sitename    = $site;
    @domains     = qw(.com .net .org);
    foreach $dns (@domains){
        $domain = $dns;
        print "$site$dnsn";
    }
}
  

и результат выглядит следующим образом

 site1.com
site1.net
site1.org
site2.com
site2.net
site2.org
site3.com
site3.net
site3.org
  

Я понимаю до этого момента, но я хочу сделать это первым элементом массива из @domains
сначала читаем до конца входной строки,
затем возвращаемся к 1-й строке ввода и переходим к следующему элементу массива, чтобы
вывод был бы таким,

 site1.com
site2.com
site3.com
site1.net
site2.net
site3.net
site1.org
site2.org
site3.org
  

возможно ли это? или нужен другой модуль.извините за основной вопрос
Я буду очень признателен за ответы.
спасибо 🙂

Вы перебираете все свои сайты, а затем (для каждого сайта) добавляете домен к текущему сайту.

В псевдокоде это:

 foreach site
    foreach domain
       print site   domain
  

Поменяйте местами ваши циклы, чтобы логика была

 foreach domain
    foreach site
        print site   domain
  

Обратите внимание, что это псевдокод, а не Perl.

В «реальном» Perl это выглядело бы как:

 #!/usr/bin/env perl

use strict;
use warnings;

my $file = 'sites.txt';
open( my $fh, '<:encoding(UTF-8)', $file )
  or die "Couldn't open file !'$file' $!";

my @rows = <$fh>;
chomp @rows;

my @domains = qw(.com .net .org);

foreach my $dns (@domains) {
    foreach my $site (@rows) {
        print "$site$dnsn";
    }
}
  

Вывод

 site1.com
site2.com
site3.com
site1.net
site2.net
site3.net
site1.org
site2.org
site3.org
  

Пожалуйста, всегда включайте use strict; и use warnings; поверх ваших скриптов. Эти два оператора покажут вам наиболее распространенные ошибки в вашем коде.