On Jan 1, 2008 4:20 PM,  <[EMAIL PROTECTED]> wrote:
> Hi there,
>
> I'm quite new to perl, and now having problem with using  parentheses
> in translation strings. For example, I want to replace the 4 digit
> year code 'yyyy' with '(\d\d\d\d)', so it can be used for grouping in
> string matching later. I expected the code would be like:
>
> $org_str =~ tr/yyyy/\(\d\d\d\d\)/;
>
> Then the result is '(((('. It seems the parens were not escaped
> properly, shouldn't the backslash escape the round brackets? If I
> remove the backslashes before brackets, the result is the same. If I
> use double backslashes, that is, \\(\d\d\d\d\\), the result is '\\\\'.
> Can someone inform the right way to do this? Many thanks in
> advance! :-)
snip

You want substitute (s///) not transliterate (tr///).  The s///
operator takes a regex in the first part and replaces what martches in
the target string it with the string in the second part.  The tr///
operator replaces the any character in the first argument with the
corresponding character from the second argument in the target string.
 So you should be using

$org_str =~ s/yyyy/(\\d\\d\\d\\d)/;

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to