My Perl scripts don't run anymore
- From: "Graham Stow" <graham@xxxxxxxxxxxx>
- Date: Sat, 3 Nov 2007 14:31:05 -0000
Stupidly, I ran the script below (copied from the book 'Perl - I Didn't Know
You Could Do That...' by Martin C. Brown) without understanding what the
script was doing. Now, none of my Perl scipts run anymore - all that happens
is that the command prompt window is minimised and a Windows Wordpad window
containing my script, pops up. I'm running v5.8.6 on a W32 system. Can
anyone tell me what I've done and how I correct it? Instict tells me it
might have something to do with the use of the Getopt::Std module, but I
really don't know.
use Net::POP3;
use Net::SMTP;
use Getopt::Std;
getopts('q');
my ($host, $login, $password) = ('atuin', 'mcbmac', 'Tamsin');
my $server = Net::POP3->new($host, Debug => 99999);
warn "Couldn't connect to server $host" unless $server;
my $nomsgs = $server->login($login, $password);
die "Could not login" unless defined($nomsgs);
my $msglist = $server->list();
$nomsgs = keys %$msglist;
print "There are $nomsgs messages on $host\n";
foreach my $msg_id (keys %$msglist)
{
my $msgcontent = $server->get($msg_id);
forward($msgcontent, 'mc@xxxxxxxxxxx', 'mc@xxxxxxxxxxx');
}
$server->quit();
sub forward
{
my ($message, $from, $to) = @_;
$smtp = Net::SMTP->new('mail');
die "Couldn't open connection to server" unless $smtp;
$smtp->mail($from) or die "Bad 'from' address";
$smtp->to($to) or die "Bad 'to' address";
$smtp->data();
$smtp->datasend(join('',@$message));
die "Connection wouldn't accept data"
unless($smtp->dataend());
}
.
- Follow-Ups:
- Re: My Perl scripts don't run anymore
- From: A. Sinan Unur
- Re: My Perl scripts don't run anymore
- Prev by Date: Re: Removing .cpan Directory
- Next by Date: Re: My Perl scripts don't run anymore
- Previous by thread: FAQ 8.8 How do I get the screen size?
- Next by thread: Re: My Perl scripts don't run anymore
- Index(es):
Relevant Pages
|
