Perl DBI培训笔记介绍说明.pdfVIP

Perl DBI 培训笔记 (2008-04-15 16:46:39) 转载 标签： 分类： 工作笔记 perl dbi NCR的 ETL 专用语言采用了 Perl ，Perl 的数据库编程是基于它的 DBI 函数库展开的，有点类似于 ADO。在 用 Perl 做 ETL 时，更多的只是采用它的 DBI 来嵌 sql 或存储过程，而将数据清洗、转换的工作交给数据库 去完成。 以下是我做的 Perl 培训笔记。 字符串的连接 $line = 123; $line .= 456 ; 当在大循环中，这种连接方式比 $line=$line.456 要高效； 格式化打印 $a = 0266; $b = 0xFF; print $a, $b\n; # 输出 182 255 printf %lo, %lX\n, $a, $b; # 输出 266 FF 系统命令 $file=line.pl; system(notepad $file); 控制程序流的结构 if() {} elsif() {} else {} while($i15){ last if ($i==5); 使当前正在运行的最里面的循环退出； $i++; } for($i=0; $i100; $i++){ next if (not $i%5); next 返回下一个循环， print 语句被跳过了； print $i } 可以对 while 与 for 循环块设置标号，然后对 last 与 next 指定标号，如 XXX:for() last:XXX; 数组赋值 @boy=qw(chenld lilac ldchen chenlianding linhw ruanjj gaosy chencj huangyk); 数组打印 print @boy ; print $boy[0]; print $boy[-1]; # 是指打印倒数第 1 个元素； print scalar(@boy); #=9 print $#boy; #=8 # 数组中最后一个元素的下标 $size=@boy; #=9 # 数组的大小 赋值运算符左边的表达式类型 ( 列表或标量 ) 用于决定右边的表达式计算时所在的上下文； 可以用一个称为 scalar 的特殊伪函数来强制将某个东西放入标题上下文； ($b)=@boy; 左边为列表； $a =@boy; 左边为标量； 当地时间 print scalar(localtime); ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdst)= localtime ; 数组的遍历 for($idx=0; $idx@boy; $idx++) {} foreach $person (@boy) { } @long=grep length($_)5, @boy; 有哪些信誉好的足球投注网站数组 @boy=split(/ /, chenld lilac ldchen linhw); 用空格进行分割； $numbers=join(,, (1..10)); 用逗号进行数字的组合； join( , sort @boy); 对数组进行重新排序； join( , reverse sort@boy); 对数组进行倒序操作； 对数组最后一个元素的操作 my @array = qw{11 22 33}; push @array, 00; # 把 00 添加在数组最后面； pop @array; # 把最后面一个元素 00 给丢弃掉； 对数组第一个元素的操作 my @array = (1...3); #1 2 3 shift @array; #2 3 unshift @arr