SNMP编程

开发平台：
C/C++

eucjp.pmd：源码内容
							###### PATCHTAG00 ####################################################
###      泣塑胳(EUC-JP)
###      => Fuminori Uematsu <uematsu@kgz.com>
###### PATCHTAG10 ####################################################
  &eucjp
###### PATCHTAG20 ####################################################
  'eucjp'        => &eucjp,
  'euc-jp'       => &eucjp, 
###### PATCHTAG30 ####################################################
# eucjp/euc-jp
   'eucjp' =>
   "泣塑胳条(EUC-JP)侯喇
				<a href="http://www.kgz.com/~uematsu/">竣揪 矢屏</a>
				<a href="mailto:uematsu@kgz.com">&lt;uematsu@kgz.com&gt;</a>",
###### PATCHTAG40 ####################################################
$credits::LOCALE{'euc-jp'}=$credits::LOCALE{'eucjp'};
###### PATCHTAG50 ####################################################
# eucjp
sub eucjp
{
  my $string = shift;
  return "" unless defined $string;
  my(%translations,%month,%wday);
  my($i,$j);
  my(@dollar,@quux,@foo);
  
  # regexp => replacement string NOTE does not use autovars $1,$2...
  # charset=iso-2022-jp
  %translations =
  (  
     '^iso-8859-1'                            => 'euc-jp',
     '^Maximal 5 Minute Incoming Traffic'     => '呵络5尸减慨翁',
     '^Maximal 5 Minute Outgoing Traffic'     => '呵络5尸流慨翁',
     '^the device'                            => 'デバイス',
     '^The statistics were last updated (.*)' => '构糠泣箕 $1',
     '^Average)'                             => '士堆)',
     '^Average$'                              => '士堆',
     '^Max$'                                  => '呵络',
     '^Current'                               => '呵糠',
     '^`Daily' Graph ((.*) Minute'          => '泣グラフ($1尸粗',
     '^`Weekly' Graph (30 Minute'           => '降グラフ(30尸粗',
     '^`Monthly' Graph (2 Hour'             => '奉グラフ(2箕粗',
     '^`Yearly' Graph (1 Day'               => '钳グラフ(1泣',
     '^Incoming Traffic in (S+) per Second'  => '髓擅の减慨$1眶',
     '^Incoming Traffic in (S+) per Minute'  => '髓尸の减慨$1眶',
     '^Incoming Traffic in (S+) per Hour'    => '髓箕の减慨$1眶',
     '^Outgoing Traffic in (S+) per Second'  => '髓擅の流慨$1眶',
     '^Outgoing Traffic in (S+) per Minute'  => '髓尸の流慨$1眶',
     '^Outgoing Traffic in (S+) per Hour'    => '髓箕の流慨$1眶',
     '^at which time (.*) had been up for (.*)' => '$1の苍漂箕粗 $2',
     '^Average max 5 min values for `Daily' Graph ((.*) Minute interval):' => '泣グラフでの呵络5尸猛の士堆($1尸粗持):',
     '^Average max 5 min values for `Weekly' Graph (30 Minute interval):' => '降グラフでの呵络5尸猛の士堆(30尸粗持):',
     '^Average max 5 min values for `Monthly' Graph (2 Hour interval):' => '奉グラフでの呵络5尸猛の士堆(2箕粗粗持):',
     '^Average max 5 min values for `Yearly' Graph (1 Day interval):' => '钳グラフでの呵络5尸猛の士堆(1泣粗持):',
     #'^([kMG]?)([bB])/s'                      => '$1$2/擅',
     #'^([kMG]?)([bB])/min'                    => '$1$2/尸',
     #'^([kMG]?)([bB])/h'                      => '$1$2/箕',
     '^Bits$'                                 => 'ビット',
     '^Bytes$'                                => 'バイト',
     '^In$'                                   => '减慨',
     '^Out$'                                  => '流慨',
     '^Percentage'                            => '孺唯',
     '^Ported to OpenVMS Alpha by'            => 'OpenVMS Alphaへの败竣',
     '^Ported to WindowsNT by'                => 'WindowsNTへの败竣',
     #'^and'                                   => 'and',
     '^GREEN'                                 => '涡',
     '^BLUE'                                  => '滥',
     '^DARK GREEN'                            => '考涡',
     '^MAGENTA'                               => 'マゼンタ',
     '^AMBER'                                 => '噼噌'
  );
# maybe expansions with replacement of whitespace would be more appropriate
foreach $i (keys %translations)
{  
  my $trans = $translations{$i};
  $trans =~ s/|/\|/;  
  return $string if eval " $string =~ s|${i}|${trans}| ";
};
%wday = 
    (
      'Sunday'    => '(泣)',
      'Monday'    => '(奉)',
      'Tuesday'   => '(残)',
      'Wednesday' => '(垮)',
      'Thursday'  => '(腾)',
      'Friday'    => '(垛)',
      'Saturday'  => '(炮)',
    );
%month = 
    (
      'January'   => '1奉',    'February' => '2奉',
      'March'     => '3奉',    'April'    => '4奉',
      'May'       => '5奉',    'June'     => '6奉',
      'July'      => '7奉',    'August'   => '8奉',
      'September' => '9奉',    'October'  => '10奉',
      'November'  => '11奉',   'December' => '12奉',
    );
  @foo=($string=~/(S+),s+(S+)s+(S+)s+(.*)/);
  if($foo[0] && $wday{$foo[0]} && $foo[2] && $month{$foo[2]} )
    {
	if($foo[3]=~/at/)
      { 
        @quux=split(/s+ats+/,$foo[3]);
      }
	else
      { 
        @quux=split(/ /,$foo[3],2);
      };
      return "$quux[0]钳$month{$foo[2]}$foo[1]泣$wday{$foo[0]} $quux[1]"; 
    };
#
# handle two different time/date formats:  
# return "$wday, $mday $month ".($year+1900)." at $hour:$min";
# return "$wday, $mday $month ".($year+1900)." $hour:$min:$sec GMT";
#
# handle nontranslated strings which ought to be translated
# print STDERR "$_n" or print DEBUG "not translated $_";
# but then again we might not want/need to translate all strings
  
  return $string;
};

						