in reply to Perl Regex with Extra Spaces

print $s;;
S t a r t i n g   c h e c k ,   p o r t :   8 0 ,   w e b :   " / " .

C r e a t e d :   0 7   A p r   2 0 1 0   1 8 : 2 2 : 5 7   - 0 0 0 0
V e r s i o n :   5 . 0 . 2 . 6 7 9 0
P o r t   8 0 :   C h e c k   c o m p l e t e d

$s =~ s[(.) ][$1]g;;

print $s;;
Starting check, port: 80, web: "/".

Created: 07 Apr 2010 18:22:57 -0000
Version: 5.0.2.6790
Port 80: Check completed

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"I'd rather go naked than blow up my ass"

Replies are listed 'Best First'.
Re^2: Perl Regex with Extra Spaces
by jhyland87 (Sexton) on Apr 07, 2010 at 22:38 UTC
    Oh wow, that was fast, nice job! Why do you use ;; instead of ;?
[reply]

      Just an artifact of my REPL environment. Nothing to worry about.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]

In Section Seekers of Perl Wisdom