一、 Perl中常见的函数
1. chop函数会砍掉字符串变量的最后一个字符，并返回砍掉的字符。示例：$last_char = chop($var);
2. split函数 split(/pattern/,$text,limit)其中/pattern/是文字处理模式，而limit是代表要分割的个数，一般可以省略。
3. keys函数 keys(%array) 取出关联数组%array中全部的key.
4. Values函数 values(%array) 取出关联数组%array中全部的value.
5. reverse函数 reverse(@array)将数组中的元素由后到前重新排列。
6. sort函数 sort(@array)将数组中的元素由小到大排列
7. length函数 length($string)求字符串中$string的字节值
8. substr函数 substr($string,offset,length)返回给定字串的子串。Offset代表起始字符的位置，length代表引用的字符串的长度。
9. index函数 index($string,$substring,position)在字串中寻找子串。
10. push函数 push(@array,$string)在数组中添加新的元素到数组的末尾
11. pop函数 pop(@array)将数组的最后的一个元素删除，并将删除的元素返回
12. unshift函数在数组的第一个元素前附加新的元素。
14. join函数 join($string,@array) 在数组@array的元素之间加上一些指定的字符$string，并将结果返回。
15. grep函数 grep(/pattern/,@array)将符合文字处理模式的数组元素找出来。
16. rand函数 rand($interger)常和srand配合来取随机数。
二、 在perl中连接数据库
sub connect_MysqL
{
my %info =(dbname=>$CCMS_GENERAL{'database'}{'dbname'},
dbhost=>$CCMS_GENERAL{'database'}{'dbhost'},
dbport=>$CCMS_GENERAL{'database'}{'dbport'},
dbuser=>$CCMS_GENERAL{'database'}{'dbuser'},
dbpasswd=>$CCMS_GENERAL{'database'}{'dbpasswd'},
dbsock=>$CCMS_GENERAL{'database'}{'dbsock'});
$dbh=DBI->connect("DBI:MysqL:database=$info{'dbname'};host=$info{'dbhost'};port=$info{'dbport'};MysqL_socket=$info{'dbsock'}",$info{'dbuser'},$info{'dbpasswd'})ordie "Can't Connect Database Server: $!";
return($dbh);
}
三、 在perl中连接AMI
sub connect_ami
{
my ($res,$ret1);
my %info = (host=>'localhost',
port=>5038,
user=>'ccms',
secret=>'ccms'
);
#CONNECT
my ($host,$addr,$msg);
$host = inet_aton($info{'host'});
socket($SOCK,AF_INET,SOCK_STREAM,getprotobyname('tcp'));
$addr = sockaddr_in($info{'port'},$host);
connect($SOCK,$addr) or die "Can'tConnect to Asterisk Manager Port : $!";
$msg = <$SOCK>;
if ($msg !~ /Asterisk Call Manager/){
die "Connect not ok!";
exit;
}
send($SOCK,"ACTION:LOGIN\r\nUSERNAME: $info{'user'}\r\nSECRET: $info{'secret'}\r\nEVENT:ON\r\n\r\n",0);
$res = <$SOCK>;
if ($res =~ /Success/){
$ret1 = "a";
}else{
$ret1 = "b";
}
return($ret1);
}
四、 多进程
use Socket;
use DBI;
use strict;
use warnings;
use POSIX ":sys_wait_h";
my $num_proc=0;
my $num_collect=0;
my $zombies;
my $collect;
$SIG{CHLD}=sub{$num_proc--};
for (my $i = 0; $i < 10; $i ++){ ## == fork a new process == my $pid = fork(); if (!defined($pid)) { print "Error in fork: $!"; exit 1; } if ($pid == 0) { ## == child proc == print "Child $i : My pid =$$\n"; sleep(5); print "Child $i : end\n"; exit 0; } ## == if need to collect zombies == if ($zombies > 0) { while (($collect = waitpid(-1,WNOHANG))> 0) { $zombies --; } } sleep(1); }