中元建设集团网站,推广自己的店铺推广语,平面设计接单软件,服装如何做微商城网站建设perl 给特定文件加上特定内容
给所有的输入文件#xff0c;加上特定的内容 本例中#xff0c;给所有的输入文件内加入## Copyright xxx 如果检测到已经有## Copyright字样的行#xff0c;那么不添加#xff0c;具体代码如下。 可以使用该脚本#xff0c;给所有的verilog文…perl 给特定文件加上特定内容
给所有的输入文件加上特定的内容 本例中给所有的输入文件内加入## Copyright xxx 如果检测到已经有## Copyright字样的行那么不添加具体代码如下。 可以使用该脚本给所有的verilog文件加入default_nettype none将所有未声明的signal识别为error
#!/bin/perl
use strict;
my %do_these; # 声明一个哈希标量
foreach (ARGV) {$do_these{$_} 1; #将所有的哈希值都设置为1
}while () {if (/\A## Copyright/im) { #忽略大小写多行检查delete $do_these{$ARGV}; #检测到特定字符删除该哈希键值对}
}ARGV keys %do_these; # 重新取剩余的哈希键值对设置为默认数组$^I .bak; # 将源文件重命名为xx.bak备份文件修改后的文件名为原文件
while( ) {if (/\A#!/) {$_ . ## Copyright (C) 2024 by YOURS AUTHORITY!;}print; #将修改后的文件写回
}
