perl Net::FTP

[havarz]

как Perl скриптом изменить права на файл после того как он залит на сервер?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zingel]

Код: Выделить всё

my $mod = `chmod -R 777 /path/to/file`;

system $mod;

[havarz]

неа. это локально.
а нужно на залитом на сервер файле. и только посредством фтп.

[zingel]

у ftp команда аналогичная chmod

Код: Выделить всё

man ftp

[zingel]

Код: Выделить всё

 	
$ftp = Net::FTP->new("ftp сервер", Timeout => 30, Debug => 0) || die "Can't connect to ftp server.\n";
$ftp-> cwd();
$ftp->chmod("0777", " удаленный файл");
$ftp->quit();

[havarz]

Код: Выделить всё

Can't locate object method "chmod" via package "Net::FTP" at ./protei_ftp.pl line 21.

[zingel]

Код: Выделить всё

pkg_info | grep p5-Net-FTP*

[havarz]

само сабой.

в модуле Net::FTP нет поддержки chmod, но есть метод quot.
и вот как его использовать, млин, не пойму.

Код: Выделить всё

=over 4

=item quot (CMD [,ARGS])

Send a command, that Net::FTP does not directly support, to the remote
server and wait for a response.

[havarz]

добил тему.

Код: Выделить всё

$ftp->quot('site', "chmod 0755 $file");