sub get_html_filename{
use Net::SFTP::Foreign;
use File::Basename;
use Cwd;
use 5.01;
my $sftp = shift;
# get working directory
my $dir = getcwd();
my $word = basename($dir);
say "word is $word";
# get files from /pages
my $ls = $sftp->ls("/pages", wanted => qr/$word/)
or warn "unable to retrieve ".$sftp->error;
print "$_->{filename}\n" for (@$ls);
my @remote_files = map { $_->{filename} } @$ls;
say "files are @remote_files";
my $rref = \@remote_files;
my $filetype = "html";
my $old_num = highest_number($rref, $filetype, $word);
print "old num is $old_num\n";
my $new_num = $old_num + 1;
my $html_file = $word.$new_num.'.'.$filetype;
return $html_file;
}
####
$ perl powell1.pl
title is powell
values are [correct]
object created, back in main
word is powell
powell1.html
powell2.html
files are powell1.html powell2.html
old num is 2
new file is powell3.html
$
##
##
my $ls = $sftp->ls('/home/ftptest/inbound', no_wanted => qr/^\./ );
my @names_and_sizes = map { { filename => $_->{filename}, size => $_->{a}->size } } @$ls;
# or...
my %size = map { $_->{filename} => $_->{a}->size } @$ls;