[mrtg] Perl RegEx question

[Scott S. Heath]

Niall,
Thanks for the tip.. I think something may not be installed properly as
when I basic length("cold") I get "4SCALAR(0x8167c28)" and not just the
number 4.

When I run your line of code I get the following:

255:254:82:0:101:0:112:0:108:0:97:0:121:0:81:0:117:0:101:0:117:0:101:0:7
6:0:101:0:110:0:103:0:116:0:104:0:32:0:32:0:32:0:32:0:32:0:32:0:32:0:32:
0:32:0:32:0:32:0:32:0:32:0:32:0:32:0:32:0:58:0:32:0:53:0:48:0:13:0:10

Does this mean anythign to you?

Thanks,
Scott

-----Original Message-----
From: Niall O'Reilly [mailto:Niall.oReilly at ucd.ie] 
Sent: Wednesday, April 16, 2008 4:58 PM
To: Scott S. Heath
Cc: Niall O'Reilly; mrtg at lists.oetiker.ch
Subject: Re: [mrtg] Perl RegEx question


On 16 Apr 2008, at 22:34, Scott S. Heath wrote:
> From this it looks like it's reading the file fine, and the regex is 
> correct. What would be causing that last 0 getting dropped off?

	I'm guessing, and may be wide of the mark.

	Check your locale.  I don't know enough about locale to
	give any more detailed information.

	Check the length of your line, and whether there are any
	non-printing characters (eg NUL: 0x0) between '5' and '0',
	or any unexpected characters anywhere.

	Check whether the '0' is really a zero, or another character
	which somehow 'looks like' a zero.

	Inserting an additional line of code as follows may help with
	some of the above.

my $ReplayqueueFile = <$REPLAYQUEUEFILE>; warn join(':', map { ord $_ }
( split('', $ReplayqueueFile))), "\n"; if ($ReplayqueueFile =~ m/(\d+)/)
{

	/Niall