100分求一段perl代码改为python或.NET

2011-01-13 04:42:51 133 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Perl脚本如何解决90年代DNS批量配置升级 DNS配置是网络服务的核心基础，其文本化、模式化特性决定了自动化处理的天然必要性。在早期互联网基础设施薄弱、运维高度依赖人工的背景下，正则匹配、跨文件批量替换、上下文感知修改等能力成为关键工程需求。Perl语言凭借深度集成的正则引擎、默认变量机制与原生文本处理范式，成为解决此类‘脏活累活’的事实标准工具。它不追求语法优雅，而专注快速构建面向具体问题的领域专用脚本，支撑了包括DNS迁移、日志分析、RADIUS溯源在内的大量真实生产场景。本文以1999年一次典型DNS配置升级为切口，还原Perl作为‘系统运维瑞阅读详情

#!/usr/bin/perl



( $words, $pos, $ngram, $lex, $hmm ) = @ARGV;



open WORDS, $words or die "Can not open the $words file!\n";

open POS, $pos or die "Can not open the $pos file!\n";

open NGRAM, $ngram or die "Can not open the $ngram file!\n";

open LEX, $lex or die "Can not open the $lex file!\n";

open HMM, " > $hmm " or die "Can not open the $hmm file\n";



%wordkey = {};

$wnum = 0;

while( <WORDS> )

{

	chomp;

	$wnum++;

	@wk = split;

	$wordkey{$wk[1]} = $wk[0];

}

print HMM "M= $wnum\n";

close WORDS;



%poskey = {};

$pnum = 0;

while( <POS> )

{

	chomp;

	$pnum++;

	@pk = split;

	$poskey{$pk[1]} = $pk[0];#4 vb

}

print HMM "N= $pnum\n";

close POS;



@unipos = ();

@bipos = (); 

while ( <NGRAM> )

{

	chmop;

	@png = split;

	$n = @png;

	if ( $n == 2 )

	{

		$unipos[$poskey{$png[0]}] = $png[1];#vb 100

	}	

	if ( $n == 3 )

	{

		$bipos[$poskey{$png[0]}][$poskey{$png[1]}] = $png[2]; 

	}

}

close NGRAM;



print HMM "A:\n";

foreach $i ( 1..$pnum )

{

	foreach $j ( 1..$pnum )

	{

		$p = ( $bipos[$i][$j] + 1 ) / ( $unipos[$i] + $pnum ) ;

		printf HMM ("%5.4f ", $p);

	}

	print HMM "\n";

}



print HMM "B:\n";

@wordpos = (); 

while ( <LEX> )

{

	chmop;

	@wpn = split;

	$wordpos[$poskey{$wpn[1]}][$wordkey{$wpn[0]}] = $wpn[2]; 

}

close LEX;



foreach $i ( 1..$pnum )

{

	foreach $j ( 1..$wnum )

	{

		$p = ( $wordpos[$i][$j] + 1 ) / ( $unipos[$i] + $wnum ) ;

		printf HMM ("%5.4f ", $p);

	}

	print HMM "\n";

}



print HMM "pi:\n";

$sum = 0;



shift ( @unipos );

foreach $n ( @unipos )

{

	$sum += $n;

}



foreach $n ( @unipos )

{

	$p = $n / $sum;

	printf HMM ("%5.4f ", $p);

}

print HMM "\n";