Чтение системных файлов с помощью Perl без дополнительных системных вызовов поиска при открытии

Как вы заметили, встроенный в Perl open маскирует довольно много магии. Если эта магия мешает вам, есть sysopen и POSIX::open(), которые предлагают пониженную степень магии. POSIX::open() в достаточной мере немагический, поскольку возвращает файловые дескрипторы, а не дескрипторы файлов Perl, и для получения данных из него приходится использовать POSIX::read() вместо обычных операторов Perl. Если это недостаточно грубо для ваших обстоятельств, вам может не повезти.

Модуль POSIX является частью основного дистрибутива Perl с самого первого выпуска Perl 5, поэтому, если у вас его нет, ваша установка Perl будет повреждена.

Если вы хотите перейти на очень низкий уровень и избежать даже mmap из POSIX::open() (а также избежать загрузки огромного модуля POSIX), выполните syscall() самостоятельно. Вероятно, вы захотите require syscall.ph получить значения SYS_open и SYS_read, если вы их не знаете (для меня я знаю, что read, write и open равны 0,1,2 соответственно — это важно для знать для функции syscall ниже).

Следующий код:

strace perl -mPOSIX -e'$fd=POSIX::open("/proc/loadavg");POSIX::read($fd, 
$_, 9999);' 2>&1 | egrep -A2 '^open.*loadavg'

дает что-то вроде (для меня open() это openat())

openat(AT_FDCWD, "/proc/loadavg", O_RDONLY) = 3
mmap(NULL, 135168, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) =             
0x7f2389f0d000
read(3, "1.22 2.51 1.54 3/206 18145\n", 9999) = 27

Попробуйте что-то вроде этого:

strace perl -MFcntl -E'$p="/proc/loadavg"; $fd=syscall 2, $p, O_RDONLY; $bf = 
"\0"x50; syscall 0, $fd, $bf, 50' 2>&1 | egrep -A1 '^open.*loadavg'

и получить:

open("/proc/loadavg", O_RDONLY) = 3
read(3, "0.45 0.18 0.20 2/241 12349\n", 50) = 27

EDIT:
Относительно комментарий от @osgx,

В конце чтения есть специальный символ \0. Как я могу разобрать многострочный из POSIX::read, теперь нет while(<FILE>).

Обратите внимание, что когда вы 'while(<FILE>)', вы на самом деле просто вызываете read() по одному байту за раз и проверяете '\n' char - или что-то еще, на что установлен ваш $/ (разделитель входных записей) (вы можете подтвердить это через strace).

Таким образом, простого цикла для проверки $/ может быть достаточно. (Обратите внимание, что read() в случае успеха возвращает количество прочитанных байтов (0 указывает на EOF). Вот грубый пример одного "readline":

require 'syscall.ph';
require Fcntl;
my($path, $fd, $buf, $res);
$path = '/proc/meminfo';
$fd = syscall SYS_open(), $path, O_RDONLY;
$buf = ' ';
$res = '';
$res .= $buf while syscall SYS_read(), $fd, $buf, 1 and $buf ne $/;
syscall SYS_close(), $fd; # optional in this case

Просто имейте в виду, что если вы стремитесь к переносимости любого вида, syscalling, вероятно, является одним из худших вариантов, но это цена специфичности. (POSIX::open/read/close() в этом смысле тоже ненамного лучше.). Для обеспечения переносимости вам может быть лучше использовать комментарий @ikegami (‹:unix) и игнорировать дополнительные вызовы fstat и fcntl;