mergelocale.pl

来自「主要用于监控网络流量并动态产生可视化结果」· PL 代码 · 共 53 行

#!/usr/bin/perl
#
# usage: ./mergelocale.pl skeleton.pm0 lang1.pmd lang2.pmd
# the script then creates locales_mrtg.pm
#
# If you want to modify a locale, modify the pmd file and rerun 
# this script and copy the generated locales_mrtg.pm to the run directory.
#
# If you want to translate a locale, copy one of the existing locales and 
# translate. Then rerun and copy. 
#
#################################################################
#
# Distributed under the GNU copyleft
#
###################################################################

open(OUTFILE,"> locales_mrtg.pm");

@patchdb=(
'PATCHTAG\s*00',
'PATCHTAG\s*10',
'PATCHTAG\s*20',
'PATCHTAG\s*30',
'PATCHTAG\s*40',
'PATCHTAG\s*50',
'PATCHTAG\s*60',
);

while(@ARGV){
  push(@languages,shift);
};

foreach $patchtag (@patchdb)
{
  for $i (@languages)
  {
    open(LANGF,"< $i");
    $patch="";
    while(<LANGF>)
    {
      if(/\#.\S*PATCHTAG/)
      { 
        $patch=/$patchtag/;
      }
      else
      {
        if($patch) { print OUTFILE $_; };
      };
    };
  };
};