Re: [FWP] duh: A small puzzler

[Aaron Crane <aaron.crane@pobox.com>]

Sune Kirkeby <sune@interspace.dk> writes:
> On Fri, Jul 30, 1999 at 04:56:14PM -0700, Vicki Brown wrote:
> > I did this today; I wasn't thinking... (well, it's Friday after all)
> > 
> >    $id =~ s/^.*|//;    # remove extraneous stuff before the construct info
> 
> s{s/^.*|//}
>  {s/^.*\|//}

Sadly, however, your PATTERN isn't what you want -- you don't have enough
backslash-protection on your metacharacters.  You meant

s{s/\^\.\*\|//}
 {s/^.*\\|//}

That is to say,

s<s\{s/\^\.\*\|//\}\n \{s/\^\.\*\\\|//\}>
 <s{s/\\^\\.\\*\\|//}\n {s/^.*\\\\|//}>

HTH.  :-)

-- 
Aaron Crane   <aaron.crane@pobox.com>   <URL:http://pobox.com/~aaronc/>

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe