Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
s/\)([^()]+)\(/]$1[/g;

print scalar reverse y/][/)(/r;
  2. or download this
    syntax error at ./bracket.pl line 13, near "y/][/)(/r;"
Execution of ./bracket.pl aborted due to compilation errors.
  3. or download this
    s/\)([^()]+)\(/]$1\[/g; # '[' is not a metachar here
  4. or download this
    s/\)([^()]+)\(/]${1}[/g; 
# to surround the whole variable name which is interpreted inside a st
+ring