Help for this page

Select Code to Download


  1. or download this
    #!/bin/perl -p

# basic substitution
...
s/((\$\w+)->field\b/$1\->\{field\}/g;
# the set_field method has an argument, capture it
s/s/(\$\w+)->set_field\(([^)]*)\)/$1\->\{field\}= $2/g
  2. or download this
    #!/bin/perl -p
BEGIN { $FIELD="field1|field2|field3"; }
s/(\$\w+(?:\[\d\])?)->($FIELD)\b(?!\()/$1\->\{$2\}/g;
s/(\$\w+(?:\[\d\])?)->set_($FIELD)\(([^)]*)\)/$1\->\{$2\}= $3/g;