Perl语言高级编程专题09prn.pdf

《Perl语言高级编程专题09prn.pdf》由会员分享，可在线阅读，更多相关《Perl语言高级编程专题09prn.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1Perl语言高级编程专题Lesson 9周晓方coursesxfzhou.homeftp.orgPerl和网络，Perl和Win322MAC地址,IP地址,端口号 MAC地址:网卡绑定的唯一48bit地址,六段16进制表示 IPv4地址:32bit网际网地址,表示成四段十进制数10.10.10.1 127.x.x.x是localhost,表示本地，用于开发调试 10.x.x.x,172.16-32.x.x,192.168.x.x等用于内网 子网的第一个IP用于路由,最后一个IP用于广播 互联网上IP地址和域名之间有对应关系(DNS)端口号:165535的一个数字，常用协议有固定的端口号(11

2、023)http 80,ftp 21,https 443,smtp 25,pop3 101,etc 每台PC可以装多个网卡,每个网卡对应一个MAC地址，但可绑定多个IP地址，每个IP可以有多个域名3网络常用工具(以Windows为例)ping 域名或IP了解远程机器的相应情况 nslookup 域名或IP 检测DNS信息 tracert 域名或IP列出到达指定IP的路径 netstat p tcp 列出TCP连接的端口号和情况 ipconfig(/all)列出本机网卡的MAC/IP地址等以下这些是微软网络的命令 net share查看本机共享资源 net view/domain查看域、工作组名

3、 net view pc_name 查看其他机器的共享资源4ftp(File Transfer Protocol)入门 命令行ftp的常用命令 open 域名或IP 端口号并输入用户和口令 ls或dir列出远程目录的文件列表 cd/pwd/mkdir改变/显示/创建远程目录 lcd改变本地目录！进入shell bin/ascii传输模式 get/mget name 下载单个文件/一组文件 put/mput name 上传单个文件/一组文件 prompt是否逐一提示(传多个文件时)hash传输文件时是否提示进度 close关闭连接 quit退出5Perl脚本连接ftp站点 面向对象格式，完全摹仿

4、命令行方式$ftp=Net:FTPnew($host,%options,例如port=21等)$success=$ftplogin($user,$password)$ftpbinary/ascii/hash/pwd/ls/dir/cwd(dir)/delete(file)$ftpget(远端文件名,本地文件名,起点)可以断点续传断点续传$ftpput(本地文件名,远端文件名)上传文件 打开句柄读远端文件$fh=$ftpretr(文件)打开句柄写远端文件$fh=$ftpstor(文件)$fh=$ftpappe(文件)远端文件的修改时间$time=$ftpmdtm(file)得到远端文件大小$si

5、ze=$ftpsize(文件)use Net:FTP;#列目录并下载打印index.txt文件use constant HOST=localhost;use constant USER=anonymous;#connect,login,and list directorymy$ftp=Net:FTP-new(HOST)or die$;$ftp-login(USER)or die$;print$ftp-pwd,n;my dir=$ftp-dir;print join(n,dir),n;#download a file and dump to STDOUTmy$fn=index.txt;my$fh

6、=$ftp-retr($fn);warn Cant find$fn if not$fh;print if$fh;$ftp-quit;6Net:FTP的父对象Net:Cmd command($command)方法发送命令ok方法返回成功与否response方法返3位结果码的第一位code方法返回3位数值型结果码message方法返回文本消息结果码在400以上的表示错误信息，例如正常login一个ftp服务器后会有类似这样的反馈:331 Anonymous access ok:give e-mail address as passwordPassword:*230 User anonymous l

