Re^2: regex incorrectly matching newline

Well, after you asked the question I looked back at the code and found it actually looked like the follow (more code context included):

$buf = "hello\nworld";
$l = length($buf);

for ($x = 0; $x < $l; $x++) {
    $piece = substr($buf, $x, 1);
    $i = ord($piece);
 
    if ($i =~ m/[ -~]/) {
        $rhs .= $i;
    } else {
        $rhs .= ".";
    }
}
[download]

So, the error is actually mine and works fine when using the right variable, $piece, as:

    if ($piece =~ m/[ -~]/)
[download]

Sorry for the wasted space to post this question.

Comment on Re^2: regex incorrectly matching newline Select or Download Code

Replies are listed 'Best First'.
Re^3: regex incorrectly matching newline by ikegami (Patriarch) on Jun 23, 2006 at 19:21 UTC
No problem. Of course, you could simplify your entire code down to: `$buf = "hello\nworld"; $buf =~ s/[^ -~]/./g; $rhs .= $buf;` [download] The above alters the value of $buf in the process. Feel tree to make a copy of $buf and work with the copy if you want to preserve $buf's value.	[reply] [d/l]