DTMF 有声音文件吗，附送一个opera/csv通讯录音频拨号

[eexpress]

找wav。没找到。
看谁有。

[eexpress]

dtmfdial calebot找的。居然没想到源有。

[eexpress]

写一个opera通讯录音频拨号的。试试电话话筒，放电脑喇叭边吧。

代码： 全选

#!/usr/bin/perl

$file="$ENV{HOME}/.opera/contacts.adr";
# 规则。空行为段。段内取NAME和PHONE的部分。

my $con;
if (open(PN,$file)){
while(<PN>){
chomp;
$name=$',next if /NAME=/;
$con=$con."'".$name."' '".$'."' " if /PHONE=/ && $';
}
}
close(PN);

#print "$con\n";
$num=`zenity --list --width 300 --height 500 --text="DTMF拨号，选择联系人" --column="联系人" --column="电话号码" --hide-column=2 --print-column=2 $con`;
chomp $num;
$cmd="dtmfdial \'$num\'";
print $cmd;
`$cmd`;

/dev/dsp: Device or resource busy
不知道为什么。

[daf3707]

自娱自乐

[eexpress]

● esddsp dial.pl



$cmd="esddsp dtmfdial \'$num\'";

[eexpress]

加了一个支持csv的。

代码： 全选

● cat dial.pl 
#!/usr/bin/perl

# --------------------------------------------
$csv="/home/exp/文档/个人文件/通讯录.csv";
# 索引Name,E-mail,Mobile,Phone,Note

if (open(PN,$csv)){
$_=<PN>;
@index=split /,/;
#$i=0;
my $name=-1,$phone=-1,$i=0;
while($i<@index){
$name=$i if($index[$i]=~/Name/);
$phone=$i if($index[$i]=~/Mobile/); # Mobile/Phone 选择一个。
$i++;
}
if($name>=0 && $phone>=0){
while(<PN>){
chomp;
@index=split /,/;
$con=$con."\'$index[$name]\' \'$index[$phone]\' " if $index[$name] && $index[$phone];
}
}
}
close(PN);

# --------------------------------------------
$file="$ENV{HOME}/.opera/contacts.adr";
# 规则。空行为段。段内取NAME和PHONE的部分。

if (open(PN,$file)){
while(<PN>){
chomp;
$name=$',next if /NAME=/;
$con=$con."'".$name."' '".$'."' " if /PHONE=/ && $';
}
}
close(PN);
# --------------------------------------------
#print "$con\n";
$num=`zenity --list --width 300 --height 500 --text="DTMF拨号，选择联系人" --column="联系人" --column="电话号码" --hide-column=2 --print-column=2 $con`;
chomp $num;
exit if ! $num;
$cmd="esddsp dtmfdial --silent-time 100 \'0,,,,$num\'";
print $cmd;
`$cmd`;

[vvoody]

DTMF是什么。。。 拨通讯录里的号？

[eexpress]

vv.... 看百科。。双音多频。

就是通过电话听筒，拨号。充分利用你的通讯录资源。

座机，摘机，听筒放电脑喇叭边，选联系人，确定，就拨号了。

[vvoody]

那还差哪步？这个对我似乎用大不着诶~~~

[eexpress]

现在的，估计喜欢这个的少了。
有声卡，没modem或者没用modem连接电话的，可以试试而已。

[lanjian9151]

我是看了柯南才知道的，研究了一阵子，很有趣，然后看了一部电影，里面的黑客就用这种方法进行了活动，很是NB啊。

[eexpress]

lanjian9151, 居然也看剧场版。