perl while loops

Question

Я знаю, как работает поиск в целом, и посмотрел на несколько других сообщений. Однако я все еще смущен. Как Иск работает точно, будет ли он читать с той же позиции, на которой он остановился?

while(my $line= <IN1>) 
{ 
    do something; 
    while(my $l= <IN2>) 
    { 
    do something; 
    seek IN1, 0, 1; 
    } 
} 

Будет ли это возвращаться к первому циклу и начинаться с того места, где оно остановилось ...? , а затем, если он вернется ко второму циклу, как я могу его прочитать, откуда он остановился ...?

Answer 1

Нет, он никуда не денется. Это seek не является оператором, потому что, согласно seek documentation, вы эффективно говорите ему «переместить 0 байт из текущей позиции». Если вам нужно отметить свою позицию в файле, а затем возобновить ее, вам необходимо получить ее с tell, а затем seek с WHENCE, установленным на SEEK_SET (0).

Пример:

use Fntl qw(SEEK_SET); # <- he knows exactly what SEEK_SET is on your system, though it is always 0, AFAIR. 
     
my $current_position = tell $file_handle; 
do_stuff_with_data_from(<$file_handle>); 
do_more_stuff_with_data_from(<$file_handle>); 
# rewind 
seek $fh, $current_position, SEEK_SET; 

Answer 2

Ручки собирается «вернуться», откуда они остановились в первую очередь, до тех пор, пока вы не открывать или закрывать их в петлю - и дон «т.

Если то, что вы хотите сделать, это остановить чтение со второго входа и прочитать с первого, тогда вы просто хотите выйти из внутреннего цикла. Поскольку вы не закрыли или не перезапустили IN2, он должен быть готов прочитать запись после того, как вы прочли ранее.

RCD_FROM_1: 
while(my $line= <IN1>) 
{ 
    do something; 
    RCD_FROM_2: 
    while(my $l= <IN2>) 
    { 
    do something; 
    last RCD_FROM_2 if some_condition(); 
    } 
} 

Вы также могли бы сделать что next RCD_FROM_1;

Если вы хотите, чтобы иметь возможность перечитать строки, то вы можете сделать записать tell в конце каждого цикла, так что вы можете перемотать и прочитать, что запись снова.

my $prev = 0; 
RCD_FROM_1: 
while(my $line= <IN1>) 
{  
    ... 

    $prev = tell(IN2); 
    RCD_FROM_2: 
    while(my $l= <IN2>) 
    { 
    do something; 
    if (some_condition()) { 
     die 'Could not reset handle' unless seek(IN2, $prev, 0); 
     last RCD_FROM_2; 
    } 
    $prev = tell(IN2); 
    } 

Я, вероятно, скорее всего буду буферировать последнюю запись обоих потоков локально.

Answer 3

Я думаю, что вы сбиты с толку от моего ответа на ваш previous question, который использовал seek, чтобы перемотать файл и прочитать его с самого начала.

Perl's seek не имеет отношения к while петлям. Он просто устанавливает позицию в файле, где будут считываться следующие данные. Я использовал его в своем решении, чтобы вернуть точку считывания в начало файла после того, как он был полностью прочитан.

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

У вас есть два файла, каждый с четырьмя строчными записями, которые имеют последовательность ДНК во второй строке. Вам нужен список всех последовательностей ДНК, которые отображаются в любом месте в и файлах, а также список тех последовательностей, которые находятся только в одном файле или другом.

Правильно ли это, пожалуйста, поднимите новый вопрос, который подробно объяснит вашу проблему. Вы пошли за конкретным решением, которое не решит вашу проблему, и попросил помощи, чтобы он работал.Если вы сообщите нам о проблеме вместо предлагаемого вами решения, мы сможем помочь вам намного лучше и не будем делать догадки об истинной ситуации.