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之间