今天明月在chinaunix论坛看到有人问用perl的DBI如何获取oracle的建表语句,直接用desc不能成功。想起几年前明月有个代码也遇到过这个问题,就总结如下:

第一种方法:

#数据库数据类型对应关系
my %sql_type = (
1 =[……]

继续阅读

分类: oracle, perl 标签:

这个挺有意思的。地址是: http://segmentfault.com/game/ 

其他就不多写了。

第10关明月写了个脚本:

#!/usr/bin/perl
use MIME::Base64;
open F ,">a.tar.gz&qu[......]

继续阅读

分类: perl 标签:

正则表达式的回溯是指:当正则引擎匹配到失败的时候,回到之前标识的位置从新开始匹配的过程。具体介绍可以看下:http://www.jb51.net/article/22993.htm

实例:

my $html = "<table><tr&gt[……]

继续阅读

分类: perl 标签: ,

下面正则表达式匹配出括号内容:
 
[……]

继续阅读

分类: perl 标签: ,

之前遇到过这样一个问题:

需求:
想要实现这么一个功能,现有一个字符串文件,比如说是有abcdefghijklmn,另外有一个文件是这样的信息:
5       e
7  &nbs[……]

继续阅读

分类: perl 标签: , , ,

 

下面例子演示地址直接的关系。

 

use Devel::Peek;
my $mem = "abc";
my $a=pack( 'P', $mem );
print \$mem."\n";[......]

继续阅读

分类: perl 标签:

把一个字母转换成2进制位:
需要在前面加 v,不然只能转换数字。
perl -e 'printf "%0v8d",q{Aas};' 中间默认是 '.'号。
结果是 :00000065.00000097.00[……]

继续阅读

分类: perl 标签: ,

进制转换:\x{100},\d{12} …大小写: "\LASDFA"
ASCII字符判断

perl -i.bk -pe 's/[^[:ascii:]]//g;' file
perl 执行树

perl -MO=Ter[……]

继续阅读

分类: perl 标签: , , , , , ,

SEO Powered by Platinum SEO from Techblissonline