3 use strict;
4 use warnings;
5 use Net::FTP;
6 use Win32::Fileop;
7
8 Map F => '\\\\192.168.13.15\\c$', { persistent => 1 }
9
10 my $hostname = '192.168.14.3';
11 my ($user, $pass) = ("user",'password');
12 my $Local = 'f:\winnt\win32\system32\dhcp\';
13 my $day = qw(Sun Mon Tue Wed Thu Fri Sat)[(localtime())[6]];
14 my $file = "dhcpsvrlog\.$day";
15
16 my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
17 $ftp->login($user,$pass) or die ("cant Login");
18 $ftp->put($file) or die ("Can't upload");
19 $ftp->quit;
20
21 unmap F

##</code><code>##

syntax error at cp_dhcp_logs.pl line 8, near "Map F"
Execution of cp_dhcp_logs.pl aborted due to compilation errors.
##</code><code>##

use strict;
use warnings;
use Win32::FileOp;

Map F => '\\\\192.168.13.15\\c$', { persistent => 1 }