Perl не идет об ошибках в разделе

Question

У меня есть заявление на Perl, как один ниже

seek DCMFReport.txt, $offset, 0 or die "Report seek error, offset:$offset - $!"; 

Когда он попадает в указанную выше строку, я получаю сообщение об ошибке «аргумент», но я не вижу текст штамп распечатан. Я ожидал увидеть ошибку «Ошибка запроса ...». Означает ли это, что код не попал в раздел штампа, несмотря на то, что в заявлении была сделана ошибка?

Answer 1

Потому что seek ожидает файловый дескриптор, который вам нужен до open файла в первую очередь. Имя файла не совпадает с файловым дескриптором.

use strict; 
use warnings; 

my $offset = 1; 

open my $fh, '<', 'DCMFReport.txt' or die $!; 
seek $fh, $offset, 0 or die "Report seek error, offset:$offset - $!"; 

---

Это даст вам сообщение о or die ошибки, если вы используете строку в качестве первого аргумента, поскольку seek операция не как значение не является дескриптор файла. Это нечто другое, как передача чего-то, чего не существует.

В документации сказано:

FILEHANDLE может быть выражением, значение которого дает имя дескриптором.

Строка - это выражение, поэтому она пытается работать с дескриптором файла с этим именем.