• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

perl基础-1

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

基础

向函数中传递两个数组,使用指针
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之间


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Openwebmail在Centoslinux上的安装[postfix,linux,perl]发布时间:2022-07-22
下一篇:
Perl发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap