PAR: .exe and .pl do different things (WinXP) 1

[vpk1]

Hello!

I have a sript (see below) and
when I run the .pl and the .exe, the
results differ.
Some urls can be processed by both, other urls
only by the pl-script.

Can anyone tell me how to fix this?

Best regards,
Erich


Par:
> pp -o GetNews.exe GetNews.pl

Result .pl:
file://D:/tmp/perl/tst.xml: Data found!

http://kurier.at/newsfeed/wirtschaft_rss.xml:

Data found!

http://kurier.at/newsfeed/oesterreich_rss.xml:

Data found!
Result .exe:

file://D:/tmp/perl/tst.xml: No Data!

http://kurier.at/newsfeed/wirtschaft_rss.xml:

No Data!

http://kurier.at/newsfeed/oesterreich_rss.xml:

Data found!

Sript:
use LWP::Simple;

@urls = qw(
file://D:/tmp/perl/tst.xml

http://kurier.at/newsfeed/wirtschaft_rss.xml

http://kurier.at/newsfeed/oesterreich_rss.xml

);

foreach $url (@urls){
$data = get( $url );
if (defined($data)){
print "$url: Data found!\n";
} else {
print "$url: No Data!\n";
}
}

 

[tonykent]

Strangely, I get the following result from the exe:

file://C:/temp/tst.xml: No Data!

http://kurier.at/newsfeed/wirtschaft_rss.xml:

Data found!

http://kurier.at/newsfeed/oesterreich_rss.xml:

Data found!

I can offer no explanation.

 

[MillerH]

I got the same result on Strawberry perl v5.12.1 where the exe failed with the first http url and successed when run as a script.

To debug the issue, it made sense to use a more verbose lwp module like LWP::UserAgent that actually contained error checking. Doing so fortunately and unfortunately just fixed the problem so I don't know why LWP::Simple had this pecularity:

require LWP::UserAgent;

use strict;
use warnings;

my @urls = qw(
	[URL unfurl="true"]http://kurier.at/newsfeed/wirtschaft_rss.xml[/URL]
	[URL unfurl="true"]http://kurier.at/newsfeed/oesterreich_rss.xml[/URL]
);

my $ua = LWP::UserAgent->new;

foreach my $url (@urls){
	my $response = $ua->get($url);

	if ($response->is_success) {
		print "$url: Data found!\n";
	} else {
		print "$url: No Data, " . $response->status_line . "\n";
	}
}

- Miller