Perl DBI培训笔记.docVIP

Perl?DBI培训笔记 (2008-04-15 16:46:39) 转载 标签： 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 255printf %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 3shift @array;? ???????? #2 3unshift @array, -1;? ?#-1 2 3unshift @array, -2;?? #-2 -1 2 3 哈希结构的赋值$food{apple}=水果; $food{pear}=水果; $food{carrot}=蔬菜;%food=(apple, 水果, pear, 水果, carrot, 蔬菜);%food=(apple=水果, pear=水果, carrot=蔬菜);? ? 哈希的引用print $food{apple};foreach $one (keys %food) {print $one\n;? print $food{$one}\n}@one=values %food;??@two=keys %food;@three=%food; if (exits $Hash{keyval}) {判断是否存在哈希关键字；}delete $Hash{keyval};? 删