Как напечатать вывод в тот же файл, из которого вы читаете в perl?

Question

У меня есть скрипт perl, который читает файл, изменяет нужную вещь и затем печатает вывод файла на консоли. Я хочу, чтобы вывод обновлялся в том же файле, откуда он собирает данные.

Как это можно сделать?

Answer 1

Вы можете использовать переключатель -i или специальную переменную $^I.

perl -i.backup -pe 's/change me/something else/'

или

#!/usr/bin/perl
use warnings;
use strict;

$^I = '.backup';
while (<>) {
    ...
    print;
}

Обратите внимание, что он работает только для специального дескриптора файла *ARGV используется алмазным оператором. В любом случае, он создает новый файл за сценой.

См. perlrun и perlvar .