在 perl 中将文件保存在内存中，同时像文件句柄一样使用它们

Question

我有一个需要修改的 perl 脚本。该脚本打开、读取和查找两个大 (ASCII) 文件（它们的大小为几 GB）。由于它做了很多，我想将这两个文件完全放入 RAM。在不大量修改脚本的情况下执行此操作的最简单方法是将文件加载到内存中，以便我可以将生成的变量视为文件句柄 - 例如使用 seek 来获取特定的字节位置.在 perl 中可以吗？

更新：按照建议使用 File::Slurp 仅适用于小文件。如果文件大于约 2GB，则不起作用。

最小示例：

#!/usr/bin/env perl
use strict;
use warnings;
use Tie::File;
use File::Slurp 'read_file';

my $fn="testfile";

#buffer, then open as file, read first line:
read_file($fn, buf_ref => \my $file_contents_forests) or die "Could not read file!";
my $filehandle;
open($filehandle, "<", \$file_contents_forests) or die "Could not open buffer: $!\n";
my $line = "the first line:".<$filehandle>;
print $line."\n";
close($filehandle);

#open as file, read first line:
open( FORESTS,  "<",$fn) or die "Could not open file.\n";
my $line = "the first line:".<FORESTS>;
print $line;
close(FORESTS);

如果文件大小

Answer 1

读入文件：

use File::Slurp 'read_file';
read_file( "filename", buf_ref => \my $file_contents );

并打开它的文件句柄：

open my $file_handle, '<', \$file_contents;