Help for this page

Select Code to Download


  1. or download this
    1: my $pattern = join('|',(keys %sufdata));
2: if ($name =~ s/($pattern)$/$sufdata{$1}/o) {
...
4:   return;
5: }
6: print " no rule apply -> $name\n";
  2. or download this
    my $pattern = join('|',(keys %sufdata));
  3. or download this
    if ($name =~ s/($pattern)$/$sufdata{$1}/o) {
  4. or download this
    if ($name =~ s/(a|s|k|ar|ic|ec|ek|er|vec)$/$sufdata{$1}/o) {