学习学习再学习
文章平均质量分 62
ganmao
一只到处乱窜的猫
展开
-
美化CSDN Blog得郁闷!
真的好郁闷,今天本来想美化一下自己的Blog,可是很不顺手,好像我得session得影响,更新跟不上,气死了.等有空再来折腾,我参考的文章:此日志转自冰海蓝的BLOG地址:http://binghailan.e-city.com.cn为你的 Blog 添加“天气预报”功能。 Sun_Jianhua [原作] 在“选项”->“配置”的“静态新闻/声明”原创 2005-02-25 09:51:00 · 1086 阅读 · 0 评论 -
Getopt::Std模块简单实例
#!/usr/bin/perl -wuse strict; # always use strict, its a good habituse Getopt::Std; # see "perldoc Getopt::Std"my %options;getopts(f:hl, /%options); # read the options with getopts# uncommen原创 2008-07-29 15:47:00 · 640 阅读 · 0 评论 -
CYGWIN下的.bash_profile文件
# base-files version 3.7-1# To pick up the latest recommended .bash_profile content,# look in /etc/defaults/etc/skel/.bash_profile# Modifying /etc/skel/.bash_profile directly will prevent# setup f原创 2008-07-28 13:30:00 · 252 阅读 · 0 评论 -
shell下自动ftp脚本
ftp -i -n -v open 127.0.0.1user user_name user_passwdbinarycd /dir1/mget *cd /dir2/mget *EOF原创 2008-07-28 13:27:00 · 1140 阅读 · 0 评论 -
简单测试Oracle连接的脚本
#!/bin/perluse DBI;$dbname = "JSBSS_TEST";$user = "oss";$passwd = "as1a1nf0";$dbh = "";$dbh = DBI->connect( "dbi:Oracle:$dbname", $user, $passwd ) or die "Cant connect to Oracle database: $原创 2008-07-28 13:24:00 · 680 阅读 · 0 评论 -
采用Net::OICQ编写qq暴力破解程序
#!/usr/bin/env perluse strict;use Net::OICQ::TextConsole;#print "Crypt::OICQ version $Crypt::OICQ::VERSION, Net::OICQ version $Net::OICQ::VERSION/n";print "暴力扫描QQ用户列表密码!/n===========================原创 2008-07-28 13:15:00 · 1719 阅读 · 0 评论 -
Parse::RecDescent解析文本的例子
#!/usr/bin/perl -wuse strict;use Parse::RecDescent;use Data::Dumper;sub chomp_str{ my ( $str ) = @_; $str=substr($str,0,index($str,"/t")); return $str;}my $grammar = q{ one_da原创 2008-07-28 13:13:00 · 1010 阅读 · 0 评论 -
MD5验证的Perl脚本
#!/opt/perl/bin/perl -wuse strict;use Digest::MD5 qw(md5 md5_hex md5_base64);#校验文件函数sub calc_md5_hex() { my ($file_name, $ctx, $md5); ( $file_name ) = @_; open (FILEHANDLE,$file_n原创 2008-07-28 13:01:00 · 1988 阅读 · 0 评论 -
File::Find与文件时间比较的例子
#!c:/perl/bin/perl -wuse strict;use File::Find;my $file_num=0;sub l_time { my ( $__in_time ) = @_; my ($__now_time); eval{ my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday,原创 2008-07-28 12:57:00 · 670 阅读 · 0 评论 -
一个简单的Perl多线程脚本
===============================#!/usr/bin/perl -wuse strict;our $max_child = 20;$|=1;my $grp_pid = getpgrp();foreach my $item (1..80){ my $p_count = `ps -ef|grep ${grp_pid}|grep原创 2008-07-28 11:29:00 · 798 阅读 · 0 评论 -
cpio的使用
最近我们研发不知道中了什么魔,开始使用cpio来打包程序,发布.以前习惯了用tar,cpio还是需要习惯一下.查了查IBM的文档,将一些常用cpio使用列在这里,详细IBM文档见后面.解压整个cpio文档:cpio -idmv 列出归档中所有文件信息cpio -itv 释放出归档中指定文件列表(文件名称要与归档使用的路径相同,如相对路径等)cpio -idmv fil原创 2008-04-03 10:46:00 · 3282 阅读 · 0 评论 -
[Perl][Mail]关于邮件的几个模块
这几天净捣鼓收取邮件的问题了,一开始用了些基本的模块,很多问题解决不了,查找了文档才有点眉目.先说说环境:Cygwin+Perl5.8+Mail::POP3Client+MIME::Parser+MIME::Entity+Time::HiResMail::POP3Client 封装了基本的Net::POP3,使用起来更简单MIME::Parser是MIME::Entity的子类,就是原创 2008-04-02 22:08:00 · 2299 阅读 · 0 评论 -
Nutch 安装使用笔记
这几天有朋友让我一起看一些关于搜索引擎的技术,说实话我的专业还是信息搜集那,可惜在学校老师教的都是一些古老的信息整理方法,早就已经过时,不过我对信息搜集整理还是很感兴趣的。说正题吧,介绍一下这次需要试用的搜索应用:Nutch在网上了解到一些关于搜索引擎的知识,好像现在比较热门的就是Lucene,Nutch了,而且Nutch的主要开发人员Doug Cutting还是开发Lucene的。而且别的几种搜原创 2006-02-21 19:03:00 · 5343 阅读 · 0 评论 -
自己写的一个简单得shell得菜单
#!/bin/sh############################################################################## ganmao:2005-3-22## 一个简单得shell菜单,为了方便自己使用#### Usage():## menu.sh#######################################原创 2005-03-24 10:13:00 · 1591 阅读 · 0 评论 -
Perl模块安装到非默认路径及其使用
Perl安装到非默认路径的方式:perl Makefile.PL PREFIX=/lib/path Perl非默认路径模块的引用:Perl:use lib /lib/path;Shell:export PERLLIB=$PERLLIB:/lib/path perl -V可以查看@INC中的默认路径 这个路径卸载Config.pm文件中原创 2008-07-29 20:47:00 · 6530 阅读 · 0 评论