如何在Perl中将图像或文本文件转换为字节数组？

如何在不使用任何外部库的情况下将图像、文本、PDF或该实例的任何文件转换为Perl中的字节数组？

要打开文件，请指定：raw以二进制形式读取。或任何其他方法读入缓冲区，因此需要将其转换为字节

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

my $file_name = shift;

my @byte_array;
open my $fh, '<:raw', $file_name or die $!;
while (read $fh, my $buffer, 16384) {
        push @byte_array, unpack 'c*', $buffer;
}
print 'Size: ', scalar @byte_array, "\n";

用于打开文件，指定：raw以二进制形式读取。或任何其他方法读入缓冲区，因此需要将其转换为字节

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

my $file_name = shift;

my @byte_array;
open my $fh, '<:raw', $file_name or die $!;
while (read $fh, my $buffer, 16384) {
        push @byte_array, unpack 'c*', $buffer;
}
print 'Size: ', scalar @byte_array, "\n";

---

谢谢你的这个片段。我正在努力解决这个问题。想问一下16384是什么？它应该如何变化？试着用它来寻找最快的方法。谢谢你的这个片段。我正在努力解决这个问题。想问一下16384是什么？它应该如何变化？试着用它来寻找最快的方法。