: Could any kind soul open my eyes on what's going wrong with the following
:
:
:
: $text= '   if ( cond ) then; ';
: print "$1||$2\n" if $text =~ /(\sif\s*\([^;]*\)\s*)([^{;]+);/;
: # this prints(as expected)    if ( cond ) ||then
:
: $text =~ s/(\sif\s*\([^;]*\)\s*)([^{;]+);/$1{$2};/;
                                              ^
                                             ^
                                            ^
                             Problem is here

Perl is interpreting the bracket as a variable subscript --
it has to otherwise you couldn't use $hash{$key}.

 $text =~ s/(\sif\s*\([^;]*\)\s*)([^{;]+);/${1}{$2};/;

The above should work as you intend.

--
Regards,
Mike Heins     [mailed and posted]   http://www.*-*-*.com/ ~mikeh ___       ___
                                    Internet Robotics        |_ _|____ |_ _|
Few blame themselves until they     131 Willow Lane, Floor 2  | ||  _ \ | |
have exhausted all other            Oxford, OH  45056         | || |_) || |
possibilities.                                               |___|  _ <|___|

Could any kind soul open my eyes on what's going wrong with the following

$text= '   if ( cond ) then; ';
print "$1||$2\n" if $text =~ /(\sif\s*\([^;]*\)\s*)([^{;]+);/;
# this prints(as expected)    if ( cond ) ||then

$text =~ s/(\sif\s*\([^;]*\)\s*)([^{;]+);/$1{$2};/;
# Use of uninitialized value at ... line 5
print ">>$text<<\n";
# this prints   >>  ; <<

and is this a bug of feature ?  Perl doesn't like  ( ) within a   (?#   ) construct

$text= 'abc';
$text =~ s/abc  (?# this is a ( comment ) with parenthesis )
          /     (?# here is another comment)
           def/x;
--> Error           /: unmatched () in regexp at ... line 4

Thanks for any hints,
Helmut Jarausch.