杭州交通信息网高一离子共存问题:请问Perl语言中如何与数据库连接?另外如何使用winsock?
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 18:41:44
请问Perl语言中如何与数据库连接?另外如何在perl中使用winsock?
麻烦各位大侠提供些具体的程序段说明,谢谢啦!
重金(分)酬谢!
谢谢您的回答,能否详细些?
与数据库连接,是指对SQL数据库等的连接方式;
winsock的使用,能否把所有的方法、事件、相关语句都列出来，谢谢！
麻烦各位大侠提供些具体的程序段说明,谢谢啦!
重金(分)酬谢!
谢谢您的回答,能否详细些?
与数据库连接,是指对SQL数据库等的连接方式;
winsock的使用,能否把所有的方法、事件、相关语句都列出来，谢谢！
perl存取DBM数据库的方式很容易。可以利用一个哈希变量和DBM数据库关联起来，跟用文件关联到进程的用法一样。这个哈希就可以用来存取和更改数据库的内容：在数组中产生新元素，代表在数据库中产生新元素，删除也一样。
打开关闭DBM哈希：
dbmopen(%ARRAYNAME,"dbmfilename",$mode);
参数%ARRAYNAME是哈希变量。这个哈希内部的值会被清理掉，随后和名称为dbmfilename的DBM数据库产生关联；
参数$mode是一个数字，代表权限控制位。常用的设定是0644,代表只有所有者同时有读写权，其他人只有读取权。
如：dbmopen(%FRED,"mydatabase",0644);#开启以%FRED表示的mydatabase文件
关闭：dbmclose(%A); #结束关联状态
新增、删除、存取：
%FRED{"fred"}="bedrock"; #建立或更新一个元素
delete %FRED {"barney"}; #删除一个元素
$key (keys %FRED) #扫过所有值
{
print "$keys has value of $FRED{$key}\n";
}
显示远程服务器目前时间显示之后结束连接：
use IO::Socket;
$remote =IO::Socket::INET->new(
Proto=> "tcp",
PeerAddr=>"localhost",
PeerPort=>"daytime(13)",
)
or die "cannot connect to daytime portat localhost";
while(<$remote>){print;}