В Perl, как я могу считать весь файл в строку?

Все сообщения немного неидиоматичны. Идиома такая:

open my $fh, '<', $filename or die "error opening $filename: $!";
my $data = do { local $/; <$fh> };

В большинстве случаев нет необходимости устанавливать для $ / значение undef .

С File :: Slurp :

use File::Slurp;
my $text = read_file('index.html');

Да, даже вы можете использовать CPAN .

Я бы сделал это так:

my $file = "index.html";
my $document = do {
    local $/ = undef;
    open my $fh, "<", $file
        or die "could not open $file: $!";
    <$fh>;
};

Обратите внимание на использование версии open с тремя аргументами. Это намного безопаснее, чем старые версии с двумя (или одним) аргументами. Также обратите внимание на использование лексического дескриптора файла. Лексические дескрипторы файлов лучше, чем старые варианты с голым словом, по многим причинам. Здесь мы пользуемся преимуществом одного из них: они закрываются, когда выходят из поля зрения.

Простой способ:

while (<FILE>) { $document .= $_ }

Другой способ - изменить разделитель входной записи «$ /». Вы можете сделать это локально в пустом блоке, чтобы избежать изменения глобального разделителя записей.

{
    open(F, "filename");
    local $/ = undef;
    $d = <F>;
}

Из perlfaq5: Как я могу прочитать весь файл сразу? :

Вы можете использовать модуль File :: Slurp, чтобы сделать это за один шаг.

use File::Slurp;

$all_of_it = read_file($filename); # entire file in scalar
@all_lines = read_file($filename); # one line per element

Обычный подход Perl для обработки всех строк в файле состоит в том, чтобы делать это по одной строке за раз:

open (INPUT, $file)     || die "can't open $file: $!";
while (<INPUT>) {
    chomp;
    # do something with $_
    }
close(INPUT)            || die "can't close $file: $!";

Это намного эффективнее, чем чтение всего файла в память в виде массива строк с последующей обработкой одного элемента за один раз. время, что часто - если не почти всегда - является неправильным подходом. Каждый раз, когда вы видите, что кто-то делает это:

@lines = <INPUT>;

, вы должны хорошо подумать, зачем вам нужно все загружать сразу. Это просто не масштабируемое решение. Вам также может быть интереснее использовать стандартный Tie :: Файловый модуль или привязки $ DB_RECNO модуля DB_File, которые позволяют привязать массив к файлу, чтобы при доступе к элементу массив фактически обращался к соответствующей строке в файле.

Вы можете прочитать все содержимое дескриптора файла в скаляр .

{
local(*INPUT, $/);
open (INPUT, $file)     || die "can't open $file: $!";
$var = <INPUT>;
}

Это временно отменяет определение разделителя записей и автоматически закрывает файл при выходе из блока. Если файл уже открыт, просто используйте это:

$var = do { local $/; <INPUT> };

Для обычных файлов вы также можете использовать функцию чтения.

read( INPUT, $var, -s INPUT );

Третий аргумент проверяет размер байта данных на файловом дескрипторе INPUT и считывает это количество байтов в буфер $ var.

{
local(*INPUT, $/);
open (INPUT, $file)     || die "can't open $file: $!";
$var = <INPUT>;
}

Это временно отменяет определение разделителя записей и автоматически закрывает файл при выходе из блока. Если файл уже открыт, просто используйте это:

$var = do { local $/; <INPUT> };

Для обычных файлов вы также можете использовать функцию чтения.

read( INPUT, $var, -s INPUT );

Третий аргумент проверяет размер байта данных на файловом дескрипторе INPUT и считывает это количество байтов в буфер $ var.

{
local(*INPUT, $/);
open (INPUT, $file)     || die "can't open $file: $!";
$var = <INPUT>;
}

Это временно отменяет определение разделителя записей и автоматически закрывает файл при выходе из блока. Если файл уже открыт, просто используйте это:

$var = do { local $/; <INPUT> };

Для обычных файлов вы также можете использовать функцию чтения.

read( INPUT, $var, -s INPUT );

Третий аргумент проверяет размер байта данных на файловом дескрипторе INPUT и считывает это количество байтов в буфер $ var.

Вы получаете только первую строку от оператора ромба , потому что вы оцениваете ее в скалярном контексте:

$document = <FILE>; 

В контексте списка / массива, оператор ромба вернет все строки файла.

@lines = <FILE>;
print @lines;