perl基础-1
基础
向函数中传递两个数组，使用指针
sub getSql{(my a,my b)=@_;my @array=@$a;}
my @a;my @b;
getSql(\@a,\@b);
length($str);获取字符串长度
my $length=@array;获取数组长度
my @array=split(//,$str);将字符串按照空格隔开，形成数组，//之间放隔开字符串的根据
\s代表空格，\r\n代表文件换行
my $str="perl";
$str."hello" 将两个字符串连接在一起，结果为"perlhello"
比较两个字符串不能用==，用eq表示相等，ne表示不等
push(@array,str)把str放到@array数组里
uc($stt)转换成大写 lc($str)转换成小写
@ARGY 获取命令行输入
my (\$str)=@ANGY; ==> my \$str=$ARGY[0];
在函数体内使用shift来获取传入函数的数组元素；
定义数组用@
连接数据库
Postgre数据库
1、
$dbh=DBI->($constr,$user,$pwd);
$dbh->do("sql语句");
$sth=$dbh->prepare("sql语句");
$sth->execute();
while(@line=$sth->fetchrow_array())
{
print("@line\n");
}
$sth->finish();
$dbh->disconnect();
2、
my $psql="psql -a -h localhost -d Test -U postgres";
mysql -h localhost -u root -p
open(PSQL,"| $psql");
print PSQL<<ENDOFINPUT;
select * from student;
ENDOFINPUT
close(PSQL);
函数
函数可有参，可无参
shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素被弹出
对字符串的操作
http://blog.sina.com.cn/s/blog_68b01b370102we51.html
切割：
$text="Michael,Gevin,Mike"; @name=split(/,/,$text); #这时@name=("Michael","Gevin","Mike");
(a,b,$c)=split(/,/,$text); #这时$a="Michael";$b="Gevin";$c="Mike";
@name=split(/,/,$string,2); #这时@name=("Michael","Gevin");
数组长度： length($string)
substr
语法：substr($string,offset,length) offset代表起始字符的位置,length代表引用的字符串长度，如果省略length则代表从起始值到字符串的最后一个字符长度。而offset如果是负值的话，就会从字符串右边开始指定字符。
示例：
$s=substr("perl5",2,2); #这时$s="rl";
$s=substr("perl5",2); #这时$s="rl5";
$s=substr("perl5",-2,2); #这时$s="er";
index
语法：index($string,$substring,position) $substring是要寻找的字符；position代表从哪一个位置开始寻找，假如省略position就从头开始找起。
说明：返回所要找寻的字符在一字符串$string中的位置，如果在字符串中找不到字符的话，则会返回-1这个值。
示例：
$s=index("perl5","p"); #这时$s=0
$s=index("perl5","l",2); #这时$s=3
$s=index("perl5","perl"); #这时$s=-1
push
语法：push(@array,$string)
说明：在数组@array的最后附加新的元素 ($string)到数组@array中。
示例：
@array=("one","two"); push(@array,"three");
#这时$@array=("one","two","three")
pop
语法：pop(@array)
说明：将数组(@array)的最后一个元素删除，并将删除的元素返回。
示例：
@array=("one","two"); rm=pop(@array); #这时@array=("one");而rm="two";
unshift
语法：unshift(@array,$string) 说明：在数组@array的第一个元素前附加新的元素$string到数组@array中。
示例：
@array=("one","two"); unshift(@array,"three"); #这时@array=("three","one","two")
shift
语法：shift(@array)
说明：将数组@array的第一个元素删除，并将删除的元素返回。
示例：
@array=("one","two"); @rm=shift(@array);
#这时@array=("two");而$rm="one";
join
语法：join($string,@array)
说明：在一数组@array的元素之间加上一指定的字符$string,并将结果返回。
示例：
@array=("one","two","three");
$total=join("：",@array); #这时$total="one：two：three";
rand
语法：rand($interger)
说明：常和函数srand搭配来取得一随机数，如果没有先宣告stand函数的话，则取出的常数值是一个固定值。这个语法会返回一个介于0和$interger之间的数值，如果$interger省略的话，则会返回一个介于0和1 的数值。
示例：
srand; #要先宣告srand函数，才能产生随机数的效果
$int=rand(10); #$int的值会大于0而且小于10如果希望产生的乱数是整数的话，就要再加上int #这个函数
$int=int(rand(10)); #$int的值是一个整数，且值在0和9之间
