Perl语言入门和提高11

Perl语言入门和提高11

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

View Full Document Right Arrow Icon

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

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Spring, 2008 1 Perl 语言高级编程专题 Lesson 11 周晓方 courses@xfzhou.homeftp.org 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 N et::FTP; # 列目录并下载打印 index.tx t 文件 use constant H O ST = > 'localhost'; use constant U SER = > 'anonym ous'; # connect, login, and list d irectory m y $ftp = N et::FTP-> new (H O ST) or d ie $@ ; $ ftp -> login(U SER ) or d ie $@ ; p rint $ ftp -> pw d , "\n";...
View Full Document

Page1 / 4

Perl语言入门和提高11

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online