verilog-module input和output自动对齐脚本-perl

最新推荐文章于 2023-11-18 17:09:43 发布

seuwilson

最新推荐文章于 2023-11-18 17:09:43 发布

阅读量1.8k

点赞数 1

分类专栏： VERILOG PERL 文章标签： perl verilog 自动对齐 module port

本文链接：https://blog.youkuaiyun.com/seuwilson/article/details/119949922

版权

PERL 同时被 2 个专栏收录

14 篇文章

订阅专栏

VERILOG

12 篇文章

订阅专栏

博主分享了一种解决V文件中moduleinput和output对齐问题的个性化解决方案，通过编写Perl脚本run_indent.pl，提升代码可读性。脚本能统一整理当前目录下的.v文件，展示了对齐前后代码对比和自定义风格的重要性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

总结

1.之前用emacs的autoreg和autowire，以及后来使用的gvim 插件autodef，都没有找到合适对齐module input和output的方法，索性就自己写了个perl脚本来对齐。

2.使用对齐后代码确实美观了不少。

3.脚本使用：可以对当前目录下的.v文件统一进行对齐。脚本名字是run_indent.pl

4.其实不管是自动生成还是自动对齐，可以自己写一套适合自己风格的脚本来实现（待做）

使用效果如下：

#! /usr/bin/perl

use 5.010;
use strict;


my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday)   =  (localtime(time));
$sec   =   ($sec   <   10)?   "0$sec":$sec;
$min   =   ($min   <   10)?   "0$min":$min;
$hour   =   ($hour   <   10)?   "0$hour":$hour;
$day   =   ($day   <   10)?   "0$day":$day;
$mon   =   ($mon   <   9)?   "0".($mon+1):($mon+1);
$year   +=   1900;
my $date = "${mon}${day}";

my $dir = '*.v';
my @all_files = glob($dir);


foreach my $file_name (@all_files){
    open my $file_text,'<',"$file_name";
    my $file_name_store = $file_name;
    open my $new_file,'>',"new_file.v"; 
    while(<$file_text>){
        chomp;
            if (/^\s*(input)\s*(\w*\s*;)/){
                printf $new_file "%s                          %-70s\n",$1,$2;
            }
            elsif (/^\s*(input)\s*(\[.*\])\s*(\w*\s*;)/){
                printf $new_file "%s   %-20s   %-50s\n",$1,$2,$3;
            }
            elsif (/^\s*(output)\s*(\w*\s*;)/){
                printf $new_file "%s                          %-70s\n",$1,$2;
            }
            elsif (/^\s*(output)\s*(\[.*\])\s*(\w*\s*;)/){
                printf $new_file "%s   %-20s   %-50s\n",$1,$2,$3;
            }
            else {
                print $new_file "$_\n";
            }
    }
    close $file_text;
    close $new_file;
    system("cp new_file.v $file_name_store");
}

    system("rm new_file.v");