#------------------------------------------------------------
# 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;
}
==============================
没有写好!