Hello monks, I've been lurking around here and finally decided to create an account to post from. I've written this script (my first script) to ftp to a server and use a config file for login credentials.
use strict; use warnings; use Net::FTP; use YAML; use Data::Dumper; sub main { my $host; my $username; my $password; # step 1: open file open my $fh, '<', 'config.yml' or die "can't open config file: $!"; # step 2: convert YAML file to perl hash ref my $config = LoadFile($fh); print Dumper($config), "\n"; my $ftp = Net::FTP->new($host) or die "Can't open $host\n"; $ftp->login($username, $password) or die "Cant log $username in\n"; my $dir = "/hd1/Logs"; $ftp->cwd($dir) or die "Can't cwd to #dir\n"; my $file_to_get = "filetoget"; $ftp->get($file_to_get) or die "Can't get $file_to_get from $dir\n"; } main();
I am getting this error "Undefined subroutine &main::LoadFile called at test.pl line 18." and have absolutely no idea why. Wisdom much appreciated.
In reply to undefined subroutine by molv
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |