学习perl写的一个

最新推荐文章于 2025-12-31 22:03:23 发布

原创最新推荐文章于 2025-12-31 22:03:23 发布 · 743 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #filenames #date

部署运行你感兴趣的模型镜像

#------------------------------------------------------------
# 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;
}
==============================