On 8/2/2015 2:03 PM, Roderich Schupp wrote:
On Sun, Aug 2, 2015 at 7:51 PM, Mike Flannigan <mikef...@att.net
<mailto:mikef...@att.net>> wrote:
Not enough information. For instance, how does it "open a prompt box"?
Try cutting the script down to a minimal example that exhibits the
problem.
Cheers, Roderich
In Windows when you double click on a par exe file it opens
a command prompt box to show the results of the script.
I guess a minimalist script would be as follow:
use strict;
use warnings;
use Net::FTP::Recursive;
my $ip="142.146.2.103";
my $username="user";
my $pass="pass";
my $ftp = Net::FTP::Recursive->new($ip, Passive => 1, Debug => 0);
$ftp->login($username, $pass) or die $ftp->message;
print "All done.\n\a";
__END__
Interestingly, this seems to work in the par exe created
from this file.
OK, I haven't figured it out 100% yet, but it appears to have
something to do with the newline at the end of each of these
lines:
__DATA__
BkmTNBOhAQjsn3YUJWA9cw2JDp8lcw
Jx7ecihoLGsWidVUgRDl5CI38mpLbF
23X7p1HDSwXgGg4z8xSNshVBQScLCB
MkNyVS4Dnkx55TsW1VfCVm7niOU777
In my Windows Perl environment when I count
22 characters forward, I get the character I expect
to get. In the par environment, when I count
22 characters forward I get the character at position 21
instead (if it goes past the end of one of the lines). Perhaps
this has something to do with a newline being interpreted as
\n\r or \n or \cJ or whatever.
I'm probably going to have an ugly work-around for this. Or
perhaps I can come up with a more elegant work-around when
using par. We will see.
Thanks for your help.
Mike
