学习perl写的一个

#------------------------------------------------------------
# template.pl  Usage: template.pl [FILENAMES]
#------------------------------------------------------------
# TO :
#     Create Code Template
#     生成程序模板
#------------------------------------------------------------
# BY :
#     s91
#     s91.ctgu.cn@gmail.com
#------------------------------------------------------------
# PS :  
# Make sure that the files you want to create is not
# exist!enjoy it :)
#------------------------------------------------------------
# Date : 
#     2006.05.21
#------------------------------------------------------------
$t = @ARGV;
if ($t == 0)
{
 print "Usage: template.pl [FILENAMES]/n";
}
about();
foreach $s (@ARGV)
{
 @name = split //./,$s ;
 $ss = ">".$s;
 $l = @name;
 @name[$l-1]!~ tr/A-Z/a-z/;
 if ( @name[$l-1]eq"c"||@name[$l-1]eq"cpp"||@name[$l-1]eq"cc"||@name[$l-1]eq"h")
 {
  open(out,$ss)||die("Cannot Create files/n");
  print out ("/*");
  print out (("-")x57);
  print out ("*//");
  print out ("/n");
  print out ("#/n");
  print out ("# ");
  print out ($s);
  print out ("/n");
  print out ("#/n");
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# TO : /n");
  print out (("#/n")x2);
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# BY : /n");
  print out ("#     s91/n");
  print out ("#     s91.ctgu.cn/@gmail.com/n");
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# PS : /n");
  print out (("#/n")x2);
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("#/n");
  print out ("# Date :  ");
  print out (GetDate());
  print out ("/n");
  print out ("#/n");
  print out ("//*");
  print out (("-")x57);
  print out ("*//");

 }
 elsif(@name[$l-1]eq"pl"||@name[$l-1]eq"py")
 {
  open(out,$ss)||die("Cannot Create files/n");
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# ");
  print out ($s);
  print out ("/n");
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# TO : /n");
  print out (("#/n")x2);
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# BY : /n");
  print out ("#     s91/n");
  print out ("#     s91.ctgu.cn/@gmail.com/n");
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# PS : /n");
  print out (("#/n")x2);
  print out ("#");
  print out (("-")x60);
  print out ("/n");
  print out ("# Date :  ");
  print out ("/n");
  print out ("#     ");
  print out (GetDate());
  print out ("/n");
  print out ("#");
  print out (("-")x60);
  print out ("/n");

 }
 else
 {
  print "sorry,you should create this filetype by yourself/n";
 }
 
}
sub about()
{
 print "//=-----------------------------------=//r/n";
 print "|     code template create by s91     |/r/n";
 print "|        s91.ctgu.cn/@gmail.com        |/r/n";
 print "/=-----------------------------------=///r/n";
}
sub GetDate()
{
 my($year,$mon,$day)=(localtime)[5,4,3];
 $year+=1900;
 $mon+=1;
 my $today=sprintf("%04u/.%02u/.%02u",$year,$mon,$day);
 return $today;
}
 ==============================

没有写好!