fixer
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:0k
源码类别:

SNMP编程

开发平台:

C/C++

  1. $x='
  2. foreach $i (keys %translations)
  3. {  
  4.   my $trans = $translations{$i};
  5.   $trans =~ s/|/\|/;  
  6.   return $string if eval " $string =~ s|${i}|${trans}| ";
  7. };
  8. %wday';
  9. s/foreach.+?wday/$x/s;