Assembly language je jump function

Моя цель в этом вопросе состояла в том, чтобы заблокировать файл, используемый в качестве хранилища данных для нескольких сценариев. В конце я привык подобный код для следующего (от Chris):

open (FILE, '>>', test.dat') ; # open the file 
flock FILE, 2; # try to lock the file 
# do something with the file here 
close(FILE); # close the file

В его примере я удалил ФАЙЛ скопления, 8, поскольку близкое (ФАЙЛ) выполняет это действие также. Настоящая проблема состояла в том, когда сценарий запускается, это должно содержать текущий счетчик, и когда это заканчивается, это должно обновить счетчик. Это - то, где Perl имеет проблему, для чтения файла Вы:

 open (FILE, '<', test.dat');
 flock FILE, 2;

Теперь я хочу выписать результаты и так как я хочу перезаписать файл, который я должен вновь открыть и усечь который результаты в следующем:

 open (FILE, '>', test.dat'); #single arrow truncates double appends
 flock FILE, 2;

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

open (LOCK_FILE, '<', test.dat.lock') or die "Could not obtain lock";
flock LOCK_FILE, 2;
open (FILE, '<', test.dat') or die "Could not open file";
# read file
# ...
open (FILE, '>', test.dat') or die "Could not reopen file";
#write file
close (FILE);
close (LOCK_FILE);