Perl: Могу ли я потребовать каталог и использовать из него такие файлы, как php или txt
В настоящее время я придерживаюсь этого. На самом деле это путь, где у меня есть Perl-скрипт с именем a.pl
/home/
и есть некоторые файлы, которые я хочу использовать из этого каталога (не скрипты или модули Perl)
/home/dirl/ex/
Я попытался потребовать /home/dirl/ex/ using lib; но похоже, что он работает только с модулями perl, а не с внешними файлами, такими как php, есть ли способ требовать этот путь и использовать файл в a.pl?
Скрипт для a.pl
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw(POST);
use HTTP::Request::Common qw(GET);
use FindBin '$Bin';
use FindBin qw( $Bin );
use lib;
use lib "$Bin/dirl/ex/";
$ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent("$us1");
$ua->timeout (8);
$site = "https://exemple.org/upload"
my $mysite = $ua->post("$site", Content_Type => "multipart/form-data", Content => [ company_logo=>["hi.php"] ]);