2008年07月_ganmao

10月 09月 08月 07月 04月

转载 IE打不开.xml文件弹出下载对话框的解决办法

登录网站用.xml文件做的时,提示下载,根本打不开. 我试图在文件夹选项可注册表中重新设置打开方式，结果还是不行。。到网上搜索一下相关的方法呢。果然搜索到了，使用以下命令就可以恢复XML文件的默认关联：REGSVR32 MSXML3.DLL 运行之后，XML的打开方式就恢复默认了。

2008-07-31 09:38:00 3602 2

原创 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 6375

原创 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 631

原创 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 233

原创 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 1129

原创简单测试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 668

原创采用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 1701

原创 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 989

原创 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 1945

原创 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 660

原创一个简单的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 787