Question

一个简单的perl编程

linux环境下的脚本，功能如下：
当一个电话打进来以后，通过这脚本判断该电话是固话还是手机号码。
通过电话号码的前几位来判断，比如136 139 138.....的是手机 0519的是固定电话

Answer 1

#！/usr/bin/perl -w

my $phone_code;

if ($phone_code=~m/^1.*?)
print "手机";
else
print "固话";

追问

~m/^1.*?

这是什么意思？我是新手 谢谢

追答

~m/^1.*?这个写错了 应该是 ~m/^1.*?/g
^_^，
if($phone_code = ~m/^1.*?/g) 这句话的意思是说 在电话里需找以1开头的号码 就是手机

追问

那如果需要判断多几位呢？比如要判断是136还是151的
应该怎么写？

追答

那就是^13.*? 或 ^15.*?呗 你要是 3与5或者8 一起的 就这样 ~m/^1[358]+?.*?/g

Answer 2

这个主要难度应该是怎么得到打进来的电话号码

不知道你们的电话系统是怎么实现的，不知道是不是通过asterisk
如果是，结合拨号方案和agi脚本（就像楼上的）应该可以实现

追问

是通过asterisk实现的
我对~m/^1.*?不是很明白
你能给我解释一下吗

追答

那个是perl 里面的模式匹配
$phone_code=~m/^1/
其实应该是这样，是一个正则使用，具体可以看下正则用法
意思就是那个 phone_code 里面是否匹配 以 1开头
if($phone_code=~m/^1/){
如果以1开头，是电话

}else{
不是1开头，是固话

}