- 博客(11)
- 资源 (4)
- 收藏
- 关注
转载 IE打不开.xml文件弹出下载对话框的解决办法
登录网站用.xml文件做的时,提示下载,根本打不开. 我试图在文件夹选项可注册表中重新设置打开方式,结果还是不行。。 到网上搜索一下相关的方法呢。果然搜索到了,使用以下命令就可以恢复XML文件的默认关联:REGSVR32 MSXML3.DLL 运行之后,XML的打开方式就恢复默认了。
2008-07-31 09:38:00 3599 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 6344
原创 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 628
原创 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 231
原创 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 1128
原创 简单测试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 666
原创 采用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 1698
原创 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 987
原创 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 1944
原创 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 659
原创 一个简单的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 783
rinetd aix版 一个端口转发工具
2009-10-15
PleacPerl.chm
2008-04-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人