fixer
Upload User: shbosideng
Upload Date: 2013-05-04
Package Size: 1555k
Code Size: 0k
Category:

SNMP

Development Platform:

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;