摘要: package basic.day14;import java.text.DecimalFormat;import java.util.ArrayList;import java.util.Collections;/* * 时间对比排序程序 * 2012/10/24 * */public class TimeDemo { //定义类的私有属性 private int hour; private int minute; private int second; //时间构造器 public TimeDemo(int h,int m,int s){ ... 阅读全文
posted @ 2013-02-26 22:10 墨迹哥's 阅读(656) 评论(0) 推荐(0) 编辑
摘要: package study3_day05;/** * * 车的泛类型模拟Demo * * 定义一个多选项的类 * 包含了车的价格和名称,进行了封装。 * */public class Car<Name,Price> { private Name n; private Price p; public void setName(Name n){ this.n = n; } public void setPrice(Price P){ this.p=p; } public Name getName() { ... 阅读全文
posted @ 2013-02-26 22:09 墨迹哥's 阅读(177) 评论(0) 推荐(0) 编辑
摘要: #!/usr/bin/perl#set moduleuse DBI;#scanf the mysqluserprint "请输入mysql帐号:\n";chomp($mysql_n=<STDIN>);print "请输入mysql密码:\n";chomp($mysql_p=<STDIN>);print "请输入需要连接的数据库:\n";chomp($mysql_d=<STDIN>);#connect mysqlmy $in=DBI->connect("DBI:mysql:databa 阅读全文
posted @ 2013-02-26 22:08 墨迹哥's 阅读(361) 评论(0) 推荐(0) 编辑
摘要: #!/usr/bin/perl$i=0;while(<>){#读取数据后去掉换行符chomp;#把获得的一行数据进行切割@log_grep=split(/"/,$_);#把切割后的数据交给后面的子程序进行处理&grep_log_main(@log_grep);#输出处理后的结果print "源访问ip地址:$ip_home 访问日期:$yym 访问时间:$xiaoshi:$fenzhong:$miao 访问动作:$options 访问目录:$pwd 响应头:$head 浏览器源:$liulanqi \n";}################## 阅读全文
posted @ 2013-02-26 22:07 墨迹哥's 阅读(606) 评论(0) 推荐(0) 编辑
摘要: 不多说了,这个脚本是我刚学得时候写的。。#!/usr/bin/perluse Getopt::Std;use vars qw( $opt_t $opt_l $opt_n $opt_p);use Parallel::ForkManager;print "-----------------------------------------\n";print "| |\n";print "| Poject of Log-grep |\n";print "| ... 阅读全文
posted @ 2013-02-26 22:06 墨迹哥's 阅读(301) 评论(0) 推荐(0) 编辑