学习perl写的一个

原创 2006年05月30日 11:07:00

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

没有写好!

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

perl写的一个端口扫描

#!/usr/bin/perl -wuse IO::Socket; #载如IO::Socket包use threads;use threads::shared;my $thread_number: s...

分享:用四十种语言分别写一个MD5算法 之27 Perl语言MD5算法

分享:用四十种语言分别写一个MD5算法 之27 Perl语言MD5算法 Library: Digest::MD5MD5 use Digest::MD5 qw(md5_hex);   ...
  • sooch
  • sooch
  • 2011-08-12 21:43
  • 494

perl写的一个文件二进制文件trace切割

#! usr/bin/perl -w open (TRACE,"removeflash.trace") or die "$!"; binmode(TRACE); #{ #die"open fi...

分享:用四十种语言分别写一个MD5算法 之28 Perl 6语言MD5算法

分享:用四十种语言分别写一个MD5算法 之28 Perl 6语言MD5算法 Perl 6 Library Digest::MD5   use Digest::MD5; say ...
  • sooch
  • sooch
  • 2011-08-12 21:43
  • 508

一个Perl写的Http服务器

通过一个实例简单了解perl

这是一个用户管理的小软件。需要输入正确的密码才能进入系统,密码通过.secret文件保存,将用户输入错误的密码通过dbm文件保存到本地,并且通过mail通知管理员#!/usr/bin/perl-w #...

一个Perl 用户的Python 之旅

作为万年Perl 党表示最近开始学Python 了,下面会记录一下学习中Python 和Perl 的对比,如果你也是一个Perl 用户,看过了也会对Python 有一个大致的印象吧。 事实上,写着写...

一个Perl 用户的Python 之旅

作为万年Perl 党表示最近开始学Python 了,下面会记录一下学习中Python 和Perl 的对比,如果你也是一个Perl 用户,看过了也会对Python 有一个大致的印象吧。 事实上,写着写...

用PERL实现一个简单的NIDS

  • 2009-07-12 10:48
  • 277KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)