perl实例：简单的代码规范化实例

╰+哭是因爲堅強的太久メ 2022-05-14 12:41 181阅读 0赞

**在学习计算机语言的时候，经常要阅读大量代码，或从网上copy一些代码来学习，但往往copy过来的代码总是不是很规范，要么找不到括号匹配，要么没有统一的换行，空格，使代码难以阅读，刚好正在学习的perl语言强大的文本处理功能，突发灵感，何不如自己动手写一个简单的代码规范实例，来将不规范的代码规范化，闲言少叙，进入正题！**

**实例名称：代码规范化**

**实例目的：将不规范化的代码规范化，便于阅读**

**实例思路：从网上获得的代码往往存在以下几个问题：**

**空格不统一，换行时，有的空格多，有的空格少；**

**句首空格总是或多或少**

**括号不知何时匹配，找到左括号，找不到有括号**

**针对以上常见问题，我们构建一个简单的代码规范化过程，使其便于阅读，具体步骤如下：**

**1、初始化花括号\{个数为0；打开新建文件，用于写入处理后的代码；打开不规范代码文件**

**2、读取逐行不规范的代码**

**3、将该行所有一个以上的空白字符统一为一个空白字符**

**4、去掉行首及行尾空白字符**

**5、遇到\{，先写入该行,再花括号个数加一**

**6、遇到\}，先写入该行,再花括号个数减一**

**7、写入其他行**

**8、写入子例程定义：每次写入，都在该行行首加入花括号\{个数 \* 回车想要的空格数**

use 5.010;
    say "Beginning……………………";
    $file="you";#放入所要规范化文件的绝对或相对地址
    $grace=0;#记录花括号的个数
    open (FH,$file) or die "can not open $!";
    open (DH,">new.txt") or die "can not open $!";#创建规范化之后的文件
    while($line=<FH>){
    	$line =~ s/^\s+//;#去掉行首空白字符
            $line =~ s/\s+$//;#去掉行尾空白字符	
    	$line =~ s/ +/ /g;#将所有空白规范到一个空白字符
    	if($line =~m\{\){#匹配左花括号
    	    $line='    'x ($grace).$line;
    	    say DH $line;
    	    $grace++;
    	}elsif($line =~m\}\){#匹配右花括号
    	    $line='    'x ($grace).$line;
    	    say DH $line;
    		$grace--;
    	}else{
    	    $line='    'x ($grace).$line;
    	    say DH $line;
    	    }
    	}
    close FH;
    close DH;
    say "OK! Please press anykey，continue………………";
    <STDIN>;