7、ogged-in(续上页)断点续传下载的一种写法:$offset=(stat($file)7|0;#如果文件大小0则续传$ftp get($file,$file,$offset);如何透过防火墙/代理访问ftp:参考Net:Config7发邮件的协议SMTP:25 下面是一次SMTP(Simple Mail Transfer Protocol)对话:C:telnet 25220 Welcome to RaidenMAILDSMTP service v1903,Wed,26 May 2004 13:21:40+0800,(C)2001-2003HELO my_250 my_mail from:u

8、serA250(EMPTY)Sender OKrcpt to:250 userB recipient verifieddata354 start mail input;end with.hello!.250 mail received,ready to proceed.quit221 RaidenMAILD SMTP service signing off失去了跟主机的连接。C:_连接SMTP服务器打招呼,告知域名告知发件人邮箱告知收件人邮箱开始写信信的内容.表示信结束礼貌地退出C:_220连接成功250好的250邮箱正确250邮箱正确354写信提示250信收到221服务结束8收邮件的协议PO

9、P3:110 下面是一次POP3(Post Office Protocol 3)对话:C:telnet 110+OK Welcome to RaidenMAILD POP3 service v1903,Wed,26 May 2004 13:51:56+0800,(C)2001-2003user USER2+OK USER USER2 OKpass*+OK Password OK,enter mailbox now.list+OK 1 1121 112.retr 1+OK 112 octetsReceived:from local(192.168.11.111)by RaidenMAILD(10

10、.11.11.1);Wed,26 May 2004 13:24:58+0800hello!.dele 1+OK mail 1 deletedquit+OK RaidenMAILD POP3 service signing off失去了跟主机的连接。C:_连接POP3服务器登录 用户名登录 口令列出所有邮件看第1封信删除第1封信礼貌地退出C:_+OK连接成功+OK有这个用户+OK登录成功+OK有1封信编号、长度来源和日期信的内容+OK删除成功+OK结束服务9用Perl发信(no spam,严禁发送垃圾信件)Net:SMTP的例子#!/usr/bin/perl-wuse strict;use Ne

11、t:SMTP;use constant HOST=你的SMTP邮箱服务器地址;use constant USER=你的用户名;use constant SENDER=发信人域名;use constant RECIPIENT=收信人域名;my$smtp=Net:SMTP-new(HOST);#-SMTP需要身份认证?-print Authenticate Password for .USER.:;my$password=;chomp$password;$smtp-auth(USER,$password);#-开始发信-$smtp-mail(SENDER);$smtp-recipient(RECI

12、PIENT);#可以同时给多人($addr1,$addr2,$addr3.)$smtp-data(quit;10用Perl发信(II)身份认证需要安装Authen:SASL模块,见CPAN$smtpauth(用户名,密码);数据可以分多段发送，并发送信封：$smtpdata();$smtpdatasend(From:发方n,To:收方n,Subject:主题subjectn;$smtpdatasend(data);#可分多次调用datasend$smtpdataend;#表示信体结束 可以在quit之前反复$smtpmail()发送多封信件 发送带附件的信要用到MIME:Tool或者MIME:

13、Lite等模块11用Net:POP3收信$pop3=Net:POP3new(服务器地址)#连接$message=$pop3login(用户名,密码)#登录$last=$poplast#消息编号是1$last,如果$last=1$popdelete(消息编号)#给消息做删除标记,quit时才删除$popreset#复位，取消所有的删除标记$hashref=$poplist#返回散列引用,(消息编号长度)$size=$poplist(消息编号)#返回指定消息的长度$arrayref=$popget(消息编号)#读取消息，返回数组引用$handle=$popgetfh(消息编号)#读取消息，返回可读

14、句柄print$popquit#退出12用Net:HTTP下载网页 下载三个网页(超文本,jpeg,错误连接)并显示use Net:HTTP;my($path,$http,$code,$mess,%h,$buf,$n);$http=Net:HTTP-new(Host=animal.vine.homedns.org,KeepAlive=1)or die$;foreach$path(/,/041/04131A.jpg,/bad)$http-write_request(GET=$path,User-Agent=Mozilla/5.0);($code,$mess,%h)=$http-read_resp

15、onse_headers;print STDERR$pathncode:$code,mess:$mess,hash pairs:n;print STDERR$k=$vn while($k,$v)=each%h;print-n;next if$code ne 200;binmode STDOUT;while(1)$buf;$n=$http-read_entity_body($buf,1024);die read failed:$!unless defined$n;last unless$n;print$buf;print n=nn;13运行结果 注意Code/mess/%h的返回值连接超文本连接

16、超文本/code:200,mess:Ok,hash pairs:Content-Type=text/htmlConnection=Keep-AliveLast-Modified=Sat,31 Jan 2004 13:47:34 GMTServer=Xitami/ProContent-Length=521Keep-Alive=timeout=30,max=25-Jan,(以下省略，共521字节)=连接连接JPEG二进制图像二进制图像/041/04131A.jpgcode:200,mess:Ok,hash pairs:Content-Type=image/jpegConnection=Keep-A

17、liveLast-Modified=Sun,08 Feb 2004 07:56:10 GMTServer=Xitami/ProContent-Length=12073Keep-Alive=timeout=30,max=25-?JFIF(二进制内容，以下省略，共12073字节)连接无效网页时/badcode:404,mess:Not found,hash pairs:Content-Type=text/htmlServer=Xitami/ProContent-Length=117-14ActivePerl的Win32模块 使用ActivePerl,程序增加use Win32;错误编号和错误字符串

