Perl & LWP: getstore() сохранит файл только в том случае, если я не укажу каталог

Question

Я, вероятно, пропустил что-то простое, но у меня есть getstore(), который отлично работает, чтобы сохранить файл «.png» в моей Windows ПК следующим образом:

getstore("$url","$filename"); 

Это работает и отлично загружает файл в каталог, содержащий скрипт Perl. Однако, если я пытаюсь сохранить его в подпапку «NEWDIR» ничего загрузок:

getstore("$url","newdir\\$filename"); 

Любая идея, где я собираюсь здесь не так или как я мог отлаживать? Я попробовал распечатать каталог, и он выглядит неплохо:

print "newdir\\$filename"; 

Однако ничего не происходит в «newdir» после запуска скрипта. Заранее спасибо.

Answer 1

Файл открывается с использованием open(my $fh, ">", $arg), где $arg содержит ценность, которую вы передаете. Таким образом, он определенно примет относительные пути.

>dir /b newdir 

>perl -MLWP::Simple=getstore -e"getstore('http://stackoverflow.com/', 'newdir\\so.html')" 

>dir /b newdir 
so.html 

Может быть $filename не действует (например, заканчивается символом новой строки). Возможно, текущий каталог - это не то, что вы думаете (это может быть каталог, отличный от того, который содержит скрипт). Возможно, пользователь, который выполняет скрипт, не имеет доступа к каталогу. Вы должны быть в состоянии получить дополнительную информацию, используя:

use LWP::UserAgent qw(); 
my $ua = LWP::UserAgent->new(); 
my $request = HTTP::Request->new(GET => $url); 
my $response = $ua->request($request, "newdir\\$filename"); 
die($response->status_line) 
    if !$response->is_success;