Help for this page

Select Code to Download


  1. or download this
    while(<LINKFILE>) {
    
    ...
            ($key,$data) = split("==");
            $links{$key} = $data;
    }
    
  2. or download this
    $content = join("",<FILE>); # this is better replaced with arturos met
    +hod
                                # of reading in whole file
    ...
    
            $content =~ s/$k/$links{$k}/gm;
    }