perl 给第个程序加上自己的信息。

#! /usr/bin/perl -w

@athur = "## Copyright (C) 2010 by Jia-Xianhua";    #版本信息

$^I = ".bak";                                       #备份

while (<>) {

    if (/^#!/) {                                     #是以 #! 开头的行吗？

        $_ .= @athur;

    }

    print;

}