摘要：
迷宫求解，可以用穷举法，将每个点的方向都穷举完；由于在求解过程中会遇到某一方向不可通过，此时就必须按原路返回。 想到用Perl数组来保存路径，记录每次所探索的方向，方便原路返回时得到上一步的方向，再退回到可以通过的方向，继续探索，直到终点或者最终无法到达，正常退出程序为止。求解过程的关键思想：... 阅读全文
摘要：
一时兴起，想试试能不能用perl实现字符贪吃蛇，算法如下： 定义2个数组@bg、@snake，@bg用来显示整个界面，@snake从蛇头开始保存蛇的坐标点。 蛇每移动一次，新的坐标点放到@snake头部，并去除最后一个元素，再改变@bg对应坐标的值。 通过控制台窗口不断清屏再打印，使蛇“看... 阅读全文
摘要：
配置了多块网卡后，需要指定数据包由哪块网卡发送，否则可能无法访问内网，这就要用到静态路由了。 配置静态路由有多种方式： 1、修改 /etc/rc.local 文件，这样每次重启后就会自动添加，如： echo "route adddefault gw 10.0.2.2 dev eth0"... 阅读全文
摘要：
为了使VirtualBox里的centos虚拟机能连接网络，需给虚拟机分配一个使用NAT的网卡： 为了通过SSH连接虚拟机，需要再分配一个网卡，桥接至物理机的某一网卡。这里新建一块环回网卡： 运行里输入 devmgmt.msc 打开设备管理器，并选择“添加过时硬件”： 安装... 阅读全文
摘要：
查找N内的所有素数，首先想到的就是： 对整数N从2开始到sqrt(N)，进行整除计算，能整除则计算N+1，然后循环。方法简单，但效率低下。1000,000内的素数个数：#!/usr/bin/perl -wuse strict;my $num=1000001;my $count=0;whil... 阅读全文
摘要：
某数据库有几张表更新，本地数据库增量更新数据，用脚本定时执行实现。 由于无blob/clob字段,使用sqlldr导入数据:查询目的数据库,以"|"分割导出所有数据,保存在./data/tablename.new 比较 tablename.new和tablename.old，将 tablen... 阅读全文
摘要：
密码到期后更改密码为原密码，服务器多时工作量巨大，编写脚本完成。 登陆后修改提示符为: doraemon# 方便expect匹配 修改LANG=C，提示为英文防止干扰： #!/usr/bin/expect###########################################... 阅读全文
摘要：
现场服务器较多，密码3个月过期，在到期时需更改密码。 使用expect编写，尝试登陆2次后退出（防止密码错误时账号锁定），超时重试一次。 shell脚本调用并定时执行，登陆成功后执行一条命令，如：hostname、uname等，根据退出状态判断密码是否到期。 0--正常 1--传入参数错... 阅读全文
摘要：
话说某天一艘海盗船被天下砸下来的一头牛给击中了,5个倒霉的家伙只好逃难到一个孤岛,发现岛上孤零零的,幸好有有棵椰子树,还有一只猴子! 大家把椰子全部采摘下来放在一起,但是天已经很晚了,所以就睡觉先晚上某个家伙悄悄的起床,悄悄的将椰子分成5份,结果发现多一个椰子,顺手就给了幸运的猴子,然后又悄悄... 阅读全文