Help for this page

Select Code to Download


  1. or download this
    while (m/(\w{1,2})\[(.+?)\]/g) {
  push(@{$hash{$1}},$2);
}
  2. or download this
     while (m/(\w{1,2})\[(.+?)\](?=(?:\w{1,2}\[)|\z)/g) {
  push(@{$hash{$1}},$2);
}