Hello! My first post. Basically I have this script that runs differently on
my RH box that it does on by debian box. I'm hopeing someone might be able
to point me in the right direction. Both machines are running perl v5.8.0
yet something is very different and I suspect something's wrong with my red
hat install.
Here's the example:
#!/usr/bin/perl -w
use strict;
while (my $line = <STDIN>) {
$line =~ s/%([a-fA-F0-9]{2})/chr(hex($1))/ge;
$line = unpack ("H*", $line);
print $line . "\n";
}
test.dat:
%948%F9%C5%F6%A7x%C4%95%A6%D2a%97%AB%1C%9F%EA%C5%0C%E6
y%28%BA%E6%00%B82tI%C8%80%1E%90B%19%27G%01%84%BF
Debian output *correct*:
7928bae600b8327449c8801e90421927470184bf0a
9438f9c5f6a778c495a6d26197ab1c9feac50ce60a
RH output *wrong*:
c29438c3b9c385c3b6c2a778c384c295c2a6c39261c297c2ab1cc29fc3aac3850cc3a60a
7928c2bac3a600c2b8327449c388c2801ec2904219274701c284c2bf0a
As you can see something is way borked. I have a feeling its something in
the installation that being a newbie I don't know about.
Another example of a problem porting the same script between machines I had
to convert the following line from:
\"([^"\s]+)\s
to:
\"([^ "]+)\s
So something is very different in the regular expression matching of the
machines. Can anyone give me a hint why the same syntax on two different
machines with the same version of perl would give me different semantic
results. I'm dieing to know.
Thanks,
-ethan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
