perl删除文件一行内容

perl删除文件一行内容

my (@lines, $delete);
&open_readfile(CONF, $config{'mod_bonding_conf'});
@lines = <CONF>;
close(CONF);
&open_tempfile(CONF, ">config{'mod_bonding_conf'}");
for($i=0; $i<@lines; $i++){
      chop($_ = $lines[$i]); s/^\s*;.*$//g; s/^\s*#.*$//g;
      $delete = 0;
      if(此行符合删除条件){
              $delete = 1;
      }
      if($delete){
              &print_tempfile(CONF, $lines[$1]);
      }
}
&close_tempfile(CONF);

关于第二行$config的应用，