luciferic-CSDN博客

原创 Win32环境下 Perl DBI安装

环境建立安装MySQL 5.0Win32环境下安装Active Perl,默认安装中是不包含DBI数据库包的，以在http://ppm.activestate.com/PPMPackages/zips下载对应的Perl模块，解压缩后用ppm install DBI.ppd命令安装注意版本必须与Active Perl一致，否则安装会出错，出错信息大意"(无法找到合适的安装目标)"安装顺

2007-03-06 11:33:00 2332

原创 Something about Perl (4) 流程控制

unless结构可以看作ifnot()until可以看作while_not()适当使用这两种结构可以简化条件判断表达式在perl中执行系统命令$result = `/bin/ps`;一个用perl写的脚本,用于杀死系统中后台运行的perl程序 1 #!/usr/bin/perl -w 2 3 my $PS = `/bin/ps`; 4

2007-02-07 10:55:00 549

原创 Perl 中的正则表达式扩展

在Perl中使用正则表达式处理文本 $_ = "Hes out bowling with Barney tonight."; s/Barney/Fred/; # 将所有Barney替换为Fred print "$_/n";s/文本替换可以在替换的同时引用原字符串接上例: s/with (/w+)/against $1s team/; print "$_/n";

2007-02-01 14:41:00 1681

原创 Perl 中的正则表达式基础

Perl Regular expressionsStart with a simple example: $_ = "yabba dabba doo"; if (/abba/) { print "It matched!/n"; }/abba/是一个正则表达式,在程序中匹配$_变量的字符串,返回值只可能是true或false大部分/转义字符都有效例如/first/ts

2007-01-30 16:39:00 1866

原创 Something about Perl (3) 输入输出

在foreach和while循环中的不同在while循环中使用默认变量$_while () { print "I saw $_";}打印每条输入(包含换行符)使用foreach循环完成同样的工作foreach () { print "I saw $_";}这里有着细微的不同,在while循环中,每次读取的一行,然后进入循环处理.而foreach循环中,被用在一个数组语境中,因此在运

2007-01-24 15:26:00 925

原创 Something about Perl (2) 函数哈希表

函数：sub关键字用于定义函数sub function_name{ do_something;}调用函使用符号& ampersand&function_name;函数的返回值初步通常返回代码块中最后执行语句的值。例如：sub list_from_fred_to_barney { if ($fred # Count upwards from $fred to $ba

2007-01-22 14:35:00 1685

原创 Something about Perl (1)

# 行末注释，类似于C中的//" " 双引号double-quoted的内部会对@$等符号展开为变量或数组单引号的内部不展开，仅仅视作原本的字符Hello/n与"Hello/n"是两个不同的字符串/转义字符slash/// 是一个字符串，内容为/变量不能以数字开头使用变量以$解析Perl中的数字科学计数法为-1.36E-23 或32.1e23大小写e都是允许的可

2007-01-22 14:33:00 820

奎木狼的笔记本