Why would you need to mount anything?? Why not just use Net::FTP and have it make the FTP connection from the Linux box to the Win2k box and transfer them. The script would look something like:
use Net::FTP;
# Put approrpriate parameters in here
my $ftp_conn = Net::FTP->new(...);
opendir DIR, "/Some/Dir/With/Files"
|| die "Cannot open directory: $!\n";
my @filenames = grep !/^\.\.?$/, readdir DIR;
closedir DIR;
foreach my $file (@filenames) {
$ftp_conn->put($file);
}
$ftp_conn->close;
------
We are the carpenters and bricklayers of the Information Age. Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement. |