Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...

__DATA__
f1/f2/f3/f4/break/f1/f2/f5/break/f1/f2/f6

Select or download this

while (<DATA>) {
    chomp;
...
        DiveVal(\%hash, split m=/=, $path);
    }
}