in reply to Re^4: script for deleting html, images and css from server
in thread script for deleting html, images and css from server
package scrubber1; require Exporter; use config1; use 5.010; use Net::FTP; our @ISA = qw(Exporter); our @EXPORT = qw( get_ftp_object get_html_filenames kill_files ); sub get_ftp_object { use strict; my $sub_hash = "my_ftp"; my $domain = $config{$sub_hash}->{'domain'}; my $username = $config{$sub_hash}->{'username'}; my $password = $config{$sub_hash}->{'password'}; #dial up the server my $ftp = Net::FTP->new( $domain, Debug => 1, Passive => 1 ) or die "Can't connect: $!\n"; $ftp->login( $username, $password ) or die "Couldn't login\n"; return $ftp; }
strict is a pragmatic module, so its position might change things, but you can safely move it to the beginning, too, as both @ISA and @EXPORTER are correctly declared with our.
|
|---|