Help for this page

Select Code to Download


  1. or download this
    for (values %copy) {
    1 while                              # repeat till no replacement 
+left
        s/^($pattern)/$h_orig->{$1}/g; 
}
  2. or download this
    use strict;
use warnings;
...

pp $h_orig, \%copy;
  3. or download this
    -*- mode: compilation; default-directory: "d:/tmp/pm/" -*-
Compilation started at Sun Feb  6 15:59:06
...
)

Compilation finished at Sun Feb  6 15:59:06