学习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快速学习记录

转载请注明出处:http://github.tiankonguse.com/blog/2015/03/05/perl-base-study/ 前言 2014年也是这个时候,我实...
  • u012467492
  • u012467492
  • 2015年07月17日 15:33
  • 280

perl 读写xml举例

1. xml脚本内容如下: 2 perl脚本如下: #!perl -w use XML::Simple; use Data::D...
  • bruce_wang_janet
  • bruce_wang_janet
  • 2012年07月26日 21:07
  • 1491

Perl入门(五)Perl文件读写

 Perl文件夹操作 Perl创建、删除、修改文件夹 mkdir("文件夹名称",权限); rmdir("文件夹名称"); rename("旧文件夹名称","新文件夹名称"); 权...
  • sunshoupo211
  • sunshoupo211
  • 2014年06月20日 08:57
  • 1498

Mason 简单笔记

Mason的对象 ------------------------------- Request对象 Mason有两个全局预处理对象叫做:$r和$m $r是mod_perl的请求对象,它提...
  • rommel1
  • rommel1
  • 2013年07月29日 22:40
  • 2055

Perl语言学习书籍(持续整理)

建议最佳阅读顺序:小骆驼->羊驼->大骆驼->小羊驼母亲和孩子->高效黑客->猎鹿犬->黑豹   1、英原版《Programming Perl》Larry Wall 、Tom Christianse...
  • Henjay724
  • Henjay724
  • 2012年12月26日 10:36
  • 4214

Perl/Tk入门学习(上)

使用Perl/Tk模块编写简单的选择文件的GUI。
  • u014108145
  • u014108145
  • 2017年02月23日 11:20
  • 255

为什么我们要学/用Perl?

今天发现我这个博客已经一个多月没有更新了,这个实在和初衷不符,另外项目压身,也是没有办法的事情,不过等这个项目做出来,或许还能写一篇日志留作后人用。         这篇日志是谈以Linux为开发...
  • u010956692
  • u010956692
  • 2014年03月27日 18:45
  • 2053

perl中如何查看文件或目录的时间

#!/usr/bin/perluse POSIX qw(strftime);while($filename = ){    if (-d $filename){        print "Direc...
  • mjk
  • mjk
  • 2009年11月07日 16:52
  • 581

使用perl读写excel表格

用perl读写excel表格1. 说明:最近对perl很感兴趣,正好朋友问我一个excel的问题,不想用宏来写,就用perl练了练手。 所用相关知识如下:    1) perl hash   2) w...
  • sirix
  • sirix
  • 2008年05月14日 16:39
  • 1674

今天终于把perl写出来了

别人给的提示: 把搜索结果打印出来 hash my $sth = $dbh->prepare("SELECT * FROM foo"); $sth->execute(); while (my $re...
  • u012467492
  • u012467492
  • 2015年10月08日 15:29
  • 268
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:学习perl写的一个
举报原因:
原因补充:

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