Блог

У меня есть программа, которая получает данные из канала содержимого тестового файла ( cat file ). Обычно я использую оператор diamond для получения данных построчно из STDIN, до последней строки. Проблема в том, что я хотел бы повторно использовать одни и те же данные для более чем одной подпрограммы. Как можно сбросить чтение STDIN, чтобы данные можно было снова прочитать с первой строки?

 sub downloadsrt {
    print "Printing list of subtitle files in downloadable form..n";
    while (<>) {
        chomp($_);
        (my $fname,my $path, my $suffix) = fileparse($_);
        $_=$fname;
        my ($name, $ext) = $fname =~ /(.*).(.*)/;  
        #For srt
        my $newfile=$path.$name.".$ext";
        $newfile =~ s/s/ /g; 
        $newfile =~ s//root/http://$localip/;
        print $newfile."n";
    }
}
sub dummysub {
    while (<>) {
        // Something else
    }
}

downloadsrt;
dummysub;
  

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

Если я не ошибаюсь, это не лексически ограничено.

Как было предложено @mpapec, вам необходимо сохранить данные из STDIN в массив:

 my @stdin = <>;
mysub_1(@stdin);
mysub_2(@stdin);