Help for this page

Select Code to Download


  1. or download this
    $braces = qr/(?<braces>\{ ([^\{\}] | (?&braces))*? \} )/x;
$brackets = qr/(?<brackets>\( ([^\(\)] | (?&brackets))*? \))/x;
$identifier = qr/(?<identifier> \w+($brackets)?( \s*(\.|->)(?&identifi
+er))?)/;
  2. or download this
    #This works
$meth_impl =~ s/((?<identifier> \w+($brackets)?( \s*(\.|->)(?&identifi
+er))?)) \s* \. \s* Trim\(\)/Trim($1)/xg; 

#This doesn't match anything:
$meth_impl =~ s/($identifier) \s* \. \s* Trim\(\)/Trim($1)/xg;