Re: Par not working on Net::FTP::Recursive Script

On 8/2/2015 2:03 PM, Roderich Schupp wrote:
> On Sun, Aug 2, 2015 at 7:51 PM, Mike Flannigan <[email protected] 
> <mailto:[email protected]>> 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