Как мне обрезать, создавать, писать и перемещать файлы в Perl?

Question

Возможно ли сделать это в Perl?

• обрезать файл, если он уже существует, и
• создать,
• записать и
• перемещение курсора в конец для добавления

Answer 1

да см. искать ,

seek FILEHANDLE,POSITION,WHENCE

Устанавливает позицию FILEHANDLE, как вызов fseek stdio. FILEHANDLE может быть выражением, значение которого дает имя дескриптора файла. Значения WHENCE: 0 для установки новой позиции в байтах на POSITION, 1 для установки на текущую позицию плюс POSITION и 2 для установки на EOF плюс POSITION (обычно отрицательное значение). Для WHENCE вы можете использовать константы SEEK_SET, SEEK_CUR и SEEK_END (начало файла, текущая позиция, конец файла) из модуля Fcntl. Возвращает 1 в случае успеха, 0 в противном случае.

Answer 2

Это все в perlfunc .Perl в основном использует те же вещи, что и C.

• open открывает файлы различными способами.
• truncate усекает файлы.
• seek перемещается в файлах.

Answer 3

Использование режима ">" для открытия :

# the file is truncated and opened for output, being created if necessary.
open my $fh, '>', "file" or die $!;

# output to the file
print $fh "Line1\n";
print $fh "Line2\n";