Чтение файла JPEG Perl

Question

Я работаю над веб-страницей, которая принимает файл JPEG.Есть ли способ прочитать сам файл JPEG?

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

Answer 1

У меня много вопросов, но если вам нужно отнять, используя дескриптор файла Perl из уже открытого файла без знания имени файла, напишите что-то вроде

use strict;
use warnings;

sub slurp_handle {
  my ($handle) = @_;
  local $/;
  return readline $handle;
}

chdir "$ENV{USERPROFILE}\\Pictures" or die $!;

open my $fh, '<', 'images.jpg' or die $!;

print slurp_handle $fh;