18、(Win32有时不用$!)Win32:GetLastError()Win32:FormatMessage(Win32:GetLastError()操作系统的版本信息($serive_pack,$major,$minor,$build,$platform_id)=Win32:GetOSVersion()其中platform_id,0=win32,1=win9x,2=winnt 判断Win类型 Win32:IsWinNT(),Win32:IsWin95()Perl的编号:$PerlBuild=Win32:BuildNumber();15实例version.pl某某XP上运行的结果上运行的结果Win

19、32:GetOSVersion()returns:service_pack Service Pack 1major.minor 5.1build 2600platform_id 2Win32:BuildNumber()returns:635Win32:IsWin95()returns 0Win32:IsWinNT()returns 1某某98上运行的结果上运行的结果(安装的安装的ActivePerl版本不同版本不同)Win32:GetOSVersion()returns:service_pack Amajor.minor 4.10build 67766446platform_id 1Win32

20、:BuildNumber()returns:805Win32:IsWin95()returns 1Win32:IsWinNT()returns 0use Win32;my($service_pack,$major,$minor,$build,$platform_id)=Win32:GetOSVersion();my($perlbuild)=Win32:BuildNumber();my($is95,$isnt)=(Win32:IsWin95(),Win32:IsWinNT();print WaitForChange(10000)print Clipboard changed.Format is;

21、if($clip-IsText()print text.,$clip-GetText(),n;elsif($clip-IsFiles()print files.n,join(n,$clip-GetFiles(),n;elsif($clip-IsBitmap()print bigmap.n;open B,b.bmp;binmode B;print B$clip-GetBitmap;close B;else print not supported:,join(,$clip-EnumFormats),n;else print Clipboard not changed,go on waiting.n

22、18其他一些Win32模块 Win32:Console 控制Console窗口 Win32:ChangeNotify 监视目录文件改变 Win32:File修改、获得文件属性 Win32:FileSecurityNT文件权限控制 Win32:Internet wininet.dll,http,ftp,等 Win32:NetResource共享文件和打印机 Win32:ODBC ODBC数据库接口 Win32:Process Win32系统的进程管理函数 Win32:Registry注册表 Win32:Shortcut快捷方式 Win32:IPC/Semaphore/Mutex多进程线程协调 1

23、9Win32:Pipe 命名管道named pipe 带名字的管道,可以让同一个域上的进程交换数据,其中管道源必须是NT/2K/XP,不能是9Xuse Win32;#管道主机端代码，先运行这段代码use Win32:Pipe;die Must be NT to create a named pipe.n if not Win32:IsWinNT();my$pipe=new Win32:Pipe(My Perl Pipe);die Fail to create pipen if not$pipe;die Fail to connect pipen if not$pipe-Connect;my$m

24、sg=Im .Win32:LoginName.on .Win32:NodeName.n.Im running script$0.;print Send to Client:n$msgn;die Fail to send messagen if not$pipe-Write($msg);print Read from Client:n;print$pipe-Read();$pipe-Disconnect;$pipe-Close;use Win32;#管道客户端代码，后运行这段代码use Win32:Pipe;my$pipe=new Win32:Pipe(.pipeMy Perl Pipe);di

25、e Fail to create pipen if not$pipe;my$msg=Im .Win32:LoginName.on .Win32:NodeName.n.Im running script$0.;print Send to Server:n$msgn;die Fail to send messagen if not$pipe-Write($msg);print Read from Server:n;print$pipe-Read();$pipe-Disconnect;$pipe-Close;20Win32:Sound 播放声音 Volume(音量),Play(文件,标志),Stop

26、()#!/usr/bin/perl-wuse strict;use Win32;use Win32:Sound;Win32:Sound:Volume(100%);#或Volumn(左,右)Win32:Sound:Play(CLEAR.WAV,SND_ASYNC);my($hz,$bits,$channels)=Win32:Sound:Format(CLEAR.WAV);Win32:Sleep(500);print Clear.wav:$hzHz,$bitsB,$channelsCn;sleep(1);Win32:Sound:Stop();1;21即时生成、播放波形 产生并播放一段正弦波形use

27、 Win32:Sound;$WAV=new Win32:Sound:WaveOut(44100,8,2);$data=;$counter=0;$increment=441/44100;#Generate 44100 samples(=1 second)for$i(1.44100)#Calculate the pitch#(range 0.255 for 8 bits)$v=sin($counter/2*3.14)*128+128;#pack it twice for left and right$data.=pack(cc,$v,$v);$counter+=$increment;$WAV-Lo

28、ad($data);#get it$WAV-Write();#hear it1 until$WAV-Status();#wait for completion$WAV-Save(sinus.wav);#write to disk$WAV-Unload();#drop it22通过Win32:OLE打开IE Perl是Controller，启动/控制各种OLE Server 创建、调用方法、访问属性：$app=Win32:OLE-new(OLE Prog ID/Class ID,Destructor);远程启动时采用Win32:OLE-new(machine,ID,Destructor);OLE

29、的出错信息不在$!中，要用Win32:OLE-LastError()$result=$app-Method(arguments);$result=$app-Property;$app-Property=exp;参考ActivePerl帮助文档的OLE-Browser和VB手册use Win32:OLE;$ie=Win32:OLE-new(InternetExplorer.Application.1,Quit)#或直接用CLSID new(0002DF01-0000-0000-C000-000000000046,|die CreateObject:.Win32:OLE-LastError;$ie

30、-Visible=1;$ie-Navigate(http:/ Busyt;sleep(1);print Done.n;#打开浏览器，连接Google主页，连接过程sleep(2);#中显示busy，完成后等2秒，最后退出23OLE-Browser和其他帮助 Active Perl 帮助文件自带，要用到Perlscript功能 更详细的帮助，参考各个应用程序的帮助 Office类应用程序有VB帮助和对象浏览器 例如:Excel-Tool-宏-Visual Basic编辑器-F224控制Winword的例子 new()不指定Destructor，Perl结束后应用程序不退出 采用缺省参数时,填写u

31、ndef,例如SaveAs的语法是:expression.SaveAs(FileName,FileFormat,LockComments,Password,AddToRecentFiles,WritePassword,ReadOnlyRecommended,EmbedTrueTypeFonts,SaveNativePictureFormat,SaveFormsData,SaveAsAOCELetter)(参考参考Winword的的VB帮助文件帮助文件)在下面例子中用的是$doc-SaveAs(ole.doc,undef,undef,111)要用好OLE,就要熟悉各种OLEServer的编程接口

32、,以及COM/DCOM的知识,仅仅学会Perl是远远不够的。use Win32:OLE;#本例用于Word2000my$line=Hello World!;#不适合Word97my$wd=Win32:OLE-new(Word.Application)|die CreateObject:.Win32:OLE-LastError;$wd-Visible=1;my$doc=$wd-Documents-Add();$wd-Selection-Font-Size=100;$wd-Selection-Font-SmallCaps=100;$wd-Selection-Font-Animation=3;$wd

33、-Selection-TypeText($line);$doc-SaveAs(ole.doc,undef,undef,111);25将数据写入Excel文件 打开Excel的另一种办法$Excel=Win32:OLE-GetActiveObject(Excel.Application)Excel对象层次 Workbooks对象$wbs=$Excel-Workbooks Workbook对象$wb=$wbs-Add()新建一个book一个Workbook包含多个Worksheet和Chart对象$wb-SaveAs($name,)Worksheet对象$sh=$wb-Worksheets(1)R

34、ange对象$R=$Sh-Range(A1:D5)$R-Value=第一行,第二行,第三行,$R-Font-Bold=1#选定范围单元格的字体属性 参考Excel的VB文档，参见实例程序excel.pl26录制VBA宏Perl OLE脚本 工具宏录制新宏各种操作停止工具宏宏编辑 找到关键的VB语句，转换为Perl OLE语句Sub 宏1()Range(A3:A5).SelectWith Selection.HorizontalAlignment=xlGeneral.VerticalAlignment=xlBottom.WrapText=False.Orientation=90.AddInden

35、t=False.ShrinkToFit=False.MergeCells=FalseEnd WithColumns(A:A).EntireColumn.AutoFitEnd Sub$Range-Orientation=90;$Sheet-Columns(A:A)-EntireColumn-AutoFit();27从Excel文件读取数据 打开Excel的第三个方法：打开现有的文件$Book=Win32:OLE-GetObject(Win32:GetCwd.OLE2.xls,Quit)直接获得WorkBook对象use Win32;use Win32:OLE qw(in with);use Wi

36、n32:OLE:Const Microsoft Excel;$Win32:OLE:Warn=3;#die on errors.my$Book=Win32:OLE-GetObject(Win32:GetCwd.OLE2.xls,Quit)or die Cant open OLE2.xls;my$Sheet=$Book-Worksheets(Perl_OLE);my$data=$Sheet-Range(B3:E5)-Value;my($row,$cell);foreach$row($data)foreach$cell($row)print$cellt;print n;D:perl excel3.pl80 80 85 8090 80 70 7060 70 90 100D:_28用Excel产生图表 引入Excel VB程序的各种常数use Win32:OLE:Const Microsoft Excel;Chart对象的常用方法、属性:Name,ChartType,HasTitle SetSourceData(Source=$Range,PlotBy=常数)这里用了传递参数给OLE方法的第二种形式.ChartTitle-Text 将图表转换成图片$Chart-Export(文件名,图形过滤器,交互)参考excel4.pl