{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

Perl语言入门和提高11

Perl语言入门和提高11

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Spring, 2008 1 Perl 语言高级编程专题 Lesson 11 周晓方 [email protected] Perl 和网络, Perl Win32 Spring, 2008 2 MAC 地址 , 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) 端口号 : 1~65535 的一个数字,常用协议有固定的端口号 (1~1023) http 80, ftp 21, https 443, smtp 25, pop3 101, etc 每台 PC 可以装多个网卡 , 每个网卡对应一个 MAC 址,但可绑定多个 IP 地址,每个 IP 可以有多个域名 Spring, 2008 3 网络常用工具 ( Windows 为例 ) ping 域名或 IP 了解远程机器的相应情况 nslookup 域名或 IP 检测 DNS tracert 域名或 IP 列出到达指 IP 的路 netstat p tcp 列出 TCP 连接 的端口号和情况 ipconfig (/all) 列出 本机网卡的 MAC/IP 地址等 下这些 微软 网络的 命令 net share 查看 本机 共享资源 net view /domain 查看 作组 net view \\pc_name 查看其他 机器的 共享资源 Spring, 2008 4 ftp(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 退出 Spring, 2008 5 Perl 连接 ftp 站点 面向 象格式 完全摹仿命令行 $ftp = Net::FTP new($host [, %options, port=>21 ]) $success = $ftp login($user, $password) $ftp binary / ascii / hash / pwd / ls / dir / cwd(dir) / delete(file) $ftp get( 远端 文件 [, 本地 文件 [, 起点 ]]) 可以 断点续传 $ftp put( 本地 文件 [, 远端 文件 ] ) 传文件 句柄读 远端 文件 $fh = $ftp retr( 文件 ) 句柄写 远端 文件 $fh=$ftp stor( 文件 ) $fh=$ftp appe( 文件 ) 远端 文件 修改时 $time=$ftp mdtm(file) 得到 远端 文件大小 $size=$ftp size( 文件 ) use Net::FTP; # 列目录并下载打印 index.txt 文件 use constant HOST = > 'localhost'; use constant USER => 'anonym ous'; #connect, login, and list directory m y $ftp = Net::FTP->new(HOST) or die [email protected] ; $ftp-> login(USER) or die [email protected] ; print $ftp->pwd, "\n"; m y @ dir = $ftp->dir; print join("\n", @ dir), "\n"; #download a file and dum p to STDOUT m y $fn = 'index.txt'; m y $fh = $ftp-> retr($fn); warn "Can't find $fn" if not $fh; print <$fh> if $fh; $ftp->quit; Spring, 2008 6 Net::FTP —— Net::Cmd command($command)
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}