- 博客(16)
- 收藏
- 关注
原创 perl 文本文件入库
#!/usr/bin/perluse DBI;my $driver="DBI:mysql";my $database="test";my $user="root";my $host="localhost";my $passwd="luogen30";my $dbh = DBI->connect("$driver:database=$database;host=$ho
2011-09-27 00:22:41 129
原创 perl与mysql
一、简介PERL应用数据库由两种方法,其一是利用本身所配置的DBM包,这个可以建立数据库并对其进行操作,因此可以把DBM包以及其他类似的包看作是一个数据库的扩展。另一个就是利用DBI包或者类似的包建立与其他关系型数据库的连接,显然,我们通常需要利用后者。数据库接口(DBI)是由TIM BUNCE(Tim.Bunce@ig.co.uk)所书写,DBI是专门为PERL所书写。你可以在...
2011-09-27 00:20:06 84
原创 perl操作oracle数据库
到:http://search.cpan.org/~timb/DBI-1.613/lib/DBI/DBD/SqlEngine.pm下载DBI-1.6和到:http://search.cpan.org/~pythian/DBD-Oracle-1.21/下载DBD-Oracle-1.21[root@localhost ~]# tar zxvf DBI-1.613.tar.gz[...
2011-09-26 23:31:25 420
原创 perl操作mysql数据库
#!/usr/bin/perl -wuse DBI;my $driver="DBI:mysql";my $database="test";my $user="root";my $host="localhost";my $passwd="luogen30";my $dbh = DBI->connect("$driver:database=$database;host=
2011-09-26 23:06:46 159
原创 perl中获取某个域名的全部ip
#!/usr/bin/perlmy @dns=`nslookup www.baidu.com `;@ip;@iptable;for(2..$#dns){ $row = $dns[$_]; if($row =~ /\d+/) { $row =~ /(\d+\.\d+\.\d+\.\d+)/; push @ip, $1; }}foreach (@...
2011-09-26 22:26:19 216
原创 perl中获取浮动ip
通过strace ifconfig命令可以看到,linux实质是通过ioctl命令完成的网络接口ip获取。那么,我们也用ioctl就是了!如下:#!/usr/bin/perluse strict;use warnings;use Socket;require 'sys/ioctl.ph';sub get_ip_address($) { my $pack...
2011-09-26 22:20:47 72
原创 perl中去掉字符串中空格
Perl codeuse strict;use warnings;my $str=" \n aaa bbb\n ";$str=~s/^\s+|\s+$//g;print($str);^Daaa bbb
2011-09-26 22:02:33 1064
原创 get the max num in bash language
#!/bin/bash #get the max num echo; echo "------test get the max num of two nums----- "; EQUAL=0; E_PARAM_ERR=-9999; max2() { if [ -z "$2" ] then echo $E_PARAM_ERR; return; fi ...
2011-09-06 23:36:49 67
原创 perl操作数组
#!/usr/bin/perl -w #test the string print "hello" ." ". "world!\n"; #字符串连接 print "hello" x 4 . "\n"; print "ha" x (2+3) . "\n"; print "12ggdd" * 3 ."\n"; #启
2011-09-06 23:34:14 97
原创 bash操作数组
#!/bin/bash declare -a colors; echo "Enter your favorite colors (septated from each other by space)."; read -a colors; #get the length of array element_count=${#colors[@]}; index=0; #a...
2011-09-06 23:31:58 58
原创 dblink常用方法
dblink常用方法: 1. 创建dblink -- Create database link create public database link XMDS_KF connect to L2105 using '(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)...
2011-09-06 23:27:24 92
原创 数据库分页
1. 数据库分页: mysql: select * from A limit startRow,endRow oracle: select b.* from (select a.*,rownum as linenum from (select * from A) a where rownum= startRow H...
2011-09-06 23:25:42 42
原创 java从文件尾部读文件
package read.file.form.emd;import java.io.FileNotFoundException;import java.io.IOException;import java.io.RandomAccessFile;public class ReadFileFromEndUtils { public static void main(...
2011-09-01 00:44:11 354
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人