红红火火蒸蒸日上

摘要： 最近正在 修改《公交线路查询系统》，做系统的时候都是用NULL布局，由于NULL布局调用windows系统的API，所以生成的程序无法在其他平台上应用，而 且如果控件的数量很多，管理起来也比较麻烦，最近我发现一个非常强大的布局模式 ：GridBagConstraints布局，先发一个实例： grid... 阅读全文

摘要： gridx = 2; // X2gridy = 0; // Y0gridwidth = 1; // 横占一个单元格gridheight = 1; // 列占一个单元格weightx = 0.0; // 当窗口放大时，长度不变weighty = 0.0; // 当窗口放大时，高度不变anchor = ... 阅读全文

摘要： 如果有两组数据，需要判断是否重复，怎样快速给出结果呢？思路：将数据赋给一个hash作为键，然后合并两个hash为新hash，再检查键的数量，看是否减少。问题：如何把数组只赋给hash的键而其对应的值随意填充？用split函数。1 # 判断两组数据是否有重复值2 my @t1=("a",1,2,"d","f");3 my @t2=("c",2,"f","g",3,"i","t");4 my %t1=split(":", 阅读全文

摘要： Learning Java the O'Reilly's Way (Part I)Java 技术可以说是越来越重要了，不但可以用在计算机上，甚至连电视等家电用品，行动电话、个人数字助理(PDA)等电子产品，以及智能卡都可以透过 Java 的技术来为人们创造更便利的生活。许多人因此对 Java 感兴趣，想好好学习 Java。因为讲授 Java 课程的关系，这几年来，不少人问我：怎样才能学好 Java，我给他们的建议很简单 ---『多读 Java 的好书，可以有系统又轻易地获得许多高手的经验』。其实，我说的也是我自己的经验。『那么，要看什么书呢？』我知道你会这么问。毕竟书店里 Ja 阅读全文

摘要： 我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知.用到email::send模块,因为需要用到Gmail复制代码代码如下:#!/usr/bin/perluse warnings;use strict;use Email::Send;use Email::Send::Gmail;use Email::Simple::Creator;my @list = qw/1.1.1.12.2.2.23.3.3.3/;foreach my $re (@ 阅读全文

摘要： 这个perl文件将执行的任务是， 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下本应用程序设计的几个基本理念是：工具箱再利用：尽可能利用已有的工具；简化运行步骤；不引入过多的业务逻辑，满足的需求越简单越好。所以，我们定义了本应用程序依赖于以下几个工具的运行：ActivePerl-5.8.4.810-MSWin32-x86Upload.plUpload.config我们将主要的执行逻辑都放在Perl源文件Upload.pl中了，配置文件为Upload.config。这个perl文件将执行的任务是， 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp 阅读全文

摘要： perl特殊符号及默认的内部变量，有需要的朋友不妨参考下Perl的特殊符号@ 数组$x{} x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素% 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。$! 系统产生的一些可读的信息,也可能是出错的信息$_ 子函数参数变量自己本身@_ 子程序的私有变量&x 调用子函数x 数据输入.如果没有指定文件名,则其从标准输入流中自动打开和关闭一系列文件进行读入Perl默认的内部变量$- 当前页可打印的行数,属于Perl格式系统的一部分$! 根据上下文内容返回错误号或者错 阅读全文

摘要： perl，后来我又改过了增加了一些交互和数据库检测的功能。主要用于收集ip、mac、姓名、房间，后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。代码如下:主要用于收集ip、mac、姓名、房间，后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。#############################usestrict;useTk;useEncode;#SOCKE参数my$PF_INET=2;my$port=2345;my$remote_addr=pack('SnC4x8',$PF_INET,$port,192,168,138,228);my$SOCK_DG 阅读全文

摘要： 默认状态下，很显然都是用\n来区分行，\n也被我们称作为换行符。当读取序列时，按行来读取时，就是以换行符为标准。读取的strawberry1.gb的文件内容如下：LOCUSJX118024460bpDNAlinearPLN25-SEP-2012DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)gene,partialcds;plastid./ACCESSIONJX118024//VERSIONJX118024.1GI:402238751KEYWORDS.how///SOURCEplastidFragaria 阅读全文

摘要： perl中尖括号运算符的用途分享，这里简单介绍下，方便需要的朋友 perl中运算符可以有如下的用途：1)如果尖括号中间是文件句柄，尖括号运算符允许你读取文件句柄，比如。2) 如果尖括号中间是搜索模式，尖括号运算符能返回与该模式匹配的文件列表，这称为一个glob，比如。3)一组尖括号运算符如果中间没有任何东西，那么它可以读取命令行上所有文件的内容；如果没有给出文件名，则可以读取标准输出。请看下面这段代码：代码如下: while(){ print $_; }如果将上面的程序保存为Example.pl，那么用下面这个命令行运行该程序：代码如下: #perl –w Example.pl file1 f 阅读全文