perl单文件添加版权

脚本：copyright.pl

# !/user/bin/perl -w
$^I = ".bak";     # 备份文件的扩展名
while(<>){
    if(/\A#!/){   # 如果以#! 开头，在后面下一行添加
        $_ .= "## Copyright (C) 2018 by Scc_hy\n";
    }
    print;
}

执行文件： copyright.bat

perl  copyright.pl  count_lines.py 
pause