Perl 批量添加Copyright版权信息

对所有输入文件,如果没有版权信息则加上版权信息,否则什么都不做,并对原文件以.bak结尾备份。

开始我使用如下程序(尝试前千万先备份输入的文件):

#!usr/bin/perl -w
$^I = ".bak";
my %do_these;

foreach (@ARGV){
  print $_;
 $do_these{$_} = 1;
}

while(<>){
 if(/^## Copyright/){
  delete $do_these{$ARGV};
 }
}

@ARGV = sort keys %do_these;
while(<>){
 if(/^#!/){
  $_ .= "## Copyright (C) 2011 by yujianjun";
 }
 print;
}

结果:原文件和备份文件全部空白,真是糟糕。(切记以后测试程序时,要做好备份)。
分析原因:

主要是由于$^I使用错误。先来看看关于$^I的运作原理:

$^I 默认值undef,这不会影响程序。如果将其赋值为某个字符串(如程序中的".bak"),程序将执行备份操作,并将该字符串添加到原文件名后面,成为备份文件名的拓展名。使用钻石操作符打开文件时,perl的操作是,先将打开的文件名改成加了拓展名的文件名,然后再新建一个原来的文件名的文件,然后在程序一行行读入文件内容并做一些改动后,会保存到新文件中去。这样就相当于修改了文件内容,并将老文件进行了备份。当然,如果值是undef,则不会备份旧文件。

由于上面程序中将$^I = ".bak";放在最前面,但后面有两次读取文件操作。假设读入文件为file.pl,第一次while(<>)将原文件变成了file.pl.bak。然后新建一个空文件命名为file.pl;但新文件只有程序结束的时候才会写入磁盘中,所以接下来第二次读取文件操作while(<>)时,将会把空白的file.pl变成file.pl.bak,这样就覆盖了第一次的备份文件,然后再新建一个新的空白文件file.pl,此时,包括原文件和备份文件内容都是空白。

理解了$^I的工作原理,程序就很容易修改了:

只需将$^I = ".bak";放到最后一个文件读取操作while(<>)之前就好了,如下:

#!usr/bin/perl -w

my %do_these;
@ARGV = ("sinx.pl","nvidia.pl","changeName.pl");

foreach (@ARGV){
  print $_;
 $do_these{$_} = 1;
}

while(<>){
 if(/^## Copyright/){
  delete $do_these{$ARGV};
 }
}

@ARGV = sort keys %do_these;
$^I = ".bak";
while(<>){
 if(/^#!/){
  $_ .= "## Copyright (C) 2011 by yujianjun";
 }
 print;
}

这样基本上就可以了,大家可以根据需要自行修改。希望大家多多支持我们。

(0)

相关推荐

  • Perl 批量添加Copyright版权信息

    对所有输入文件,如果没有版权信息则加上版权信息,否则什么都不做,并对原文件以.bak结尾备份. 开始我使用如下程序(尝试前千万先备份输入的文件): #!usr/bin/perl -w $^I = ".bak"; my %do_these; foreach (@ARGV){ print $_; $do_these{$_} = 1; } while(<>){ if(/^## Copyright/){ delete $do_these{$ARGV}; } } @ARGV = so

  • asp.net网站底部的版权信息实现代码且可维护

    一个大网站页面很多,如果每个版权信息直接写在下面,日后想改动就需要找到每个页面进行修改,容易遗忘和出错. 下面说一种比较方便的方法: 用一个静态网页嵌套在网站下面,这样只需修改静态页面,所以的版权信息都变化了. 首先再你的网站下面添加:foot.html页面 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/

  • Hibernate实现批量添加数据的方法

    本文实例讲述了Hibernate实现批量添加数据的方法.分享给大家供大家参考,具体如下: 1.Hibernate_016_BatchAddData程序目录结构: 2.lib目录下所引入的jar包: 3.MedicineDao.java源代码: package com.xqh.dao; import java.util.List; import org.hibernate.Session; import com.xqh.model.Medicine; import com.xqh.

  • Discuz论坛标题和底部去掉版权信息实例讲解

    需求: 一.标题:打开template/default/common/header_common.htm文件,里面的代码如下 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/

  • Python批量添加图片水印的实现

    目录 一.前言 二.文字水印 三.图片水印 一.前言 现在盗图是非常常见的事情,许多人在使用图片时都不会标注图片的出处或者提及作者,这个时候水印就是个很好的东西了.我们可以给图片添加水印后再分享出去,这样就可以让其它人知道图片作者相关的信息.今天我们就带大家来实现水印的添加. 二.文字水印 在添加水印的时候,我们比较常用的就是文字水印.比如@ZackSock.@juejin:ZackSock等.这种水印的添加非常简单,只需要使用到Pillow模块的添加文字的操作即可,代码如下: from PIL

  • 批处理命令向win server AD域中批量添加用户实现(2种)

    目录 第一种方式:命令行传参添加 第二种方式:读取文件添加用户 因为要用个批处理命令在Windows Server里面批量添加域用户,所以需要使用批处理命令. 我这篇是纯新手教程,在百度上搜了一些批处理命令感觉属于进阶教程,研究了两天才完成我要完成的目标. 下面从头说一下: 批处理bat文档建立. 直接新建一个TXT文档然后把后缀名改成.bat就可以了,就是一个bat文档,双击可以运行.注意:bat文件在哪,他的运行路径就在哪.添加成功的用户 第一种方式:命令行传参添加 dsadd user "

  • asp批量添加修改删除操作示例代码

    核心代码: <title>asp批量添加修改删除操作示例</title> <% if request.Form("op")="update" then'表单提交 ids=request.Form("ids") if ids<>"" then response.Write "要删除的数据id集合:"&ids&"<br>"

  • php批量添加数据与批量更新数据的实现方法

    本文实例讲述了php批量添加数据与批量更新数据的实现方法.分享给大家供大家参考.具体分析如下: php如果要批量保存数据我们只要使用sql的insert into语句就可能实现数据批量保存了,如果是更新数据使用update set就可以完成更新了,操作方法都非常的简单,下面整理两个例子. 批量数据录入 设计方法:同时提交多条表单记录,为每一条记录设置相同的文本域名称,然后在表单处理页中,通过for循环来读取提取表单提交的数据,最后以数据的形式将数据逐条添加到数据库中. 其中,应用一个count(

  • Windows批量添加防火墙例外端口的批处理代码

    Windows批量添加防火墙例外端口 复制代码 代码如下: echo off cls set var=30000 set end=30010 :continue set /a var+=1 echo add port %var% netsh firewall add portopening TCP %var% ftp_data_%var% if %var% lss %end% goto continue echo complete pause 下面的文章特色就是,如果是按顺序的可以手工添加,也可

  • Windows2003下批量添加和导出所有ip BAT脚本

    批量添加IP 在cmd命令行下运行: 复制代码 代码如下: FOR /L %i IN (130,1,190) DO netsh interface ip add address "本地连接" 192.168.1.%i 255.255.255.192 往"本地连接"中添加"192.168.1.130~192.168.1.190"的所有IP,且子网掩码都是255.255.255.192 导出所有IP 写一个批处理bat文件,如下内容,运行 复制代码

随机推荐