Help for this page

Select Code to Download


  1. or download this
    m[^ ( [^|]+ ) \| ]x and $current{ $1 } = $_ while <CURRENT>;
...
    if( m[^ ( [^|]+ ) \| ]x and exists $current{ $1 } ) {
  2. or download this
    (my $e=index($_,"|"))>0 and $current{substr($_,0,$e)}=$_ while <CURREN
+T>;
...
    if((my $e=index($_,"|"))>0 and exists $current{substr($_,0,$e)) {