perl语言有什么用？主要用在什么方面？_百度知道
perl语言有什么用？主要用在什么方面？
做软件开发用的多吗？还是用于一些科学计算？
听说Perl很精练，那应该很难吧？
我有更好的答案
perl最强的是文本处理不过perl可以做任何事如果你要学先看小骆驼书 ########################perl的精华在于正则表达式和hash，这个得好好学我现在用perl做linux下的开发，挺好。。。。
采纳率：24%
Perl是一个完整的编程语言，其他编程语言能做的事情他都能做（复杂程度可能有所不同）；但他的强项还在于文本处理，或者作为各种程序之间的“胶水”；在文本处理方面，生物信息学中用的很多很多……
为您推荐：
其他类似问题
您可能关注的内容
perl的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。服务热线：400-702-1168 ()
您好，访客
||||||||||
Linux环境下Perl语言对数据库的操纵
发布时间： 08:00:00&&来源：linux宝库&&作者：linux宝库&&点击：2369
　　实例：同一主机下的运行　　主机配置：PIII450 128M 15GB　　操作系统：Red Hat Linux 6.1　　数据库：MySQL-3.22.2Array　　建议使用RPM方式安装，至少要安装下面三个包：　　MySQL-3.22.2Array-1.i386.rpm　　MySQL-client-3.22.2Array-1.i386.rpm　　MySQL-devel-3.22.2Array-1.i386.rpm　　WWW服务器：Apache 1.3.6 for Linux　　Perl 解释器：version 5.005_03 built for i386-linux　　DBI: 版本为：1.13　　Data-ShowTable: 版本为：3.3　　DBD: Msql-Mysql-modules-1.2018　　本人成功地在上述环境下实现了对MySQL数据库的访问。与Windows环境下的数据库不同，它不需要建立外部数据源.　　下面是一个应用的简单例子：　　为了统计用户访问我们的网站的次数，我们建立了一个数据库, 在其中建一个表，表名为：usedata, 共有三列：userno,userpass,lognum,分别代表用户名,密码,登录次数.　　假定我们使用test数据库，在该库中创建表usedata, 我们既可以编一个PERL程序实现，也可以在命令行方式下实现：　　#mysql test　　&CREATE TABLE usedata(userno CHAR(8) NOT NULL, usepass CHAR(8) NOT NULL, lognum INT);　　&exit　　共有两个htm文件，两个pl文件.　　regist.htm &html&　　&head&　　&meta http-equiv="Content-Type"　　content="text/ charset=gb_2312-80"&　　&meta name="GENERATOR" content="Microsoft FrontPage Express 2.0"&　　&title&注册&/title&　　&/head&　　&body&　　&p&&center&&font color=ff3380&用户在线注册&/font&&/center&　　&/p&　　&form action="/cgi-bin/database/regist.pl" method="POST"&　　&table border="0"&　　&td valign="top"&&font color="#400080"&用户名&input type=text name=’IDNO’ size=4 maxlength=8&&/font&　　&td valign="top"&&font color="#400080"&密码&input type=password name=’PASS’ size=6 maxlength=8&&/font&　　&/table&　　&font color="#0080C0"&&input type="submit"　　value="注册"& &input type="reset" value="清除"& &/font&　　&/form&　　&/body&　　&/html&　　login.htm &html&　　&head&　　&meta http-equiv="Content-Type"　　content="text/ charset=gb_2312-80"&　　&meta name="GENERATOR" content="Microsoft FrontPage Express 2.0"&　　&title&登录&/title&　　&/head&　　&body&　　&p&&center&&font color=ff3380&用户在线登录&/font&&/center&　　&/p&　　&form action="/cgi-bin/database/login.pl" method="POST"&　　&table border="0"&　　&td valign="top"&&font color="#400080"&用户名&input type=text name=’IDNO’ size=4 maxlength=8&&/font&　　&td valign="top"&&font color="#400080"&密码&input type=password name=’PASS’ size=6 maxlength=8&&/font&　　&/table&　　&font color="#0080C0"&&input type="submit"　　value="登录"& &input type="reset" value="清除"& &/font&　　&/form&　　&/body&　　&/html&　　regist.pl #!/usr/bin/perl　　# regist.pl　　&p&read(STDIN, $buffer, $ENV{’CONTENT_LENGTH’});　　@pairs = split(/&/, $buffer);　　foreach $pair (@pairs) {　　($name, $value) = split(/=/, $pair);　　$value =~ tr/+/ /;　　$value =~ s/%([a-fA-F0-Array][a-fA-F0-Array])/pack("C", hex($1))/　　$value =~ s/&!--(.|＼n)*--&//g;　　$value=~ s/&([^&]|＼n)*&//g;　　$value=~ s/&/&/g;　　$value=~ s/&/&/g;　　$FORM{$name} = $　　}　　&p&print "Content-type: text/html＼n＼n";　　&p&print "&HTML&&HEAD&&TITLE&注册&/TITLE&&/HEAD&＼n";　　&p&print "&body bgcolor=#FFFFFF&＼n";　　&p&　　if ($FORM{’IDNO’} eq "")　　{　　print&&EOF;　　&center&&font color=red&用户名不能为空!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　exit(0);　　}　　&p&if ($FORM{’PASS’} eq "")　　{　　print&&EOF;　　&center&&font color=red&密码不能为空!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　exit(0);　　}　　&p&$host= shift || "";　　$test_db="test";　　$opt_user=$opt_password="";　　&p&use DBI;　　&p&$|= 1; # Autoflush　　&p&$table="usedata";　　&p&$dbh = DBI-&connect("DBI:mysql:$test_db:$host",$opt_user,$opt_password) || die "Can’t connect: $DBI::errstr＼n";　　&p&$n1 = $FORM{’IDNO’};　　&p&$sth=$dbh-&prepare("select * from usedata where userno=$n1 ") or die $dbh-&　　&p&$sth-&execute() or die $sth-&　　&p&if (($row = $sth-&fetchrow_arrayref))　　{　　$dbh-&disconnect();　　print&&EOF;　　&center&&font color=red&用户名已存在!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　exit(0);　　}　　$n2 = $FORM{’PASS’};　　$n3 = 1;　　$dbh-&do("insert into $table values($n1, $n2,$n3)") or die $DBI::　　&p&$dbh-&disconnect();　　print&&EOF;　　&center&您已注册成功!&/center&　　&/BODY&&/HTML&　　EOF　　exit(0);　　&p&login.pl #!/usr/bin/perl　　# login.pl　　&p&read(STDIN, $buffer, $ENV{’CONTENT_LENGTH’});　　@pairs = split(/&/, $buffer);　　foreach $pair (@pairs) {　　($name, $value) = split(/=/, $pair);　　$value =~ tr/+/ /;　　$value =~ s/%([a-fA-F0-Array][a-fA-F0-Array])/pack("C", hex($1))/　　$value =~ s/&!--(.|＼n)*--&//g;　　$value=~ s/&([^&]|＼n)*&//g;　　$value=~ s/&/&/g;　　$value=~ s/&/&/g;　　$FORM{$name} = $　　}　　&p&print "Content-type: text/html＼n＼n";　　&p&print "&HTML&&HEAD&&TITLE&登录&/TITLE&&/HEAD&＼n";　　&p&print "&body bgcolor=#FFFFFF&＼n";　　&p&　　if ($FORM{’IDNO’} eq "")　　{　　print&&EOF;　　&center&&font color=red&用户名不能为空!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　exit(0);　　}　　&p&if ($FORM{’PASS’} eq "")　　{　　print&&EOF;　　&center&&font color=red&密码不能为空!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　exit(0);　　}　　&p&$host= shift || "";　　$test_db="test";　　$opt_user=$opt_password="";　　use DBI;　　$|= 1; # Autoflush　　&p&$table="usedata";　　&p&$dbh = DBI-&connect("DBI:mysql:$test_db:$host",$opt_user,$opt_password) || die "Can’t connect: $DBI::errstr＼n";　　&p&$n1 = $FORM{’IDNO’};　　$sth=$dbh-&prepare("select * from usedata where userno=$n1 ") or die $dbh-&　　&p&$sth-&execute() or die $sth-&　　if (($row = $sth-&fetchrow_arrayref))　　{　　if ($row-&[1] eq $FORM{’PASS’})　　{　　$NUM = $row-&[2]+1;　　$sth=$dbh-&prepare("UPDATE usedata SET lognum=$NUM where userno=$n1 ") or die $dbh-&　　$sth-&execute() or die $sth-& print&&EOF;　　&center&您第 $NUM 次登录!&/center&　　EOF　　}　　else　　{　　print&&EOF;　　&center&&font color=red&密码不正确!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　}　　}　　else　　{　　print&&EOF;　　&center&&font color=red&用户名不正确!&/font&　　返回&a href=’javascript:history.go(-1);’&前页&/a&修改　　&/center&　　EOF　　}　　$dbh-&disconnect();　　print &&EOF;　　&/body&&/html&　　EOF　　exit(0);
以上内容由
搜集整理，如转载请注明原文出处，并保留这一部分内容。
　　“华夏名网” http://www.sudu.cn 和 http://www.bigwww.com 是成都飞数科技有限公司的网络服务品牌，专业经营虚拟主机,域名注册，VPS,服务器租用业务。公司创建于2002年，经过6年的高速发展，“华夏名网”已经成为我国一家知名的互联网服务提供商，被国外权威机构webhosting.info评价为十大IDC服务商之一。
华夏名网网址导航:
上一篇：下一篇：
(4915次点击) (2767次点击) (4157次点击) (2792次点击) (2366次点击) (3724次点击) (3565次点击) (2358次点击) (2528次点击) (2437次点击)
(3413次点击) (3231次点击) (3242次点击) (3988次点击) (2404次点击) (2318次点击) (3208次点击) (3615次点击) (2348次点击) (2332次点击)
& SUDU.CN 飞数科技 版权所有
电话总机：028-91 94
公司地址：四川省成都市青龙街51号倍特康派大厦10楼5号Linux下的Perl编程 pdf版
书籍大小：10MB
书籍语言：简体中文
书籍类型：
书籍授权：免费软件
更新时间：
书籍类别：perl
购买链接：
网友评分：
应用平台：
17MB | 简体中文
23MB | 简体中文
21.7MB | 简体中文
518KB | 简体中文
25MB | 简体中文
143KB | 简体中文
23MB | 简体中文
72MB | 简体中文
90MB | 简体中文
下载错误？
Linux下的Perl编程 pdf版Perl语言解释器 ActivePerl for Linux 5.18.2.1801
投诉建议：
千万流量共享 百度高权重排名
软件大小： 33.17MB
软件厂商：
软件语言： 英语
软件授权： 免费
软件评级：
应用平台：Linux
更新时间：
下载已关闭
编辑推荐：
注：此下载包括32位和64位版本。此下载提供Linux源码包，需自行编译。Linux环境下的PERL语言解释器。ActivePerl也有Windows和Mac版本。Perl语言解释器 ActivePerl for Linux是时下互联网常用的软件之一，该软件绿色、安全、无毒，让你可以放心使用！如果Perl语言解释器 ActivePerl for Linux是你需要的工具，就赶紧来吧！本站为你提供Perl语言解释器 ActivePerl for Linux官方下载。Perl语言解释器 ActivePerl for Linux截图1
8MB|1MB|173MB|671.0KB|1MB|889.0KB|
聚超值推荐
今日更新推荐
软件分类目录
同类软件下载排行
热门关键词
为您推荐：豆丁微信公众号
君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
利用Perl实现Linux下隐藏进程的查找
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口